Membuat data mahasiswa menggunakan visual basic

NAMA KOMPONEN	PROPERTIES	NILAI
Label1	Caption	Nama
Label2	Caption	Npm
Command1	Caption Nama	Proses cmdproses
Frame1	Caption	Keterangan
Label3	Caption	Jurusan
Label4	Caption	Program Study
Label5	Caption	Tahun Masuk
Label6	Caption	Nomor Urut
Label7	Caption	Biaya Pendidikan
Command2	Caption Nama	LagiCmdlagi
Command3	Caption Nama	Batal Cmdbatal
Command4	Caption Nama	Keluar cmdkeluar
Text1	Text Nama	– txtnama
Text2	Text Nama	– txtinput
Text3	Text Nama	– Txtjurusan
Text4	Text Nama	– txtpstudy
Text5	Text Nama	– Txttahun
Text6	Text Nama	– txturut
Text7	Text Nama	– txtbp

 

KETENTUAN :

Sampel : XXYZZVVV

XX = Tahun Masuk

Y = jurusan

ZZ = Program Study

VVV = Nomor Urut

 

JURUSAN :

1 = Sistem Informasi

2 = Teknik Informatika

3 =  M. Informatika

4 = M. Komputer Akutansi

 

PROGRAM STUDY :

01 = strata satu

Biaya Pendidikan = Rp 1.950.000

02 = Diploma Empat

Biaya Pendidikan = Rp 1.750.000

03 = Diploma Tiga

Biaya Pendidikan = Rp 1.650.000

04 = Diploma Dua

Biaya Pendidikan = Rp 1.450.000

SOURCE CODE

Private Sub cmdbatal_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtnama.Text = ""
txtinput.Text = ""
txtjurusan.Text = ""
txtpstudy.Text = ""
txttahun.Text = ""
txturut.Text = ""
txtbp.Text = ""
txtnama.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = "20" & Left(txtinput.Text, 2)
s = Mid(txtinput.Text, 3, 1)
If s = "1" Then
txtjurusan.Text = "sistem informasi"
ElseIf s = "2" Then
txtjurusan.Text = "teknik informatika"
ElseIf s = "3" Then
txtjurusan.Text = "M.Informatika"
ElseIf s = "4" Then
txtjurusan.Text = "M.Komputer Akutansi"
End If
s = Mid(txtinput.Text, 4, 2)
If s = "01" Then
txtpstudy.Text = "strata satu"
txtbp.Text = "1950000"
ElseIf s = "02" Then
txtpstudy.Text = "Diploma Empat"
txtbp.Text = "1750000"
ElseIf s = "03" Then
txtpstudy.Text = "Diploma Tiga"
txtbp.Text = "1650000"
ElseIf s = "04" Then
txtpstudy.Text = "Diploma Dua"
txtbp.Text = "1450000"
End If
txturut.Text = Right(txtinput.Text, 3)
End Sub
Private Sub Form_Activate()
txtnama.SetFocus
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtinput.SetFocus
End If
End Sub

Catatan :

• copy paste-kan source code di atas ke word terlebih dahulu apabila terjadi eror pada saat memasukan code
• lalu copy source code yg ada di word lalu paste ke coding visual basic.

SELESAI….