Soal visual basic

Perhitungan harga tiket bus p.o lintas sumatra

Beserta  tutorialnya

Harga tiket bus P.O Lintas Sumatra

Tujuan :

PEKANBARU          :           Jakarta

                                    Medan

                                    Aceh

                                    Lampung

                                    Palembang

Dengan Ketentuan Sebagai Berikut :

·         Kode kendaraan di inputkan

·         Nama penumpang di inputkan

·         Tujuan

Tujuan menggunakan combo box apabila dipilih maka akan keluar harga tiket secara otomatis

·         Jumlah tiket di inputkan

·         Jumlah bayar

Jumlah bayar di dapat dari tujuan di kali dengan jumlah tiket

·         Asuransi

Asuransi di dapat dari 8% total harga tiket

·         Jumlah bayar akhir

Jumlah bayar akhir di dapat dari pengurangan total harga tiket & asuransi

Contoh Form/lembar Kerja

 Rumus Visual Basic

Private Sub Combo1_Click()
If Combo1 = "jakarta" Then
    Text3 = 1000000
Else
If Combo1 = "medan" Then
    Text3 = 500000
Else
If Combo1 = "aceh" Then
    Text3 = 750000
Else
If Combo1 = "lampung" Then
    Text3 = 800000
Else
    Text3 = 850000
End If
End If
End If
End If
End Sub





Private Sub Label1_Click()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
End Sub


Private Sub Text4_Change()
Text5 = Val(Text3) * Val(Text4)
Text6 = 0.08 * Val(Text5)
Text7 = Val(Text5) - Val(Text6)
End Sub

Private Sub Timer1_Timer()
Label10.Caption = Format(Now(), "hh:mm:ss:")
End Sub