OPERASI MATE MATIKA
LANKAH - LANGKAH MEMBUAT NYA SEBAGAI BERIKUT.
1.BUATLAH FORM NYA TERLEBIH DAHULU YAITU
SELANJUTNYA KLIK FORM PADA DESAIN AKAN MUNCUL SBB.
1.BUATLAH FORM NYA TERLEBIH DAHULU YAITU
. Pengaturan Properties
NO.
|
OBJEK
|
PROPERTIES
|
PENGATURAN
|
1
|
Label1
|
Text
|
OPERASI MATEMATIKA
|
|
|
Font Size
|
9
|
|
|
Bold
|
True
|
2
|
Label2
|
Text
|
Bilangan 1 :
|
3
|
Label3
|
Text
|
Bilangan 2 :
|
4
|
Label4
|
Text
|
Hasil :
|
5
|
Label5
|
Text
|
OPERATOR
|
|
|
Bold
|
True
|
6
|
TextBox1
|
Name
|
txtbil1
|
7
|
TextBox2
|
Name
|
txtbil2
|
8
|
TextBox3
|
Name
|
Txthasil
|
9
|
Button1
|
Text
|
^
|
|
|
Size
|
10
|
|
|
Name
|
Btnpangkat
|
10
|
Button2
|
Text
|
*
|
|
|
Size
|
10
|
|
|
Name
|
Btnkali
|
11
|
Button3
|
Text
|
/
|
|
|
Name
|
Btnbagi
|
12
|
Button4
|
Text
|
+
|
|
|
Size
|
9
|
|
|
Name
|
Btntambah
|
13
|
Button5
|
Text
|
-
|
|
|
Size
|
10
|
|
|
Name
|
Btnkurang
|
14
|
Button6
|
Text
|
Bersih
|
|
|
Name
|
Btnbersih
|
15
|
Button7
|
Text
|
Tutup
|
|
|
Name
|
Btntutup
|
SELANJUTNYA MASUKKAN CODING.
Private Sub btnpangkat_Click(ByVal
sender As System.Object,
txthasil.Text = txtbil1.Text ^
txtbil2.Text
End Sub
![]() |
Private Sub btnkali_Click(ByVal
sender As System.Object,
txthasil.Text = txtbil1.Text *
txtbil2.Text
End Sub
![]() |
Private Sub btnbagi_Click(ByVal
sender As System.Object,
txthasil.Text = txtbil1.Text /
txtbil2.Text
End Sub
![]() |
Private Sub btntambah_Click(ByVal
sender As System.Object,
txthasil.Text = Val(txtbil1.Text) +
txtbil2.Text
End Sub
![]() |
Private Sub btnkurang_Click(ByVal
sender As System.Object,
txthasil.Text = txtbil1.Text -
txtbil2.Text
End Sub
SELESAI TERIMAKSIH GUYS.
Komentar
Posting Komentar