MEMBUAT PROGRAM KASIR SEBUAH KAFE DENGAN MENGGUNAKAN MICROSOFT VISUAL BASIC 6.0

      Nah, gue mau berbagi sedikit ilmu gue nih guys tentang pemrograman, cocok banget buat lo semua yang kuliah di jurusan programming kaya gue ini. oke, di entri gue kali ini gue bakal ngasih tau gimana cara membuat suatu program sederhana dengan menggunakan VISUAL BASIC 6.0. 

      Program yang gue buat adalah salah satu contoh program penjualan sebuah kafe atau semacam aplikasi kasir pada suatu kafe. dan aplikasi ini gue namain "Godit's Cafe", anggap saja itu nama kafe nya. hehe.

nih contoh tampilan aplikasi nya:

yang lo butuhin buat bikin program ini adalah yang pastinya software VISUAL BASIC 6.0 yang udah lo install di PC lo tentunya. kalo belom ada, nah lo download aje disini: http://kolombloggratis.blogspot.com/2011/04/download-sofrware-microsoft-visual.html

kalo udah, lo buka software nya, pilih standard.exe nah mulai deh lo desain sesuai gambar. 

icon2 yang lo butuhin disini adalah: 11 label, 2 combo box, 1 list box, 7 text box, 2 frame, 2 option, 2 check box, dan 2 command button.

lo desain deh layout nya, tulisan nya, sesuai dengan selera lo, bebas gan, ga harus ngikutin punya gue. tapi kalo mau niru juga gapapa kok biar gampang. hehe

nah kalo udah lo desain semua nya, lo masukin deh listing berikut ke kotak listing:

Private Sub Check1_Click()
If Check1 = 1 And Check2 = 1 Then
Text2 = 3000
Else
If Check1 = 1 And Check2 = 0 Then
Text2 = 2500
Else
If Check1 = 0 And Check2 = 1 Then
Text2 = 500
Else
Text2 = 0
End If
End If
End If
End Sub

Private Sub Check2_Click()
If Check2 = 1 And Check1 = 1 Then
Text2 = 3000
Else
If Check2 = 1 And Check1 = 0 Then
Text2 = 500
Else
If Check2 = 0 And Check1 = 1 Then
Text2 = 2500
Else
Text2 = 0
End If
End If
End If
End Sub

Private Sub Combo2_Click()
If Combo1.Text = "Sarapan Pagi" Then
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
Text1 = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Goreng")
Text1 = 7000
End Select
Else
Select Case (Combo2.Text)
Case "Paket 1"
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Ayam Bakar")
List1.AddItem ("Lalapan")
Text1 = 8000
Case Else
List1.Clear
List1.AddItem ("Nasi Putih")
List1.AddItem ("Rendang")
List1.AddItem ("Sayuran")
List1.AddItem ("Sambal Ijo")
Text1 = 10000
End Select
End If
End Sub

Private Sub Command1_Click()
Me.Combo1.Clear
Me.Combo2.Clear
Me.List1.Clear
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text6.Text = ""
Me.Text7.Text = ""
Me.Option1 = False
Me.Option2 = False
Me.Check1 = False
Me.Check2 = False
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub

Private Sub Command2_Click()
X = MsgBox("ciyus mau keluar ?", vbQuestion + vbOKCancel, "Informasi")
If X = vbOK Then
End
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem ("Sarapan Pagi")
Combo1.AddItem ("Makan Siang")
Combo2.AddItem ("Paket 1")
Combo2.AddItem ("Paket 2")
End Sub

Private Sub Option1_Click()
Text7 = 5000
Option2 = False
End Sub

Private Sub Option2_Click()
Text7 = 0
Option1 = False
End Sub

Private Sub Text3_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text4 = Val(Text3) * (Val(Text1) + Val(Text2) + Val(Text7))
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Text6 = Val(Text5) - Val(Text4)
End If
End Sub

kalo udah selesai, tinggal di jalanin deh program nya dengan pilih menu 'run' lalu pilih 'start' / F5
nah, lo jalanin deh program nya, kalo error, berarti ada kesalahan tuh, coba di cek lagi.

selamat mencoba, salam programmer Indonesia :)

ada baik nya follow juga twitter gue @godhitttt :)

Lirik Lagu "David Cook - Always Be My Baby"

We were as one babe
For a moment in time
And it seemed everlasting
That you would always be mine

