Mari bermain dengan VB 6.0 lagi! Gara-gara ketua kelas suka ngacak tempat duduk setiap minggu, jadi kepikiran buat bikin aplikasinya hohoho :v
mungkin kalian butuh buat ngacak tempat duduk biar ga bosen duduk sama si itu-itu terus, biar ga ribet juga harus bikin undian pake kertas wkwk
Oke pertama buka dulu Visual Basic kalian dan pilih Standard EXE seperti biasa, lalu buat desain form seperti ini :
Guru sama Papan tulis ngga di bikin juga gapapa ka, Cuma
pajangan aja hohoho :v
yang persegi panjang ada 4 itu pake CommandButton ka, anggap aja itu bangku.
trus tambahin lagi kaya gini
Gapapa di tindih aja dulu bangku-bangkunya, trus ubah properties Visible Frame1 jadi False biar ngga kliatan pas awal aplikasi di jalanin. Kalo yang bentuknya kaya jam itu namanya Timer, kliatan kok di toolbox :v
ubah properties Interval Timer1 menjadi “1” ini adalah kecepatan merandom angkanya nanti. Oiya sama properties Enabled Frame1nya juga di False, biar ngga langsung jalan sebelum di klik mulai :v
Kemudian singkirin dulu Frame1nya karna kita mau koding
bangku-bangkunya dulu, tapi jangan diapus Frame1nya ka! klik 2x di bangku paling pertama, trus masukin koding ini :
Dim bangku As String
Dim nama As String
Private Sub Command1_Click()
Frame1.Visible = True
bangku = "bangku1"
End Sub
Private Sub Command2_Click()
Frame1.Visible = True
bangku = "bangku2"
End Sub
Private Sub Command3_Click()
Frame1.Visible = True
bangku = "bangku3"
End Sub
Private Sub Command4_Click()
Frame1.Visible = True
bangku = "bangku4"
End Sub
Nih aku jelasin kodingnya biar kalian ngerti dan ngga copas
doang wkwkw :v
Dim bangku As String ini berarti
mendeklrasikan kalo bangku itu variabel string.
Frame1.Visible = True ketika bangku di klik maka properties Visible Frame1 menjadi True
dan Frame1pun muncul
bangku = "bangku1" mengisi
variabel bangku dengan bangku1/tergantung bangku mana yang di klik, yang nanti
akan berguna untuk menentukan bangku mana yang akan diduduki.
Lanjut! Kita koding tombol clear, yang berguna untuk
menghapus isi tempat duduk nantinya
Private Sub Command5_Click()
Command1.Caption = ""
Command2.Caption = ""
Command3.Caption = ""
Command4.Caption = ""
End Sub
Kalo ini gaperlu di jelasinkan? -,-
udah keliatan itu fungsinya buat mengkosongkan properties Caption.
Oke, sekarang ke tengahin lagi Frame1-nya kita mau ngoding
komponen-komponen yang ada disitu!
pertama klik 2x di Timer trus masukin koding ini
Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 5)
End Sub
Jika angkanya 5 berarti akan meRandom hanya sampai angka 4,
aku juga kurang tau kenapa. Intinya yang akan di random di kurangi 1 dari angka
yang di tulis di kodingnya.
Sekarang koding tombol Mulai-nya, seperti biasa klik 2x aja
Private Sub Command6_Click()
Timer1.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
End Sub
Kemudian tombol Berhenti-nya
Private Sub Command7_Click()
Timer1.Enabled = False
Command7.Enabled = False
Commadn9.Enabled = True
Select Case Label1.Caption
Case “1”
nama = “Angga”
Case “2”
nama = “Azis”
Case “3”
nama = “Fajar”
Case “4”
nama = “Reza”
End Select
If nama = Command1.Caption Or nama = Command2.Caption Or nama =
Command3.Caption Or nama = Command4.Caption Then
Timer1.Enabled = True
Command7.Value = True
Command9.Enabled = False
Else
Timer1.Enabled = False
Command9.Enabled = True
End If
End Sub
Bagian yang di biru kan ganti dengan nama teman kalian,
sesuaikan aja sama nomor absenya
Trus tombol Batal-nya
Private Sub Command8_Click()
Frame1.Visibel = False
End Sub
Terakhir tombol Kembali-nya
Private Sub Command9_Click()
Frame1.Visible = False
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
Command12.Enabled = True
Select Case bangku
Case “bangku1”
Command1.Caption = nama
Case “bangku2”
Command2.Caption = nama
Case “bangku3”
Command3.Caption = nama
Case “bangku4”
Command4.Caption = nama
End Select
End Sub
Aku bingung jelasinya gimana -,-
Tapi kalo di cermati hampir semuanya cuma ganti-ganti properties komponen ya
kan :v
mungkin yang sulit cuma dibagian “If” sama “Case”, Tapi kalau ada yang ingin di
tanyakan bisa lewat komentar.
Sekian, semoga bermanfaat~
