Java & Netbeans

Download | klik disini

Private Sub ckode_Click()

  Select Case Left(ckode.Text, 2)

    Case "DC", "Dc", "dC", "dc": tjenis.Text = "Double Coklat"

    Case "KU", "Ku", "kU", "ku": tjenis.Text = "Keju"

    Case Else: tjenis.Text = "Original"

  End Select

End Sub

Private Sub Form_Load()

   ttgl.Text = Date

End Sub

Private Sub lsukuran_Click()

  Select Case tjenis.Text

     Case "Keju":

                      Select Case lsukuran.Text

                         Case "Extra": MsgBox "Keju extra tidak tersedia"

                         Case "Mini": tharga.Text = 35000

                         Case Else: tharga.Text = 60000

                      End Select

     Case "Original":

                      Select Case lsukuran.Text

                         Case "Extra": tharga.Text = 45000

                         Case "Mini": tharga.Text = 15000

                         Case Else: tharga.Text = 30000

                      End Select

     Case Else:

                      Select Case lsukuran.Text

                         Case "Extra": tharga.Text = 65000

                         Case "Mini": tharga.Text = 25000

                         Case Else: tharga.Text = 50000

                      End Select

  End Select

  

  tjumlah.SetFocus

End Sub

Private Sub tjumlah_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then

   ttotal.Text = Val(tjumlah.Text) * Val(tharga.Text)

   

   If tjumlah.Text > 5 Then

      tdiskon.Text = 5000 * tjumlah.Text

   Else

      tdiskon.Text = 0

   End If

   

   tppn.Text = 0.1 * ttotal.Text

   

   tbayar.Text = Val(ttotal.Text) + Val(tppn.Text) - Val(tdiskon.Text)

 End If

End Sub