1. Silahkan buka aplikasi Microsoft Visual basic, lalu buat New project , pilih standard.exe.
2. Setelah itu, atur propertinya.
3. Silahkan klik ganda Command Proses, lalu tambahkan script kode program berikut.
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Text4.Text = (a * b) - (a * b * c) / 100
End Sub
4. Lalu jalankan programnya, tekan Run atau F5 untuk mencobanya.
5. Hasilnya akan tampak seperti gambar diatas
from www.theojati.com
Tidak ada komentar:
Posting Komentar