Titik Yuli: Langkah –Langkah Membuat Alat Perhitungan Sederhaha Dengan Visual Basic 2010

Membuka jendela Visual Basic 2010,dengan cara mengklik all program > Visual Basic 2010, akan muncul Star Page seperti berikut ini:

Gambar 1.1 Star page di visual basic 2010

Klik File > New Project.

Gambar 1.2 menu File > New Project

Memilih program yang paling umum yaitu windows forms application, klik windows di visual basic pada Installed Tempated > pilih Windows Forms Application > Net Framework 4 > isi pada bagian Name > klik ok.

Gambar 1.3 Pemilihan jenis projek

Tampilan lengkap IDE muncul.

Gambar 1.4 Tampilan lengkap IDE

Setelah itu klik File > Save All untuk menyimpan semua file, nanti akan muncul dialog Save Project , isikan nama projek di textbox Namenya, isikan lokasi penyimpanan di Location dan klik Save.

Kemudian menginputkan label,textbox,button,combo box yang ada di Toolbox dengan cara didrag ke dalam form, disusun seperti berikut :

Gambar 1.5 memasukkan objek dari toolbox

Memberi judul di label 1 bagian atas dengan cara diganti textnya dengan kalimat “PERHITUNGAN SEDERHANA”,atur jenis fontnya,forecolor dan lain – lain di propertis,untuk label 2 dan yang lainnya mengikuti seperti label 1.

Gambar 1.6 Poperties pengaturan label

Pada bagian form diedit pada bagian textnya, background,dan yang lainnya di properties.

Untuk Button 1 pada bagian text di properties tulis ” Hitung”, pada bagian Namenya diganti “bthitung”, Button 2 untuk textnya tulis “Keluar” dan untuk Name tulis “btkeluar” .

Untuk Text box 1 di Namenya tulis ”txtx”, Text box 2 ”txty”, dan text box 3 “txthasil”.

Untuk Combo box 1, pada bagian properties di Item inputkan (+,-,*,/,^).

Selanjutnya klik dua kali pada button 1 “Hitung” untuk memasukan kode berikut ini:

         MsgBox("Apakah yakin akan menghitung ?")

        If Me.ComboBox1.Text = "+" Then
            Me.txthasil.Text = Int(Txtx.Text) + Int(txty.Text)
        ElseIf Me.ComboBox1.Text = "-" Then
            Me.txthasil.Text = Int(Txtx.Text) - Int(txty.Text)
        ElseIf Me.ComboBox1.Text = "*" Then
            Me.txthasil.Text = Int(Txtx.Text) * Int(txty.Text)
        ElseIf Me.ComboBox1.Text = "/" Then
            Me.txthasil.Text = Int(Txtx.Text) / Int(txty.Text)
        ElseIf Me.ComboBox1.Text = "^" Then
            Me.txthasil.Text = Int(Txtx.Text) ^ Int(txty.Text)
        End If