Program kelulusan seseorang

CODINGAN KELULUSAN SESEORANG MENGGUNAKAN PROGRAM VISUAL BASIC 6.0

Program ini terdiri dari kolom Nama, Nilai, dan command button ( Go, Reset, Exit), berikut codingannya :

1. Codingan pada command button "Go" adalah seperti berikut :

    Private Sub Command1_Click()

      Dim NILAI As Single

      NILAI = Text2.text

      If NILAI >= 60 Then MsgBox (“SELAMAT ANDA LULUS”) Else MsgBox 

     (“GAGAL, COBA LAGI”)

      End Sub

     *NB : nilai bisa diubah sesuai dengan keinginan

2. Codingan pada command button "Reset" adalah seperti berikut :

    Private Sub Command2_Click()

      Text1.Text = “ “

      Text2.Text = “ “

      Text1.SetFocus

      End Sub           

3. Codingan pada command button "Exit" adalah seperti berikut :

    Private Sub Command3_Click()

      End

      End Sub

Selesai sudah, terimakasih selamat mencoba :)