Visual Basic,kalian semua pasti tau kan apa yang di maksud,kalau dosen saya dulu pernah jelasin dan yang saya tangkap penjelasannya bahwa Visual Basic itu merupakan cara termudah dalam pembuatan aplikasi yang di jalankan dalam sistem operasi windows.
Lalu yang di maksud visual basic secara arti apa?
Visual>lebih merujuk pada metode yang di gunakan untuk membuat antar muka yang bersifat grafis Graphical User Interface (GUI).
Basic> merujuk Ke bahasa BASIC (Beginners All0Purpose Symbolic Instruction Code),sebuah Bahasa yang di gunakan oleh banyak programer di bandingkan degan bahasa lainnya dalam sejarah komputer.
Di sini saya akan memberikan contoh sederhana dari program yang di buat dalam bahasa Visual Basic,
Contoh pembuatan aplikasi kalkulator,yang nanti bisa di terapkan dalam layar komputer anda.
Berikut programnya:
Dim angka(1 To 2) As Single
Dim op As String
--------------------------------------------------------------------
Private Sub Command1_Click(Index As Integer)
Text1.Text = Text1.Text & command1(Index).Caption
End Sub
--------------------------------------------------------------------
Private Sub Command2_Click()
End Sub
---------------------------------------------------------------------
//hapus,command untuk tombol hapus
Private Sub hapus_Click(Index As Integer)
Text1.Text = ""
End Sub
---------------------------------------------------------------------
//Hitung adalah nama untuk coment sama dengan pada kalkulator
Private Sub hitung_Click(Index As Integer)
Dim hasil As Single
If Text1.Text = "" Then Exit Sub
angka(2) = CSng(Text1.Text)
Select Case op
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
Text1.Text = hasil
End Sub
---------------------------------------------------------------------
Operator adalah nama untuk pemrosesan dalam kalkulator
Private Sub operator_Click(Index As Integer)
If Text1.Text = "" Then Exit Sub
angka(1) = CSng(Text1.Text)
op = operator(Index).Caption
Text1.Text = ""
End Sub
Comments