Syntax pemograman

Hai Sobat, Kawan and My Brother  semester III of pomosda so pasti jurusan Teknik Indusri and Informatik Nirwana ingin berbagi nih.. khusus yang padE ngulang UTS nya....nirwana bkannya sombong tapi ingin membantu sobat yang sibuk2 ampek  gak bisa ngerjaun tugas nya  ...langsung aja dech.....


Dim wilayah As String
Dim Nama As String
Dim Biaya As Currency
Dim Cek1 As Currency
Dim Cek2 As Currency
Dim Cek3 As Currency
Dim Harga As Currency


Private Sub Check1_Click()
cek1 = 200000
End Sub
Private Sub Check2_Click()
Cek2 = 300000
End Sub

Private Sub Check3_Click()
Cek3 = 500000
End Sub

Private Sub Combo2_click()
Select Case Combo2.Text
Case "YTO"
nama = "Yanto"
biaya = 20000
Case "DNU"
nama = "Danu"
biaya = 40000
Case "HRU"
nama = "Heru"
biaya = 35000
End Select
Text3.Text = nama
Text4.Text = biaya
End Sub

Private Sub Command1_Click()
harga = Cek1 + Cek2 + Cek3
Text2.Text = harga
Text5.Text = harga + Text4.Text
If Text6.Text = "" Then
    MsgBox "anda belum mengisi uang bayar...!"
    Text6.SetFocus
    Exit Sub
End If
Text7.Text = Text6.Text - Text5.Text
End Sub

Private Sub Command2_Click()
Text6.Text = ""
Text5.Text = ""
Text7.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text3.Text = ""
Text4.Text = ""
Text2.Text = ""
End Sub

Private Sub Form_Load()
Combo1.AddItem "AE 1234 BC"
Combo1.AddItem "AG 2345 DE"
Combo1.AddItem "AD 2333 EF"
Combo2.AddItem "YTO"
Combo2.AddItem "DNU"
Combo2.AddItem "HRU"
End Sub

Private Sub combo1_click()
Select Case Combo1.Text
Case "AE 1234 BC"
wilayah = "Madiun"
Case "AG 2345 DE"
wilayah = "Kediri"
Case "AD 2333 EF"
wilayah = "Djogja"
End Select
Text1.Text = wilayah
End Sub
Private Sub Command3_Click()
End
End Sub

Nach dah beres semua kan maz bro.. tinggal kopi paste....kalau nama2nya seperti Text, label, check...gak sah di jelasin pasti anak STT POMOSDA dah tau semua...ok met mencoba aja sob....Salam Sukses  dari Nirwana....
PESAN :
JIka anda sibuk copy aja.. tapi klau anda tidak sibuk... kerajakan sendiri itu lebih baik....Trimakasih...