ASSALAMMUALAIKUM WR.WB
yo... welcome back sekarang saya akan berikan tutorial lanjutan dari post.an sebelumnya
langsung saja simak tutorialnya
1. Pertama silahkan kalian double klik pada kotak form kemuadian kalian hapus semua lalu kalian isi dengan kode seperti gambar dibawah
SC : Dim pil As String
Dim x As Integer
Dim y As Integer
2. Kemudian kita buat supaya angka 123.... bisa di gunakan silahkan kalian klik double pada button nomor 1 terus kalian isi dengan kode seperti gambar di bawah
SC:
Private Sub Command1_Click(Index As Integer)
text1.Text = text1.Text & Command1(Index).Caption
End Sub
3. setelah selesai sekarang kita buat supaya tombol + berfungsi, silahkan kalian klik double pada button + terus kalian isi dengan kode seperti gambar di bawah
SC:
Private Sub Command9_Click()
x = text1.Text
text1.Text = ""
pil = "+"
End Sub
4. begitu juga dengan button x / - tinggal kalian double klik pada button tersebut kemudian kalian masukan kode seperti gambar dibawah
SC:
Private Sub Command3_Click()
x = text1.Text
text1.Text = ""
pil = "-"
End Sub
Private Sub Command4_Click()
x = text1.Text
text1.Text = ""
pil = "*"
End Sub
Private Sub Command5_Click()
x = text1.Text
text1.Text = ""
pil = "/"
End Sub
5. kita buat supaya button X² berfungsi, double klik pada button X² lalu isi dengan kode seperti gambar dibawah
SC :
Private Sub Command6_Click()
If pil = "" Then
x = text1.Text
Else
x = text1.Text
End If
text1.Text = x ^ 2
End Sub
6. kita buat supaya button +/- berfungsi, double klik pada button +/- lalu isi dengan kode seperti gambar dibawah
SC:
Private Sub Command7_Click()
If text1.Text = "" Then Exit Sub
If Val(text1.Text) > 0 Then
text1.Text = Val(text1.Text) * -1
Else
text1.Text = Val(text1.Text) * -1
End If
End Sub
7. kita buat supaya button AKAR berfungsi, double klik pada button AKAR lalu isi dengan kode seperti gambar dibawah
SC:
Private Sub Command10_Click()
text1.Text = Math.Sqr(text1.Text)
End Sub
8. kemudian kita buat supaya button = berfungsi, double klik pada button = lalu isi dengan kode seperti gambar dibawah
SC:
Private Sub Command8_Click()
If pil = "+" Then
y = text1.Text
n = x + y
text1.Text = n
Else
If pil = "-" Then
y = text1.Text
n = x - y
text1.Text = n
Else
If pil = "/" Then
y = text1.Text
n = x / y
text1.Text = n
Else
If pil = "*" Then
y = text1.Text
n = x * y
text1.Text = n
Else
If pil = "^" Then
y = text1.Text
n = x ^ y
text1.Text = n
End If
End If
End If
End If
End If
End Sub
9 .Kemudian kita buat supaya button DEL berfungsi, double klik pada button DEL lalu isi dengan kode seperti gambar dibawah
SC:
Private Sub Command2_Click()
text1.Text = ""
End Sub
10. Jika semua sudah selesai kalian tinggal membuat .exe nya dengan cara klik file di pojok kiri atas lalu kalian pilih make .exe kemudian pilih tempat untuk menyimpan .exe tersebut.
HASIL
semoga bermanfaat. jika ada kebinggugan silahkan hubungi FP kami
sekian terimakasih
Wassalamu'alaikum Wr.Wb
0 Comments