pada postingan kali ini saya coba membuat kalkulator di VB.NET yg saya coba buat sesuai keinginan saya,,
langkah pertama buatlah bentuk seperti gambar di atas setting lah pada nama pada kolom propertise anda.
kedua ,saya mulai dari button pada operator [+] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 + angka2
TextBox3.Text = hasil
ketiga ,lanjutkan dengan mengisikan pada button pada operator [-] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 - angka2
TextBox3.Text = hasil
keempat ,lanjutkan dengan mengisikan pada button pada operator [*] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 * angka2
TextBox3.Text = hasil
kelima ,lanjutkan dengan mengisikan pada button pada operator [Rata-rata] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 + angka2 / 2
TextBox3.Text = hasil
keenam ,lanjutkan dengan mengisikan pada button pada operator [^] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 ^ angka2
TextBox3.Text = hasil
ketujuh ,lanjutkan dengan mengisikan pada button pada operator [/] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 / angka2
TextBox3.Text = hasil
kedelapan ,lanjutkan dengan mengisikan pada button pada operator [mod] ,double klik pada button lalu masukan syntax berikut:
Dim angka1 As Integer
Dim angka2 As Integer
Dim hasil As Integer
angka1 = Val(TextBox1.Text)
angka2 = Val(TextBox2.Text)
hasil = angka1 mod angka2
TextBox3.Text = hasil
kesembilan ,lanjutkan dengan mengisikan button pada exit ,double klik pada button lalu masukan syntax berikut:
Me.Close()
lalu kita compailer ,dan program pun siap di jalankan...jika ada yang tidak bisa d compailer anda bisa meninggal kan comment d postingan ini,selamat mencoba teman-teman
.
I discovered your weblog site internet website on the internet and appearance some of your early posts. Continue to keep within the wonderful operate. I just now additional increase your Rss to my MSN News Reader. Seeking toward reading far much more from you finding out at a later date!รข€¦
BalasHapus