MEMBUAT APLIKASI ACAK ANGKA DGN VB

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut :

GAMBAR APLIKASI ACAK ANGKA

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol	Properti	Setting
Label1, Label2, Label3, Label4, Label5	Caption Border Style Font	Semua dikosongkan 1-FixedSingle Bold dan ukuran 28
Timer1	Enabled Interval	False 100
Command1	Caption	Start
Command2	Caption	Stop
Command3	Caption	Keluar

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()
‘label akan menampilkan bilangan acak 0-9’
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
Label4.Caption = Int(Rnd * 10)
End Sub
Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara
0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan
bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan
adalah bilangan bulat antara 0-9.
Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada
label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()
‘time diaktifkan’
Timer1.Enabled = True
‘mengosongkan masing-masing label’
Label1.Caption = “”
Label2.Caption = “”
Label3.Caption = “”
Label4.Caption = “”
End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()
‘time tidak diaktifkan’
Timer1.Enabled = False
‘label 5 akan menampilkan hasil bilangan acak’
Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption
End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3 (tombol Keluar), kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()
End
End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.
8.  Hasilnya seperti gambar berikut :

GAMBAR APLIKASI ACAK ANGKA

9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk  mereka yg mau berusaha dan bertawakal !

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

MEMBUAT PROGRAM TRAFFIC LIGHT DGN VB

1.     Langkah pertama buka program Visual Basic

2.     Pilih standar.exe untuk New Project kemudian Klik Open

3.     Tambahkan 5 Label, 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle menjadi solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.

5.     Masukkan kode program seperti dibawah ini :

Private Sub tunda()
a = Timer
Do While Timer < 1 + a
DoEvents
Loop
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
For i = 0 To 10
Label1(0).Caption = 11 – i
Label1(1).Caption = 21 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 0 Then
Shape10.FillColor = &HC0C0&
Shape1.FillColor = &HC0&
Shape2.FillColor = vbYellow
Shape5.FillColor = vbRed
Shape8.FillColor = vbRed
Shape11.FillColor = vbRed
Else
Shape12.FillColor = &H8000&
Shape2.FillColor = &HC0C0&
Shape3.FillColor = vbGreen
End If
tunda
Next i
For i = 10 To 20
Label1(0).Caption = 51 – i
Label1(1).Caption = 21 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 10 Then
Shape5.FillColor = &HC0&
Shape3.FillColor = &H8000&
Shape2.FillColor = vbYellow
Shape4.FillColor = vbYellow
Else
Shape2.FillColor = &HC0C0&
Shape4.FillColor = &HC0C0&
Shape1.FillColor = vbRed
Shape5.FillColor = &HC0&
Shape6.FillColor = vbGreen
End If
tunda
Next i
For i = 20 To 30
Label1(0).Caption = 51 – i
Label1(1).Caption = 61 – i
Label1(2).Caption = 31 – i
Label1(3).Caption = 41 – i
If i = 20 Then
Shape8.FillColor = &HC0&
Shape6.FillColor = &H8000&
Shape4.FillColor = vbYellow
Shape7.FillColor = vbYellow
Else
Shape4.FillColor = &HC0C0&
Shape7.FillColor = &HC0C0&
Shape5.FillColor = vbRed
Shape8.FillColor = &HC0&
Shape9.FillColor = vbGreen
End If
tunda
Next i
For i = 30 To 40
Label1(0).Caption = 51 – i
Label1(1).Caption = 61 – i
Label1(2).Caption = 71 – i
Label1(3).Caption = 41 – i
If i = 30 Then
Shape11.FillColor = &HC0&
Shape9.FillColor = &H8000&
Shape7.FillColor = vbYellow
Shape10.FillColor = vbYellow
ElseIf i = 40 Then
Shape2.FillColor = vbYellow
Shape10.FillColor = vbYellow
Shape12.FillColor = &H8000&
Shape1.FillColor = &HC0&
Else
Shape7.FillColor = &HC0C0&
Shape10.FillColor = &HC0C0&
Shape8.FillColor = vbRed
Shape11.FillColor = &HC0&
Shape12.FillColor = vbGreen
End If
tunda
Next i
End Sub

6.     Jalankan program (F5)

MEMBUAT PROGRAM MENGKONVERSI SUHU DGN VB

