Buat form sbb:
command1 beri nama Proses
Text1 beri nama Nil1
Text2 beri nama Nil2
Text3 beri nama Nil3
Label1 beri simbol - (strip / minus)
Label2 beri simbol = (sama dengan)
catat code dibawah ini
Ketik Code dibawah ini:Private Sub Command1_Click()
Text3 = Val(Text1.Text) – Val(Text2.Text)
End Sub
‘operasi penambahan pada vb
‘create : Peter Elisa
‘date : 02/01/2006
Buat:
a.1 Buah button command
b.2 buah label + dan =
c.3 buah text
dan buat code seperti dibawah ini:
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Penjelasan:
Hasil dan penjumlahan didapat setelah tombol command di klik
baru hasil penjumlahan akan muncul di text hasil.
Fungsi Val dan text1 dan text2 ingin menunjukkan nilai yang akan
di jumlahkan, tetapi jika tidak menggunakan val makan hasilnya akan
berbeda, yaitu tidak menunjukkan hasil penjumlahan tetapi pengambungan dari ke-2
nilai tersebut.
contoh:
jika nilai dimasukkan di text1=1 dan text2=2 maka hasilnya akan menjadi 3 -> proses menggunakan val
jika nilai dimasukkan di text1=1 dan text2=2 maka hasilnya akan menjadi 12 ->tanpa menggunakan val
Belajar Array pada mathemathic
‘Finding Max Value
‘Deklarasi
Option Explicit
Dim A(20), num, i, j, max As Integer
————————————————
Private Sub Command1_Click()
Print “Your array contains:”
For i = 0 To num – 1
Print A(i)
Next i
Print “Maximum Value= “; max
End Sub
Private Sub Form_Load()
num = InputBox(“Initialize your array [1-20]:”)
For i = 0 To num – 1
A(i) = InputBox(“Enter your array:”)
Next i
‘find maximum
max = A(0)
For i = 0 To num – 1
If max < A(i) Then
max = A(i)
End If
Next
End Sub
End Sub
Private Sub cmdHapusSemua_Click() ‘hapus semua item di list
LstList.Clear
End Sub
Private Sub cmdInput_Click()
LstList.AddItem txtInput.Text ‘tombol penambahan list
txtInput.Text = “” ‘ masukkan nama list yg ingin ditambahkan
End Sub
Private Sub cmdKeluar_Click() ‘ keluar program
End
End Sub
Source Code VB
Comments