Just another WordPress.com site

Tugas 5 VB, 18 Februari 2012

  1. Jawaban selengkapnya >> no 1
  2. Berikut ini adalah jawaban no 2

baca selengkapnya >> no 2

Iklan

1.A.

Read the rest of this entry »

Tugas VB 5

Untuk melihat desain dan listing program nya silahkan klik link di bawah ini

LIA

Tugas VB 5

QUIZ 1

LIA AGUSTINA

YAHOO3

 

 

 

 

KODE PROGRAM

 

Private Sub CmdBatal_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdKeluar_Click(Index As Integer)

End

End Sub

 

Private Sub CmdProses_Click(Index As Integer)

Dim A As String

A = Right(txtKB.Text, 1)

If A = “T” Then

txtNB.Text = “TAPE”

txtHT.Text = “275000”

 

elself A = “S” Then

txtNB.Text = “SOUD SYSTEM”

txtHT.Text = “350000”

 

elself A = “C” Then

txtNB.Text = “COMPACT”

txtHT.Text = “480000”

 

txtSISA.Text = Val(txtJS.Text) – Val(txtTerjual.Text)

txtTOTALHARGA.Text = Val(txtTerjual.Text) + Val(txtHT.Text)

 

End If

End Sub

Tugasnya udah ..silahkan download link dibawah ini..

makasihhh….

Tugas Visual Basic 14 Januari 2012

 

TUGAS VIBI 2

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

 

Awan Tag