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.

DEFENISI VISUAL BASIC

Visual Basic merupakan cara termudah dan tercepat untuk membuat aplikasi yang dijalankan di sistem operasi Microsoft Windows®. Apakah Anda seorang profesional atau pemula sekalipun di bidang pemrograman Windows, Visual Basic menyediakan kepada Anda sekumpulan perangkat untuk mempermudah dan menyederhanakan pengembangan aplikasi yang tangguh.

Lalu apa sebenarnya definisi dari Visual Basic itu sendiri? Kata “Visual” merujuk kepada metode yang digunakan untuk membuat antar muka yang bersifat grafis Graphical User Interface (GUI). Daripada menulis berbaris-baris kode untuk menjelaskan pemunculan dan lokasi dari suatu elemen di dalam antar muka, Anda dengan mudah dapat menambahkan object yang sebelumnya sudah dibangun ke dalam tempat dan posisi yang Anda inginkan di layar Anda. Jika Anda pernah menggunakan program untuk menggambar seperti Paint, maka Anda sebenarnya sudah memiliki keahlian uuntuk membuat sebuah antar muka pengguna secara efektif.

Kata “Basic” merujuk kepada bahasa BASIC (Beginners All-Purpose Symbolic Instruction Code), sebuah bahasa yang digunakan oleh banyak programmer dibandingkan dengan bahasa lainnya dalam sejarah komputer. Visual Basic telah berubah dari bahasa asli BASIC dan sekarang memiliki ratusan pernyataan (statements), fungsi (functions), dan kata kunci (keywords), dan kebanyakan di antaranya terkait dengan antar muka grafis di Windows. Pengguna tingkat pemula sekalipun dapat membuat aplikasi dengan mempelajari hanya beberapa kata kunci, sementara kekuatan dari bahasanya membolehkan para pengguna tingkat professional mencapai apapun yang dapat dihasilkan dengan menggunakan bahasa pemrograman Windows lainnya.

Bahasa pemrograman Visual Basic tidaklah hanya identik dengan Visual Basic saja. Sistem Pemrograman Visual Basic dalam bentuk Edisi Aplikasi, telah dimasukkan ke dalam Microsoft Excel, Microsoft Access, dan banyak aplikasi Windows lainnya juga menggunakan bahasa yang sama. Visual Basic Scripting Edition (VBScript) adalah sebuah bahasa skrip yang digunakan secara lebih umum dan merupakan bagian dari bahasa Visual Basic. Dengan mempelajari Visual Basic, maka Anda akan dibawa ke area-area yang telah disebutkan tadi.

Apakah tujuan Anda untuk membuat sebuah utility sederhana untuk diri Anda sendiri atau untuk kelompok kerja Anda, sebuah sistem berskala perusahaan, atau bahkan aplikasi yang terdistribusi melalui Internet, Visual Basic memilik perangkat yang Anda butuhkan.

Fitur Data Access membolehkan Anda untuk membuat database, aplikasi front-end, dan komponen di sisi server (scalable server-side components) untuk hampir semua format database yang terkenal, termasuk Microsoft SQL Server dan database level perusahaan lainnya.

Teknologi ActiveX™ membolehkan Anda untuk menggunakan fungsionalitas yang disediakan oleh aplikasi-aplikasi lainnya, seperti pengolah kata Microsoft Word, Microsoft Excel spreadsheet, dan aplikasi Windows lainnya. Anda bahkan dapat mengotomatisasikan aplikasi-aplikasi dan objek-objek yang dibuat dengan menggunakan edisi Professional atau Enterprise Visual Basic.

Kemampuan Internet membuatnya mudah menyediakan pengaksesan ke dokumen-dokumen atau file-file dan aplikasi-aplikasi melalui Internet atau intranet dari dalam aplikasi Anda, atau untuk membuat aplikasi Internet server.

Aplikasi akhir Anda nantinya akan berbentuk sebuah file .exe yang menggunakan Visual Basic Virtual Machine dan dapat Anda distribusikan secara bebas.
http://www.visualbasicindonesia.com/definisi-visual-basic/ 

Kelompok vb semester v

Nama : Rinaldi ST. Sipayung                 (080840020)
            Folman  K Manurung                (080840028)
            Berliana Hutapea                       (080840008)
            Senri Sianipar                            (080840019)