Now you want to be free
So I'm letting you fly
Cause I know in my heart babe
Our love will never die
No!

You'll always be a part of me
I'm a part of you indefinitely
Girl don't you know you can't escape me
Ooh darling cause you'll always be my baby
And we'll linger on
Time can't erase a feeling this strong
No way you're never gonna shake me
Ooh darling cause you'll always be my baby

I ain't gonna cry no
And I won't beg you to stay
If you're determined to leave girl
I will not stand in your way
But inevitably you'll be back again
Cause ya know in your heart babe
Our love will never end no

You'll always be a part of me
I'm part of you indefinitely
Girl don't you know you can't escape me
Ooh darling cause you'll always be my baby
And we'll linger on
Time can't erase a feeling this strong
No way you're never gonna shake me
Ooh darling cause you'll always be my baby

I know that you'll be back girl
When your days and your nights get a little bit colder oooohhh
I know that, you'll be right back, babe
Ooooh! baby believe me it's only a matter of time

You'll always be a part of me
I'm part of you indefinitely
Girl don't you know you can't escape me
Ooh darling cause you'll always be my baby
And we'll linger on
Time can't erase a feeling this strong
No way you're never gonna shake me
Ooh darling cause you'll always be my my baby....

You'll always be a part of me (you will always be)
I'm part of you indefinitely
Girl don't you know you can't escape me
Ooh darling cause you'll always be my baby
And we'll linger on (we will linger on....)
Time can't erase a feeling this strong
No way you're never gonna shake me
Ooh darling cause you'll always be my baby

Always be my baby

Cinta Sejati dan Teman Sejati

kalian tau ga? Kenapa kita selalu menutup mata ketika kita tidur, ketika kita menangis, ketika kita membayangkan, bahkan ketika kita berciuman?
Ini karena hal terindah di dunia itu "TIDAK TERLIHAT".
itu semua emang agak aneh... bahkan hidup kita sendiri pun juga agak aneh...
Dan ketika kita menemukan seseorang yang keunikannya SEJALAN dengan kita, kita bergabung dengannya dan jatuh ke dalam suatu keanehan serupa yang selama ini dinamakan CINTA.

terkadang ada hal-hal yang ga ingin kita lepaskan...
Orang-orang yang ga ingin kita tinggalkan...
Tapi kalian harus ingat... melepaskan bukan akhir dari dunia, melainkan awal dari suatu kehidupan yang baru.
Kebahagiaan itu ada untuk mereka yang menangis, mereka yang tersakiti, mereka yang telah mencari, dan bahkan mereka yang telah mencoba.
Karena merekalah yang bisa menghargai betapa pentingnya orang yang telah menyentuh kehidupan mereka.

CINTA yang AGUNG adalah...
Adalah ketika dia meneteskan air mata dan lo masih peduli dengannya..
Adalah ketika dia ga peduli sama lo dan lo masih menunggunya dengan setia.
Adalah ketika dia mulai mencintai orang lain dan lo masih bisa tersenyum sambil berkata 'gue turut berbahagia'
Apabila cinta ga berhasil... BEBASKAN diri lo...!!!
Biarkan hati lo kembali melebarkan sayapnya dan terbang ke alam bebas lagi...
Ingatlah...bahwa lo mungkin menemukan cinta dan kehilangannya...
Tapi, ketika cinta itu mati... lo ga perlu ikut mati bersamanya...
karna, orang terkuat bukan mereka yang selalu menang, tapi mereka yang tetap tegar ketika mereka jatuh.
Entah bagaimana dalam perjalanan kehidupan, lo belajar tentang diri lo sendiri dan menyadari bahwa penyesalan tidak seharusnya ada dalam diri lo, hanyalah penghargaan yang abadi atas pilihan - pilihan kehidupan yang telah lo jalanin..

TEMAN SEJATI itu....
Mengerti ketika lo berkata 'gue lupa'
Menunggu selamanya ketika lo berkata 'Tunggu sebentar'
Tetap bersamanya ketika lo berkata 'Tinggalin gue sendiri'
Membuka pintu meskipun lo belum mengetuk dan berkata 'gue boleh masuk?'

