Ini adalah Coding dan Logika program saya (Untuk Logika program jangan disamakan thx )
Listing Program
dan Output (MENU)
Output
Untuk membuat menu
seperti di atas anda harus membuat y di menu editor. Menu editor terletak di
tools.
Lalu ..
Caption untuk
mengganti Nama tampilan
Name itu terserah
anda ingin mengisinya dengan apa saja cnth:Menu_File
Untuk menambahkan
form 2,3 dan EXIT tekan insert lalu lakukan hhal yang sama sepertihalnya pada
File.
Untuk Memasukan
form2,3 dan EXIT tekan tanda panah -> itu artinya form2,3 dan EXIT berada di
dalam File
Perlu di ingat
urutan File ,form2, form3 dan EXIT tidak boleh acak( Harus berurutan)
Private Sub
Menu_Exit_Click()
End
End Sub
Private Sub
Menu_Form2_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub
Menu_Form3_Click()
Form1.Hide
Form3.Show
End Sub
Logika Program
Untuk form2 dan
form3 kita menggunakan hide dan show
fungsinya hide untuk menyembunyikan form, show untuk memunculkan form
Untuk EXIT kita
gunakan end untuk menghentikan program.
Listing Program
dan output (Form 2)
Output
Private Sub Check1_Click()
If Check1.Value =
vbChecked Then
Text2.FontBold =
True
Else
Text2.FontBold =
False
End If
End Sub
Private Sub
Check2_Click()
If Check2.Value =
vbChecked Then
Text2.FontItalic =
True
Else
Text2.FontItalic =
False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value =
vbChecked Then
Text2.FontUnderline
= True
Else
Text2.FontUnderline
= False
End If
End Sub
Private Sub
Command1_Click()
Text2.Text =
"Nama saya " + Text1.Text + " Hobby saya " + Combo1 +
" pekerjaan saya " + List1
End Sub
Private Sub
Command2_Click()
Text1.Text =
""
Text2.Text =
""
End Sub
Private Sub
Command3_Click()
End
End Sub
Private Sub
Form_Load()
Combo1.AddItem
"Clubbing"
Combo1.AddItem
"Balapan Karung"
Combo1.AddItem
"Tidur di jalanan"
Combo1.AddItem
"Ngambilin sampah"
List1.AddItem
"Bartender"
List1.AddItem
"Direktur"
List1.AddItem
"Gembel"
List1.AddItem
"Pemulung"
End Sub
Private Sub
Option1_Click()
If Option1.Value =
True Then
Text2.ForeColor =
vbRed
End If
End Sub
Private Sub
Option2_Click()
If Option2.Value =
True Then
Text2.ForeColor =
vbGreen
End If
End Sub
Logika Program
Dalam Program ini
sayaq menggunakan combo box dan list box dalam pemberian pilihan.
Combo1.AddItem di
gunakan untuk menambahkan item untuk combo box
dan List1.AddItem di gunakan untuk menambahkan item yang berada di list
box. Untuk pemilihan warna saya menggunakan option button sedangkan untuk Font
saya menggunakan checkbox di mana perbedaan antara option button dengan check
box adalah option button kita hanya dapat memilih salah 1 di antara beberapa
pilihan sedangkan check box kita dapat memilih semua atau acak. Dalam pemberian
warna dalam VB kita menggunakan Text2.ForeColor
= vbGreen (jika ingin menganti warna y anda hanya mengganti Green menjadi Red atau warna lainnya). Untuk mengganti Font
kita menggunakan
If Check1.Value = vbChecked Then
Text2.FontBold =
True
Else
Text2.FontBold =
False
End If
Di mana True False
ini sangat penting karena sebagai contoh
: pertama kita mencheck BOLD lalu kita tidak jadi mencheck BOLD maka ketika
melakukan uncheck terjadi error(jika ingin mengganti font maka Bold itu kita
ganti dengan Italic atau Underline).
Untuk melakukan
Clean kita hanya perlu mengetikan Text1.Text
= "" dan untuk menampilkan
hasil yang telah kita lakukan pada tombol process kita masukan perintah
Text2.Text =
"Nama saya " + Text1.Text + " Hobby saya " + Combo1 +
" pekerjaan saya " + List1
Dimana ketika kita
menekan tombol process maka pada text2 akan mencetak apa yang telah kita Input.
Listing Program
dan Output (Form 3)
Output
Private Sub
Command1_Click()
Value =
Val(Text1.Text)
For a = 1 To Value
For b = 1 To a
Print b;
Next b
Print
Next a
For a = Value To 1
Step -1
For b = 1 To a - 1
Print b;
Next b
Print
Next a
End Sub
Private Sub
Command2_Click()
End
End Sub
Logika Program
Dalam program ini
saya menggunakan for next. Intinya adalah pada saat tombol process.
Value =
Val(Text1.Text)
For a = 1 To Value
(di sini artinya
dari angka 1 sampai angka yang kita input)
For b = 1 To a
(artinya variabel
b ini akan menggikuti dari 1 sampai ke a)
Print b;
(cetak b)
Next b
(untuk meneruskan
sampai b selesai sesuai yang telah kita input)
Print
Next a
(untuk meneruskan
sampai a selesai sesuai yang telah kita input)
For a = Value To 1
Step -1
(untuk yang satu
ini saya membuat value to 1 step-1 di mana dari angka yang kita input ke 1 di
manapada terakhirnya di kurangi 1 angka)
For b = 1 To a – 1
(b di sini
mengikuti a yang sudah step-1 bukan yang pertama kali)
Print b;
Next b
Print
Next a
End Sub
Semoga bermanfaat....
Tidak ada komentar:
Posting Komentar