CONTOH PROGRAM SEDERHANA

Soal VB:

Pndaftaran  siswa baru di PII KOMPUTINDO 

diketahui data yang diinpu t sebagai berikut:

NO.Pendaftaran

Nama siswa

Alamat siswa

Tanggal Daftar

Gelombang

Data yang dip roses:

Uang  pembangunan dan uang seragam berdasarkan bentuk gelombang.

Jika  gelombang  pertama maka uang  pembangunan 2.800.000 uang seragam =0

Jika gelombang kedua maka uang pembangunan 3.800.000 uang seragam =250.000

Jika gelombang ketiga maka uang pembangunan 3.800.000 uang seragam =500.000

Sistem pembayaran :lunas,caw,bulan

Ketentuan biaya pendidikan dan total berdasarkan sistem pembayaran

Jika pembayaranya lunas maka ketentuan biaya pendidikan 3.400.000 total3.400.000

Jka pembayaranya caw maka ketentuan biaya pendidikan 1.200.000 total 1.200.000*3

Jika pembayaranya bulan maka ketentuan biaya pendidikan 3.500.000*12

Total bayar=uang pembangunan+uang seragam+total

PENYELESAIAN

Private Sub Combo1_CLICK()

If Combo1 = "Pertama" Then

    Text4 = 2800000

    Text5 = 0

Else

If Combo1 = "Kedua" Then

    Text4 = 3800000

    Text5 = 250000

Else

Text4 = 3800000

Text5 = 500000

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2 = "Lunas" Then

    Text6 = 3400000

    Text7 = 3400000

Else

If Combo2 = "Caw" Then

    Text6 = 1200000

    Text7 = 1200000 * 3

Else

Text6 = 350000

Text7 = 350000 * 12

End If

End If

Text8 = Val(Text4) + Val(Text5) + Val(Text7)

End Sub

Private Sub Command1_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Combo1 = Clear

Combo2 = Clear

Text1.SetFocus

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Text1_Change()

If Not IsNumeric(Text1.Text) Then Text1 = Clear

If Len(Text1.Text) = 10 Then Text2.SetFocus

End Sub

Private Sub Text2_Change()

Dim posisi As String

posisi = Text2.SelStart

Text2 = StrConv(Text2, vbProperCase)

Text2.SelStart = posisi

End Sub

Private Sub Timer1_Timer()

JM = Format(Now(), "hh:mm:ss")

JM.ForeColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

Form1.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

End Sub