MENCINTAI...
bukanlah bagaimana lo melupakan, melainkan bagaimana lo memaafkan..
MEMAAFKAN...
bukanlah bagaimana lo mendengarkan, melainkan bagaimana lo mengerti..
MENGERTI...
bukanlah apa yang lo lihat, melainkan apa yang lo rasakan..
Lebih berbahaya mencucurkan air mata dalam hati, dibandingkan menangis tersedu–sedu.
Air mata yang keluar dapat dihapus, sementara air mata yang tersembunyi menggoreskan luka yang ga bakal pernah hilang.
Dalam urusan cinta, kita sangat jarang menang.
Tapi ketika cinta itu TULUS, meskipun kalah, lo tetap MENANG hanya karena lo berbahagia dapat mencintai seseorang lebih dari lo mencintai diri lo sendiri.
Akan tiba saatnya dimana lo harus berhenti mencintai seseorang. bukan karena orang itu berhenti mencintai kita, melainkan karena kita menyadari bahwa orang itu akan lebih berbahagia apabila kita melepaskannya.
Apabila lo benar-benar mencintai seseorang, jangan lepaskan dia.
Jangan percaya bahwa melepaskan selalu berarti lo benar-benar mencintai MELAINKAN... BERJUANGLAH demi cinta lo.
Itulah CINTA SEJATI
Lebih baik menunggu orang yang lo inginkan DARIPADA berjalan bersama orang 'yang tersedia'.
Lebih baik menunggu orang yang lo cintai DARIPADA orang yang berada di sekeliling lo.
Lebih baik menunggu orang yang tepat karena hidup ini terlalu singkat untuk dibuang dengan hanya dengan 'seseorang'.

terkadang, orang yang lo cintai adalah orang yang PALING menyakiti hati lo, dan terkadang, teman yang membawa lo kedalam pelukannya dan menangis bersama lo adalah cinta yang ga lo sadari.
And now, find U'r Love soon !! 

WASPADA TEMAN BERTOPENG !!

       Nikam dari belakang / nusuk dari belakang dan bermuka dua adalah sebuah idiom yang digunakan untuk menggambarkan penghianatan seorang patner, rekan, teman,  sahabat dan saudara. ciri-ciri seorang penghianat seperti ini biasanya di depan kita dia terlihat seperti baik, bersikap sopan, hormat, menghargai, membela dan menyayangi kita. Tapi di belakang kita ternyata mencaci-maki, mengolok-olok, memfitnah bahkan menjatuhkan kita.

     Dalam ngejalanin hidup ternyata kejadian seperti ini sering terjadi baik yang dilakukan perorangan atau kelompok. Sampai-sampai  saking banyaknya macam penghianatan, istilah nusuk dari belakang atau teman bermuka dua bisa di bagi kedalam empat tipe. Tindakan penghianatan yang dilakukannya antara lain:

1. One to one

Penghianatan one to one adalah menggambarkan praktik ‘nikam dari belakang’ atau seorang bermuka dua yang dilakukan seseorang kepada seseorang yang lain. Misalnya menjelekan sahabatnya sendiri, memfitnah teman/sahabatnya sendiri, merebut hak teman/sahabatnya sendiri, memacari pacar teman/sahabatnya sendiri, mengakui hasil karya orang lain sebagai hasil karyanya, menjatuhkan reputasi teman/sahabatnya sendiri dan sebagainya.

2. One to many

Penghianatan  one to many adalah menggambarkan praktik ‘menusuk dari belakang’ yang dilakukan seseorang kepada sekelompok orang, lembaga, organisasi atau perkumpulan. Contohnya seorang karyawan yang menjelekan intansi/lembaga tempat dia bekerja pada orang lain, seorang karyawan yang menjelek-jelekan teman-teman kerjanya pada orang lain atau intansi lain, seorang anggota organisasi yang menyebarkan informasi rahasia kepada pihak lain, seorang anggota organisasi yang mencaci-maki organisasinya dengan pihak lain, dan sebagainya.

3. Many to one

Penghianatan Many to one adalah menggambarkan praktik ‘menikam dari belakang’ yang dilakukan oleh sekelompok orang, bisa lembaga, organisasi atau perkumpulan terhadap seseorang. Misalnya sekumpulan orang-orang licik, picik dan iri yang ada di sebuah lembaga, intansi, perusahaan yang punya niat sama ingin menyingkirkan pemimpinnya dari lembaga tersebut. Atau sebuah kelompok senat yang ingin menjatuhkan ketua nya.

4. Many to Many

