Fungsi String pada Visual Basic

Berikut ini adalah fungsi String dalam mengolah suatu string (teks) pada Visual Basic
Left : mengambil n karakter di sebelah kiri suatu string
karakter = Left(“Informatika”,2) ‘karakter = “In”

Right : mengambil n karakter di sebelah kanan suatu string
karakter = Right(“Informatika”,2) ‘karakter = “ka”


Mid : mengambil n karakter dari suatu posisi yang ditetapkan
MyStr = Mid(“Informatika”, 3, 5) ‘hasil “forma”
 
Trim : menghilangkan spasi kosong di awal dan akhir suatu string
karakter = Trim(“ Manajemen Informatika ”) ‘karakter = “Manajaemen Informatika”

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)

Len : menghitung jumlah karakter yang membentuk suatu string
MyStr = Len(“Infromatika”) ‘hasil=11

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“

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$ = “hello”
A$ = Format (“This is”, “>”) ‘A$ = “THIS IS”
A$ = Format(200000, "Currency")  ="Rp200.000"

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
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

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] )

Jika	Hasilnya
string1 < string 2	-1
string1= string 2	0
string1> string 2	1
string1atau string 2 = Null	Null

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 string
A$ = 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 string
A$ = StrReverse(“12345678”) ‘A$ = “87654321”
A$ = StrReverse(“abcdefg”) ‘A$ = “gfedcba”

Replace: menggantikan string dari kelompok string
Replace(expression, find, replace[, start[, count[, compare]]])

FormatCurrency: string memakai format currency yang ditetapkan
A$ = 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 waktu
A$ = 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 prosentase
A$ = 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%F

Sejarah Mouse

Anda pasti sudah tidak asing lagi dengan alat satu ini, ya! Mouse adalah salah satu perangkat keras (hardware) komputer yang berfungsi menggerakkan kursor pada layar monitor yang ditampilkan. Dengan menggunakan mouse para pengguna komputer (user) dapat leluasa menggerakan kursor pada layar tampilan sesuai dengan keinginan.

Mouse pertama kali ditemukan oleh Douglas Engelbart dari Stanford Research Institute pada tahun 1963. Mouse adalah satu dari beberapa alat penunjuk (pointing device) yang dikembangkan untuk oN Line System (NLS) milik Engelbard. Selain mouse, yang pada mulanya disebut "bug", juga dikembangkan beberapa alat pendeteksi gerakan tubuh yang lain, misalnya alat yang diletakkan di kepala untuk mendeteksi gerakan dagu. Karena kenyamanan dan kepraktisannya, mouse-lah yang dipilih. Awal pembuatan mouse ini dimaksudkan untuk membantu pengguna (user), agar dapat memaksimalkan kedua tangannya dalam menggunakan komputer, dimana tangan yang satu menggunakan Mouse dan tangan lainnya menggunakan Keyboard secara terus menerus.

Mouse pertama buatan Engerbart berukuran besar dan berbahan dari kayu, yang mempunyai satu tombol yang berfungsi untuk memotong (Cut), menduplikasi (Copy), dan menempelkan (Paste) teks. Mouse dilengkapi jugan dengan dua buah roda yang saling tegak lurus untuk mendeteksi gerakan sumbu X dan sumbu Y, sehingga dapat mengetahui posisi X-Y pada layar komputer.

Kemudian pada tahun 1970, Engelbard melengkapi penemuannya itu dengan 2 buah tiga tombol, sehingga mouse mempunyai 3 buah tombol. Pada tahun ini pun Engelbart mematenkan penelitiannya, dengan nama X-Y Position Indicator For A Display System (indikator posisi X-Y).

Gb.1

Douglas Engelbart (kiri), Mouse Pertama (kanan atas)

Perkembangan selanjutnya dilakukan oleh Bill English di Xerox PARC pada awal tahun 1970. Ia menggunakan bola yang dapat berputar kesegala arah, kemudian putaran bola tersebut dideteksi oleh roda-roda sensor didalam mouse tersebut. Pengembangan tipe ini kemudian melahirkan mouse tipe Trackball, yaitu jenis mouse terbalik dimana pengguna menggerakkan bola dengan jari, yang populer antara tahun 1980 sampai 1990. Xerox PARC juga mempopulerkan penggunaan keyboard QWERTY dengan dua tangan dan menggunakan mouse pada saat dibutuhkan saja.

Mouse saat ini mengikuti desain École polytechnique fédérale de Lausanne (EPFL) yang diinspirasikan oleh Professor Jean-Daniel Nicoud.

Selain mouse bola, saat ini banyak digunakan mouse optikal. Mouse optikal lebih unggul dari mouse bola karena lebih akurat dan perawatannya lebih mudah dibandingkan mouse bola. Mouse optikal tidak perlu dibersihkan, berbeda dengan mouse bola yang harus sering dibersihkan karena banyak debu yang menempel pada bolanya. Mouse optikal pertama dibuat oleh Steve Kirsch dari Mouse Systems Corporation. Mouse jenis ini menggunakan LED (light emitting diode) dan photo dioda untuk mendeteksi gerakan mouse. Mouse optikal pertama hanya dapat digunakan pada alas (mousepad) khusus yang berwarna metalik bergaris-garis biru--abu-abu. Mouse optikal saat ini dapat digunakan hampir di semua permukaan padat dan rata, kecuali permukaan yang memantulkan cahaya. Mouse optikal saat ini bekerja dengan menggunakan sensor optik yang menggunakan LED sebagai sumber penerangan untuk mengambil beribu-ribu frame gambar selama mouse bergerak. Perubahan dari frame-frame gambar tersebut diterjemahkan oleh chip khusus menjadi posisi X dan Y yang kemudian dikirim ke komputer.

Mouse laser pertama kali diperkenalkan oleh Logitech, perusahaan mouse terkemuka yang bekerja sama dengan Agilent Technologies pada tahun 2004, dengan nama Logitech MX 1000. Logitech

mengklaim bahwa mouse laser memilki tingkat akurasi 20 kali lebih besar dari mouse optikal. Dasar kerja mouse optikal dan mouse laser hampir sama, perbedaannya hanya penggunaan laser kecil

sebagai pengganti LED digunakan oleh mouse optikal. Saat ini mouse laser belum banyak digunakan, mungkin karena harganya yang masih mahal.

Dari semua perkembangan mouse, yang tidak banyak berubah adalah jumlah tombolnya. Semua mouse memiliki tombol antara satu sampai tiga buah. Mouse pertama memiliki satu tombol. Kebanyakan mouse saat ini, yang didesain untuk Microsoft Windows, memiliki dua tombol.

Beberapa mouse modern juga memiliki sebuah Wheel untuk mempermudah scrolling. Sementara itu,Apple memperkenalkan mouse satu tombol, yang tidak berubah hingga kini.

Mouse modern juga sudah banyak yang tanpa kabel, yaitu menggunakan teknologi wireless seperti Infra Red, gelombang radio ataupun Bluetooth. Mouse wireless yang populer saat ini menggunakan gelombang radio ataupun Bluetooth. Sedangkan mouse yang menggunakan Infra Red kurang begitu populer karena jarak jangkauannya yang terbatas, selain itu juga kurang praktis karena antara mouse dan penerimanya tidak boleh terhalang.

Itulah sejarah alat yang saat ini sangat diperlukan dalam penggunaan komputer, tanpa Mouse pengguna komputer akan kesulitan dalam mengoperasikan fasilitas-fasilitas yang ada dalam komputer.
Semoga bermanfaat.