Nama dan Fungsi ToolBox pada VB 6.0

Fungsi String Pada Visual Basic 6

Fungsi-fungsi VB 6 di bawah ini digunakan untuk mengolah data string.
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 = “<-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”
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%

---

source : kuliahit dot com

Ide Sederhana yang Bikin Kita Tersenyum Simpul

Kreatifitas, satu kata dengan sejuta makna. Dengan kreatifitas hal-hal yang sederhana terkadang bisa menjadi sesuatu yang mencengangkan, menguntungkan, dan kali ini.. bikin kita senyum simpul.























Sumber :
www.kaskus.us

Misteri dan Keindahan 7 Hutan Yang Tenggelam

Istilah hutan terendam / tenggelam umumnya menggambarkan sisa-sisa pohon yang telah dibanjiri oleh kenaikan permukaan laut. Hutan-hutan yang seperti ini dapat juga ditemukan lebih jauh ke pedalaman di danau.

Lalu apakah mereka hidup? Tentu tidak, mereka perlahan-lahan membusuk di dalam air. Berikut ini beberapa hutan yang unik tersebut.

1. Lake Kaindy, Kazakhstan

Danau ini terletak di kedalaman hutan dengan ketinggian 2000m di atas permukaan laut. Terbentuk dari longsoran batu kapur dan pengendapan tanah. Danau ini membentuk bendungan alami dan sebuah ngarai yang indah.

Danau ini memiliki panjang panjang 400m dengan kedalaman 30m. Pemandangan yang sangat indah dihadirkan disini. Sisa-sisa pohon yang tidak terendam, menjulang bagaikan paku-paku kreasi dari alam. Sedangkan bagian yang terendam air, nampak menyimpan misteri seperti hutan yang berumur ratusan tahun.

2. Danau Bezid, Romania

Terletak di wilayah Transylvania Rumania, keunikannya adalah tidak hanya pemandangan indah namun juga sisi mistis yang dihadirkan di sini. Terbentuk setelah seluruh desa Bezid kebanjiran, meninggalkan rumah-rumah di dasar danau dan hanya gereja lokal menara dan pohon-pohon masih terlihat menjulang di atas danau.

Dahan-dahan dan ranting pohon yang tua terlihat menjulang ke atas permukaan air seperti tangan-tangan yang membawa pesan mistis. Waduk ini juga menyembunyikan sesuatu di bawah airnya, yaitu puing-puing desa yang tenggelam sehingga semakin menambah suasana indah dan juga misteri yang dihadirkan disana.

3. Danau Periyar, India

Danau Periyar sebenarnya waduk buatan, untuk sebuah daerah banjir yang diciptakan pada tahun 1895 oleh pembangunan Bendungan Mullaperiyar. Tunggul pohon itu adalah sisa-sisa hutan yang dulu.

Di sekitar danau kontur bukit-bukit yang berhutan menyediakan sumber air permanen untuk satwa liar lokal, dan ini dikatakan sebagai salah satu dari sedikit tempat di mana bendungan telah baik untuk di jadikan ekosistem.

4. Waduk Udawalawe, Sri Lanka

Waduk ini menyajikan pemandangan sisa-sisa ribuan pohon hutan yang mati akibat terendam air yang mengisi bendungan buatan ini. Banyak sekali binatang-binatang yang kehilangan habitatnya disini, Namun belakangan, waduk ini mulai kembali didatangi oleh berbagai kelompok dan jenis-jenis hewan yang ada di sekitar lingkungan waduk ini.

Sering terlihat sekumpulan gajah-gajah yang sengaja mampir kesini, selain untuk minum ada juga yang bermain-main dengan mandi di sini. Tak ketinggalan pula mulai banyak jenis-jenis ikan baru yang kedapatan meghuni waduk ini.

5. Danau Volta, Ghana

Danau dibentuk oleh hidroelektrik Akosomba Dam, yang menyediakan pasokan listrik untuk banyak negara. Selesai dibangun pada tahun 1965, proyek ini memaksa sekitar 78.000 orang untuk melakukan relokasi permukiman baru, bersama dengan 200.000 hewan peliharaan mereka, sementara sekitar 120 bangunan dan tempat tinggal yang tak terhitung jumlahnya juga dihancurkan.

Danau Volta merupakan potensi sumber daya yang menjanjikan, pemerintah Ghana berusaha untuk memanen 14 juta meter kubik kayu yang terendam, meskipun tidak tanpa kontroversi. Kayu keras tropis yang mungkin berharga, diawetkan oleh minimnya oksigen di dalam air. Tetapi beberapa mengatakan penebangan di dalam air bisa menjadi ancaman bagi nelayan dan mengganggu keseimbangan ekologi danau.

