TUGAS QUIS VISUAL BASIC 1

 

 

KODE PROGRAM

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtkt.SetFocus

Txtkt.Text = “”

Txtht.Text = “”

Txtjk.Text = “”

Txtjb.Text = “”

Txtjt.Text = “”

Txttotalp.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim KT As String

Dim T As Long

KT = Left(Txtkt.Text, 3)

If KT = “BIM” Then

Txtht.Text = “50000”

Txtjk.Text = “BIMA”

Txtjb.Text = “16.00”

ElseIf KT = “EKO” Then

Txtht.Text = “35000”

Txtjk.Text = “EKONOMI”

Txtjb.Text = “19.00”

ElseIf KT = “SEN” Then

Txtht.Text = “15000”

Txtjk.Text = “SENJA”

Txtjb.Text = “20.00”

ElseIf KT = “MUT” Then

Txtht.Text = “23000”

Txtjk.Text = “MUTIARA”

Txtjb.Text = “17.00”

End If

Txtjt.SetFocus

End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End If

End Sub

 

Private Sub Txtkt_Change()

 

End Sub

Advertisements

Hello world!

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

  1. You can find new ideas for what to blog about by reading the Daily Post.
  2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
  3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.