Selasa, 21 November 2017

perhitungan Harga setelah diskon tanpa menggunakan keypress

Private Sub Command1_Click()
Dim A, B, C As Double
Txtb.Text = Val(Txta.Text) * 0.1
Txtc.Text = Val(Txta.Text) - Val(Txtb.Text)

End Sub

Private Sub Command2_Click()
Txta = ""
Txtb = ""
Txtc = ""

End Sub

Private Sub Command3_Click()
End
End Sub


Tidak ada komentar:

Posting Komentar

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

Untuk menggambar grafik 3- dimensi memerlukan suatu titik koordinat yaitu x,y, dan z atau bisa disebut array. Fungsi-fungsi dari visu...