0

visual basic

ModMain

Dim Pertanyaan() As String
Dim jawaban() As String


Public Function BukaFile(Where As String) As String
Dim BinTeks, Temp As String

Open Where For Input As #2
    On Error Resume Next
    Do While Not (EOF(2))
       Input #2, Temp
       BinTeks = BinTeks & Temp
    Loop
Close #2
BukaFile = BinTeks
End Function

Public Function buatfile(isi As String, trget As String)
Open trget For Binary As #1
    Put #1, , isi
Close #1
End Function

Public Sub MainKanKuis(isi As String, Tanya As TextBox, opA As OptionButton, opB As OptionButton, opC As OptionButton, opD As OptionButton, txtBenar As TextBox, Indek As Integer)
isi = BukaFile(App.Path & "\Tanya.txt")
Pertanyaan = Split(isi, "?")
Tanya.Text = Pertanyaan(Indek) & " ?"
jawaban = Split(Pertanyaan(Indek + 1), "%")
opA.Caption = jawaban(0)
opB.Caption = jawaban(1)
opC.Caption = jawaban(2)
opD.Caption = jawaban(3)
txtBenar.Text = jawaban(CInt(jawaban(4)) - 1)
End Sub

Public Function DetekJawaban(op As OptionButton, benar As TextBox) As Boolean
If op.Caption = benar.Text Then
    DetekJawaban = True
Else
    DetekJawaban = False
End If
End Function

frorang
Private Sub Command1_Click()
MsgBox "Selamat bermain di H-Kuis !", vbInformation
frMain.Show
frMain.Label1.Caption = "Nama : " & Text1.Text
frMain.Label2.Caption = "Kelas : " & Text2.Text
Unload Me
End Sub

Private Sub Command2_Click()
End
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Command1_Click
End If
End Sub

frmain
' Cotoh membuat kusi dengan VB 6.0
' A.M Hirin

Dim PosBenar As Integer
Dim Indek As Integer
Dim waktu As Integer

Private Sub cmd50_Click()
pipti_pipti
cmd50.Enabled = False
End Sub

Private Sub cmdAsk_Click()
cmdAsk.Enabled = False
frAudience.Show 0, Me
End Sub

Private Sub cmdPhone_Click()
    cmdPhone.Enabled = False
    frBantu.Show 0, Me
End Sub

Private Sub Command1_Click()
Dim nilai As Boolean
On Error Resume Next

If Command1.Caption = "KUIS BARU" Then
    Kuis_Baru
    Command1.Caption = "SAYA YAKIN"
    Exit Sub
End If

If Option1(0).Value = True Then
    nilai = DetekJawaban(Option1(0), txtBenar)
ElseIf Option1(1).Value = True Then
    nilai = DetekJawaban(Option1(1), txtBenar)
ElseIf Option1(2).Value = True Then
    nilai = DetekJawaban(Option1(2), txtBenar)
ElseIf Option1(3).Value = True Then
    nilai = DetekJawaban(Option1(3), txtBenar)
Else
End If
If MsgBox("Apakah anda yakin dengan jawaban ANDA  ?", vbInformation + vbYesNo, "Mantap") = vbYes Then
    If nilai = False Then
        frHasil.Label2.Caption = "Salah"
        frHasil.Show 1, Me
        tunjukan_benar
        kuis_end
        Exit Sub
    Else
        waktu = 300
        frHasil.Label2.Caption = "Benar"
        frHasil.Show 1, Me
        PosBenar = PosBenar + 1
        Label3(PosBenar).BackStyle = 1
        Label3(PosBenar).BackColor = vbBlack
        Label3(PosBenar - 1).BackStyle = 0
        If PosBenar = 15 Then
            MsgBox "Selamat anda calon bintang kelas ! ~ Anda memang anak yang pintar, tapi jangan lupa tetep rajin belajar !", vbInformation, "Selamat"
            Command1.Caption = "KUIS BARU"
            Exit Sub
        End If
        MsgBox "Pertanyaan sekarang bernilai : Rp. " & Label3(PosBenar).Caption & " !", vbInformation
    End If
    Indek = Indek + 2
    MainKanKuis "", Text1, Option1(0), Option1(1), Option1(2), Option1(3), txtBenar, Indek
End If
End Sub

Private Sub Form_Load()
Indek = 54 ' indek adalah awal pertanyaan dimulai (indek harus genap)
waktu = 300
tmAnim.Enabled = True
End Sub