Seperti biasa tiap akhir week end atau hari libur saya menyempatkan diri untuk membuat postingan, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.    Buatlah New Project pada software VB anda kemudian tambahkan dua buah kontrol frame, enam kontrol OptionButton, dua kontrol TextBox dan satu kontrol commandButton pada form, kemudian atur letaknya seperti pada gambar berikut :

GAMBAR PROGRAM KONVERSI SUHU

2.    Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol	Properti	Setting
Frame1	Caption	Pilih Data Input
Option1	Caption	Celcius
Option2	Caption	reamur
Option3	Caption	Farenheit
TextBox1	Text	Kosongkan
Frame2	Caption	Pilih Data output
Option4	Caption	Celcius
Option5	Caption	reamur
Option6	Caption	Farenheit
TextBox2	Text	Kosongkan
Command1	Caption	Selesai

3.    Aktifkan jendela kode, dengan cara klik menu view, pilih code. Buat prosedur rumus dengan cara ketikkan sub rumus konversi dan akhiri dengan enter.

4.    Di dalam prosedur Sub Rumus, berikan perintah untuk masing-masing Opt sebagai berikut :

Private Sub rumus ()
If Option1.Value = True And Option4.Value = True Then
Text1.Text = Text2.Text
ElseIf Option1.Value = True And Option5.Value = True Then
Text2.Text = Val(Text1.Text) * 4 / 5
ElseIf Option1.Value = True And Option6.Value = True Then
Text2.Text = (Val(Text1.Text) * 9 / 5) + 32
End If
If Option2.Value = True And Option5.Value = True Then
Text1.Text = Text2.Text
ElseIf Option2.Value = True And Option4.Value = True Then
Text2.Text = Val(Text1.Text) * 5 / 4
ElseIf Option2.Value = True And Option6.Value = True Then
Text2.Text = (9 / 4 * Val(Text1.Text)) + 32
End If
If Option3.Value = True And Option6.Value = True Then
Text1.Text = Text2.Text
ElseIf Option3.Value = True And Option5.Value = True Then
Text2.Text = 5 / 9 * (Val(Text1.Text) – 32)
ElseIf Option3.Value = True And Option4.Value = True Then
Text2.Text = 4 / 9 * (Val(Text1.Text) – 32)
End If
End Sub

5.    Kemudian klik ganda semua option dengan satu persatu, lalu ketikkan kode/script/listing program berikut ini :

Private Sub Option1_Click()
Call rumus
End Sub

Private Sub Option2_Click()
Call rumus
End Sub

Private Sub Option3_Click()
Call rumus
End Sub

Private Sub Option4_Click()
Call rumus
End Sub

Private Sub Option5_Click()
Call rumus
End Sub

Private Sub Option6_Click()
Call rumus
End Sub

6.    klik ganda text1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Text1_Change()
Call rumus
End Sub

7.    klik ganda command1 lalu ketikkan kode/script/listing program berikut ini :

Private Sub Command1_Click()
End
End Sub

8.    Jalankan program / run (F5), coba masukkan nilai berapa saja di text1 kemudian centang pada pilihan data inputnya dan data outputnya.

9.    Hasil programnya seperti gambar dibawah ini :

GAMBAR PROGRAM KONVERSI SUHU

10. Selamat mencoba,,,Sesungguhnya ilmu yang bermanfaat adalah ilmu yang disampaikan kepada orang lain walaupun sedikit..!

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

KOINOBORI

• Bulan Mei di Jepang adalah musim segar kehijauan-hijauan, yang berkilau-kilau saat baru lahir. Tanggal 5 Mei adalah hari perayaan Tango. Jika 3 Maret adalah perayaan untuk anak perempuan, 5 Mei adalah perayaan untuk anak laki-laki.

• Koinobori, atau semacam bendera layang-layang ikan yang dikibarkan di langit, adalah pemandangan yang biasa pada musim ini. Menurut tradisi, koinobori dikibarkan tinggi-tinggi di langit untuk mengharapkan sukses dalam kehidupan. Musim ini juga merupakan musim menanam benih padi yang muda di sawah. Di Jepang orang-orang juga menanam padi seperti di Indonesia. Sawah-sawah yang penuh dengan air sedikit demi sedikit berubah menjadi permadani hijau.

Dan foto di bawah ini adalah koinobori kesayangan di kamar :

Ini baby koinobori nampak nya..hehehee… lucuu guyz ? ^__^ V
ini beli d Daisho sekitar 3 minggu yang lalu..
Naah skg bagaimana, ingin memiliki koinobori juga kah?

