LAPORAN PRAKTIKUM PEMROGRAMAN KOMPUTER OPERASI FUNGSI STRING DALAM VISUAL BASIC 6.0
Oleh: A.Rizal Hamami A1H010024
KEMENTERIAN PENDIDIKAN NASIONAL UNIVERSITAS JENDERAL SOEDIRMAN FAKULTAS PERTANIAN PURWOKERTO 2011
I. PENDAHULUAN
A. Latar Belakang Fungsi adalah suatu prosedur yang dapat menerima berbagai nilai untuk kemudian diolah dan memberikan hasil sebagai umpan baliknya. Nilai yang dimasukkan ke dalam suatu fungsi disebut Parameter, yang dapat berupa berbagai jenis angka, string, dan sebagainya. Fungsi terdiri dari 3 jenis, yaitu fungsi string, fungsi matematik, dan fungsi tanggal dan jam. Fungsi string dan fungsi tanggal dan jam banyak digunakan dalam kegiatan sehari-hari. Biasanya keduanya digunakan secara bersama-sama. Misalnya
pada
tempat-tempat
umum
seperti
terminal
ataupun
tempat
perbelanjakan banyak dijumpai teks berjalan seperti tulisan “ SELAMAT DATANG “. Umumnya pada teks berjalan ini ada tanggal, jam yang terletak disamping, bawah, ataupun diatas teks berjalan ini. Fungsi string juga dapat digunakan untuk animasi tulisan, oleh sebab itu, pemahaman tentang fungsi string sangatlah diperlukan. B. Tujuan 1. Mengenal dan memahami pemakaian Object Timer dalam Visual Basic 6.0 2. Mengenal dan memahami operasi String (Left, Right, Mid) dalam Visual Basic 6.0
II. TINJAUAN PUSTAKA Fungsi
string
merupakan
bagian
yang
paling
dasar
dalam
pemrograman Visual Basic. String berguna untuk memanipulasi data String. Fungsi string terdiri dari:
• Left :
mengambil
n
karakter
di
sebelah
kiri
suatu
string
kanan
suatu
string
karakter = Left(“abcdef”,2) ‘karakter = “ab” • Right :
mengambil
n
karakter
di
sebelah
karakter = Right(“abcdef”,2) ‘karakter = “ef” • Trim : menghilangkan spasi kosong di awal dan akhir suatu string karakter = Trim(“ abc def ”) ‘karakter = “abc def” • Ltrim :
menghilangkan
spasi
kosong
di
awal
suatu
string
MyStr = Ltrim(AnyString) • Rtrim : menghilangkan spasi kosong di akhir suatu string MyStr = Rtrim(AnyString) • Ucase :
mengubah
suatu
string
menjadi
huruf
besar
semua
string
menjadi
huruf
kecil
semua
MyStr = UCase(AnyString) • Lcase :
mengubah
suatu
MyStr = LCase(AnyString) • Mid :
mengambil
n
karakter
dari
suatu
posisi
yang
ditetapkan
MyStr = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef” • Len :
menghitung
jumlah
karakter
yang
membentuk
suatu
string
MyStr = Len(“abcdef”) ‘hasil=6 • LSet : menempatkan string di dalam string yang lain, di sebelah kiri MyStr = “0123456789” Lset MyStr = “<-Left” ‘hasil “<-Left “ • RSet : menempatkan string di dalam string yang lain, di sebelah kanan MyStr = “0123456789” • Rset MyStr = “>-Right” ‘hasil “ >-Right“ String: membuat string yang berisi sejumlah karakter yang digandakan Asc: menghasilkan angka ASCII dari suatu karakter tunggal •
MyNumber = Asc(‘A’) ‘’hasilnya 65
•
MyNumber = Asc(‘a’) ‘’hasilnya 97
•
MyNumber = Asc(‘Apple’) ‘’hasilnya 65
Space: menghasilkan ruang kosong sebanyak n karakter •
MyStr = Space(10) ‘buat string 10 spasi
•
MyStr = “Hello” & Space(10) & “World” ‘menyisipkan 10 spasi diantara kata Hello World
METODOLOGI A. Alat dan Bahan • Alat
Computer atau laptop • Bahan Software Visual Basic 6.0 B. Prosedur Kerja 1. Menyiapkan alat dan bahan. 2. Menghidupkan komputer lalu membuka software Visual Basic 6.0 3. Membuat Form dan diatur seperti gambar dibawah ini, yang dibutuhkan yaitu Form, Label, Command Button, dan Timer.
4. Menuliskan kode pragram sebagai berikut: Private Sub Command1_Click() If Command1.Caption = "start" Then Command1.Caption = "stop" Timer1.Enabled = True Else Command1.Caption = "start" Timer1.Enabled = False End If End Sub Private Sub Timer1_Timer() Label2.Caption = Format(Now, "dddd, d mmmm yyyy hh:mm:ss") End Sub
Private Sub Timer2_Timer() Dim s As String s = Label1.Caption s = Mid(s, 2, Len(s) - 1) & Left(s, 1) Label1.Caption = s End Sub 5. Menyimpan project dengan nama acara 5. 6. Menjalankan program dan melihat hasil yang diperoleh.
III. HASIL DAN PEMBAHASAN A. Hasil
TERLAMPIR
B. Pembahasan Kode program yang digunakan pada praktikum kali ini mempunyai maksud sebagai berikut: a. Private Sub Command1_Click() If Command1.Caption = "start" Then Command1.Caption = "stop" Timer1.Enabled = True Else Command1.Caption = "start" Timer1.Enabled = False End If End Sub Ketika Command1 di-klik sekali, maka blok kode program dibawahnya akan berjalan, yaitu: • If Command1.Caption = "start" Then
maksunnya adalah saat
Command1 diklik akan muncul kata “start” pada Command1 , lalu akan dijalankan perintah sesuai kode program selanjutnya, yaitu: • Command1.Caption = "stop"
artinya pada Command1 akan muncul
kata “stop”. • Timer1.Enabled = True
artinya timer bernilai true saat perintahnya
sama dengan perintah di atas. • Else
artinya kalau tidak, maksudnya adalah saat kode program tersebut
tidak sesuai, maka kode program yang akan dijalankan adalah kode program yang terletak dibawah “Else”ini.
• Command1.Caption = "start"
maksudnya adalah Command1 akan
tertulis kata “Start”. • Timer1.Enabled = False • End If
artinya timer berharga salah.
artinya mengakhiri fungsi If Then
b. Private Sub Timer1_Timer() Label2.Caption = Format(Now, "dddd, d mmmm yyyy hh:mm:ss") End Sub Pada Timer1 ini akan memberi perintah agar pada Label2 tertulis waktu yang terdiri dari hari, tanggal, bulan, tahun, dan jam. Semua waktu ini sesuai dengan waktu sekarang, maksudnya sama dengan waktu computer. Sub Timer1_Timer akan dijalankan pada saat timer1 enablednya “True” dan dengan jeda sesuai dengan intervalnya. Coding pada Timer1_timer akan dijalankan terus menerus tanpa henti. Di sini kita masukkan coding untuk menampilkan jam. Objek Now adalah objek yang menunjukkan nilai tanggal/jam saat ini. c. Private Sub Timer2_Timer() Dim s As String s = Label1.Caption s = Mid(s, 2, Len(s) - 1) & Left(s, 1) Label1.Caption = s End Sub Dim s As String
maksudnya adalah variable s bertipe data string. Data string adalah type data untuk teks (huruf, angka dan tanda baca).
s = Label1.Caption
artinya “s” akan diambil dari tulisan
yang ada pada
label, yaitu tulisan “JAM DIGITAL” yang awal ditambahkan spasi 5 kali di awal dan 5 kali di akhir kata. s = Mid(s, 2, Len(s) - 1) & Left(s, 1)
artinya adalah nilai “s” diambil
tengahnya dari kata “JAM DIGITAL” yang awal dan akhir kata tersebut
diberi masing-masing 5 spasi, mengambilnya sebanyak 20 karakter yang dimulai dari karakter kedua dari sebelah kiri. Hal ini sesuai dengan format penulisan mid yaitu Mid(String,Start,panjangnya). Pengambilan 20 karakter ini didapat dari panggunaan fungsi Len(), fungsi ini berguna untuk mendapatkan jumlah karakter pada suatu tulisan. Len(s) sama halnya dengan Len ( spasi 5X JAM DIGITAL spasi 5 X), jadi jumlanya didapatkan 21. Len(s)=21dan dikurangi 1, jadi hasilnya adalah 20. Hasil Mid ini lalu digabungkan dengan fungsi Left() yang artinya mengambil sebuah karakter dari sebelah kiri dari karakter yeng terdapat dalam “s”. Label1.Caption = s
maksudnya adalah tulisan yang ada dalam Label1 merupakan komponen “s”.
Sub Timer2_Timer melakukan prosedur yang lain, yaitu prosedur untuk membuat tulisan judul “JAM DIGITAL” bergerak / rotasi. Disini menggunakan fungsi-fungsi string yang ada. Hasil yang didapat adalah tulisan “JAM DIGITAL” berjalan dari sebelah kiri ke sebelah kanan. Agar teks bisa berjalan dari kiri ke sebelah kanan, maka pada Timer1 blok kode programnya sedikit dirubah menjadi: Private Sub Timer2_Timer() Dim s As String s = Label1.Caption s = Right(s, 20) & Mid(s, 1, Len(s) - 1) Label1.Caption = s End Sub Perubahan yang terjadi hanyalah pada s = Right(s, 20) & Mid(s, 1, Len(s) - 1) yang artinya adalah mengambil karakter dari “s” sebanyak 20 karakter dari sebelah kanan, lalu menggabungkannya dengan fungsi Mid(), fungsi mid ini artinya karakter yang diambil dari “s” sebanyak 20 karakter yang dimulai dari karakter yang pertama dari sebelah kanan.
Aplikasi yang bisa ditemukan pada kehidupan sehari-hari dari praktikum acara yang terakhir ini antara lain pada Bank, pada Bank biasanya ada jam digital serta tulisan “SELAMAT DATANG”, tulisan seperti ini juga kadang ditemui di bandara, terminal, dan tempat umum lainnya. Di tempat perbelanjaan juga kadang ditemukan jam digital dan tulisan berjalan “ TERIMA KASIH ATAS KUNJUNGAN ANDA”. Pada tempat-tempat loket pembayaran juga kadang tertulis teks berjalan seperti “HARAP ANTRI”. Semua aplikasi ini didapatkan dari penggunaan fungsi String.
V. KESIMPULAN DAN SARAN A. Kesimpulan Kesimpulan yang didapat dari praktikum acara yang terakhir ini adalah: 1. Timer digunakan untuk proses background yang diaktifkan berdasarkan interval waktu tertentu. Merupakan kontrol non-visual.
2. Operasi string mempunyai kegunaan masing-masing, diantaranya adalah: a. Left : mengambil n karakter di sebelah kiri suatu string karakter = Left(“abcdef”,2) ‘karakter = “ab” b. Right : mengambil n karakter di sebelah kanan suatu string karakter = Right(“abcdef”,2) ‘karakter = “ef” c. Mid : mengambil n karakter dari suatu posisi yang ditetapkan Karakter = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef” B. Saran Penggabungan semua kelompok menjadi satu shift kurang berhasil karena
jalannya
praktikum
menjadi
gaduh,
mungkin
sebaiknya
tetap
menggunakan 2 shift.
DAFTAR PUSTAKA Anonym.2010. Mengenal Fungsi String Visual Basic 6. http://www.vbkid.co.cc / 2010/03/mengenal-fungsi-string-visual-basic-6.html#ixzz150wogLR3. (diakses tanggal 12 November 2010). Gottfried, Byron S. 1988. Pemrograman dengan Basic. Penerbit Erlangga, Jakarta Irmanf. 2010. Fungsi String pada Visual Basic 6. http://irmanf.wordpress.com / 2010/10/15/fungsi-string-pada-visual-basic-6/feed/. (diakses tanggal 12 November 2010 jam 05:34:10)
Irmanf. 2010. Kalimat Berjalan pada Label di Form. http://irmanf.wordpress.com /2010/01/27/kalimat-berjalan-pada-label-di-form/feed/. (diakses tanggal 12 november 2010 jam 05.36) Suryo. K 2000. Buku Latihan Microsoft Visual Basic 6.0. Jakarta : PT. Elex Media Komputindo. Sutedjo, Budi S dan Michael AN. 2000. Algoritma dan Teknik Pemrograman. Penerbit Andi, Yogyakarta Yudhistira, Ekabrata. 1985. Microsoft Basic. PT Elex Media Komputindo, Jakarta