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
|
B. Operator
Perbandingan digunakan untuk operasi yang membandingkan nilai data.
Simbol-simbol yang digunakan :
Simbol Operasi
Perbandingan Contoh
< lebih
kecil 5 < 2 hasilnya FALSE
> lebih
besar 5 > 2 hasilnya TRUE
<=
lebih kecil atau sama dengan 5 <= 2 hasilnya FALSE
>=
lebih besar atau sama dengan 5 >= 2 hasilnya TRUE
= sama
dengan 5 = 2 hasilnya FALSE
<>
tidak sama dengan 5 <> 2 hasilnya TRUE
C. Operator
Logika digunakan untuk operasi yang membandingkan suatu perbandingan.
Simbolsimbol yang digunakan :
Simbol Operasi
Logika Contoh
Or atau (5 <
2) Or (5 > 2) hasilnya TRUE
And dan (5 <
2) And (5 > 2) hasilnya FALSE
Not Tidak Not (5
< 2) hasilnya TRUE
0 komentar:
Posting Komentar