Obat Stressss….!!!! :)

Private Sub cmbtuju_Click()
If cmbtuju.Text = “Jambi-Jakarta” Then
txttarif.Text = 35000
ElseIf cmbtuju.Text = “Jambi-Semarang” Then
txttarif.Text = 45000
ElseIf cmbtuju.Text = “Jambi-Surabaya” Then
txttarif.Text = 65000
ElseIf cmbtuju.Text = “Jambi-Bali” Then
txttarif.Text = 80000
ElseIf cmbtuju.Text = “Jambi-Bandung” Then
txttarif.Text = 30000
End If
End Sub

Private Sub cmbtujuan_Click()
If cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Medan” Then
txtht.Text = “30000”
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Palembang” Then
txtht.Text = “25000”
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Lampung” Then
txtht.Text = “40000”
ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Medan” Then
txtht.Text = “40000”
ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Palembang” Then
txtht.Text = “30000”
ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Lampung” Then
txtht.Text = “60000”
End If
End Sub

Private Sub cmdproses_Click()
If cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Medan” And txtpeserta <= 50 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Medan” And txtpeserta > 50 Then
txtbayar.Text = (Val(txtpeserta.Text) * Val(txtht.Text)) - (Val(txtpeserta.Text) - 50) * Val(txtht.Text) * 0.3
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Palembang” And txtpeserta <= 40 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Palembang” And txtpeserta > 40 Then
txtbayar.Text = (Val(txtpeserta.Text) - 40) * Val(txtht.Text) * 0.3

ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Lampung” And txtpeserta <= 60 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Lampung” And txtpeserta > 60 Then
txtbayar.Text = (Val(txtpeserta.Text) - 60) * Val(txtht.Text) * 0.3

ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Medan” And txtpeserta <= 30 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Medan” And txtpeserta > 30 Then
txtbayar.Text = (Val(txtpeserta.Text) - 50) * Val(txtht.Text) * 0.3

ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Palembang” And txtpeserta <= 50 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Palembang” And txtpeserta > 50 Then
txtbayar.Text = (Val(txtpeserta.Text) - 40) * Val(txtht.Text) * 0.3

ElseIf cmbkelas.Text = “Luar Biasa” And cmbtujuan.Text = “Lampung” And txtpeserta <= 70 Then
txtbayar.Text = Val(txtht.Text) * Val(txtpeserta.Text)
ElseIf cmbkelas.Text = “Biasa” And cmbtujuan.Text = “Lampung” And txtpeserta > 70 Then
txtbayar.Text = (Val(txtpeserta.Text) - 60) * Val(txtht.Text) * 0.3
End If
End Sub

Private Sub Command1_Click()
If txtberat.Text < 25 Then
txtbayar2.Text = Val(txtberat.Text) * Val(txttarif.Text)
ElseIf txtberat.Text > 25 And txtberat.Text < 40 Then
txtbayar2.Text = (Val(txttarif.Text) * 25) + ((Val(txtberat.Text) - 25) * Val(txttarif.Text) * 0.15)
End If
End Sub

Private Sub Form_Load()
With cmbkelas
.AddItem “Biasa”
.AddItem “Luar Biasa”
End With

With cmbtujuan
.AddItem “Medan”
.AddItem “Palembang”
.AddItem “Lampung”
End With

With cmbtuju
.AddItem “Jambi-Jakarta”
.AddItem “Jambi-Semarang”
.AddItem “Jambi-Surabaya”
.AddItem “Jambi-Bali”
.AddItem “Jambi-Bandung”
End With
End Sub