Tutorial Membuat Program Konversi Nilai di Vb.Net
Membuat Program Konversi Nilai- Bagi sobat yang sedang mempelajari Vb.Net, kali ini LangkahTik akan berbagi tutorial bagaimana membuat aplikasi konversi nilai Vb.Net. konversi nilai yang dimaksud disini adalah nilai dari suatu tipe data, misalnya mengkonversikan nilai yang biasa kita gunakan sehari hari menjadi tipe data string, integer atau double. Adapun cara kerja aplikasi ini adalah menjumlahkan 2 angka, kemudian hasil jumlahnya di konversikan ke nilai tipe data yang berbeda. program ini sangat sederhana dan akan membantu kamu yang ingin mempelajari bahasa pemograman Vb.net.
1. Desainlah form user interface pada vb.net seperti gambar dibawah :
2. Berikut rincian dari komponen yang digunakan:
Nama Component
|
Properties
|
From1
|
Caption space
|
From2
|
Caption space
|
Label1
|
Name = Label1
Text = Nilai A
|
Label2
|
Name = Label2
Text = Nilai B
|
Label3
|
Name = Label3
Text = Integer
|
Label4
|
Name = Label4
Text = Double
|
Label5
|
Name = Label5
Text = String
|
TextBox1
|
Name = txta
Text = space
|
TextBox2
|
Name = txtb
Text = space
|
TextBox3
|
Name = txtint
Text = space
|
TextBox4
|
Name =
txtdouble
Text = space
|
TextBox5
|
Name =
txtstring
Text = space
|
Button1
|
Name = cmdint
Text = Integer +
|
Button2
|
Name =
cmddouble
Text = Double +
|
Button3
|
Name =
cmdstring
Text = String +
|
Button4
|
Name = Button4
Text = Close
|
GroupBox1
|
Name =
GroupBox1
Text = Input
|
GroupBox2
|
Name =
GroupBox2
Text = Output
|
GroupBox3
|
Name =
GroupBox3
Text = Action
|
- Selanjutnya clik view/Project Explorer, kemudian double kliking pada Form1 dan isikan dengan source program berikut :
Private Function hitung(ByVal a As
Integer, ByVal b As Integer)
hitung = a + b
End Function
Private Function hitung1(ByVal a As Double, ByVal b As Double)
hitung1 = a + b
End Function
Private Function hitung2(ByVal a As String, ByVal b As String)
hitung2 = a + b
End Function
-
Double klik pada button Integer + dan
isikan dengan source program berikut :
Dim a, b As Integer
a = Val(txta.Text)
b = Val(txtb.Text)
txtint.Text = Str(hitung(a, b))
-
Double klik pada button Double + dan
isikan dengan source program berikut :
Dim a, b As Double
a = Val(txta.Text)
b = Val(txtb.Text)
txtdouble.Text = Str(hitung1(a, b))
-
Double klik pada button String + dan
isikan dengan source program berikut :
Dim a, b As String
a = Val(txta.Text)
b = Val(txtb.Text)
txtstring.Text = Str(hitung2(a, b))
-
Double klik pada button Close dan isikan
dengan source program berikut :
End