CalculatorNE

Calculator ini sangat sederhana, jika anda ingin mencobanya... sebagai berikut :
1. buatlah 5 lable
    - lable 1 > Captionnya diganti menjadi Angka 1
    - lable 2 > Captionnya diganti menjadi Angka 2
    - label 3 > Captionnya diganti menjadi Hasil
    - label 4 > Captionnya diganti menjadi www.nugrohosentoso.blogspot.com (tulisan warna merah bisa anda ganti sesuka hati anda )
    - lable 5 > Captionnya diganti menjadi NulaElieT (tulisan warna merah bisa anda ganti sesuka hati anda )
2. buatlah 3 textbox
3. buatlah 5 commandbutton
     - commandbutton 1 > Namenya diganti cmdbagi, Captionnya diganti menjadi   " / "
     - commandbutton 2 > Namenya diganti cmdkali, Captionnya diganti menjadi    " x "
     - commandbutton 3 > Namenya diganti cmdkurang, Captionnya diganti menjadi   " - "
     - commandbutton 4 > Namenya diganti cmdtambah, Captionnya diganti menjadi   " + "
     - commandbutton 5 > Namenya diganti cmdreset, Captionnya diganti menjadi Reset
4. 1 Timer (jangan lupa interval diganti menjadi 50 )
Terakhir copy coding tersebut

Dim Red, Green, Blue As Integer

Private Sub cmdbagi_Click()
hasilbagi = Val(Text1.Text) / Val(Text2.Text)
Text3.Text = hasilbagi
End Sub

Private Sub cmdExit_Click(Index As Integer)
End

End Sub

Private Sub cmdkali_Click()
hasilkali = Val(Text1.Text) * Val(Text2.Text)
Text3.Text = hasilkali
End Sub
Private Sub cmdkurang_Click()
hasilkurang = Val(Text1.Text) - Val(Text2.Text)
Text3.Text = hasilkurang
End Sub
Private Sub cmdtambah_Click()
hasiltambah = Val(Text1.Text) + Val(Text2.Text)
Text3.Text = hasiltambah
End Sub
Private Sub Command1_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
End Sub




Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()
If Blue <= 255 Then
    Blue = Blue + 50
Else
    Blue = 0
    Green = Green + 50
End If

If Green >= 255 Then
    Green = 0
    Red = Red + 50
End If

If Red >= 255 Then
    Red = 0
End If
Label5.ForeColor = Int(RGB(Red, Green, Blue))
Label5.Refresh
Label4.ForeColor = Int(RGB(Red, Green, Blue))
Label4.Refresh
End Sub

kalau mau download buat di instal
Download Disini
trus kalau mau contohnya download Disini

Jangan Lupa Koment ya...
o ia lupa gambarnya
nie contohnya