Tugas AP1B Visual Basic

Unknown | ,Selasa, November 11, 2014 |

TUGAS ALGORITMA PEMROGRAMAN 1 B

Disusun Oleh :

NAMA : DIAH AYU SETIANI

NPM : 2D114282

KELAS : 1KB05

Coding Visual Basic:

- Logika dari Coding Berikut yaitu untuk mengosongkan Seluruh textbox dan Button yang terdapat pada Form.

- Jika ingin mengosongkan Textbox dan labelnya yaitu dengan symbol (=””)

- Untuk Field dan button gunakan symbol (=False)

Private Sub CMDBERSIH_Click()

TXTNAMA.Text = ""

TXTKELAS.Text = ""

LBLKELAS.Caption = ""

TXTHARGA.Text = ""

TXTJUMLAH.Text = ""

TXTTOTAL.Text = ""

OPTYOGYA.Value = False

OPTSOLO.Value = False

OPTSBY.Value = False

TXTNAMA.SetFocus

End Sub

- Coding dibawah ini untuk tanda Keluar.

- Jika di klik,maka akan memunculkan tab berjudul Informasi.

- Dan terdapat tulisan (MAU KELUAR YAA...?)

- Jika di Klik yes maka akan keluar dari program. Berikut codingnya :

Private Sub CMDKELUAR_Click()

S = MsgBox("MAU KELUAR YAA...?", vbQuestion + vbYesNo, "INFORMASI")

If S = vbYes Then

End

End If

End Sub

- Coding dibawah ini berupa harga (nilai) pada Harga Tiket.

- jika kita memberikan angka 1 sampai 3. Jika kita memberikan angka 1 pada TXTHARGA maka akan keluar 310000 pada TXTKELAS.

- Coding pada bagian OPTSOLO dan OPTYOGYA,prinsip dasarnya sama dengan yg sudah dijelaskan. Yang membedakan hanya harganya. Berikut Codingannya :

Private Sub OPTSBY_Click()

If TXTKELAS.Text = "1" Then

TXTHARGA.Text = 310000

ElseIf TXTKELAS.Text = "2" Then

TXTHARGA.Text = 250000

Else

TXTHARGA.Text = 170000

End If

End Sub

- Coding dibawah berfungsi untuk menampilkan jumlah harga yang harus dibayar.

- Jumlah harga didapat dari TXTHARGA (harga per tiketnya) dikalikan dengan TXTJUMLAH (banyaknya tiket yang dipesan). Berikut Codingannya.

Private Sub TXTJUMLAH_Change()

TXTTOTAL.Text = Val(TXTHARGA.Text) * Val(TXTJUMLAH.Text)

End Sub

- Coding diatas untuk menampilkan label dari nama kelas kereta yg dipesan.

- Jika pada TXTKELAS ditulis 1,maka label LBLKELAS akan menampilkan (EXECUTIVE).

- Jika pada TXTKELAS ditulis 2,maka label LBLKELAS akan menampilkan (BISNIS).

- Jika pada TXTKELAS ditulis 3,maka LBLKELAS akan menampilkan (EKONOMI).

- Jika pada TXTKELAS ditulis selain 1,2,dan 3,maka LBLKELAS akan menampilkan (SALAH INPUT)

Private Sub TXTKELAS_Change()

If TXTKELAS.Text = "1" Then

LBLKELAS.Caption = "EXECUTIVE"

ElseIf TXTKELAS.Text = "2" Then

LBLKELAS.Caption = "BISNIS"

ElseIf TXTKELAS.Text = "3" Then

LBLKELAS.Caption = "EKONOMI"

Else

LBLKELAS.Caption = "SALAH INPUT"

End If

End Sub

1. Output :

a. 6

b. 1 1

1 2

2 1

2 2

c. Lulus

d. TOLAK !

TOLAK !

TOLAK MENCONTEK !

e. A. INGAT!INGAT!

B. Let B$(J) = B$(5) + B$(4) + B$(3) + B$(2) + B$(1)

2. Jenis – jenis Variabel dalam basic..

Setiap data yang disimpan dalam komputer memerlukan variabel sebagai sesuatu tempat untuk menyimpan nilai dari data tersebut, dan nilainya suatu variable dapat berubah-ubah selama proses program.misalnya kita bisa menyimpan nilai ujian mid di variable A dan nilai ujian akhir di variable B, dan setiap mahasiswa nilainya pasti berbeda.

Dalam penamaan sebuah variable tidak boleh ada 2 atau lebih variabel yang memiliki nama yang sama, pemberian nama variabel harus unik. Hal ini bertujuan agar tidak terjadi kesalahan pada program.

Dalam visual basic dikenal adanya istilah variabel lokal dan variabel global :

a. Variabel lokal yaitu variabel yang hanya dikenal pada satu bagian program saja, nilai data yang terdapat di dalamnya hanya hidup ketika bagian program tersebut dijalankan.

b. Variabel global yaitu variabel yang dikenal pada seluruh bagian program dan waktu hidupnya selama program dijalankan.

Selain itu masih ada aturan-aturan dalam penamaan sebuah variable yaitu sebagai berikut :

a. Tidak boleh lebih dari 255 karakter

b. Nama harus unik tidak boleh menggunakan kata yang sudah digunakan dalam visual basic, seperti dim, procedure, dll.

c. Tidak boleh menggunakan spasi atau tanda titik/dot (.) diantara kata jika nama variabel lebih dari satu kata

d. Harus dimulai dari huruf , bukan angka atau karakter lainnya

Bentuk umum untuk mendeklarasikan sebuah variabel :

Dim/Public/Private/Static NamaVariabel As TipeData

Misalnya :

Dim sngAngka As Single

Dim strText As String

Dim dblBilangan As Double

Untuk sebuah variabel agar bisa digunakan di seluruh bagian program, harus dideklarasikan secara publik contohnya sebagai berikut :

Public strNama As String

Untuk memanggil variabel public perlu disertai nama form tempat variabel di deklarasikan. Misalnya kita mendeklarasikan variabel public di form1 maka untuk memanggilnya dari form2 caranya adalah sebagai berikut :

nama = form1.strNama

variabel lokal hanya bisa digunakan pada bagian program dimana variabel tersebut dideklarasikan, sebaliknya variabel global bisa digunakan di seluruh bagian program.

3. Tipe-tipe data yang terdapat dalam visual basic antara lain :

a. Integer, long : tipe data untuk angka bulat

b. Single, double : tipe data untuk angka pecahan/desima

c. Currency : tipe data untuk angka mata uang

d. String : tipe data untuk teks

e. Boolean : tipe data logika ( True/False)

f. Date : tipe data waktu/tangggal

g. Object : tipe data untuk sebuah objek misalnya gambar

h. Variant : tipe data variant

4. Jenis Operator Pada VB :

A. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang digunakan :

Simbol Operasi Matematis Contoh

^	pemangkatan	5 ^ 2 hasilnya 25
*	perkalian	5 * 2 hasilnya 10
/	pembagian (hasil pecahan)	5 / 2 hasilnya 2,5
\	pembagian (hasil bulat)	5 \ 2 hasilnya 2
mod	sisa pembagian	5 Mod 2 hasilnya 1
+	penjumlahan	5 + 2 hasilnya 7
-	pengurangan	5 – 2 hasilnya 3
&	penggabungan string	5 & 2 hasilnya 52