Punya Account Blogger?
Quiz Tipe B ( Service Motor A'haa )
Posted by Sofyan SOX on Senin, 26 April 2010 in
Download | Klik yang ini







Private Sub cjenis_Click()
 Select Case tmerk.Text
   Case "revo":
               Select Case cjenis.Text
                   Case "Ringan": tbiaya.Text = 25000
                   Case "Sedang": tbiaya.Text = 50000
                   Case "Berat": tbiaya.Text = 90000
               End Select
   Case "Beat":
               Select Case cjenis.Text
                   Case "Ringan": tbiaya.Text = 30000
                   Case "Sedang": tbiaya.Text = 60000
                   Case "Berat": tbiaya.Text = 105000
               End Select
   Case Else:
               Select Case cjenis.Text
                   Case "Ringan": tbiaya.Text = 35000
                   Case "Sedang": tbiaya.Text = 75000
                   Case "Berat": tbiaya.Text = 120000
               End Select
 End Select
End Sub

Private Sub ckode_Click()
  Select Case Left(ckode.Text, 2)
    Case "RE", "re", "rE", "Re":  tmerk.Text = "Revo"
    Case "BE", "be", "bE", "Be":  tmerk.Text = "Beat"
    Case Else: tmerk.Text = "Supra"
  End Select
End Sub

Private Sub Option1_Click()
  tdis.Text = 0.1 * Val(tbiaya.Text)
  ttotal.Text = Val(tdis.Text) + Val(tbiaya.Text)
  tbayar.SetFocus
End Sub

Private Sub Option2_Click()
  tdis.Text = 0
  ttotal.Text = Val(tdis.Text) + Val(tbiaya.Text)
  tbayar.SetFocus
End Sub



Private Sub tbayar_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    tkembali.Text = Val(tbayar.Text) - Val(ttotal.Text)
  End If
End Sub



Private Sub tno_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    If Left(tno.Text, 1) = "B" Then
       tkota.Text = "Jakarta"
    Else
       tkota.Text = "Bogor"
    End If
       ckode.SetFocus
  End If
End Sub




4 Responses to “Quiz Tipe B ( Service Motor A'haa )”:

Posting Komentar