Asal-Usul Kimono

Kimono adalah pakaian tradisional Jepang. Arti harfiah kimono adalah baju atau sesuatu yang dikenakan (ki berarti pakai, dan mono berarti barang).

Pada zaman sekarang, kimono berbentuk seperti huruf “T”, mirip mantel berlengan panjang dan berkerah. Panjang kimono dibuat hingga ke pergelangan kaki. Wanita mengenakan kimono berbentuk baju terusan, sementara pria mengenakan kimono berbentuk setelan. Kerah bagian kanan harus berada di bawah kerah bagian kiri. Sabuk kain yang disebut obi dililitkan di bagian perut/pinggang, dan diikat di bagian punggung. Alas kaki sewaktu mengenakan kimono adalah zōri atau geta.

Kimono sekarang ini lebih sering dikenakan wanita pada kesempatan istimewa. Wanita yang belum menikah mengenakan sejenis kimono yang disebut furisode.[1] Ciri khas furisode adalah lengan yang lebarnya hampir menyentuh lantai. Perempuan yang genap berusia 20 tahun mengenakan furisode untuk menghadiri seijin shiki. Pria mengenakan kimono pada pesta pernikahan, upacara minum teh, dan acara formal lainnya. Ketika tampil di luar arena sumo, pesumo profesional diharuskan mengenakan kimono.[2] Anak-anak mengenakan kimono ketika menghadiri perayaan Shichi-Go-San. Selain itu, kimono dikenakan pekerja bidang industri jasa dan pariwisata, pelayan wanita rumah makan tradisional (ryōtei) dan pegawai penginapan tradisional (ryokan).

Pakaian pengantin wanita tradisional Jepang (hanayome ishō) terdiri dari furisode dan uchikake (mantel yang dikenakan di atas furisode). Furisode untuk pengantin wanita berbeda dari furisode untuk wanita muda yang belum menikah. Bahan untuk furisode pengantin diberi motif yang dipercaya mengundang keberuntungan, seperti gambar burung jenjang. Warna furisode pengantin juga lebih cerah dibandingkan furisode biasa. Shiromuku adalah sebutan untuk baju pengantin wanita tradisional berupa furisode berwarna putih bersih dengan motif tenunan yang juga berwarna putih.

Sebagai pembeda dari pakaian Barat (yōfuku) yang dikenal sejak zaman Meiji, orang Jepang menyebut pakaian tradisional Jepang sebagai wafuku ( pakaian Jepang). Sebelum dikenalnya pakaian Barat, semua pakaian yang dipakai orang Jepang disebut kimono. Sebutan lain untuk kimono adalah gofuku. Istilah gofuku mulanya dipakai untuk menyebut pakaian orang negara Dong Wu (bahasa Jepang : negara Go) yang tiba di Jepang dari daratan Cina.

Seandainya wanita yang gue sayank n berarti bgt buat gue mengenakan Kimono ini pasti terlihat cantik N maniezt bgt,,,syng dy sdh tak lg bersamaQ,dedicated for Kaori…

KATA MUTIARA CINTA By Budh1-Harto

• Jangan sesekali mengucapkan selamat tinggal jika kamu masih mau mencoba. Jangan sesekali menyerah jika kamu masih merasa sanggup. Jangan sesekali mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

• Cinta datang kepada orang yang masih mempunyai harapan walaupun mereka telah dikecewakan. Kepada mereka yang masih percaya, walaupun mereka telah dikhianati. Kepada mereka yang masih ingin mencintai, walaupun mereka telah disakiti sebelumnya dan kepada mereka yang mempunyai keberanian dan keyakinan untuk membangunkan kembali kepercayaan.

• Jangan simpan kata-kata cinta pada orang yang tersayang sehingga dia meninggal dunia, lantaran akhirnya kamu terpaksa catatkan kata-kata cinta itu pada pusaranya. Sebaliknya ucapkan kata-kata cinta yang tersimpan dibenakmu itu sekarang selagi ada hayatnya.

• Cinta bukan mengajar kita lemah, tetapi membangkitkan kekuatan. Cinta bukan mengajar kita menghinakan diri, tetapi menghembuskan kegagahan. Cinta bukan melemahkan semangat, tetapi membangkitkan semangat.

• Mungkin Tuhan menginginkan kita bertemu dan bercinta dengan orang yang salah sebelum bertemu dengan orang yang tepat, kita harus mengerti bagaimana berterima kasih atas kurniaan itu.