Penghianatan Many to Many adalah menggambarkan praktik ‘menikam dari belakang’ atau sikap bermuka dua yang dilakukan oleh sekelompok orang dengan kelompok orang yang lain. Misalkan Antar kelompok A dan kelompok B. Di depan sepertinya baik-baik saja, tetapi di belakang itu kelompok B mencaci-maki, menjelek-jelekan, meremehkan, membodoh-bodohkan, bahkan memfitnah lembaga A. bahkan sebaliknya.

Maka, WASPADALAH !! siapa tau Teman Bertopeng itu ada di sekeliling mu!

Arti Sahabat

Teman bukanlah sekedar seseorang yang sering bersenang-senang dan bermain dengan anda setiap saat. Namun teman lebih dari itu, teman adalah pribadi yang secara langsung bisa mempengaruhi kehidupan dan kepribadian anda. Oleh karena itu, carilah teman yang baik, teman yang tentunya bisa membuat hidup anda bisa menjadi lebih baik.

Namun ternyata, mencari teman yang baik bukanlah hal yang mudah. Karena adakalanya seorang teman akan memperlihatkan kebaikanya saat kita sedang banyak uang, namun saat kita kesusahan, mereka dengan mudah meninggalkan kita. Untuk bisa mencari teman yang baik, kita harus mengetahui pribadinya secara mendalam. Dan jika anda belum bisa mengetahui pribadi seorang teman secara mendalam, mungkin anda bisa memperhatikan beberapa ciri-ciri seorang teman yang baik.

Berikut adalah beberapa ciri-ciri teman yang baik :
Setia dalam persahabatan Kesetiaan merupakan poin utama untuk membina sebuah hubungan yang sehat, baik dalam persahabatan atau pun dalam keluarga. Setiap orang tentu pernah membuat kesalahan pada suatu waktu, mengalami pasang surut kehidupan, bahkan menampilkan perilaku yang tidak dapat dibanggakan.

Ketika kita menemukan teman atau orang-orang terdekat yang dapat memaafkan dan mendampingi kita dalam keadaan apa pun, kita patut bersyukur. Jangan pernah menyia-nyiakan loyalitas yang ditunjukkan oleh para sahabat dan hargailah selalu hal itu.
Respek Perlakukan orang lain secara baik dan hormat agar kamu pun diperlakukan dengan cara yang sama. kamu pasti tahu, tidak enak rasanya diabaikan, dihakimi, dimanipulasi, direndahkan, atau diperlakukan secara kasar dan tidak layak. Memang ada kalanya kita tidak sependapat dengan pendapat teman atau orang terdekat. Tapi, menunjukkan rasa hormat tetap menjadi satu hal yang mutlak.
Tanpa syarat Saat seseorang membantu orang lain dengan harapan mendapatkan sesuatu yang lain sebagai imbalan di masa depan. Seorang sahabat sejati bersedia membantu dengan tulus tanpa ada syarat apa pun.
Dapat dipercaya Seorang sahabat yang baik seharusnya dapat dipercaya dan mampu menyimpan rahasia yang telah diamanatkan padanya. Sahabat yang baik tidak akan menusuk dari belakang, atau membocorkan aib temannya sendiri kepada orang lain. Jika kamu ingin menyampaikan sesuatu yang bersifat rahasia kepada sahabat, pastikan dulu bahwa ia memang dapat dipercaya.
Peduli Perilaku yang tulus dan mendengarkan dengan seksama apa yang disampaikan orang lain sangat penting dalam menjalin hubungan yang solid. Jauhi sikap egois yang hanya memikirkan diri sendiri. Sebaliknya, tunjukkan kepedulian dengan memfokuskan perhatian terhadap orang lain agar ia merasa dihargai dan berarti.
Dapat diandalkan Sahabat adalah orang yang dapat diandalkan ketika orang lain sepertinya tidak dapat diharapkan. Ketika seorang sahabat berjanji akan datang menghibur kamu disaat patah hati, maka ia akan benar-benar mengetuk pintu rumah kamu seperti yang telah dijanjikannya. Ia akan selalu ada untuk memberikan dukungan moral, bahkan materi, jika kamu membutuhkannya.

Sumber Referensi : naufalhunting4.blogspot.com

5 cm

Film adaptasi dari Novel best seller karya Donny Dirgantoro ini menceritakan tentang 5 orang sahabat yang sudah lama sekali selalu bersama-sama, adapun tokoh yang diperan oleh Herjunot Ali sebagai Zafran atau juple, Raline Shah sebagai Riani, Fedi Nuril sebagai Genta, Denny Sumargo sebagai Arial, Igor 'Saykoji' sebagai Ian, dan Pevita Pearce sebagai Dinda (adik arial) mengedepankan kisah bagaimana 5 orang sahabat yang saling mengisi kekurangan mereka, saling menghargai dan saling membantu satu sama lain seperti sahabat pada umumnya..

