Latihan Program Ticketing - Modul VB

Kursus Advance SEO - Saung Seo 468x60
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

CU.CC: Free Domain Registration + FREE DNS Services

Artikel yang berkaitan :



0 komentar:

Posting Komentar

..::.. JANGAN LUPA ..::..
berkomentar untuk blog ini