Entry Pembayaran Kuliah

Langkah-Langkah:

1.Buka Microsoft Visual Basic 6.0

2.Pada tampilan dibawah ini :

3.Kemudian pilih standard.exe lalu klik open

4.Muncul gambar seperti ini

5. Pada menu Toolbox pilih Label,textbox,command,option,frame,dan checkbox

   * Buat 3 label pada latihan text box

   - pada label1,pilih caption dan ganti nama dengan Entry Pembayaran Kuliah

   - pada label2,pilih caption dan ganti nama dengan Nama Mahasiswa

   - pada label3,pilih caption dan ganti nama dengan Besar Pembayaran

    * Buat 3 textbox pada latihan text box

    -  Dari ke-tiga textboxt tersebut,pada caption nya dikosongkan

     * Buat 2 command pada latihan text box

     - pada command1,pilih caption dan ganti nama dengan Ulang

     - pada command2,pilih caption dan ganti nama dengan Close

   * Buat 3 option  pada latihan text box

   - pada option1,pilih caption dan ganti nama dengan TI

   - pada option2,pilih caption dan ganti nama dengan SI

   - pada option3,pilih caption dan ganti nama dengan SK

   * Buat 3 frame pada latihan text box

   - pada frame1,pilih caption dan ganti nama dengan Jurusan

   - pada frame2,pilih caption dan ganti nama dengan Jenis Pembayaran

   - pada frame3,pilih caption dan ganti nama dengan Tools

   * Buat 5 checkbox pada latihan text box

   - pada checkbox1,pilih caption dan ganti nama dengan BPP

   - pada checkbox2,pilih caption dan ganti nama dengan Bangunan

   - pada checkbox3,pilih caption dan ganti nama dengan KKP

   - pada checkbox4,pilih caption dan ganti nama dengan TA

   - pada checkbox5,pilih caption dan ganti nama dengan Wisuda

Jadinya seperti ini :

6. Lalu klik 2x pada command1/Ulang

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Check1.Value = 0

Check2.Value = 0

Check3.Value = 0

Check4.Value = 0

Check5.Value = 0

Text1.SetFocus

End Sub

7.Lalu klik 2x pada command 2/Close      

    * Isikan formnya seperti ini :

Private Sub Command2_Click()

Unload Me

End Sub

     

8. Lalu klik 2x pada option1/TI       

    * Isikan formnya seperti ini :

Private Sub Option1_Click()

Text2.Text = "Teknik Informatika"

End Sub

9. Lalu klik 2x pada option2/SI       

    * Isikan formnya seperti ini :

          Private Sub Option2_Click()

Text2.Text = "Sistem Informasi"

End Sub

10. Lalu klik 2x pada option3/SK    

    * Isikan formnya seperti ini :

Private Sub Option2_Click()

Text2.Text = "Sistem Komputer"

End Sub

11.  Lalu klik 2x pada checkbox1/BPP     

    * Isikan formnya seperti ini :

Private Sub Check1_Click()

Dim BPP, Pembangunan, KKP, TA, Wisuda As Single

Dim BIAYA As Long

If Check1.Value = 1 Then

BPP = 100000

Else

BPP = 0

End If

If Check2.Value = 1 Then

Pembangunan = 2000000

Else

Pembangunan = 0

End If

If Check3.Value = 1 Then

KKP = 200000

Else

KKP = 0

End If

If Check4.Value = 1 Then

TA = 100000

Else

TA = 0

End If

If Check5.Value = 1 Then

Wisuda = 500000

Else

Wisuda = 0

End If

BIAYA = BPP + Pembangunan + KKP + TA + Wisuda

Text3.Text = BIAYA

End Sub

12.  Lalu klik 2x pada checkbox2/Bangunan      

    * Isikan formnya seperti ini :

Private Sub Check2_Click()

Dim BPP, Pembangunan, KKP, TA, Wisuda As Single

Dim BIAYA As Long

If Check1.Value = 1 Then

BPP = 100000

Else

BPP = 0

End If

If Check2.Value = 1 Then

Pembangunan = 2000000

Else

Pembangunan = 0

End If

If Check3.Value = 1 Then

KKP = 200000

Else

KKP = 0

End If

If Check4.Value = 1 Then

TA = 100000

Else

TA = 0

End If

If Check5.Value = 1 Then

Wisuda = 500000

Else

Wisuda = 0

End If

BIAYA = BPP + Pembangunan + KKP + TA + Wisuda

Text3.Text = BIAYA

End Sub

13.  Lalu klik 2x pada checkbox3/KKP     

    * Isikan formnya seperti ini :

     Private Sub Check3_Click()

Dim BPP, Pembangunan, KKP, TA, Wisuda As Single

Dim BIAYA As Long

If Check1.Value = 1 Then

BPP = 100000

Else

BPP = 0

End If

If Check2.Value = 1 Then

Pembangunan = 2000000

Else

Pembangunan = 0

End If

If Check3.Value = 1 Then

KKP = 200000

Else

KKP = 0

End If

If Check4.Value = 1 Then

TA = 100000

Else

TA = 0

End If

If Check5.Value = 1 Then

Wisuda = 500000

Else

Wisuda = 0

End If

BIAYA = BPP + Pembangunan + KKP + TA + Wisuda

Text3.Text = BIAYA

End Sub

14.  Lalu klik 2x pada checkbox4/TA

    * Isikan formnya seperti ini :

          Private Sub Check4_Click()

Dim BPP, Pembangunan, KKP, TA, Wisuda As Single

Dim BIAYA As Long

If Check1.Value = 1 Then

BPP = 100000

Else

BPP = 0

End If

If Check2.Value = 1 Then

Pembangunan = 2000000

Else

Pembangunan = 0

End If

If Check3.Value = 1 Then

KKP = 200000

Else

KKP = 0

End If

If Check4.Value = 1 Then

TA = 100000

Else

TA = 0

End If

If Check5.Value = 1 Then

Wisuda = 500000

Else

Wisuda = 0

End If

    

BIAYA = BPP + Pembangunan + KKP + TA + Wisuda

Text3.Text = BIAYA

End Sub

15.  Lalu klik 2x pada checkbox5/Wisuda 

    * Isikan formnya seperti ini :

          Private Sub Check5_Click()

Dim BPP, Pembangunan, KKP, TA, Wisuda As Single

Dim BIAYA As Long

If Check1.Value = 1 Then

BPP = 100000

Else

BPP = 0

End If

If Check2.Value = 1 Then

Pembangunan = 2000000

Else

Pembangunan = 0

End If

If Check3.Value = 1 Then

KKP = 200000

Else

KKP = 0

End If

If Check4.Value = 1 Then

TA = 100000

Else

TA = 0

End If

If Check5.Value = 1 Then

Wisuda = 500000

Else

Wisuda = 0

End If

BIAYA = BPP + Pembangunan + KKP + TA + Wisuda

Text3.Text = BIAYA

End Sub

Setelah Mengikuti Tutorial Di-Atas

Cobalah anda klik “ F5 “ (Play)

Apakah berhasil atau tidak.

Inilah contoh program yang telah berhasil