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....
0 Comment: