Pertemuan 6 Perulangan(Looping)
Contoh Program mengitung penjualan barang Gambar 1.1 Desain Program Kode Program Public Class Form3 Dim A As Integer Private Sub Form3_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load CboKode.Items.Add( "H001" ) CboKode.Items.Add( "H002" ) CboKode.Items.Add( "Y001" ) CboKode.Items.Add( "Y002" ) End Sub Private Sub BtnCari_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click If CboKode.Text = "H001" Then TxtMerk.Text = "Honda" ...