LA Prakrikum ke-1 Lab TI

LAPORAN AKHIR

Mata Praktikum    :           Algoritma dan Pemrograman 2A (AP 2A)

Kelas                     :           1IA16

Praktikum Ke-      :           1 (Satu)

Tanggal                 :           2 April 2014

Materi                     :           Pengenalan VB

NPM                       :           59413607

Nama                     :           Yunita Rahman

Ketua Asisten      :

Nama Asisten      :           Febrian Reza

Paraf Asisten       :

Jumlah Lembar    :           8 Lembar

LABORATORIUM TEKNIK INFORMATIKA

UNIVERSITAS GUNADARMA

2014

Membuat Program Sederhana pada Visual Basic

Analisa Program :

Membuat program menggunakan Microsoft Visual Basic 6.0. Program ini dibuat menggunakan kondisi percabangan If Then Else. Program sederhana ini mengenai jenis-jenis olahraga yang terdapat pada Group Olahraga tersebut.

Berikut adalah langkah-langkah permulaan program Visual Basic

Langkah awal :

START > All Programs > Microsoft Visual Basic 6.0 > Microsoft Visual Basic 6.0

Lalu akan muncul tampilan awal Visual Basic dengan beberapa fitur-fiturnya. Dapat kita lihat pada gambar dibawah ini :

Ketika visual basic 6.0 telah terbuka maka :

1.    Tahap pertama yaitu klik tools Label. Lalu kita membuat Label pada form1, yaitu pada label 1  ketik Group Olahraga untuk judul. Lalu label 2 ketik Group untuk keterangan input yang akan dimasukan. Lalu sebelum membuat label ke 3 pilih ikon frame lalu ketik Ketentuan, kemudian baru buat label 3 yang berisikan Harus Menggunakan Huruf Besar. Pada label 4 juga klik ikon frame lalu ketik Anggota Grup.

2.    Setelah itu kita membuat 4 TextBox pada form yang akan digunakan untuk memasukan data Group dan menampilkan Anggota Grup  yang dihasilkan (Output). Pada TextBox 1 (memasukkan data Group). Pada TextBox 2, TextBox 3, dan TextBox 4 (Anggota Grup jenis olahraga yang akan ditampilkan).

3.    Selanjutnya  membuat tombol Proses pada tools CommandButton dengan mengklik ikon CommandButton, ganti namanya dengan memilih Properties CommandButton lalu pilih Caption.

Atur sesuai keinginan penempatan, lalu akan seperti pada tampilan berikut.

  

 Pembuatan sintaks pada Visual Basic

Setelah form1 selesai dibuat lalu ke tahap selanjutnya yaitu membuat Project1-Form1(Code) pada program tersebut.

Langkah pembuatan sintaks :

1.   Double klik tombol Command Button. Yang selanjutnya kita masukan program yang akan dijalankan.

Membuat sintaks tombol Proses

Dalam pembuatan sintaks tombol Proses, kita membuat logikanya dengan memahami sintaks yang ada. Tombol ini dimaksudkan agar memasukkan inputan dari input Group kita akan mengolahnya dengan logika sintaks yang akan diberikan. Pembuatan sintaksnya  yaitu dengan cara :  

klik pada tombol Proses lalu ketik:

Private Sub Command1_Click()

If Group = "A" Then

    olahraga1.Text = "1. Sepakbola"

    olahraga2.Text = "2. Sepak Takraw"

    olahraga3.Text = "3. Futsal"

ElseIf Group = "B" Then

    olahraga1.Text = "1. Bulu Tangkis"

    olahraga2.Text = "2. Tenis Meja"

    olahraga3.Text = "3. Tenis"

ElseIf Group = "C" Then

    olahraga1.Text = "1. Lari Marathon"

    olahraga2.Text = "2. Lompat Jauh"

    olahraga3.Text = "3. Lompat Tinggi"

ElseIf Group = "D" Then

    olahraga1.Text = "1. Voli"

    olahraga2.Text = "2. Baseball"

    olahraga3.Text = "3. Basket"

ElseIf Group = "E" Then

    olahraga1.Text = "1. Golf"

    olahraga2.Text = "2. Billiard"

    olahraga3.Text = "3. Catur"

Else

    MsgBox "Maaf data yang anda input tidak benar"

End If

End Sub

Private Sub Group_Change()

Group.MaxLength = 1

End Sub

2.      Selanjutnya deklarasikan TextBox pada (text1) dan sebagai perintah If Then Else, yang nantinya perintah di selanjutnya akan di laksanakan sampai bertemu perintah If Then Else berikutnya ataupun bertemu perintah End If. Perintah akan berjalan sampai menemukan perintah yang diperintahkan. Jika perintah terpenuhi, program langsung mencabang ke End If.

3.      Pendeklarasian perintah pada pemrograman sintaks yang akan dijalankan.

Perintah :

Private Sub Command1_Click()

If Group = "A" Then

olahraga1.Text = "1. Sepakbola"           olahraga2.Text = "2. Sepak Takraw"    olahraga3.Text = "3. Futsal"                 

output akan muncul pada TextBoxt 2

output akan muncul pada TextBoxt 3

output  akan muncul pada TextBoxt 4

Penulisan sintaks pada program visual basic terdapat gambar berikut ini.

Menjalankan Program yang telah dibuat pada Visual Basic

Setelah sintaks program selesai dibuat, maka jalan program dengan cara tekan F5 atau klik tombol run. Maka program akan jalan seperti tampilan gambar pada berikut ini. Lalu input data pada TextBoxt1 ( Group ) misalnya ketik B.

 Jika input data pada Group salah atau tidak sesuai pada data yang ada di program maka akan tampil gambar seperti berikut.

Output Program

Setelah memasukan input data B pada TextBox1 tekan tombol Proses maka akan muncul data Anggota Grup pada TextBox2, TextBox3, dan TextBox4 seperti gambar berikut.