Private Sub animasi_awal()
tmAnim.Enabled = True
End Sub

Private Sub mnEdit_Click()
frEdit.Show 1, Me
End Sub

Private Sub mnExit_Click()
End
End Sub

Private Sub tmAnim_Timer()
Static num As Integer
num = num + 1
Select Case num
Case 1
    Text2.Text = Mid(Label1.Caption, 8) & " selamat datang di Who want to be Bintang Kelas !. Program ini di buat oleh A.M Hirin ! ~ Selamat bermain semoga sukses."
Case 3
    Text2.Text = Mid(Label1.Caption, 8) & " harus menyelesaikan 15 pertanyaan untuk mencapai puncak kuis !. Program ini di buat oleh A.M Hirin ! ~ jika semua pertanyaan bisa dikerjakan dengan baik berarti " & Mid(Label1.Caption, 8) & " anak yang pinter."
Case 6
    Text2.Text = Mid(Label1.Caption, 8) & " harus ingat bahwa satu pertanyaan punya batas waktu yaitu 300 detik / 5 menit ! ~ Jadi gak boleh berpikir lama - lama ya"
Case 8
    Text2.Text = Mid(Label1.Caption, 8) & " punya 3 pilihan bantuan antara lain Phone Friend, Ask Audience, 50:50 jika anda merasa kesulitan menghadapi soal."
Case 11
     Text2.Text = Mid(Label1.Caption, 8) & " inilah tahap - tahap yang akan anda lalui !"
Case 12
    tmAnim.Interval = 300
    Label3(0).BackColor = vbBlack
    Label3(0).BackStyle = 1
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(0).Caption
Case 13
    Label3(0).BackStyle = 0
    Label3(1).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(1).Caption
    Label3(1).BackStyle = 1
Case 14
    Label3(1).BackStyle = 0
    Label3(2).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(2).Caption
    Label3(2).BackStyle = 1
Case 15
    Label3(2).BackStyle = 0
    Label3(3).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(3).Caption
    Label3(3).BackStyle = 1
Case 16
    Label3(3).BackStyle = 0
    Label3(4).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(4).Caption
    Label3(4).BackStyle = 1
Case 17
    Label3(4).BackStyle = 0
    Label3(5).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(5).Caption
    Label3(5).BackStyle = 1
Case 18
    Label3(5).BackStyle = 0
    Label3(6).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(6).Caption
    Label3(6).BackStyle = 1
Case 19
    Label3(6).BackStyle = 0
    Label3(7).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(7).Caption
    Label3(7).BackStyle = 1
Case 20
    Label3(7).BackStyle = 0
    Label3(8).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(8).Caption
    Label3(8).BackStyle = 1
Case 21
    Label3(8).BackStyle = 0
    Label3(9).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(9).Caption
    Label3(9).BackStyle = 1
Case 22
    Label3(9).BackStyle = 0
    Label3(10).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(10).Caption
    Label3(10).BackStyle = 1
Case 23
    Label3(10).BackStyle = 0
    Label3(11).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(11).Caption
    Label3(11).BackStyle = 1
Case 24
    Label3(11).BackStyle = 0
    Label3(12).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(12).Caption
    Label3(12).BackStyle = 1
Case 25
    Label3(12).BackStyle = 0
    Label3(13).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(13).Caption
    Label3(13).BackStyle = 1
Case 26
    tmAnim.Interval = 1000
    Label3(13).BackStyle = 0
    Label3(14).BackColor = vbBlack
    Text2.Text = "Pertanyaan ke- " & num - 11 & " dengan nilai Rp. " & Label3(14).Caption
    Label3(14).BackStyle = 1
Case 29
    Label3(0).BackColor = vbBlack
    Label3(0).BackStyle = 1
    Label3(14).BackStyle = 0
    Text2.Text = "Pertanyaan yang pertama untuk anda dengan nilai : Rp. " & Label3(0).Caption
Case 31
    MainKanKuis "", Text1, Option1(0), Option1(1), Option1(2), Option1(3), txtBenar, 12
    tmAnim2.Enabled = True
    Frame3.Enabled = True
    tmAnim.Enabled = False
End Select
End Sub

Private Sub tmAnim2_Timer()
waktu = waktu - 1
lbTime.Caption = waktu
If waktu < 1 Then
    MsgBox "Waktu habis dan permainan berhenti !", vbExclamation
End If
End Sub