Namun sampailah pada titik jenuh dimana mereka memutuskan untuk berpisah dan keluar dari zona nyaman persahabatan mereka, untuk mengejar mimpi mimpi mereka yang belum selesai, dan memutuskan untuk bertemu lagi dalam waktu 3bulan kedepan, selama 3 bulan mereka dilarang untuk berkomunikasi.

dan sampai saatnya tiba, Genta (Fedi Nuril) yang membuat perayaan pertemuan mereka kembali melalui perjuangan untuk mendaki Gunung Semeru, Gunung Tertinggi di Pulau Jawa, dari sinilah, semua berawal, tentang Perjuangan Meraih Impian, Perjuangan Persahabatan, dan Perjuangan Mencintai Indonesia...

“Yang kita perlu sekarang cuma kaki yang akan berjalan lebih jauh dari biasanya, tangan yang akan berbuat banyak lebih dari biasanya, mata yang akan menatap lebih lama dari biasanya, leher yang akan lebih sering melihat ke atas, lapisan tekad yang seribu kali lebih keras dari baja. Dan hati yang akan bekerja lebih keras dari biasanya. Serta mulut yang akan selalu berdo’a.” 5cm The Movie

Macam-macam Karakter Pengguna BB

BlackBerry Mungking Sekarang Sudah Menjadi Bagian Dari Live style,ataupun sudah menjadi trdnd fasion.dahulu blackberry hanya di miliki sama orang kaya saja,namun sekarang telepone pintar ini sudah merakyat.mulai dari tukang bakso sampai anak kampus.

namun terkadang saking banyaknya pengguna blackberry dalam menikmati fitur gratisan dari bb yang beinama BBM mereka memiliki kebiasaan dan karakter tersendiri..
iNILAH KARAKTER PENGGUNA BLACKBERRY,, Anda Yg Mana? Haha=

1. MODEL:: Ganti picture tiap 5 menit (dr lahir smpe mati jg mukenya ya gt gt aja) 8-|

2. BURONAN :: Ganti nama tiap hari (emang bokap loe kasih nama brp banyak sih) 4L4Y3R5 4B135!! =D

3. ALAY :: Nama diprofil pake simbol-Simbol sampe susah dicarinya! (Contoh :: Ch@®Iê Imöë7Z 8eUd -> sari imut banget). capeek dehh...
Skrg ada jg yg pke tnda panah, .͡▹​ hadeh...biar di blg exis kali tuh?? X_X gubrak!!!!
Bikin org ribet nyari nya...

4.REPORTER:: Hobinya broadcast message,yg ga pnting contoh (invite teman gw Pin 28XXXXX) orang ALAY begini biasanya ( Rajin bgt, kaya di gaji aja??!! =)) )

5. TERORIS:: Suka BM berita menyeramkan (contoh : sebarkan pesan ini kalo tidak nanti km akan dapat musibah dan di cari SETAN ,ada TUYUL gondronglah, POCONG ngesotlah,dan blablabla ,lo kira BB gudang musibah sama setan BEGO)

6. SELEB:: Ganti status tiap 5 menit,seleb aja ga segitunya..( Heelloooww 8-| )

7. Dis-ORIENTASI KEBODOHAN :: Suka bikin status tdk pd tempatnya. (Ga bisa bedain apa,.? Mana kolom nama, mana kolom status,? )

8. SOK EKSIS :: tiap dimana aja laporan biar dianggep gahooll ghettoo,emang kita pembina upacara ? Contoh ( otw bandung / in mall with my mom / monas:D kenapa ga sekalian "lagi berak nih susah disiram" hahaha gapenting gila 3-|8-|

9. ABABIL :: slalu pasang picture dgn pose alay (contoh,gigi behel gayanya meringis melulu, woi ada cabe tuh di gigi !)

10. TUKANG PAMER :: tiap mau makan difoto dulu makanannya trus dipasang buat picture (jarang ditemui yang semur jengkol, sama ikan asin !! ) :D

Berrykut karakter karakter unik para pengguna blackBerry di dalam menikmati BBM nya.
Sorry guys ga maksud nyindir kalian ttapi itu hanya analisa ane hehe piss!!