Post on 20-Oct-2015
description
LAPORAN PRAKTIKUM
PEMROGRAMAN KOMPUTER
OPERASI FUNGSI STRING DALAM VISUAL BASIC 6.0
Oleh:
Melati Eka P.
NIM A1H010089
KEMENTERIAN PENDIDIKAN NASIONAL
UNIVERSITAS JENDERAL SOEDIRMAN
FAKULTAS PERTANIAN
PURWOKERTO
2011
I. PENDAHULUAN
A. Latar Belakang
Komputer adalah suatu alat elektronik untuk mengolah data dengan menggunakan suatu proses tertentu untuk menghasilkan informasi. Bahasa pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa Basic pada dasarnya adalah bahasa yang mudah dimengerti sehingga pemrograman di dalam bahasa Basic dapat dengan mudah dilakukan meskipun oleh orang yang baru belajar membuat program.
Visual basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman Visual Basic yang dikembangkan oleh Microsoft sejak tahun 1991 merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginners All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer khususnya yang menggunakan sistem operasi windows. Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming=OOP).
B. Tujuan
Tujuan praktikum ini adalah agar praktikan dapat :
1. Mengenal dan memahami pemakaian Object Timer dalam Visual Basic 6.0
2. Mengenal dan memahami operasi String (Left, Mid, dan Right) dalam Visual Basic 6.0
II. TINJAUAN PUSTAKA
Fungsi string adalah perintah yang digunakan untuk mengolah data string. Berikut ini adalah macam-macam fungsi string yang ada pada Visual Basic 6.0 (Ade, 2008).
Left : mengambil n karakter di sebelah kiri suatu string karakter = Left(abcdef,2) karakter = ab Right : mengambil n karakter di sebelah kanan suatu string 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 MyStr = UCase(AnyString) Lcase : mengubah suatu string menjadi huruf kecil semua 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 = -Right Format : mengatur string sehingga terformat sesuai yang ditentukan A$ = Format (5455.4, ##,##0.00) A$ = 5,459.40
A$ = Format (334.9, ####.##) A$ = 334.9
A$ = Format (5, 0.00%) A$ = 500.00%
A$ = Format (HELLO, ) A$ = THIS IS String: membuat string yang berisi sejumlah karakter yang digandakan A$ = String (5, *) A$ = ***** Chr: menghasilkan karakter yang terwakili oleh suatu angka tertentu A$ = Chr (65) A$ = A , A$ = Chr (97) A$ = a, A$ = Chr (62) A$ = > Asc: menghasilkan angka ASCII dari suatu karakter tunggal Contoh: MyNumber = Asc(A) hasilnya 65
MyNumber = Asc(a) hasilnya 97
MyNumber = Asc(Apple) hasilnya 65 Space: menghasilkan ruang kosong sebanyak n karakter Contoh: MyStr = Space(10) buat string 10 spasi
MyStr = Hello & Space(10) & World menyisipkan 10 spasi diantara kata Hello World InStr: menentukan apakah string tertentu berada pada string lain Dim CariString, CariChar, MyPos CariString = XXpXXpXXPXXP String yang dianalis
CariChar = P String yang dicari P mencari mulai dari kolom ke-4, hasilnya 6
MyPos = InStr(4, CariString, CariChar, 1) mencari mulai dari kolom ke-1, hasilnya 9
MyPos = InStr(1, CariString, CariChar, 0)
MyPos = InStr(CariString, CariChar) hasilnya 9
MyPos = InStr(1, SearchString, W) hasilnya 0 InStrRev: cari posisi string dalam string yang lain, mulai dari akhir i = InStrRev(StringCheck, StringMatch[, start[, compare]]) StrComp: membandingkan dua variabel string StrComp(string1, string2 [, compare] )
JikaHasilnya
string1 < string 2-1
string1= string 20
string1> string 21
string1atau string 2 = NullNull
Dim MyStr1, MyStr2, MyComp
MyStr1 = ABCD : MyStr2 = abcd nilai awal
A = StrComp(MyStr1, MyStr2, 1) A = 0
A = StrComp(MyStr1, MyStr2, 0) A = -1
A = StrComp(MyStr2, MyStr1) A = 1
StrConv: mengubah huruf besar atau kecil suatu karakter stringA$ = StrConv(Semua Besar, 1) A$ = SEMUA BESAR
A$ = StrConv(Semua Kecil, 2) A$ = semua kecil
A$ = StrConv(pertama BESAR, 3) A$ = Pertama Besar StrReverse: mengubah urutan karakter suatu stringA$ = StrReverse(12345678) A$ = 87654321
A$ = StrReverse(abcdefg) A$ = gfedcba Replace: menggantikan string dari kelompok stringReplace(expression, find, replace[, start[, count[, compare]]]) FormatCurrency: string memakai format currency yang ditetapkanA$ = FormatCurrency(12000, 1) A$ = $12,000.0
A$ = FormatCurrency(12000, 2) A$ = $12,000.00
Catatan, untuk mengubah mata uang, gunakan Regional Settings Currency dari sistem operasi Windows FormatDateTime: menghasilkan ekspresi tanggal dan waktuA$ = FormatDateTime(Now) hasilnya 10/8/02 11:15:46 AM
A$ = FormatDateTime(Now, vbLongDate) hasilnya Tuesday, March 02, 2008
A$ = FormatDateTime(3/2/99, vbShortDate) hasilnya 3/2/99
A$ = FormatDateTime(3/2/99, vbLongDate) hasilnya 12:00:00 AM FormatNumber: membuat format bilangan sesuai option yang diberikan FormatNumber(var1, 2) FormatPerCent: membuat format bilangan dalam prosentaseA$ = FormatPerCent(0.1255, 2) A$ = 12.55%
A$ = FormatPerCent(0.12555) A$ = 12.56%
A$ = FormatPerCent(12.55, 2) A$ = 1,255.00%
A$ = FormatPerCent(12.55) A$ = 1,255.00%
III. METODOLOGI
A. Alat dan Bahan
1. PC (Personal Computer) atau Laptop.
2. Software Visual Basic 6.0.
B. Prosedur Kerja
1. Membuat User Interface (UI)
Aktifkan VB 6.0 melalui tombol Start. Membuat Form baru ke dalam Project. Mambuat UI seperti pada Jendela Form seperti ini :
Mengatur property setiap object-nya menjadi seperti berikut :
ObjectPropertiesValue
Form1Caption
StartUpPosotionJam Digital
2-CenterScreen
Command1CaptionStop
Label1Caption
Font
Alignment(spasi 5x) JAM DIGITAL (spasi 5x)
MS Sans Serief 24 Bold
Center
Label2Caption
Font
BorderStyle
Alignment
MS Sans Serief 24 Bold
1-Fixed Style
Center
Timer1EnableFalse
Interval = 1000
Timer2EnableTrue
Interval = 500
Membuka jendela code dan mengetikkan kode programnya pada bagian Code Editor dengan 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(Time, 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
Menjalankan program dan memperhatikan hasil yang didapat saat tiap tombol Command di Click.
IV. HASIL DAN PEMBAHASAN
A. Hasil
B. Pembahasan
Pada praktikum acara 5 ini mengunakan kode program untuk command yang merupakan perintah operasi fungsi string data VB 6.0 untuk mengoperasikan data berupa jam sederhana untuk dapat berhenti atau berjalan. Fungsi string adalah untuk mejalankan tulisan JAM DIGITAL. Maksud dari masing-masing kode program pada object pada praktikum acara 5 ini, sebagai berikut:
Command1 dengan kode program
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 SubTujuanya untuk memberikan perintah pada timer1 untuk memulai waktu bila diklik caption Start. Kemudian untuk menghentikan waktu dengan mengkilk lagi tombol command1 dengan caption Start sampai berganti menjadi caption Stop. Hasil ditampilkan pada label2
Timer1 dengan kode program
Private Sub Timer1_Timer()
Label2.Caption = Format(Time, hh:mm:ss)
End Sub
tujuanya untuk memberi perintah pada caption label2 untuk memunculkan format jam. format tanggal dapat kita rubah dengan mengubah kode programnya menjadi Label2.Caption = format (now, DDDD,d MMMM yyyy hh:mm:ss). Sehingga tanggal dan jam pada label2 tersebut dapat muncul.
Timer2 dengan kode program
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 SubTujuanya untuk memberi perintah pada caption label1 untuk membuat tulisan text JAM DIGITAL berjalan kearah kiri dari kanan sebanyak 1 huruf tiap berjalannya dan pada posisi tengah diambil dari huruf ke 2 sampai huruf ke 1 dari belakang.
Agar tulisanya bergerak dari kiri ke kanan kode programnya
Private Sub Timer2_Timer()
Dim s As String
s = Label1.Caption
s = Right(s, 20) & Mid(s, 1, Len(s) - 1)
Label1.Caption = sSetelah semua kode progran tertulis dengan benar, praktikan dapat mulai menjalankan program tersebut. Praktikan juga dapat melakukan beberapa variasi lain lagi pada program ini seperti mengubah kode pada timer1 agar pada label2 muncul tanggal dan jam. Kode programnya adalah sebagai berikut :
Private Sub Timer1_Timer()
Label2.Caption = Format (Now, DDDD, MMMM, YYYY, hh:mm:ss).
End Sub
Pengaplikasian program jam digital ini banyak dilakukan dalam kehidupan kita sehari-hari seperti tampilan tanggal dan jam pada komputer. Contoh lainnya adalah tampilan tanggal dan jam pada tempat-tempat tertentu yang menggunakan sistem komputerisasi seperti yang banyak terdapat di tempat-tempat umum. Contoh lainnya lagi adalah jam digital yang banyak digunakan oleh anak-anak kecil saat ini.V. KESIMPULAN DAN SARAN
A. Kesimpulan
1. Fungsi-fungsi String antara lain : Right, Mid, Left. Ketiga perintah ini berguna untuk mengambil suatu sttring dari dalam suatu string. Format digunakan untuk merubah format / bentuk dari suatu string, contohnya yaitu untuk menggabungkkan 2 atau lebih string, kita dapat menggunakan tanda &.
2. Object timer digunakan untuk mengatur waktu pelaksanaan program dalam VB 6.0B. Saran Pengkondisian dari asisten ditingkatkan agar dapat berjalan dengan kondusif. Asisten diharapkan agar tegas bagi praktikan yang rebut saat praktikum berlangsung.DAFTAR PUSTAKAAnonim, http//.wikipedia.com/ Visual Basic. diakses 29 Oktober 2011
, http//.infocomputer.com/ VB . diakses 29 Oktober 2011,http://ilmukomputer.org/2008/11/25/cepat-mahir-visual-basic-6/(diakses 29 Oktober 2011, Dasar-dasar-Visual-Basic.
Gottfried, byron S. 1988. Pemrograman dengan BASIC. Erlangga. Jakarta. Halvorson, 2000, Step By Step Microsoft Visual Basic 6.0, Microsoft Press, PT