Bismillah....
Assalamu'alaikum mitra blogger semua, kali ini saya akan flash back ke beberapa tahun yang kemudian tepatnya sekitar tahun 2005, ketika saya mencar ilmu pertama kali wacana bahasa pemrograman dari seorang suhu yang kini dia aktif menjadi seorang programmer handal (gak saya sebutkan namanya takut GR). Awal-awal perkuliahan saya pada jenjang diploma satu jurusan Manajemen Informatika ketika itu, kami para mahasiswanya dibekali kemampuan untuk bisa menguasai beberapa Bahasa Pemrograman yang antara lain: Visual Fox Pro, M Foxplus, dan Visual Basic 6.0. Dengan aneka macam keterbatasan sarana yang ada, kami sangat bersemangat untuk menggali ilmu-ilmu pemrograman dari guru kami tersebut. Dari beberapa bahasa pemrograman yang kami pelajari pada ketika itu, yang intens kami pelajari ialah bahasa pemrograman Visual Basic 6.0. Kami diajari dari mulai mengenal objek-objek pada Visual Basic 6.0 hingga pada pemrograman tingkat yang kuasa (bahasa beliau) yang kadang otak kami gak sampe. (hehehe....maaf lemot)
Ada beberapa hal menarik dalam proses mencar ilmu pemrograman Visual Basic 6.0 yang kami lakukan, dan juga mungkin lumrah bagi para pemula yang gres pertama kali mencar ilmu wacana bahasa pemrograman, yaitu kami dituntut untuk ngoprek (bahasa beliau) untuk bisa lebih mendalami bahan wacana Visual Basic 6.0 yang dia sampaikan. Maka "ngalong" pun (red: mencar ilmu hingga larut malam) sering kami lakukan di kampus. Dari sekian banyak proses awal yang kami ikuti dalam mempelajari bahasa pemrograman Visual Basic 6.0 ini, ada materi-materi yang pada ketika itu, kami sangat antusias sekali dalam mempelajarinya, satu diantaranya ialah bahan wacana penerapan fungsi Aritmatika pada Visual Basic 6.0. Seperti yang sudah kita pahami bahasa dalam pemrograman ada beberapa Fungsi yang mesti kita pahami salah satunya ialah Fungsi Aritmatika.
Bagi yang belum tahu, sedikit saya jelaskan wacana apa itu Fungsi Aritmatika?
Fungsi Aritmatika adalah salah satu fungsi dalam bahasa pemrograman yang di dalamnya terdapat proses perhitungan matematika dengan operasi hitung semisal penjumlahan, pengurangan, perkalian, pembagian, perpangkatan dll.
Apa yang kami buat ketika itu, sehingga menciptakan kami sangat antusias?
CALCULATOR. Ya Membuat Calculator pada VB 6.0 menjadi hal yang sangat luar biasa berdasarkan kami pada ketika itu, alasannya kita bisa menciptakan kalkulator sendiri dengan design sesuai selera dan lain sebagainya.
Baiklah semoga tidak terlalu usang melihat masa lalu, alasannya hawatir ada hal-hal lain yang melintas (yang bikin baper) kita akan coba pribadi praktekkan bagaimana cara menciptakan Calculator pada VB 6.0 menyerupai apa yang sudah kami pelajari ketika itu.
Silahkan ikuti langkah-langkahnya berikut ini:
1. Buka aplikasi Visual Basic 6.0
2. Siapkan Form untuk design interface, menyerupai terlihat pada teladan gambar di bawah ini:
3. Penjelasan gambar dan setting properties:
Kotak putih di atas = Textbox, Name = TxtHasil
Tombol angka 0 – 9 = CommandButton, Caption = 0 s/d 9, Name = CmdAngka à (Tombolnya dijadikan Array dengan cara buat tombol angka nol (0) saja, kemudian di copy sehingga masing-masing button mempunyai name yang sama dan berindex, menjadi menyerupai CmdAngka(0), CmdAngka(1), CmdAngka(2), dst.)
Tombol Operator (+, -, ^, *, /) = CommandButton, Caption = dirubah sesuai simbol operator, Name = CmdOperator à (Tombolnya dijadikan Array dengan cara buat tombol dengan simbol penjumlahan (+) saja, kemudian di copy sehingga masing-masing button mempunyai name yang sama dan berindex, menjadi menyerupai CmdOperator(0), CmdOperator(1), CmdOperator(2), dst.)
Tombol sama dengan (=) = CommandButton, Caption = simbol (=), Name = CmdHasil
Tombol reset (tombol C) = CommandButton, Caption = abjad C, Name = CmdReset
4 Setelah design dan setting properties final dilakukan, maka selanjutnya kita masukkan codingnya di bab view code, silahkan ketikkan coding di bawah ini:
Ketik dibagian atas pada bab view code
'Pendeklarasian Variabel Operator dan variabel array Angka
Dim Angka(1 To 2) As Single
Dim Operator As String
Doble Click pada CmdAngka (boleh yang mana saja alasannya kita memakai Array), kemudian ketik code di bawah ini:
'Ketika cmdAngka di klik akan menampilkan angka pada txtHasil
'sesuai caption cmdAngka yang di klik
Private Sub cmdAngka_Click(Index As Integer)
TxtHasil.Text = TxtHasil.Text + CmdAngka(Index).Caption
End Sub
Doble Click pada CmdOperator(boleh yang mana saja alasannya kita memakai Array), kemudian ketik code di bawah ini:
'Menentukan Operator yang digunakan
'berdasarkan caption cmdOperator yang di klik
Private Sub cmdOperator_Click(Index As Integer)
If TxtHasil.Text = "" Then Exit Sub
Angka(1) = CSng(TxtHasil.Text)
Operator = CmdOperator(Index).Caption
TxtHasil.Text = ""
End Sub
Double Click pada CmdHasil (tombol sama dengan), kemudian ketik code di bawah ini:
'Proses perhitungan
'pendeklarasian variabel Hasil
'melakukan operasi sesuai caption cmdOperator yang diklik
'menampilkan karenanya di txtHasil
Private Sub cmdHitung_Click()
Dim Hasil As Single
If TxtHasil.Text = "" Then Exit Sub
Angka(2) = CSng(TxtHasil.Text)
Select Case Operator
Case "+"
Hasil = Angka(1) + Angka(2)
Case "-"
Hasil = Angka(1) - Angka(2)
Case "*"
Hasil = Angka(1) * Angka(2)
Case "/"
Hasil = Angka(1) / Angka(2)
Case "^"
Hasil = Angka(1) ^ Angka(2)
End Select
TxtHasil.Text = Hasil
End Sub
Double Click pada CmdReset (Tombol C), kemudian ketik code di bawah ini:
'Mengosongkan txtHasil
Private Sub cmdReset_Click()
TxtHasil.Text = ""
End Sub
5. Setelah pengetikan coding selesai, silahkan coba Runing / di jalankan dan lakukan perhitungan.
Baca juga : Cara menyimpan gambar pada VB.NET
Demikian postingan wacana Membuat Calcualtor pada VB 6.0, semoga bermanfaat dan sanggup membantu dalam proses mencar ilmu pemrograman, khususnya bahasa pemrograman Visual Basic 6.0.
Sumber http://pabaiq.blogspot.com
EmoticonEmoticon