Public Class Form1
Private Sub Form1_Load(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = [Link]
If [Link] = 0 Then
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
End If
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = Val([Link])
For Each i As RadioButton In [Link]
[Link] = False
Next
End Sub
Private Sub txtAmount_KeyPress(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If IsNumeric([Link]) Or [Link] = vbBack Then
[Link] = False
Else
[Link] = True
End If
End Sub
Private Sub txtAmount_LostFocus(ByVal sender As Object, ByVal e As [Link])
Handles [Link]
If Val([Link]) > Val([Link]) Then
MsgBox("Over Limit", [Link], "Perhatian")
End If
End Sub
Private Sub btnFill_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link] = "" Or [Link] = "" Then
MsgBox("Fill First your data!!!", vbCritical, "ATTENTION")
[Link] = False
Else
[Link] = True
End If
[Link] = True
End Sub
Private Sub btnStop_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = False
[Link] = True
[Link] = True
[Link] = False
End Sub
Private Sub btnEmpty_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
For Each i As RadioButton In [Link]
[Link] = False
Next
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = 0
[Link] = [Link]
[Link] = True
[Link] = False
[Link] = False
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 7000
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 10000
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 7500
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 11000
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 12000
End Sub
Private Sub Timer1_Tick(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link] = [Link] Then
[Link] = False
[Link] = False
[Link] = True
[Link] = False
Else
[Link] = Val([Link]) + 1
[Link] = Val([Link]) * Val([Link])
[Link] = [Link] + 1
[Link] = [Link] + 1
[Link] = [Link] - [Link]
[Link] = False
[Link] = False
[Link] = True
End If
End Sub
Private Sub btnGas_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = True
End Sub
Private Sub btnRem_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = False
[Link] = True
[Link] = True
[Link] = True
End Sub
Private Sub Timer2_Tick(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = False
If [Link] = [Link] Then
[Link] = True
Else
[Link] = [Link] - 1
[Link] = [Link] - 1
End If
If [Link] = 0 Then
[Link]()
[Link]()
[Link] = [Link]
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = False
If [Link] = 100 Then
[Link] = [Link] + 0
[Link] = [Link] - 1
Else
[Link] = [Link] + 1
[Link] = [Link] - 1
End If
If [Link] = 0 Then
[Link]()
[Link]()
[Link] = [Link]
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End If
End Sub
Private Sub btnStart_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = True
[Link] = True
[Link] = True
End Sub
Private Sub btnStopp_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = 100
End Sub
Private Sub VScrollBar1_Scroll(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
End Class
