Sistem Komputer: Januari 2015

Tutorial Visual Basic (Membuat Data Base)

Membuat Data Base

1. Buka program VISUAL BASIC

2. Klik kanan pada toolbox, pilih components dan tambahkan toolbox Adodc dan DataGrid

3. Buat tampilan form seperti gambar berikut menggunakan toolbox Adodc dan DataGrid

4. Pilih menu add-ins dan pilih visual data manager

5. Pilih menu file > new > microsoft acces > version 7.0

6. Pada DatabaseWindow klik kanan dan pilih new table

7. Muncul Table Structure, masukkan nama Tabel (disini digunakan kata "Dosen") pada TableName lalu klik Add Field

8. Masukkan satu persatu pada isian Name ”kode_dosen”, “nama_dosen”, dan “alamat_dosen”, klik ok

9. Doublel klik pada tabel Dosen,klik add dan masukkan 10 data dosen

10. Klik kanan pada abel adodc1 pilih ”ADODC properties”. Setelah itu muncul property pages

11. Pilih “use connection string”, pilih file yang sudah di buat dan pilih build. akan muncul “data link properties” dan klik “test connection” sampai tampil “Test Connection Succeded”

12. Pada ADODC properties pilih “RecordSource” ubah pilihan pada comand type menjadi “2-adCmdTable” dan pada Table or stored procedure menjadi “Dosen”, klik Ok

13. Setelah itu di bagian kanan layarada gambar seperti dibawah, ubah datasource menjadi Adodc1

14. Run program yag telah di buat

15. Output Program:

16. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

Tutorial Visual Basic (Membuat Aplikasi Penghitung Luas Lingkaran)

Membuat Aplikasi Penghitung Luas Lingkaran

1. Membuat tampilan aplikasi dengan menyusun beberapa Label, TextBox, dan CommandButton,seperti gambar di bawah ini:

2. Double klik pada CommandButton “HITUNG” dan masukkan syntax:

Private Sub Command1_Click()
Text2.Text = 3.14 * (Val(Text1.Text) ^ 2)
End Sub

3. Double klik pada CommandButton “HAPUS” dan masukkan syntax:

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

4. Double klik pada CommandButton ”KELUAR” dan masukkan syntax:

Private Sub Command3_Click()
End
End Sub

5. Klik pada toolbar start atau Run

6. Masukkan Jari-jari lingkaran yang akan di hitung

7. Klik pada opsi “HITUNG” untuk menampilkan luas lingkaran

8. Untuk menghapus hasil, klik pada opsi “HAPUS”

9. Untuk menghentikan program, Klik pada opsi “KELUAR”

10. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

Tutorial Visual Basic (Membuat Aplikasi Penghitung Nilai Akhir)

Membuat Aplikasi Penghitung Nilai Akhir

1. Buat tampilan aplikasi dengan menyusun beberapa Label, TextBox, dan CommandButton,seperti gambar di bawah ini:

2. Double klik pada CommandButton “HASIL” dan masukkan syntax:

Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2
If Text3.Text >= 60 Then
Text4.Text = "LULUS"
Else
Text4.Text = "TIDAK LULUS"
End If
End Sub

3. Double klik pada Commandbutton “HAPUS” dan masukkan syntax:

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

4. Double klik pada CommandButton “KELUAR” dan masukkan syntax:

Private Sub Command3_Click()
End
End Sub

5. Klik pada toolbar Start atau Run

6. Masukkan Nilai UTS dan UAS

7. Klik pada opsi “HASIL” untuk melihat nilai rata-rata dan keterangan “LULUS/TIDAK LULUS”

8. Klik pada opsi “HAPUS” untuk menghapus data

9. Untuk menghentikan program, Klik pada opsi “KELUAR”

10. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

Tutorial Visual Basic (Membuat Teks Berwarna)

Membuat Teks Berwarna

1. Membuat tampilan aplikasi dengan menyusun beberapa Label, TextBox, CommandButton, Frame dan OptionButton seperti gambar di bawah ini:

2. Double klik pada CommandButton “OK” dan masukkan syntax:

Private Sub Command1_Click()
Label3.Caption = Text1.Text
End Sub

3. Kemudian double klik pada CommandButton “Hapus” dan masukkan syntax:

Private Sub Command2_Click()
Text1.Text = ""
End Sub

4. Pada CommandButton “KELUAR” double klik dan masukkan syntax:

Private Sub Command3_Click()
End
End Sub

5. Double klik pada OptionButton “MERAH” dan masukkan syntax:

Private Sub Option1_Click()
Label3.ForeColor = vbRed
End Sub

6. Double klik pada OptionButton “HIJAU” dan masukkan syntax:

Private Sub Option2_Click()
Label3.ForeColor = vbGreen
End Sub

7. Double klik pada OptionButton “KUNING” dan masukkan syntax:

Private Sub Option3_Click()
Label3.ForeColor = vbYellow
End Sub

8. Double klik pada OptionButton “BIRU” dan masukkan syntax:

Private Sub Option4_Click()
Label3.ForeColor = vbBlue
End Sub

9. Klik pada toolbar Start atau Run

10. Masukkan Teks yang akan di ubah warna font dengan memilih opsi warna yang telah di buat

11. Untuk menghapus, Klik pada opsi “HAPUS”

12. Untuk menghentikan program, Klik pada opsi “KELUAR”

13. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

Tutorial Visual Basic (Membuat Aplikasi Kalkulator)

Membuat Aplikasi Kalkulator Di Visual Basic

1. Buka program Visual Basic 6.0

2. Pada tampilan utama Visual Basic, Pilih standard EXE untuk memulai membuat aplikasi, kemudian klik Open

3. Setelah itu akan tampak tampilan form1 pada layar. Jika ingin membuat tulisan, klik Label pada menu toolbox. Untuk mengganti tulisan pada form pilih Caption

4. Kemudian tambahkan TextBox untuk memasukkan bilangan

5. Susun secara beraturan untuk mempermudah memasukan syntax pada tombol CommandButton

6. Tambahkan 4 CommandButton untuk tombol fungsi Penambahan, Pengurangan, Perkalian, dan Pembagian

7. Kemudian tambahkan Label untuk Hasil dan TextBox untuk tempat pengisian hasil perhitungan

8. Tambahkan CommandButton untuk Hapus, Untuk menghapus bilangan yang telah selesai di proses

9. Kemudian Klik 2 kali pada setiap CommandButton satu-persatu untuk memasukan syntax sebagai berikut :

•Pada CommandButton Penambahan ( + )

Text3.Text = Val(Text1) + Val(Text2)

•Pada CommandButton Pengurangan ( - )

Text3.Text = Val(Text1) - Val(Text2)

•Pada CommandButton Perkalian ( x )

Text3.Text = Val(Text1) * Val(Text2)

•Pada CommandButton Pembagian ( / )

Text3.Text = Val(Text1) / Val(Text2)

•Pada CommandButton Hapus

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

10. Jika semua syntax sudah di masukkan, klik pada toolbar start atau Run untuk menjalankan aplikasi yang sudah di buat

11. Selesai

Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma

Referensi link untuk Mahasiswa Universitas Gunadarma:

Tutorial Visual Basic (Membuat Menu Pop-Up/Editor)

Membuat Menu Pop-Up/Editor

1. Buka program visual basic

2. Buat beberapa form seperti nilai akhir, luas segitiga, luas lingkaran dan kalkulator

3. Untuk form terakhir buat tampilan menu pop-up

4. Pada form terakhir, Klik kanan pada tampilan awal lalu pilih menu editor