Struktur penulisan kontrol select case

Select Case (pilihan)
Case (pilihan 1)
     (pernyataan 1)
Case (pilihan 2)
     (pernyataan 2)
Case (pilihan 3)
     (pernyataan 3)
Case Else
     (pernyataan 4)
End Select

Private Sub Command1_Click()
Dim no_hari As Integer
Dim hari As String
no_hari = Text1.Text
Select Case no_hari
Case 1
     hari = "Minggu"
Case 2
     hari = "Senin"
Case 3
     hari = "Selasa"
Case 4
     hari = "Rabu"
Case 5
     hari = "Kamis"
Case 6
     hari = "Jum'at"
Case 7
     hari = "Sabtu"
Case Else
MsgBox " saat ini Jumlah hari hanya ada 7 om !", vbOKOnly, "Nama-Nama Hari"
End Select
   Text2.Text = hari
End Sub

Contoh Pemrograman Visual Basic IF - Then - Else

Percabangan dengan If - Then - Else

Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:

If  <kondisi> Then

 < Keputusan kondisi benar >

Else

 < Keputusan kondisi salah >

End If

Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”.

Dalam pengertian yang umum bisa dikatakan:

Jika memenuhi kondisi maka lakukan proses keputusan untuk kondisi benar, jika tidak lakukan proses keputusan untuk kondisi salah 

Contoh 1: 

“Jika bilangan habis dibagi dua maka bilangan itu adalah bilangan genap, jika tidak

bilangan itu adalah bilangan ganjil”, yang dituliskan dengan: 

If bilangan mod 2 = 0 Then

 Ket = “Bilangan genap”

Else

 Ket = “Bilangan ganjil”

End If 

Contoh 2: 

“Jika peminjaman lebih dari 7 hari maka dikenakan denda sebesar 2000”, yang

dituliskan dengan 

If peminjaman>7 Then

Denda = 2000 

Else

Denda = 0 

End If 

"Nocturnal Lagophtalmus"

Sobat pernah melihat orang tidur dengan mata terbuka ??? kalau ditempat saya hal ini sering dikaitkan dengan mitos bahwa orang dengan mata terbuka saat tidur biasanya memiliki banyak teman. Tapi didunia medis hal ini justru dapat menimbulkan problem bagi kesehatan orang yang mengalami hal tersebut.

Memang ada kondisi dimana seseorang matanya tetap terbuka saat dalam keadaan tertidur lelap, tidak terbuka sepenuhnya memang, biasanya hanya setengah atau sedikit terbuka kelopak matanya. Hal ini terjadi pada kurang lebih sekitar 10 % pada populasi di dunia.

Kondisi ini di dunia medis disebut dengan nocturnal lagophtalmos yang berarti (nocturnal = malam) dan (lagophtalmos = mata tidak dapat menutup sempurna). Penyebab masalah ini karena adanya anomali / kelainan pada mata khususnya pada bagian kelopak mata dimana tidak dapat menutup sempurna, dikarenakan adanya kelemahan saraf mata yang fungsinya untuk menutup kelopak mata.

Kelainan ini ada yang ringan hingga berat sehingga sedikit banyak dapat mempengaruhi kesehatan mata. Keadaan demikian kemungkinan besar dapat memicu timbulnya kelainan pada bola mata yaitu menimbulkan kekeringan pada selaput kornea mata karena lebih lama terekspos dengan dunia luar sehingga air mata juga tidak dapat terdistribusi dengan merata. Kondisi seperti ini dapat meningkatkan resiko infeksi pada kornea seperti keratitis (radang selaput kornea) dan yang lebih buruk tukak / ulkus dan terbentuknya lubang pada kornea.

Lalu bagaimana mengatasinya ??? Beberapa ahli mata menyebutkan tindakan operasi / pembedahan terkadang diperlukan untuk memperbaiki kelopak mata yang tidak dapat menutup sempurna. Selain itu penggunaan tetes mata juga diperlukan sebagai pelumas mata untuk mencegah kekeringan pada kornea mata. Selanjutnya bagi anda yang melihat saudara, teman atau kerabat yang tertidur dalam keadaan mata terbuka disarankan untuk menutupkan kelopak matanya.

Karena mata itu cahaya dunia jadi kita wajib menjaga dengan sebaik-baiknya. Semoga sedikit tulisan saya berikut dapat memberikan informasi mengenai kesehatan mata anda. Sehingga tidak lagi menyepelekan hal-hal yang tampak ringan tapi sebenarnya dapat membahayakan anda.

Check It Out !

Hal ini akan memudahkan Anda mengetahui karakter diri sendiri atau minimal dalam menyesuaikan diri dalam kontak dengan orang lain yang berbeda karakter. Dari hasil penelitan, ada 6 posisi tiduryang dapat dihubungkan dengan kepribadian seseorang. Yuk kita simak posisi tidur berikut ini : 

1.  Fetal

Fetal merupakan tidur dengan posisi menyamping, dengan menekuk kaki dan tangan menyerupai posisi bayi di dalam kandungan. 

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang terlihat keras di luar, tetapi sebenarnya mempunyai hati yang lemah lembut dan sensitif, pemalu, serta memiliki kemampuan berelaksasi yang cepat

2.Log

Log merupakan tidur menyamping dengan tangan dan kaki lurus pada sisi yang sama, menyerupai kayu.

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang mudah bergaul dan memiliki banyak teman, mudah mempercayai orang asing yang tidak dikenal, bahkan terkadang mudah tertipu.

3. Yearner