Private Sub kuis_end()
tmAnim2.Enabled = False
Command1.Caption = "KUIS BARU"
Text1.Text = ""
Option1(0).Caption = ""
Option1(1).Caption = ""
Option1(2).Caption = ""
Option1(3).Caption = ""
End Sub

Private Sub Kuis_Baru()
Shell App.Path & "\" & App.EXEName & ".exe", vbNormalFocus
End
End Sub

Private Sub tunjukan_benar()
Static c As Byte
For c = 0 To 3
    If Option1(c).Caption = txtBenar.Text Then
        Option1(c).BackColor = vbRed
        MsgBox "Seharusnya jawaban yang benar adalah : " & Option1(c).Caption
        Option1(c).BackColor = vbButtonFace
    End If
Next

End Sub

Private Sub pipti_pipti()
Static c, d As Byte
For c = 0 To 3
    If Option1(c).Caption <> txtBenar.Text Then
        d = d + 1
        Option1(c).Caption = ""
        If d = 2 Then Exit Sub
    End If
Next
End Sub

frHasil

Dim a As Integer
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
a = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
a = a + 1
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
If a = 6 Then Label2.Visible = True
If a = 14 Then Unload Me
End Sub

frEdit
Private Sub cmdSave_Click()
Dim isi As String
isi = BukaFile(App.Path & "\Tanya.txt")
isi = isi & vbNewLine & txtTanya.Text & "?" & vbNewLine & txtA.Text & "%" & _
txtB.Text & "%" & txtC.Text & "%" & txtD.Text & "%" & converhuruf(Combo1.Text) & "?"
buatfile isi, App.Path & "\Tanya.txt"
txtTanya.Text = ""
txtA.Text = ""
txtB.Text = ""
txtC.Text = ""
txtD.Text = ""
End Sub


Private Function converhuruf(opsi As String) As String
Select Case opsi
Case "A"
    converhuruf = "1"
Case "B"
    converhuruf = "2"
Case "C"
    converhuruf = "3"
Case "D"
    converhuruf = "4"
End Select
End Function

frBantu
Dim teks As String
Dim num As Integer
Dim rndom As Integer
Dim yakin As String
Dim waktu As Integer

Private Sub cmdTutup_Click()
Unload Me
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
rndom = Round(Rnd * 3, 0)
yakin = CStr(100 - (Hour(Time) * rndom)) & " %"
waktu = 30
End Sub

Private Sub Timer1_Timer()
num = num + 1
waktu = waktu - 1
Select Case num
Case 1
    teks = teks & "Anda : Halo - Asalamu'alaikum" & vbNewLine
Case 3
    teks = teks & "Teman: Ya Halo - Wa'alaikum salam" & vbNewLine
Case 5
    teks = teks & "Anda: " & frMain.Text1.Text & vbNewLine
Case 5
    teks = teks & "Anda : Menurutmu jawabanya apa ?" & vbNewLine
Case 7
    teks = teks & "Teman: Saya rasa jawabanya : " & frMain.Option1(rndom).Caption & vbNewLine
Case 9
    teks = teks & "Anda : Berapa persen kmu yakin ?" & vbNewLine
Case 11
    teks = teks & "Teman: " & yakin & vbNewLine
Case 12
    teks = teks & "Anda : OK terima kasih !" & vbNewLine
End Select
txtPhone.Text = teks
lblTime.Caption = waktu
If waktu < 1 Then Unload Me
End Sub

