Pada pertemuan kali ini saya akan menjelaskan tentang program sederhana pada visual basic,
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 output programnya:
Tidak ada komentar:
Posting Komentar