Baca Juga
Yap, dengan menggunakan Visual Basic kita dapat membuat program melihat bilangan kecil diantara bilangan lain :D . Sep,,
Cara nya yah ini :
1. Buat proyek nya, tambahkan empat kontrol Label, lima TextBox, dan tiga CommandButton pada form desain, sebagai berikut contoh nya :
2. Ubah Propertinya :
Label1 = Caption nya Nilai1
Label2 = Caption nya Nilai2
Label3 = Caption nya Nilai3
Label4 = Caption nya Nilai4
TextBox1 = Name nya TxtNiali1
TextBox2 = Name nya TxtNiali2
TextBox3 = Name nya TxtNiali3
TextBox4 = Name nya TxtNiali4
Command1= Name nya CmdProses, Caption nya = Proses
Command1= Name nya CmdUlang, Caption nya = Ulang
Command1= Name nya CmdTutup, Caption nya = Tutup
3. Klik ganda CmdProses dan ketikkan kode nya : :
Private Sub cmdproses_Click()
Dim a, b, c, d As Integer
a = Val(txtnilai1.Text)
b = Val(txtnilai2.Text)
c = Val(txtnilai3.Text)
d = Val(txtnilai4.Text)
If a < b And a < c And a < d Then
txthasil.Text = a
ElseIf b < c And b < d Then
txthasil.Text = b
ElseIf c < d Then
txthasil.Text = c
Else
txthasil.Text = d
End If
End Sub
4. Klik ganda CmdUlang dan ketikkan kode nya :
Private Sub cmdulang_Click()
txtnilai1.Text = ""
txtnilai2.Text = ""
txtnilai3.Text = ""
txtniali4.Text = ""
End Sub
Cara nya yah ini :
1. Buat proyek nya, tambahkan empat kontrol Label, lima TextBox, dan tiga CommandButton pada form desain, sebagai berikut contoh nya :
2. Ubah Propertinya :
Label1 = Caption nya Nilai1
Label2 = Caption nya Nilai2
Label3 = Caption nya Nilai3
Label4 = Caption nya Nilai4
TextBox1 = Name nya TxtNiali1
TextBox2 = Name nya TxtNiali2
TextBox3 = Name nya TxtNiali3
TextBox4 = Name nya TxtNiali4
Command1= Name nya CmdProses, Caption nya = Proses
Command1= Name nya CmdUlang, Caption nya = Ulang
Command1= Name nya CmdTutup, Caption nya = Tutup
3. Klik ganda CmdProses dan ketikkan kode nya : :
Private Sub cmdproses_Click()
Dim a, b, c, d As Integer
a = Val(txtnilai1.Text)
b = Val(txtnilai2.Text)
c = Val(txtnilai3.Text)
d = Val(txtnilai4.Text)
If a < b And a < c And a < d Then
txthasil.Text = a
ElseIf b < c And b < d Then
txthasil.Text = b
ElseIf c < d Then
txthasil.Text = c
Else
txthasil.Text = d
End If
End Sub
4. Klik ganda CmdUlang dan ketikkan kode nya :
Private Sub cmdulang_Click()
txtnilai1.Text = ""
txtnilai2.Text = ""
txtnilai3.Text = ""
txtniali4.Text = ""
End Sub
5. Klik ganda CmdTutup dan ketikan kode nya :
Private Sub cmdtutup_Click()
End
End Sub
6. Jalan kan Programnya ^_^
EmoticonEmoticon