Laporan membuat program Gerbang Logika dengan Visual Basic
Membuat User Interface(UI) Aktifkan VB 6 melalui tombol Start. Kenali jenis-jenis komponen (control) yang ada di dalam bagian ToolBox
Label
TextBox Commad Button
Pada Jendela Form buatlah UI seperti ini :
Cara membuatnya : 6 Label, 5 Textbox,16 Command Button
Mengatur Properti Object
Object Selector
Property and Value List
Property description
Melalui jendela properties atur property setiap object sebagai berikut : Object Form1 Label1 – Label1 – label 6
Properties Caption BackColor Caption
Text1 – Text1 – text5 Command1- command7 Command8 – Command8 – command14 Cammand15 Command16
Alignment Text Caption Caption Caption Caption
Value Gerbang Logika Pallete Gerbang Logika, input A,input B, hasil (A,B), input C, hasil (A,B,C) 2-Center AND, OR, NOT, NAND, NOR, XOR, XNOR AND, OR, NOT, NAND, NOR, XOR, XNOR Clear Exit
Untuk pengaturan warna background dan font bisa di atur pada BackColor, Font, ForeColor. Tinggal memodifikasi sendiri. Menulis Kode Program : Gerbang Logika Buka jendela kode (klik kanan pada form -> view code) dan kenali bagian-bagian di dalamnya :
Object selector
Event selector Code Editor
Pada kode program ketikkan kode programnya sebagai berikut : Private Sub Command1_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!"
Penjelasan kode :
Else
Gerbang AND
If Text1.Text = 1 And Text2.Text = 1 Then
Jika input bukan 0 atau 1 maka akan keluar peringatan “Silahkan input biner” jika benar maka akan menjalankan proses berikutnya yaitu Jika text 1 di inputkan dengan angka 1 dan text 2 di inputkan angka 1 maka hasilnya adalah angka 1 selain itu maka hasilnya 0.
Text3.Text = 1 Else Text3.Text = 0 End if End If End Sub
A 0 0 1 1
B 0 1 0 1
Hasil (A,B) 0 0 0 1
Private Sub Command2_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else
Gerbang OR
If Text1.Text = 0 And Text2.Text = 0 Then
Jika text1 di input 0 dan text2 juga 0 maka hasilnya 0 selain itu hasilnya 1
Text3.Text = 0 Else Text3.Text = 1 End If End if End Sub
A 0 0 1 1
B 0 1 0 1
Hasil (A,B) 0 1 1 1
Private Sub Command3_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!"
Gerbang NOT
Else
Jika text1 input 0 maka hasilnya 1 dan jika inputnya 1 maka hasilnya 0.
If Text1.Text = 0 Then A -A 0 1 1 0 Kenapa bukan B? Karena B inputan. Sedangkan hasilnya disimpan pada text3 yaitu C.
Text3.Text = 1 Else Text3.Text = 0 End If
Jadi B di input ataupun tidak maka tidak akan berpengaruh karna yang di logikakan adalah yang A.
End if End Sub
Private Sub Command4_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else
Gerbang NAND
If Text1.Text = 1 And Text2.Text = 1 Then
Jika text1 =1 dan text2 = 1 maka hasilnya 0
Text3.Text = 0 Else Text3.Text = 1 End If End if End Sub
selain itu maka 1.
A 0 0 1 1
B 0 1 0 1
Hasil (A,B) 1 1 1 0
Private Sub Command5_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text1.Text = 0 And Text2.Text = 0 Then
Gerbang NOR Jika text1=0 dan text2=0 maka hasilnya 1
Text3.Text = 1
selain itu maka 0
Else
A 0 0 1 1
Text3.Text = 0 End If
B 0 1 0 1
Hasil (A,B) 1 0 0 0
End if End Sub
Private Sub Command6_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If (Text1.Text = 1 And Text2.Text = 1) Or (Text1.Text = 0 And Text2.Text = 0) Then Text3.Text = 0 Else Text3.Text = 1 End If End if End Sub
Gerbang XOR akan menghasilkan 0 jika input text1 dan text2 sama. Selain itu maka hasilnya 1. A 0 0 1 1
B 0 1 0 1
Hasil (A,B) 0 1 1 0
Private Sub Command7_Click() If Not ((Text1.Text = 0 Or Text1.Text = 1) And (Text2.Text = 0 Or Text2.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If (Text1.Text = 1 And Text2.Text = 1) Or (Text1.Text = 0 A nd Text2.Text = 0) Then Text3.Text = 1 Gerbang XNOR Else Jika inputannya sama maka hasilnya 1 Text3.Text = 0
selain itu maka 0
End If
A 0 0 1 1
End if End Sub
B 0 1 0 1
Hasil (A,B) 1 0 0 1
Private Sub Command8_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text3.Text = 1 And Text4.Text = 1 Then Text5.Text = 1 Else
Catatan : Untuk command8-14 sama seperti keterangan di atas. Bedanya Cuma inputannya 3 yaitu A, B, dan C.
Text5.Text = 0 End If End if End Sub
Private Sub Command9_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text3.Text = 0 And Text4.Text = 0 Then Text5.Text = 0 Else Text5.Text = 1 End If End if End Sub
Private Sub Command10_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text3.Text = 0 Then Text5.Text = 1 Else Text5.Text = 0 End if End If End Sub
Private Sub Command11_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text3.Text = 1 And Text4.Text = 1 Then Text5.Text = 0 Else Text5.Text = 1 End If End if End Sub
Private Sub Command12_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If Text3.Text = 0 And Text4.Text = 0 Then Text5.Text = 1 Else Text5.Text = 0 End If End if End Sub
Private Sub Command13_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If (Text3.Text = 1 And Text4.Text = 1) Or (Text3.Text = 0 And Text4.Text = 0) Then Text5.Text = 0 Else Text5.Text = 1 End If End if End Sub
Private Sub Command14_Click() If Not ((Text3.Text = 0 Or Text3.Text = 1) And (Text4.Text = 0 Or Text4.Text = 1)) Then MsgBox "Silahkan input biner!!!" Else If (Text3.Text = 1 And Text4.Text = 1) Or (Text3.Text = 0 A nd Text4.Text = 0) Then Text5.Text = 1 Else Text5.Text = 0 End If End if End Sub
Private Sub Command15_Click() Text1.Text = "" Command15 Text2.Text = "" Text3.Text = ""
untuk mengosongkan semua text jika ingin menghitung lagi.
Text4.Text = "" Text5.Text = "" End Sub
Private Sub Command16_Click() End
Command16 Hanya untuk mengakhiri program.
End Sub
Simpan Project1 (nama file : project1.vbp) dan Form1 (nama file : form1.frm). VB 6 akan menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file project (*.vbp), file form (*.frm) dan file module (*.bas). Coba Coba jalan jalankan kan Project Project1 1 denga dengan n mengmeng-kli klik k tomb tombol ol Star Startt ( tombol F5 pada keyboard.
) pada pada bagi bagian an Toolba Toolbarr atau atau tekan tekan
Jika di jalankan maka hasilnya seperti gambar diatas. Jika ingin input 2 maka hanya mengisi A dan B kemudian memilih gerbang yang di inginkan dan hasilnya bisa dilihat pada hasil(A,B). Jika ingin input 3 maka harus mengisi A,B dan C. Hasil A dan B di simpan pada kolom hasil (A,B) selanjutnya akan diproses dengan C. Jika ingin menghitung lagi maka silahkan tekan tombol clear dan jika ingin keluar dari program tekan tombol Exit. Jika input bukan biner (1 atau 0) maka akan muncul peringatan “ Silahkan input biner!!! “ Seperti gambar berikut :
