Input Data Mahasiswa Perpindahan Form

Dibuat oleh
  Folman (080840028)
  Rinaldi  (080840020)
  Senri     (080840019)
  Berliana (080840008)

Tampilann Awal Form

 

Jika Didadalam kolom Nim diisi dengan huruf maka akan mengeluarkan sebuah pemberitahuan bahwa huruf tidak dapat diisi dalam NIM Seperti gambar berikut

Dan jika kita mencoba memasukkan dengan Angka tetapi tidak sama dengan 9 maka akan ada pingatan bahwa yang didisi panjangnya harus sama dengan 9seperti gambar berikut

Samahalnya dengang pengisian nama jika kita mencoba untuk memasukkan dengan angka maka akan ada pemberitahuan bahwa data yang diinput harus huruf seperti gambar beriku

Jika dalam pengisian nama kita mencoba memasukkan dengan huruf tetapi panjangnya lebih dari 20 maka akan ada pepmberitahuan bahwa dalam pengisian nama hanya diperbolehkan maksimal 20 karakter saja seperti gambar berikut

Setelah selesai memasukkan data NIM,Nama Dan Alamat maka Botton Rekam Data Akan aktif seperti gambar berikut

Selanjutnya setelah kita menekan Botton Rekam Data maka Akan menuju form2 yang menyatakan bahwa data sudah direkam

 

dan setelah kita Menekan tombol Tampilan akan menuju form 3 yaitu form output data mahasiswa seperti gambar berikut

Source Code untuk Form Input data mahasiswa

Private Sub Command1_Click()
Form1.Visible = False
Form2.Show
Form2.Label2 = "DATA SUDAH DIREKAM"
Form2.Command1.SetFocus
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text2.Enabled = False
Text3.Enabled = False
Option1.Value = True
Text1.SetFocus
End Sub
Private Sub Form_Load()
Text4.Visible = False
Text2.Enabled = False
Text3.Enabled = False
Command1.Enabled = False
Option1.Value = True
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
 Text4.Text = "pria"
 End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
 Text4.Text = "wanita"
 End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then
    MsgBox "NIM harus diisi"
 ElseIf Not IsNumeric(Text1.Text) Then
    MsgBox "data yang dimasukkan harus angka", vbOKOnly, "pesan system"
    ElseIf Len(Text1.Text) <> 9 Then
      MsgBox "NIM Harus 8", vbOKOnly, "Pesan system"
 Else
 Text2.Enabled = True
 Text2.SetFocus
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 If Text2.Text = "" Then
  MsgBox "Nama harus Diisi"
  ElseIf IsNumeric(Text2.Text) Then
 MsgBox "data yang dimasukkan hanya huruf", vbOKOnly, "pesan system"
 ElseIf Len(Text2.Text) = 35 Then
 MsgBox "Nama Maxsimum 20", vbOKOnly, "pesan sytem"
 Else
 Text3.Enabled = True
 Text3.SetFocus
End If
End If
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 If Text3.Text = "" Then
 MsgBox " Alamat harus Diisi"
 Else
 Option1.Value = True
Command1.Enabled = True
Command1.SetFocus
End If
End If
End Sub

Source Code untuk Form 2 yaitu Rekam Data

Private Sub Command1_Click()
Form2.Visible = False
Form3.Show
Form3.Text1.Text = Form1.Text1.Text
Form3.Text2.Text = Form1.Text2.Text
Form3.Text3.Text = Form1.Text3.Text
Form3.Text4.Text = Form1.Text4.Text
Form3.Command1.SetFocus
End Sub

Source Code untuk Form output data mahasiswa

Private Sub Command1_Click()
End
End Sub

Data Mahasiswa Sederhana

penginputan data mahasiswa dan membuat keluarannya dalam satu form

Setelah program dieksekusi maka akan diminta untuk memasukkan data mahasiswa sebagai contoh kita menginput data dengan nim 08084009999, nama kelompok VB nilai tugas 70, nilai uts 80, dan nilai uas 80

Setelah menekan tombol proses atau Alt+P maka akan menghasilkan output seperti dibawah ini

Listing Program di atas kami sertakan dibawah ini

TYPE DATA

Dalam Visual Basic ada 11 jenis data yang berbeda. Yaitu, Boolean, Byte, Currency, Date, Double, Integer, Long, Object, Single, String, dan variant. Mereka masing-masing memiliki tujuan tertentu dan menggunakan mereka dengan benar akan meningkatkan kinerja program-program anda. Aku akan menutupi tipe data yang paling seringdigunakan.

    • Boolean
Tipe data Boolean hanya memiliki dua negara, Benar dan Salah. Jenis variabel ini disimpan sebagai 16-bit (2 Byte) angka, dan biasanya digunakan untuk bendera. Sebagai contoh, katakanlah Anda memiliki sebuah textbox (Text1) dan tombol perintah (Command1). Anda hanya ingin Command1 menjadi Diaktifkan bila ada teks dalam Text1. Anda akan melakukan sesuatu seperti ini ...

    Private Sub Form_Load ()
    Command1.Enabled = False 'Menonaktifkan Command1
    Text1.Text = vbNullString 'Set Text1 = ""
    End Sub

    Private Sub Text1_Change ()
    Dim bEnable Sebagai Boolean
    Jika Text1.Text <> "" Lalu bEnable = True
    Command1.Enabled = bEnable
    End Sub

Jalankan program dan Command1 hanya akan diaktifkan bila ada teks diketik ke dalam Text1.

    • Byte
Tipe data Byte adalah variabel 8-bit yang bisa menyimpan nilai dari 0 sampai 255. Tipe data ini sangat berguna untuk menyimpan data biner. Hal ini juga bisa sangat berguna bila mengirim / menerima nilai byte ke / dari Stempel Basic atau PIC.

    • Double
Tipe data Double adalah angka point 64-bit floating digunakan ketika diperlukan akurasi yang tinggi. Variabel ini dapat berkisar dari-1.79769313486232e308 ke-4.94065645841247e-324 untuk nilai negatif dan dari 4.94065645841247e-324 untuk 1.79769313486232e308 untuk nilai positif.

    • Integer
Tipe data Integer adalah angka 16-bit yang bisa berkisar -32.768-32.767. Integer harus digunakan bila Anda bekerja dengan nilai-nilai yang tidak dapat berisi angka-angka pecahan.

    • Long
Tipe data Long adalah angka 32-bit yang bisa berkisar dari -2147483648 sampai 2147483647. panjang variabel hanya dapat berisi nilai integer non-pecahan. Saya sendiri menggunakan variabel panjang lebih dari Integer untuk meningkatkan kinerja. Sebagian besar fungsi Win32 menggunakan tipe data untuk alasan ini.

    • Single
Tipe data tunggal adalah angka 32-bit mulai dari-3.402823e38 ke-1.401298e-45 untuk nilai negatif dan dari 1.401298e-45 untuk 3.402823e38 untuk nilai positif. Ketika Anda membutuhkan angka-angka pecahan dalam kisaran ini, ini adalah tipe data untuk digunakan.

    • String
Tipe data String biasanya digunakan sebagai tipe variabel-variabel panjang. Variabel String panjang dapat berisi sampai kira-kira 2 milyar karakter. Masing-masing karakter memiliki nilai berkisar dari 0 hingga 255 berdasarkan set karakter ASCII. String digunakan ketika Teks yang terlibat.