6. Danau Caddo,Texas

Danau Misterius ini tampak seperti Rawa-rawa dalam film horror. danau ini tidak sepenuhnya tenggelam sehingga tumbuhan di sini tidak begitu mati dan tidak begitu hidup. Namun di balik keseraman tersebut terdapat Keindahan yang luar biasa.

Asli tumbuhan runjung tenggara Amerika Serikat, pohon-pohon Cypress berkembang dalam habitat lembab, dan beberapa individu dapat hidup selama lebih dari 1.000 tahun.

Baldcypresses, yang berkembang dalam habitat berawa, memiliki pertumbuhan yang khas yang disebut cemara lutut, woody proyeksi di atas air yang merupakan bagian dari sistem akar dan memberikan dukungan struktural dan stabilisasi - di situs rawan banjir seperti ini.

7. Kampong Pluk, Kamboja

Di Kamboja dapat ditemukan hutan lain yang mengambang, terdiri dari pohon-pohon yang tumbuh keluar dari sebuah danau, akar kust mereka yang tersembunyi di bawah air.

Pohon yang tumbuh di Kampung Pluk adalah bakau dan habitat hutan lainnya. Mereka adalah rumah bagi berbagai satwa liar, termasuk monyet pemakan kepiting, serta manusia yang panen udang dan tinggal di rumah pohon / rumah apung.

Sumber :
www.kaskus.us

The Devils Tower, Sebuah Bukit Batu Yang Unik dan Menakjubkan

Menara Iblis  yang dikenal sebagai Devils Tower, terletak di timur laut Wyoming, Amerika Serikat. Tingginya lebih dari 1.266 ft, yang sebanding dengan ketinggian Empire State Building, yang sekitar 1.250 ft tanpa puncak menara. Bukit batu ini  terbentuk sekitar 65 juta tahun yang lalu oleh aktivitas gunung berapi.

Legenda Masyarakat Sekitar :

Berbagai legenda banyak bermunculan yang menceritakan tentang asal-usul menara ini. Salah satunya adalah  cerita dari Kiowa, Arapaho, Crow, Cheyenne dan suku Sioux, ketakutan sekelompok gadis-gadis kecil dikejar oleh beruang raksasa.
Menurut legenda ini, tujuh gadis Indian suatu hari bermain di hutan. Beruang besar datang kepada mereka dan mengejarnya. Gadis-gadis melarikan diri dengan cepat melalui pepohonan, tetapi beruang perlahan-lahan dapat menyusul mereka.
Karena situasi membuat mereka menjadi putus asa, gadis-gadis melompat ke atas batu karang yang rendah dan berdoa dengan suara keras ke Roh Leluhur untuk menyelamatkan mereka.
Tiba-tiba batu kecil mulai tumbuh ke atas, mengangkat tujuh anak perempuan lebih tinggi dan lebih tinggi ke langit. Beruang yang marah melompat ke sisi menara (batu tersebut) dan meninggalkan bekas cakar, yang dapat dilihat sampai saat ini di atas dinding batu.

 

 

Faktanya :

Dikenal oleh orang Indian sebagai Mateo Tepee atau Grizzly Bear Lodge, menara ini sebenarnya adalah sisa gunung berapi ekstrusi yang terjadi 60-70 juta tahun yang lalu.
Tumbuh sekitar 1.200 meter di atas Sungai Fourche Belle, menara ini pertama kali dilihat oleh penjelajah kulit putih dari AS, pada Geological Survey pada tahun 1875.
Para surveyor menyebut batu itu Devils Tower, setelah mereka tahu bahwa nama aslinya adalah "The Bad Allah Tower", begitu para orang Indian setempat menyebutnya.
Pertama kali dipanjat, dengan menggunakan tangga kayu panjang yang melekat pada permukaan batu, pada 4 Juli 1893.
Hari ini, menara ini adalah situs pendakian yang populer dan lebih dari 20.000 ascents telah dibuat. Menara ini masih sangat dihormati sebagai situs pencarian visi orang Indian.
Penggunaannya saat ini masih terus sebagai objek untuk Indian dan non-Indian, dan banyak pengunjung telah melaporkan melihat fenomena cahaya aneh dan UFO yang terbang disekitar puncak menara.

 

 

 

 

Sumber :
haxims.blogspot.com