Bilangan Terkecil Dengan Menggunakan VB 0.6

Membuat Form Pada Visual Basic 6.0 :

1. Start -> All Program -> Microsoft Visual Studio 6.0 -> Microsoft Visual Basic 6.0

nda pilih Standard EXE

, kemudian klik tombol Open.

3. Setelah itu akan tampil form Standard EXE yang masih kosong.

4. Buatlah Form Seperti di bawah ini

Ubah properti masing-masing kontrol dengan ketentuan:

5. Listing Program :

Private Sub CmdProses_Click()

Dim A, B, C, D, E As Integer

A = Val(TxtNilai1.Text)

B = Val(TxtNilai2.Text)

C = Val(TxtNilai3.Text)

D = Val(TxtNilai4.Text)

E = Val(TxtNilai5.Text)

If A <>

TxtHasil.Text = A

ElseIf B <>

TxtHasil.Text = B

ElseIf C <>

TxtHasil.Text = C

ElseIf D <>

TxtHasil.Text = D

Else

TxtHasil.Text = E

End If

End Sub

Private Sub CmdUlang_Click()

TxtNilai1.Text = ""

TxtNilai2.Text = ""

TxtNilai3.Text = ""

TxtNilai4.Text = ""

TxtNilai5.Text = ""

End Sub

Private Sub CmdTutup_Click()

End

End Sub

6. Jalankan aplikasi dengan menekan tombol start atau tekan F5

7. Tampilan hasil program Bilangan Terkecil seperti di bawah ini…