Pengumpan RSS

TUGAS VIBI 2

Image

KODE PROGRAM

 

Private Sub cmdexit_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdlagi_Click(Index As Integer)

If keyascii = 13 Then

txtHT.SetFocus

End If

End Sub

 

Private Sub cmdProses_Click()

Dim C As String

C = Left(txtKt, Text, 3)

If C = “BIM” Then

txtHT.Text = “50.000″

txtJK.Text = “BIMA”

txtjb.Text = “16.00″

ElSelf C = “EKO” Then

txtHT.Text = “35.000″

txtJK.Text = “EKONOMI”

txtjb.Text = “19.00″

ElSelf C = “MUT” Then

txtHT.Text = “23.000″

txtJK.Text = “MUTIARA”

txtjb.Text = “17.00″

ElSelf C = “SEN” Then

txtHT.Text = “15.000″

txtJK.Text = “SENJA”

txtjb.Text = “20.00″

End If

End Sub

 

Private Sub txtJT_Click(Index As Integer)

txtJT = jumlah

End Sub

 

Private Sub txttotalp_Click(Index As Integer)

txttotalp = txtHT * txtJT

End Sub

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

w

Connecting to %s

%d blogger menyukai ini: