tugas visual basic septi yahoo 3

Private Sub Cmb1_Click()
Dim jenis_komputer As String, harga_satuan As String
jenis_komputer = Val(T1.Text)
harga_satuan = Val(T1.Text)
Select Case Cmb1.Text
Case “p205” Baca lebih lanjut

Iklan

quist1 caiio

kode program:

Private Sub cmdbatal_Click()

txtkd.SetFocus

txtkd.Text = “”

txtnama.Text = “”

txtjumlah.Text = “”

txtsisa.Text = “”

txtterjual.Text = “”

txtharga.Text = “”

txttotal.Text = “”

End Sub

Baca lebih lanjut