LISTING PROGRAM
Private Sub
Check1_Click()
Label3.FontBold
= Check1.Value
Label4.FontBold
= Check1.Value
End Sub
Private Sub
Check2_Click()
Label3.FontItalic
= Check1.Value
Label4.FontItalic
= Check1.Value
End Sub
Private Sub
Check3_Click()
Label3.FontUnderline
= Check1.Value
Label4.FontUnderline
= Check1.Value
End Sub
Private Sub
Command1_Click()
Label3.Caption
= Text1.Text
Label4.Caption
= Text2.Text
End Sub
Private Sub
Command2_Click()
End
End Sub
Private Sub
Option1_Click()
Label3.ForeColor
= vbRed
Label4.ForeColor
= vbRed
End Sub
Private Sub
Option2_Click()
Label3.ForeColor
= vbBlue
Label4.ForeColor
= vbBlue
End Sub
Private Sub
Option3_Click()
Label3.ForeColor
= vbYellow
Label4.ForeColor
= vbYellow
End Sub
Private Sub
Option4_Click()
Label3.ForeColor
= vbGreen
Label4.ForeColor
= vbGreen
End Sub
Private Sub
Option5_Click()
Label3.ForeColor
= vBlack
Label4.ForeColor
= vBlack
End Sub
Private Sub
Option6_Click()
Label3.ForeColor
= vbViolet
Label4.ForeColor
= vbViolet
End Sub
Private Sub
Picture1_Click()
End Sub
FORM
LOGIKA PROGRAM
Pada pertemuan kali ini saya akan
menjelaskan tentang program sederhana pada visual basic,
Komponen-komponen yang digunakan pada
visual basic diantaranya:
Label
4, Command Button 2, Text Box 2, Check Box 3, Option Button 6, Frame 1.
Langkah pertama klik pada
label,kemudian buat label pada form sebanyak empat label.kedua klik pada text
Box,kemudian buat di form Text Box sebanyak 2,ketiga klik pada comannd
button,buat command button sebanyak 2 pada form,kemudian membuat frame untuk
tempat check Box dan Option Button dengan cara mengklik pada Frame kemudian
membuatnya di form,langkah selanjutnya membuat check box dengan mengklik check
box dan membuatnya di Frame yang telah dibuat sebelumnya,kemudian membuat
Option Button Box dengan cara mengklik Option Button kemudian membuat nya pada
frame.kemudian menuliskan codingan pada
Command Button 1 (Enter) sebagai berikut :
Private Sub
Command1_Click()
Label3.Caption
= Text1.Text
Label4.Caption
= Text2.Text
Dari codingan di atas digunakan untuk
menampilkan text yang di tuliskan pada Text Box 1 dan 2 dan akan di tampilkan pada Label 3 dan
Label 4 sebagai output.
Setelah itu dilanjutkan dengan
menuliskan codingan pada Command Button 2 (End) Sebagai Berikut:
End
End digunakan untuk memberhentikan
program yang telah berjalan
Pada Check Box 1,2 dan 3 di tulis
codingan sebagai berikut :
Private Sub
Check1_Click()
Label3.FontBold
= Check1.Value
Label4.FontBold
= Check1.Value
End Sub
Private Sub
Check2_Click()
Label3.FontItalic
= Check1.Value
Label4.FontItalic
= Check1.Value
End Sub
Private Sub
Check3_Click()
Label3.FontUnderline
= Check1.Value
Label4.FontUnderline
= Check1.Value
End Sub
Dari codingan di atas digunakan untuk membuat output akan dirubah huruf
atau tulisannya ketika kita memilih salah satu check box yang dinginkan,misalnya
kita pengin hasil output hurufnya akan dibikin tebal maka kita mengklik check
box bold, misalkan output yang diinginkan huruf miring maka kita mengklik check
box italic, sedangkan jika kita menginginkan output dengan huruf bergaris bawah
maka kita mengklik check box underline,dan kita juga bisa memasukan satu atau
dua pilihan sekaligus.
Selanjutnya memberi codingan pada Option Button codingan nya sebagai
berikut :
Private Sub
Option1_Click()
Label3.ForeColor
= vbRed
Label4.ForeColor
= vbRed
End Sub
Private Sub
Option2_Click()
Label3.ForeColor
= vbBlue
Label4.ForeColor
= vbBlue
End Sub
Private Sub
Option3_Click()
Label3.ForeColor
= vbYellow
Label4.ForeColor
= vbYellow
End Sub
Private Sub
Option4_Click()
Label3.ForeColor
= vbGreen
Label4.ForeColor
= vbGreen
End Sub
Private Sub
Option5_Click()
Label3.ForeColor
= vBlack
Label4.ForeColor
= vBlack
End Sub
Private Sub
Option6_Click()
Label3.ForeColor
= vbViolet
Label4.ForeColor
= vbViolet
End Sub
Private Sub
Picture1_Click()
End Sub
Pada codingan diatas digunakan untuk merubah warna huruf pada
output,sesuai yang kita inginkan,misalnya warna merah,kuning,hijau,biru dan
lain sebaginya sesuai yang kita inginkan.
Berikut contoh output dari program sederhana dari visual basic yang saya
buat,
EmoticonEmoticon
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.