Game Sederhana Pada Vibi

-
Pada kali ini saya akan menjelaskan mengenai game tebak - tebakan sederhana yang saya buat pada Pemrograman Microsoft Visual Basic, Langsung saja.


LISTING PROGRAM

Listing Program pada Form1

Private Sub Command1_Click()
Form1.BackColor = vbRed
a = Int(Rnd * 10)
Text1.Text = a
Text2.SetFocus
If Text2.Text = Text1.Text Then
Label1.Caption = "Anda Benar"
MsgBox "Jackpot", vbOnly + vbInformation, hasil
Else
Label1.Caption = "Tebakan Salah"
MsgBox "Try Again", vbExclamation, hasil
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Label2.ForeColor = QBColor((Rnd) * 15)
Label1.BackColor = QBColor((Rnd) * 15)
End Sub






LOGIKA PROGRAM

    Pada pemrograman kali ini saya akan membahas mengenai listing program sederhana vibi seperti yang saya buat di atas.
Tahap awal untuk membuat program Visual Basic seperti diatas yaitu kita membutuhkan ToolBox. Pada ToolBox yang kita butuhkan adalah Label, CommandButton, Timer, dan TextBox. Lalu kita Susun seperti gambar berikut :

Setelah tersusun rapih hal yang perlu kita buat yaitu mengatur Caption, dan Name yang terdapat pada Form1 tadi.


Setelah itu kita beri aksi pada tombol Timer1 dengan cara memasukan kodingan seperti berikut :

Label1.ForeColor = QBColor((Rnd) * 15)
Label1.BackColor = QBColor((Rnd) * 15)
Kodingan diatas bertujuan untuk memberikan Warna pada Tulisan Label1 dan juga memberikan warna pada dasar pada Label1



Setelah itu kita beri aksi juga pada tombol CommandButton1 dengan cara memasukan kodingan seperti berikut :

Form1.BackColor = vbRed
a = Int(Rnd * 10)
Text1.Text = a
Text2.SetFocus
If Text2.Text = Text1.Text Then
Label1.Caption = "Anda Benar"
MsgBox "Jackpot", vbOnly + vbInformation, hasil
Else
Label1.Caption = "Tebakan Salah"
MsgBox "Try Again", vbExclamation, hasil
End If
Pada kodingan tersebut saya memakai perulangan If Then Else, pada kodingan diatas saya membuat aksi agar pada Text1 kita bisa memasukan inputan yang di acak secara random sebanyak 10 kali (Rnd*10) dan a merupakan “Variable” dari Text1 tersebut. Lalu pada Text2 kita tinggal mencocokan jawaban yang benar saja dari Text, jika jawaban benar maka akan muncul jawaban “Anda Benar” pada Label1, dan jika jawaban Salah maka akan muncul jawaban “Tebakan Salah” pada Label1. Selain itu jika jawaban kita benar maka akan muncul sebuah kotak baru yang berisikan Message “Jackpot”, sedangkan jika jawaban salah maka kotak Message yang keluar adalah “Try Again”. Pada Saat kita menjalankan program dan mengklik maka background dasar dari Form1 akan berubah menjadi warna merah (Form1.Backcolor = vbRed).
Jangan lupa untuk mengganti Interval pada Timer (Lihat di Properties) menjadi 100 agar Timer berfungsi.








Setelah itu pada CommandButton3, kita masukkan kodingan seperti berikut :

Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Kodingan tersebut adalah untuk menghapus teks yang terdapat pada Text1, Text2, dan Label1 yang tadi sudah kita isikan.





Langkah Terakhir untuk keluar dari program kita dapat memasukan kodingan seperti berikut pada CommandButton2 :

End




OUTPUT PROGRAM








Komentar

Posting Komentar

Postingan populer dari blog ini

SOAL UJIAN AKHIR SEMESTER FISIKA DAN KIMIA DASAR 2B 2011

-
UAS Fisika dan Kimia Dasar SOAL UJIAN AKHIR SEMESTER Mata Kuliah : Fisika dan Kimia Dasar 2 Tanggal : 20–06–2011 Fakultas : ILKOMTI & TI Waktu : 90 menit Jenjang/Jurusan : S1 / SI & TI Dosen : – Tingkat/Kelas : I / 1KA01–21,24–33,35 & 1IA01–24 Sifat Ujian : Tutup buku Semester/Tahun : ATA 2010/2011 Jumlah Soal : 25 PG Boleh menggunakan kalkulator. Tidak boleh menggunakan Hand Phone. 1. Induktor 50 mH diberi tegangan efektif arus bolak-balik 110 V dengan frekuensi 60 Hz. Berapa A besarnya arus efektif ? A. 5,40 B. 5,83 C. 5,00 D. 8,00 2. Sebuah solenoida panjangnya 0,3 m terdiri dari gulungan kawat 2000 lilitan pada sebuah batang besi yang luas penampang melintangnya 1,5 x 10–4 m2. Permiabilitas relative besi 600 dan μ0 = 4π x 10–7 T.m/A. Berapa H besarnya induktansi diri solenoid tersebut ? A. 4,80 B. 1,51 C. 3,02 D. 2,40 3. Sebuah solenoida panjangnya 0,3 m terdiri dari gulungan kawat 2000 lilitan pada sebuah batang besi yang luas penampang melintangnya 1,5 x 10–4 m2. Perm
Baca selengkapnya

Posset & Latice

-
Gambar
Poset ( Partially ordered set) Definisi Poset atau partially ordered set atau juga diesbut himpunan terurut parasial merupakan suatu relasi dimana ia mepunyai 3 sifat yang harus terpenuhi agar bisa disebut poset yaitu sifat refleksif, antisimetris dan transitif. Misalkan : Misalkan A sebuah himpunan bilangan bulat positif dan R sebuah relasi yang menuju ke A sehingga menjadi ( a,b ) ada di dalam R jika a membagi habis b. - Karena jika a membagi habis b, berarti b tidak akan membagi habis a kecual a samadengan b (a=b). Sehingga relasi ini merupakan relasi antisimetris. - Karena setiap bilangan bulat membagi habis dengan angkanya sendiri, maka relasinya menggambarkan sebuaH relasi refleksif. - Karena a membagi habis b dan b akan membagi habis c, maka berarti a juga akan bbisa membagi habis c, oleh karena itu bisa juga merupakan sifat transitif. Dengan demikian, relasi diatas merupakan poset atau himpunan terurut parsial. Contoh –co
Baca selengkapnya

Etika Profesi Dalam Dunia Teknologi Informasi

-
Pada artikel kali ini, saya akan menjelaskan Kode Etik Profesi bagi orang yang menggeluti Dunia Teknologi Informasi.. Sebelumnya mungkin kita akan bertanya apa sih kode etik profesi itu? dan mengapa kode etik profesi itu perlu? Kode etik profesi merupakan suatu hal etika/aturan yang disepakati oleh sekumpulan orang untuk mengurangi hal - hal atau dampak - dampkan yang negatif yang sering terjadi pada profesi. Kode etik profesi bidang teknologi informasi di Indonesia memang belum ada (yang tertulis). Namun, kita bisa menerapkan kode etik yang dibuat oleh IEEE. IEEE telah membuat semacam kode etik bagi anggotanya, sebagai berikut: 1. To accept responsibility in making decisions consistent with the safety, health and welfare of the public, and to disclose promptly factors that might endanger the public or the environment Artinya setiap anggota bertanggung jawab dalam pengambilan keputusan konsisten dengan keselamatan, kesehatan dan kesejahteraan masyarakat, serta segera mengung
Baca selengkapnya