• Hal yang menyedihkan dalam hidup adalah ketika kamu bertemu seseorang yang sangat berarti bagimu. Hanya untuk menemukan bahawa pada akhirnya menjadi tidak bererti dan kamu harus membiarkannya pergi.

• Kadangkala kamu tidak menghargai orang yang mencintai kamu sepenuh hati, sehinggalah kamu kehilangannya. Pada saat itu, tiada guna sesalan karena perginya tanpa berpatah lagi.

• Jangan mencintai seseorang seperti bunga, karena bunga mati kala musim berganti. Cintailah mereka seperti sungai, karena sungai mengalir selamanya.

• Permulaan cinta adalah membiarkan orang yang kamu cintai menjadi dirinya sendiri, dan tidak merubahnya menjadi gambaran yang kamu inginkan. Jika tidak, kamu hanya mencintai pantulan diri sendiri yang kamu temukan di dalam dirinya.

• Kata-kata cinta yang lahir hanya sekadar di bibir dan bukannya di hati mampu melumatkan seluruh jiwa raga, manakala kata-kata cinta yang lahir dari hati yang ikhlas mampu untuk mengubati segala luka di hati orang yang mendengarnya.

• Bukan laut namanya jika airnya tidak berombak. Bukan cinta namanya jika perasaan tidak pernah terluka. Bukan kekasih namanya jika hatinya tidak pernah merindu dan cemburu.

• Sungguh menyakitkan mencintai seseorang yang tidak mencintaimu, tetapi lebih menyakitkan adalah mencintai seseorang dan kamu tidak pernah memiliki keberanian untuk menyatakan cintamu kepadanya.

• Satu-satunya cara agar kita memperolehi kasih sayang, ialah jangan menuntut agar kita dicintai, tetapi mulailah memberi kasih sayang kepada orang lain tanpa mengharapkan balasan.

• Jika aku mempunyai 2 pilihan yaitu kamu atau hidupku,maka aku lebih baik akan memilih hidupku dari pada kamu.karna aku hidup hanya untuk mencintaimu, menyayangimu dan membahagiakanmu.

• Perasaan cinta itu dimulai dari mata, sedangkan rasa suka dimulai dari telinga. Jadi jika kamu mahu berhenti menyukai seseorang, cukup dengan menutup telinga. Tapi apabila kamu Coba menutup matamu dari orang yang kamu cintai, cinta itu berubah menjadi titisan air mata dan terus tinggal dihatimu dalam jarak waktu yang cukup lama.

• Cinta dapat mengubah pahit menjadi manis, debu beralih emas, keruh menjadi bening, sakit menjadi sembuh, penjara menjadi telaga, derita menjadi nikmat, dan kemarahan menjadi rahmat.

• Kita hidup di dunia bukan untuk mncintai orang yang smpurna, tetapi kita hidup dunia, ialah untuk mncintai seseorang dengan cara yang smpurna!!.

• Jika jarak kita diibaratkan dengan 1000 langkah. . . engkau tak usah khawatir, kau hanya perlu 1 langkah untuk mnghampiriku. . . karna aku akan menempuh 999 langkah untuk menghampirimu. . .

Lagu untuk seseorang yang berarti buat gue

Beri Aku Waktu

[Intro] D/F# E A 2x

D/F#       E                         A
Sampai kapankah aku menunggumu
D/F#          E           A
Membuka hatimu untuk terima cintaku
D/F#              E         A
Sampai kapankah rasa dihatiku
D/F#      E                       A
Menanti rasamu akan menyambut rasaku

[bridge]
Bm                      E                 A
Dan mungkin bila waktu yang bisa mengungkapkan
Bm          E            A
Berseminya cinta di dalam hatimu

[chorus]
D    E                A
Ijinkan aku mengungkapkan
D                  E                   A
Perasaan cinta yang lama tersimpan di hati
D       E         F#m
Berikan aku kesempatan
D                       E
Membuktikan tulusnya cintaku

Interlude : D/F# E A 2x

D/F#            E          A
Kehampaan yang kini kurasakan
D/F#       E                            A
Berada dalam penantian yang panjang untukmu

Bm   C#m         D
Walau seribu tahun
A
Sabar kumenunggu
Bm  C#m        F#m
Jawaban untukku

F#m
Na na na na na na 2x

[interlude] D E A 2x