Yearner adalah posisi tidur menyamping, dengan kaki lurus ke bawah, tetapi tangan lurus ke arah depan. 

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang terbuka, waspada, dan terkadang mudah curiga serta sinis, membutuhkan waktu yang lama untuk mengambil suatu keputusan, dan sulit berubah pikiran

4.  Soldier

Soldier adalah posisi tidur terlentang, dengan kaki lurus ke bawah dan tangan terletak di samping badan. 

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang pendiam dan senang mengamati orang lain, tidak menyukai keramaian, memiliki standar yang tinggi, baik bagi diri sendiri maupun orang lain

5. Free Faller

Free faller adalah posisi tidur tengkurap dengan kedua tangan berada di samping kepala dan kaki lurus ke bawah. 

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang kurang sopan, tampak seperti seseorang yang suka berteman, tidak tahu malu, tampak percaya diri, dan tidak dapat menerima kritik dari orang lain

6.  Starfish

Starfish adalah posisi tidur terlentang dengan kedua tangan berada di samping kepala dan kaki lurus ke bawah. 

Posisi tidur ini menunjukkan bahwa anda adalah seseorang yang dapat menjadi teman yang baik, pendengar yang baik, suka membantu dan sederhana, selalu tampak ceria dalam situasi apapun

Nah, Anda sendiri posisi tidurnya seperti apa?

Tadaima ただいま

Halo teman-teman semua, pada postingan saya kali ini.. saya akan berbagi pengalaman saya mengenai merubah latar belakang (background) pada Blog, langsung saja ini dia langkah-langkahnya :

1) Buka www.blogger.com, lalu masuk ke dashboard akun email kita..

2) Lalu pilih Template

3) Pilih tombol Sesuaikan

4) Lalu pilih Latar Belakang pada menu pilihan di pojok kiri atas

5) Klik tanda panah di samping gambar latar

6) Lalu pilih unggah gambar, dan

7) Klik tombol selesai

8) Lalu Klik Tombol Terapkan ke Blog di pojok kanan atas.

Sekian cara merubah latar belakang pada Blog dari saya, semoga bermanfaat bagi teman-teman yang juga baru membuat Blog, Terimakasih. :D

artikulpi.com

String Functions

* Ucase :

Untuk mengubah suatu string menjadi huruf besar semua.
Co : s = LCase("Rio Suwardiman") , maka nilai s adalah "RIO SUWARDIMAN"

* Lcase :

Untuk mengubah suatu string menjadi huruf kecil semua.
Co : s = LCase("Rio Suwardimanka nilai s adalah "rio suwardiman"

* InStr :

Untuk menentukan apakah string tertentu berada pada string lain.
Co : s = InStr("Rio Suwardiman", "o") , maka nilai s adalah 3

* InStrRev :

Untuk mencari posisi string dalam string yang lain, mulai dari akhir.
Co : Rio = InStr(1,”suwardiman”,”R”,vbBinaryCompare)
‘varian Rio akan berisi 0,karena karakter “R” (r besar) tidak ditemukan dalam kata “saya”

* Left :

Untuk mengambil n karakter di sebelah kiri suatu string.
Co : Rio, s = Left("Rio Suwardiman", 5)
maka nilai s adalah "Rio S"

* Right :

Untuk mengambil n karakter di sebelah kanan suatu string.
Co : Rio, s = Right("Rio Suwardiman", 4)
maka nilai s adalah "iman"

* Mid :

Untuk mengambil n karakter dari suatu posisi yang ditetapkan.
Co :s = Mid("Rio Suwardiman", 2, 2) , maka nilai s adalah "io

* Ltrim :

Untuk menghilangkan spasi kosong di awal suatu string.
Co : s = LTrim("      Rio Suwardiman      ") , maka nilai s adalah "Rio Suwardiman      "

* Rtrim :

Untuk menghilangkan spasi kosong di akhir suatu string.
Co : s = RTrim("      Rio Suwardiman      ") , maka nilai s adalah "      Rio Suwardiman"

* Trim :

Untuk menghilangkan spasi kosong di awal dan akhir suatu string.
Co : s = Trim("      Rio Suwardiman      ") , maka nilai s adalah "Rio Suwardiman"

* Len :

Untuk menghitung jumlah karakter yang membentuk suatu string.
Co : s = Len("Rio Suwardiman") , maka nilai s adalah 14

* Chr :

Untuk menghasilkan karakter yang terwakili oleh suatu angka tertentu.
Co : s = Chr(80) , maka nilai s adalah “A”

* Asc :

Untuk menghasilkan angka ASCII dari suatu karakter tunggal.
Co : Asc(“A”) , maka nilai s adalah 80

* Str :

Fungsi Str juga mengkonversi nilai ke tipe data string, samahalnya dengan CStr.
Co : Dim str1 As String
Dim int1 As Integer
str1 = Str(int1)

* Cstr :

Fungsi Cstr mengubah suatu nilai ke tipe data string. Salah satu penggunaanya adalah saat kita ingin memasukan nilai numerik menjadi nilai dari sebuah textbox.
Co : Dim dblNilai As Double
Text1.Text = CStr(dblNilai)

* Val :

Fungsi Val hanya mengubah nilai numerik yang ada dalam string menjadi Double. Tetapi tidak dapat mengubah dari nilai bertipe data numerik.
Co : Dim l As Double
l = Val(Text1.Text)

* StrReverse :

Untuk mengubah urutan karakter suatu string.
Co : Print StrReverse("Rio")
Output : oiR

Arigatou Gozaimasu~