Membuat Kalkulator Sederhana Dengan VB 6.0
BUATLAH FORM DI BAWAH INI

Ketiklah Listing
Di Bawah Ini
Tombol Tambah
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Tombol Kali
Private Sub Command10_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Tombol Bagi
Private Sub Command11_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
Tombol Kurang
Private Sub Command12_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
Tombol Pangkat
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub
Tombol Tebal
Private Sub Command3_Click()
Label6.FontBold = True
End Sub
Private Sub Command4_Click()
Label6.FontItalic = True
End Sub
Tombol Garis
Bawah
Private Sub Command5_Click()
Label6.FontUnderline = True
End Sub
Tombol Biru
Private Sub Command6_Click()
Label6
.ForeColor = vbBlue
End Sub
Tombol Kuning
Private Sub Command7_Click()
Label6.ForeColor = vbYellow
End Sub
Tombol Normal
Private Sub Command8_Click()
Label6.ForeColor = vbBlack
Label6.FontBold = False
Label6.FontItalic = False
Label6.FontUnderline = False
End Sub
Tombol Keluar
Private Sub Command9_Click()
End
End Sub
Klik Dua Kali
Pada Timer
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "dd-mm-yyyy")
Label2.Caption = Format(Now, "hh:mm:ss
Am/Pm")
End Sub
Program
ini dibuat oleh Heri Afrizal di bireuen
Komentar
Posting Komentar
Tulis komentar anda disini.....