Membuat Kalkulator Sederhana Dengan VB 6.0



BUATLAH FORM DI BAWAH INI



Memuat foto

 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

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word