Image and video hosting by TinyPic

BELAJAR PROGRAMAN PERBANDINGAN DENGAN VISUAL BASIC 6.0

Sabtu, 11 Desember 2010 , Posted by Rahmat at 08.48

Sumber artikel : -http://rahmattehnik.blogspot.com/


                                         MEMBUAT OPERATOR PERBANDINGAN

Hallo rekan tehnik pada pertemuan yang lalu kita telah belajar buat program Mainan Acak Angka juga Logika Aritmatika menggunakan Visual Basic 6.0 , nah pada pertemuan ini kita sama-sama akan belajar membuat program logika operasi perbandingan . Artikel ini buat para pemula yang ingin belajar mengenai programan Visual Basic (maaf yg senior dilarang ikutan..he..he..he), operator perbandingan digunakan membandingkan ekspresi suatu nilai dengan ekspresi nilai lainnya sehingga menghasilkan suatu nilai logika True atau False .

Nah langsung saja kita buat bersama-sama :
Buka VBasic kamu lalu buat form baru dan tambahkan lima TextBox ,empat kontrol  Label dan tiga tombol CommandButton pada form . Selanjutnya ubah properti tiap - tiap kontol sesuai ketentuan seperti di bawah ini .

                               Kontrol                         Name                      Caption
                                Label1                              -                         Nilai1
                                Label2                              -                         Nilai2
                                Label3                              -                         Nilai3
                                Label4                              -                         Nilai4
                               TextBox1                   TxtNilai1                       -
                               TextBox2                   TxtNilai2                       -
                               TextBox3                   TxtNilai3                       -
                               TextBox4                   TxtNilai4                       -
                               TextBox5                   TxtHasil                        -
                               Command1               CmdProses               PROSES
                               Command2               CmdUlang                 ULANG
                               Command3               CmdTutup                 TUTUP


 Lihat gambar di bawah ini .




Seperti yang kita ketahui bersama bahwa form merupakan tempat yang digunakan untuk merancang suatu aplikasi yang sedang dibuat, jadi from ibarat kanpas bagi pelukis tempat menuangkan ide lukisannya .
Nah kamu juga bisa berimajinasi merancang from sesuai keinginan kamu, lihat form di bawah ini .




Setelah form selesai kamu rancang kemudian klik tombol CmdProses dan ketikkan kode berikut :
 Private Sub CmdProses_Click ( )
'A,B,C dan D adalah variabel untuk menampung nilai yang
diinputkan pada masing-masing tetxtbox 
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 < C And A < D Then
           TextHasil . Text = A
ElseIf B < C And B < D Then
          TextHasil . Text = B
ElseIf C < D Then
          TextHasil . Text = C
Else   
          TextHasil.Text = D
End If
EndSub


Selanjutnya klik tombol CmdUlang dan ketik kode programnya seperti berikut :
Private Sub CmdUlang_Click ( )
'mengosongkan semua textbox
TxtNilai1 . Tetx = " "
TxtNilai2 . Text = " "
TextNilai3 .Text = " "
TextNilai4 .Text = " "
End Sub

Terakhir klik tombol CmdTutup dan ketikkan kode programnya seperti di bawah ini :
Private Sub CmdTutup_Click ( )
'menutup from
End
End Sub


Nah aplikasi program logika perbandingan angka telah selesai kita buat tinggal mencoba apakah aplikasi yang kita buat dapat berjalan sesuai yang kita inginkan . Cara mencobanya jalankan program dengan meng-klik tombol Play yang ada pada Main Toolbar .





selanjutnya coba kamu ketikkan nilai bilangan di setiap kotak box nilai lalu tekan tombol Proses dan lihat hasilnya pada box Hasil Bilangan Terkecil  , seperti gambar di bawah ini .




Asyikkan belajar programman VBasic mengajak kita untuk berimajinasi membuat aplikasi baru yang manfaat bukanya malah membuat aplikasi yang merusak alias om virus , oke rekan tehnik semoga artikel ini bermanfaat buat kamu para pemula yang ingin belajar dan mengetahui programman VBasic .
Salam kompak dan sukses selalu .

Currently have 0 komentar: