Cara Membuat Calculator dengan Visual Basic 2010

Berikut in Cara membuat Calculator dalamVb :

•  LangkahpertamasetelahmasukdalamaplikasiVb 2010 adalah
•  Pilihpada menu “File”
•  Klik“New”
•  Lalupilih“project”

• Makaakankeluartampilan“New Project”
•  Pilih“Windows Forms Application“
•  Lalupilih OK

• Lalusetelahmasukpada form pilih menu bar “View”
• Setelahitupilih“Toolbox”

• Makaakankeluartampilan menu-menu dari“Toolbox”
• Setelahitupilih“A label”

• Setelah memilih “Label1”-“ALabel2”-“Label3”-“Label4”-“Label5”-Label6” maka akan keluar  tampilan form seperti diatas
• Lalu pilih Properties yang ada dikanan bawah
• Pilih text  Ubah Menjadi “Primitive Calculator”–“Bilangan 1”-“Operator”-“Bilangan 3”-“Hasil”-“Label 6”

•  Maka akan keluar tampilan form “Primitive Calculator”–“Bilangan 1”-“Operator”-“Bilangan 3”-“Hasil”-“Label 6”

• LangkahselanjutnyaKlik “ToolBox” yang adapadasebelahkiridekat Form
•  Laluklik“Button”

• Setelah memilih “Button1” maka akan keluar tampilan form seperti diatas
•  Lalu pilih Properties yang ada dikanan bawah
•  Pilih text 
•  Ubah Button1 Menjadi “Hitung”

•  LangkahselanjutnyaKlik “ToolBox” yang adapadasebelahkiridekat Form
• Laluklik“TextBox”

• Setelahselesaiklik“TexBox” makaakanmuncultampilan form sepertidiatas

· LangkahselanjutnyaKlik “ToolBox” yang adapadasebelahkiridekatForm
· Laluklik“ComboBox”

• Setelahselesaiklik“ComboBox” makaakanmuncultampilan form sepertidiatas

• Selanjutnyapilih“Items” yang ada di properties di kananbawah
•  Laluakanmuncultampilankotaksepertidiatas
•  Laluisikotaktersebutdengan“Tambah”-“Kurang”-“Kali”-Bagi”
•  Laluklik OK

• · Langkahselanjutnya Double klikpada form makanakanmuncultampilan script sepertidiatas

• SetelahituBuat script dibwaah private dantambahkanButton1.Click disebelah Handles
• Masukan script atau kode program seperti dibawah ini 

· If (ComboBox1.SelectedItem = "Tambah") Then
· Label6.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
· ElseIf ComboBox1.SelectedItem = "Kurang" Then
· Label6.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
· ElseIf ComboBox1.SelectedItem = "Kali" Then
· Label6.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
· ElseIf ComboBox1.SelectedItem = "Bagi" Then
· Label6.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

• Setelahmembuatkode program dimasukanLalulangkahselanjutnya di “Run”atau“Start debugging”
• Maka setelah di “Run”akankeluartampilan“Calculator”

Share this post