Kalkulator Sederhana dengan Visual Basic 6.0
Program kalkulator sederhana yang dibuat dengan visual basic ini merupakan program iseng hasil latihan ngerjakno tugas (Wkwkwkwkkw). Kata orang bijak sesuatu yang besar dimulai dari yang kecil dan program yang rumit dimulai dari program yang sederhana. Siapa tahu dari kalkulator sederhana ini bisa menjadi sebuah sistem operasi yang bisa bersaing dengan windows dan linux, ho ho ho ga nyambung jack
Style Combo Box
Style Option
Aplikasi ini dibuat oleh om Herry Siswanto yang katanya lagi seneng-senengnya belajar VB.
Aplikasi kalkulator sendiri sebenarnya sudah ada pada bawaan keluarga windows maupun linux, dan sudah dilengkapi dengan berbagai fitur untuk perhitungan yang lebih rumit seperti perhitungan sinus, cosinus dan tangen. Tapi kok kayaknya asyik juga yaa kalo make aplikasi buatan kita sendiri. Biarpun masih sangat sederhana, yang jelas ada kebanggaan tersendiri saat memakainya dan pastinya berbeda dengan yang lain. Tampil beda dengan karya kita sendiri bisa meningkatkan kepercayaan diri loh sob.
Download (0,2 MB)
Source code:
Dim i As Long
Dim merah, hijau, biru As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1500
Label3.Caption = "nassroom.blogspot.com"
Frame3.Visible = False
CmdCombo.Visible = False
With Combo1
.AddItem ("Tambah")
.AddItem ("Kurang")
.AddItem ("Kali")
.AddItem ("Bagi")
.AddItem ("Pangkat")
.AddItem ("Sisa Hasil Bagi")
End With
End Sub
Private Sub CmdClear_Click()
Text1.Text = ""
Text2.Text = ""
Label5.Caption = ""
Combo1.Text = "Pileh"
Label4.Caption = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
End Sub
Private Sub CmdHasil_Click()
If Text1.Text = "" Then
MsgBox ("Bilangan 1 masih kosong")
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox ("Bilangan 2 masih kosong")
Text2.SetFocus
ElseIf Label4.Caption = "x" Then
Label5.Caption = CSng(Text1.Text) * CSng(Text2.Text)
ElseIf Label4.Caption = "/" Then
Label5.Caption = CSng(Text1.Text) / CSng(Text2.Text)
ElseIf Label4.Caption = "+" Then
Label5.Caption = CSng(Text1.Text) + CSng(Text2.Text)
ElseIf Label4.Caption = "-" Then
Label5.Caption = CSng(Text1.Text) - CSng(Text2.Text)
ElseIf Label4.Caption = "^" Then
Label5.Caption = CSng(Text1.Text) ^ CSng(Text2.Text)
ElseIf Label4.Caption = "M" Then
Label5.Caption = CSng(Text1.Text) Mod CSng(Text2.Text)
End If
End Sub
Private Sub CmdOption_Click()
Frame3.Visible = True
Frame4.Visible = False
CmdCombo.Visible = True
CmdOption.Visible = False
End Sub
Private Sub CmdCombo_Click()
Frame3.Visible = False
Frame4.Visible = True
CmdOption.Visible = True
End Sub
Private Sub Combo1_Click()
If Combo1.Text = "Tambah" Then
Label4.Caption = "+"
ElseIf Combo1.Text = "Kurang" Then
Label4.Caption = "-"
ElseIf Combo1.Text = "Kali" Then
Label4.Caption = "x"
ElseIf Combo1.Text = "Bagi" Then
Label4.Caption = "/"
ElseIf Combo1.Text = "Pangkat" Then
Label4.Caption = "^"
ElseIf Combo1.Text = "Sisa Hasil Bagi" Then
Label4.Caption = "M"
Else
End If
End Sub
Private Sub Option1_Click()
Label4.Caption = "x"
End Sub
Private Sub Option2_Click()
Label4.Caption = "/"
End Sub
Private Sub Option3_Click()
Label4.Caption = "+"
End Sub
Private Sub Option4_Click()
Label4.Caption = "-"
End Sub
Private Sub Option5_Click()
Label4.Caption = "^"
End Sub
Private Sub Option6_Click()
Label4.Caption = "M"
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 1000000 Then i = 0
merah = Int(255 * Rnd)
hijau = Int(255 * Rnd)
biru = Int(255 * Rnd)
Label3.ForeColor = RGB(merah, hijau, biru)
If i Mod 2 = 0 Then
Label3.Visible = True
Else
Label3.Visible = False
End If
End Sub
Private Sub CmdKeluar_Click()
Dim i
i = MsgBox("Sampean yakin arep metu songko kalkulator iki !!! ", vbYesNo, "Pertanyaan")
If i = vbYes Then
End
Else
End If
End Sub
0 Comments
