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….

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

.

tips & trik | sharing | tutorial blog

tips & trik | sharing | tutorial blog

alian dika.stmikpswu

tips & trik | sharing | tutorial blog

CARI - CARI

tips & trik | sharing | tutorial blog

%d blogger menyukai ini: