Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
Me.VScrollBar2.Value = Me.VScrollBar2.Maximum
If ProgressBar1.Value = 0 Then
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
End If
btnGas.Enabled = False
btnRem.Enabled = False
btnFill.Enabled = False
btnEmpty.Enabled = False
btnStop.Enabled = False
btnStopp.Enabled = False
Timer1.Enabled = False
Label15.Text = Val(Me.VScrollBar1.Maximum)
For Each i As RadioButton In GroupBox2.Controls
i.Checked = False
Next
End Sub
Private Sub txtAmount_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtAmount.KeyPress
If IsNumeric(e.KeyChar) Or e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub txtAmount_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)
Handles txtAmount.LostFocus
If Val(txtAmount.Text) > Val(Me.VScrollBar1.Maximum) Then
MsgBox("Over Limit", MsgBoxStyle.Information, "Perhatian")
End If
End Sub

Private Sub btnFill_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnFill.Click
If Me.txtAmount.Text = "" Or txtPrice.Text = "" Then
MsgBox("Fill First your data!!!", vbCritical, "ATTENTION")
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
btnStart.Enabled = True
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnStop.Click
Timer1.Enabled = False
btnFill.Enabled = True
btnEmpty.Enabled = True
btnStop.Enabled = False
End Sub

Private Sub btnEmpty_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles btnEmpty.Click
For Each i As RadioButton In GroupBox2.Controls
i.Checked = False
Next
Me.txtPrice.Text = ""
Me.txtAmount.Text = ""
Me.txtAmount1.Text = ""
Me.txtTotal.Text = ""
Me.VScrollBar1.Value = 0
Me.Label15.Text = Me.VScrollBar1.Maximum
btnFill.Enabled = True
btnEmpty.Enabled = False
btnStop.Enabled = False
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
Me.txtPrice.Text = 7000
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton2.CheckedChanged
Me.txtPrice.Text = 10000
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
Me.txtPrice.Text = 7500
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton4.CheckedChanged
Me.txtPrice.Text = 11000
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton5.CheckedChanged
Me.txtPrice.Text = 12000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer1.Tick
If ProgressBar1.Value = txtAmount.Text Then
Timer1.Enabled = False
btnFill.Enabled = False
btnEmpty.Enabled = True
btnStop.Enabled = False
Else
txtAmount1.Text = Val(txtAmount1.Text) + 1
txtTotal.Text = Val(txtAmount1.Text) * Val(txtPrice.Text)
Me.VScrollBar1.Value = Me.VScrollBar1.Value + 1
ProgressBar1.Value = ProgressBar1.Value + 1
Label15.Text = Me.VScrollBar1.Maximum - txtAmount1.Text
btnFill.Enabled = False
btnEmpty.Enabled = False
btnStop.Enabled = True

End If
End Sub
Private Sub btnGas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnGas.Click
Timer2.Enabled = True
End Sub
Private Sub btnRem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnRem.Click
Timer2.Enabled = False
btnGas.Enabled = True
btnRem.Enabled = True
Timer3.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer2.Tick
Timer3.Enabled = False
If ProgressBar1.Value = ProgressBar1.Minimum Then
btnGas.Enabled = True
Else
Me.VScrollBar2.Value = Me.VScrollBar2.Value - 1
ProgressBar1.Value = ProgressBar1.Value - 1
End If
If ProgressBar1.Value = 0 Then
Timer2.Stop()
Timer3.Stop()
VScrollBar2.Value = VScrollBar2.Maximum
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
btnFill.Enabled = True
btnStart.Enabled = False
btnStopp.Enabled = False
btnGas.Enabled = False
btnRem.Enabled = False
End If
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Timer3.Tick
Timer2.Enabled = False
If VScrollBar2.Value = 100 Then
Me.VScrollBar2.Value = Me.VScrollBar2.Value + 0
ProgressBar1.Value = ProgressBar1.Value - 1
Else
Me.VScrollBar2.Value = Me.VScrollBar2.Value + 1
ProgressBar1.Value = ProgressBar1.Value - 1
End If
If ProgressBar1.Value = 0 Then
Timer2.Stop()
Timer3.Stop()
VScrollBar2.Value = VScrollBar1.Maximum
MsgBox("Minyak Anda Sudah Habis", vbCritical, "ATTENTION")
btnFill.Enabled = True
btnStart.Enabled = False
btnStopp.Enabled = False
btnGas.Enabled = False
btnRem.Enabled = False

End If
End Sub
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnStart.Click
btnGas.Enabled = True
btnRem.Enabled = True
btnStopp.Enabled = True
End Sub
Private Sub btnStopp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnStopp.Click
btnGas.Enabled = False
btnRem.Enabled = False
btnFill.Enabled = False
btnEmpty.Enabled = False
btnStop.Enabled = False
btnStopp.Enabled = False
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
VScrollBar2.Value = 100
End Sub
Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
End Sub
End Class