Senin, 09 April 2012


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