Latihan Program Ticketing - Modul VB

Labels:
Buat program menghitung harga tiket dengan ketentuan
ClassPrice
Economy100000
Bussines200000
Executive300000
Total of Price = Sum of Ticket * Price
Jawaban
ObyekPropertiPengaturan
FormCaptionTicketing
Label1CaptionSum Of Ticket
Text1Text(Kosongkan)
Frame1CaptionClass
Option1CaptionEconomy
Option2CaptionBussines
Option3CaptionExecutive
Label2CaptionPrice
Label3CaptionTotal Of Price
Text2Text(Kosongkan)
Backcolor(Pilih abu-abu)
Text3Text(Kosongkan)
Backcolor(Pilih abu-abu)
Command1CaptionOk
Command2CaptionExit
01Private Sub Command1_Click()
02  SOT = Val(Text1.Text)
03 If Option1.Value Then
04   P = 100000
05 ElseIf Option2.Value Then
06   P = 200000
07 Else
08   P = 300000
09 End If
10 TP = SOT * P
11 Text2.Text = P
12 Text3.Text = TP
13End Sub
14 
15Private Sub Command2_Click()
16  Unload Me
17End Sub

Artikel yang berkaitan :



0 comments:

Posting Komentar

Langganan: Posting Komentar (Atom)