txt.file;
Harga 1 pasang sepatu adalah 40.000 jika andi membeli 10 pasang sepatu maka uang yang haRus dibayar adalah?500 ribu%400 ribu%300 ribu%150 ribu%2?Yang disebut bahasa internasional adalah bahasa . . ?Belanda%Jepang%Inggris%Amerika%3?Rukun islam yang ke-5 ?Haji%Ko'drat%Puasa%Syahadat%1?Pencipta Lagu indonesia raya ?Suprapto%Suparman%Supratman%Sumanto%3?Kepanjangan PLN?Perusahaan Listrik Nasional%Pembangkit Listrik Negara%Perusahaan Listrik Negara%Salah Semua%3?Hari sumpah pemuda diperingati pada ?28 Mei%24 Mei%28 Oktober%28 September%3?Hasil dari 90-67 adalah ?23%32%33%43%1%?Berikut adalah hewan yang bertelur kecuali ?Ayam%Burung%Kodok%Kucing%4?Menonton sinetron bagi anak - anak SD adalah .... ?Kurang baik%Sangat baik%Diharuskan%Wajib%1?Rajin pangkal pandai, hemat pangkal ...?Miskin%Sejahtera%Kaya%Sukses%3?Kebersihan adalah sebagian dari...?iman%islam%iksan%makmur%1?Andi punya uang 250.000 dibelikan 4 pasang sepatu dimana harga sepasang sepatu adalah 50.000 berapa uang yang dimiliki andi sekarang?100.000%150.000%25.000%50.000%4?Rukun iman dalam islam ada ?1%4%5%6%4?Hasil dari 54 : 9 adalah ?4%5%6%7%%3?Buah/Sayuran yang banyak mengandung vitamin A adalah ?Wortel%Mangga%Taoge%Apel%1?Presiden Indonesia pertama kali adalah?Soekarno%Hatta%SBY%Gusdur%1?Jika ima mendaftar SD umur 6 tahun maka ketika Ia kelas 3 SMP umurnya adalah.. ? dengan catatan ima selalu naik kelas12%15%14%11%3?Sehari kewajiban umat islam adalah solat ... raka'at ?5%20%16%17%4?Naik haji adalah rukun islam yang ke ...?1%2%3%5%4?Senjata asli suku aborigin adalah...?Sabit%Pisau%Bumerang%Pedang%3?Langit mending, awan berwrna hitam pertanda akan turun?Panas%Salju%Hujan%terik%3?Hewan yang menyusui anaknya disebut hewan?Memamah biak%Mamalia%Vivipar%Herbivora%2?Karnivora adalah hewan pemakan?Daging%Tumbuhan%Cacing%Buah%1?Kalo melihat teman berkelahi sikap kita adalah?Menyoraki%Melerai%Ikut Berkelahi%Pura - pura tidak tahu%2?Yang tertua pada pandawa lima adalah ?Puntadewa%Werkudara%Nakula%Shadewa%1?Presiden Indonesia yang ke-4 adalah?Megawati%Gusdur%Habibie%SBY%2?Yang termasuk unggas, kecuali?Ayam%Burung%Babi%Burung hantu%3?Hasil dari operasi berikut adalah (9+4)+5x4 adalah ?33%43%45%32%1?Andi punya uang 10.000, membeli 5 batang rokok ternyata kembalian yang diterima andi adalah 5000, berapa harga sebatang rokoknya?1000%400%2000%500%1?Yang tidak termasuk rukun islam ?Syahadat%sholat%puasa%percaya malaikat%4?Daerah tingkat I setara dengan?Kabupaten%Kota%Provinsi%Kecamatan%3?Bentuk kelereng adalah?segi 4%bulat%lonjong%mengalir%2?Kompor gas menggunakan bahan bakar?minyak tanah%bensin%arang%LPG%4?Bentuk gerakan roda sepeda adalah?Berputar%Mengalir%Jatuh Bawah%Memantul%1?Buah jatuh kebawah karena adanya gaya?Gravity%Gravitasi%Potensial%Pantul%2?Indra untuk melihat adalah?Telinga%Tangan%Mata%Hidung%3?KeTuhanan yang maha esa adalah sila ke . .. ?1%2%3%4%1?Persatuan indonesia adalah sila ke...?1%2%3%4%3?Danau yang terbentuk dari letusan gunung berapi disebut?Tektonik%Tektovulkanik%Vulkanik%Karts%3?Berikut ini perairan yang ada di daratan?Danau%Laut%Palung%Samudra%1?Laut yang sangat luas dan dalam adalah?Tanjung%Selat%Teluk%Samudra%4?Dasar laut yang paling dalam disebut?Jurang%Lembah%Gunung%Palung%4?Batuan di dasar laut disebut?Pasir%Gambut%Kapur%Karang%4?Langit diliputi awan artinya?Cerah%Berawan%Dingin%Hujan%2?Hasil dari (4+5) x (4+2) adalah?48%45%54%72%3?Hasil dari 37 + 32?56%67%69%49%3?Benda yang dijadikan sbegai alat tukar disebut benda?Barter%Logam%Ekonomi%Guna%1?Hasil dari 80:20 adalah ?3%4%5%6%2?Mata uang Indonesia disebut?Rupee%Rupiah%Dolar%Yen%2?Mata uang argentina ?Dolar%Yen%Rupe%Peso%4?



0 komentar:

Posting Komentar

 
Copyright © Persahabatan & cinta