Lagi,,gwe punya tips sederhana buat kalkulantor ,,simpel sekali cuma 4 perintah sih,,buat yang mau, kembangin ajah
Oke lansung aja,yang pertama siapkan :
1.form tentunya
6.command button
3.label
3.texbox
lalu isikan kode berikut:
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
masing" diatas telah memiliki pungsi sendiri" anda copas langsung jadi ,,,!
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
masing" diatas telah memiliki pungsi sendiri" anda copas langsung jadi ,,,!
moga" bermanfaat yah... jangan lupa commentnya
No comments:
Post a Comment
PERHATIAN,!!!
1. Berkomentarlah yang baik dan sesuai dengan pembahasan.
2. Dilarang berkata tidak pantas.
3. Gunakan bahasa yang baku
4. Komentar yang saya anggap spam tidak akan di publikasikan
5. Saya akan secepatnya menjawab komentar yang sifatnya pertanyaan.