Tutorial Membuat Program Kalkulator Sederhana di Vb.Net
Membuat Program Kalkulator Sederhana- Bagi sobat yang sedang mempelajari Vb.Net, kali ini LangkahTik akan berbagi tutorial bagaimana membuat aplikasi kalkulator sederhana pada Vb.Net. program ini sangat sederhana dan akan membantu kamu yang ingin mempelajari bahasa pemograman Vb.net.
Desainlah form user interface pada vb.net seperti gambar dibawah :
Berikut rincian dari komponen yang digunakan:
-
Kemudian pada general ketikkanlah source
program berikut :
Dim a, b As Long
Dim c As Single
-
Selanjutnya double klik pada button
tambah dan isikan dengan source program berikut :
txthasilproses.Text =
Val(txtnilaia.Text) + Val(txtnilaib.Text)
-
Double klik pada button kurang, isikan
dengan source program :
a = Val(txtnilaia.Text)
b = Val(txtnilaib.Text)
If a = 0 And b = 0 Then
MsgBox("Nilai A dan B tidak
Boleh 0", 0, "Input Nilai A,B")
Exit Sub
End If
c = a - b
txthasilproses.Text = Str(c)
-
Double klik pada button bagi, isikan
dengan source program :
a = Val(txtnilaia.Text)
b = Val(txtnilaib.Text)
If a = 0 And b = 0 Then
MsgBox("Nilai A dan B tidak
Boleh 0", 0, "Input Nilai A,B")
Exit Sub
End If
c = a / b
txthasilproses.Text = Str(c)
-
Double klik pada button kali, isikan
dengan source program :
a = Val(txtnilaia.Text)
b = Val(txtnilaib.Text)
If a = 0 And b = 0 Then
MsgBox("Nilai A dan B tidak
Boleh 0", 0, "Input Nilai A,B")
Exit Sub
End If
c = a * b
txthasilproses.Text = Str(c)
-
Double klik pada button pangkat, isikan
dengan source program :
a = Val(txtnilaia.Text)
b = Val(txtnilaib.Text)
If a <= 0 And b <= 0 Then
MsgBox("Nilai A dan B tidak
Boleh 0", 0, "Input Nilai A, B")
Exit Sub
End If
c = a ^ b
txthasilproses.Text = Str(c)
-
Double klik pada button exit, isikan
dengan source program :
End