Belajar visual basic 6.0 Perintah And

untuk membuat program seperi gambar disamping berikut ini adalah langkah-langkahnya:

1. Buka program vb sobat, setelah itu klik dua kali kotak form lalu rubah "LOAD"menjadi "ACTIVATE" dan tuliskan program sederhana dibawah ini:


Private Sub Form_Activate()
FontSize = 10
ForeColor = vbRed
Alignment = 4
FontBold = True
Print "MENGHITUNG JUMLAH STOCK BARANG"
End Sub
.

2. Untuk membuat "Harga Satuan, Nama Barang, CEK, HAPUS" dsb seperti gambar disamping yang harus dilakukan adalah sebagai berikut

(a). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "Nama Barang" untuk merubahnya yaitu pada kotak properties yang terdapat disebelah kanan cari menu "CAPTION" dan rubah namanya. Setelah itu klik dua kali "TEXT" dan hapus tulisan "Text1" pada kotak properties yang terdapat disebelah kanan cari menu "Text" dan hapus tulisan "Text1" lalu atur posisinya tepat disamping "Nama Barang"

(b). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "HARGA SATUAN", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "Nilai UTS" setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "TEXT2"

Text4 = (Val(Text2) * (Val(Text3)))
If Val(Text4) >= 500 And Val(Text3) >= 400 Then
Text5 = "Sedikit"
Else
Text5 = "Banyak"
End If.

(c). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "JUMLAH YANG DIBELI", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "JUMLAH YANG DIBELI" setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "TEXT3"

Text4 = (Val(Text2) * (Val(Text3)))
If Val(Text4) >= 500 And Val(Text3) >= 400 Then
Text5 = "Sedikit"
Else
Text5 = "Banyak"
End If.

(d). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "TOTAL", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping ""TOTAL"

(E). Klik dua kali Label dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "STOCK DIGUDANG", Setelah itu klik dua kali "TEXT" lalu atur posisinya tepat disamping "STOCK DIGUDANG"

3. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "CEK", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "CEK"

Private Sub Command2_Click()
MsgBox "Total Harga Barang = " & Text4 & ", Stock digudang = " & Text5, vbOKOnly, "STOCK BARANG"
End Sub.

4. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "HAPUS", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "HAPUS",

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub.

5. Klik dua kali "COMMANDBUTTON" dan atur posisinya seperti gambar disamping, dan rubah namanya menjadi "SELESAI", setelah itu tuliskan program seperti dibawah ini dengan mengklik dua kali "SELESAI",

Private Sub Command1_Click()
End
End Sub.

Apabila program ini berhasil maka akan terlihat seperti gambar disamping atas, selamat mencooba semoga bermanfaat.

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya