Kamis, 07 November 2013


Di sebuah perumahan terkenal di jakarta tinggalah seorang gadis bersama sang ayah, sang ibu telah lama mendahuluinya pergi sejak ia masih kecil. .

Seorang gadis yg akan di wisuda, sebentar lagi dia akan menjadi seorang sarjana, akhir jerih payahnya selama beberapa tahun di bangku pendidikan.

Beberapa bulan yang lalu dia melewati sebuah showroom, dan saat itu dia jatuh cinta kepada sebuah mobil sport, keluaran terbaru dari Ford. Selama beberapa bulan dia selalu membayangkan, nanti pada saat wisuda ayahnya pasti akan membelikan mobil itu kepadanya. Dia yakin, karena dia anak satu-satunya dan ayahnya sangat sayang padanya, sehingga dia sangat yakin nanti dia pasti akan mendapatkan mobil itu.

Diapun ber'angan-angan mengendarai mobil itu, bersenang-senang dengan teman-temannya. Bahkan semua mimpinya itu dia ceritakan ke teman-temannya, Saatnya pun tiba, siang itu, setelah wisuda, dia melangkah pasti ke ayahnya.

Sang ayah tersenyum, dan dengan berlinang air mata karena terharu dia mengungkapkan betapa dia bangga akan putrinya, dan betapa dia mencintai anak itu.

Lalu dia pun mengeluarkan sebuah bingkisan,... bukan sebuah kunci!

Dengan hati yang hancur sang anak menerima bingkisan itu, dan dengan sangat kecewa dia membukanya. Dan dibalik kertas kado itu ia menemukan sebuah Jaket kulit Terkenal, di belakangnya terukir indah namanya dengan sutra emas.

Gadis itu menjadi marah, dengan suara yang meninggi dia berteriak, "Yaahh... Ayah memang sangat mencintai saya, dengan semua uang ayah, ayah belikan jaket ini untukku?"

Lalu dia membuang Jaket itu dan lari meninggalkan ayahnya.

Ayahnya tidak bisa berkata apa-apa, hatinya hancur, dia hanya berdiri mematung, tak tahu apa yg harus di lakukannya ..


Tahun demi tahun berlalu,

sang gadis telah menjadi seorang yang sukses. Dengan bermodalkan otaknya yang cemerlang dia berhasil menjadi seorang wanita karir. Dia mempunyai rumah yang besar dan mewah, dan dikelilingi suami yang tampan dan anak yang cerdas.

Sementara itu ayahnya semakin tua dan tinggal sendiri. Sejak hari wisuda itu, anaknya pergi meninggalkan dia dan tak pernah menghubungi dia. Dia berharap suatu saat dapat bertemu anaknya itu, hanya untuk meyakinkan dia betapa sayangnya pada anak itu. Sang anak pun kadang rindu dan ingin bertemu dengan sang ayah, tapi mengingat apa yang terjadi pada hari wisudanya, dia menjadi sakit hati dan sangat mendendam.


Sampai suatu hari datang sebuah telegram dari kantor kejaksaan yang memberitakan bahwa ayahnya telah meninggal, dan sebelum ayahnya meninggal, dia mewariskan semua hartanya kepada anak satu-satunya itu. Sang anak disuruh menghadap Jaksa wilayah dan bersama-sama ke rumah ayahnya untuk mengurus semua harta peninggalannya. Saat melangkah masuk kerumah itu, mendadak hatinya menjadi sangat sedih, mengingat semua kenangan semasa dia tinggal disitu. Dia merasa sangat menyesal telah bersikap buruk terhadap ayahnya.

   Hadiah Terakhir Dari Ayah
Dengan bayangan-bayangan masa lalu yang menari-nari di matanya, dia menelusuri semua barang di rumah itu. Dan ketika dia membuka lemari pakaian ayahnya, dia menemukan Jaket itu, masih terbungkus dengan kertas kado yang sama beberapa tahun yang lalu.


sesuatu jatuh dari bagian kantong Jaket itu. Dia memungutnya.. sebuah kunci mobil! Di gantungan kunci mobil itu tercetak nama dealer, sama dengan dealer mobil sport yang dulu dia idamkan! Dia merogoh kantong sebelahnya dan menemukan sesuatu,, di situ terselip STNK dan surat-surat lainnya, namanya tercetak di situ. Dan sebuah kwitansi pembelian mobil, tanggalnya tepat sehari sebelum hari wisuda itu.


Dia berlari menuju garasi, dan di sana dia menemukan sebuah mobil yang berlapiskan debu selama bertahun-tahun, meskipun mobil itu sudah sangat kotor karena tidak disentuh bertahun-tahun, dia masih mengenal jelas mobil itu, mobil sport yang dia dambakan bertahun-tahun lalu. Dengan buru-buru dia menghapus debu pada jendela mobil dan melongok kedalam. Bagian dalam mobil itu masih baru, plastik membungkus jok mobil dan setirnya, di atas dashboardnya ada sebuah foto, foto ayahnya, sedang tersenyum bangga


Mendadak dia menjadi lemas, lalu terduduk disamping mobil itu, ia menangis. air matanya tidak terhentikan, mengalir terus mengiringi rasa menyesalnya yang takan mungkin bisa terobati...



Karya : Harist Irwansyah, Hadiah Terakhir Dari Ayah (Jakarta : 16 Desember, 2012) Catatan Pribadi

DUNIA_RPL

Cara Membuat Acak Angka Dengan VB 6.0
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 Hasil Aplikasi Acak Angka  
9.  Selamat mencoba kawan,,,Sesungguhnya kesuksesan itu hanya untuk
     mereka yang mau berusaha dan bertawakal !

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)
Sumber :file:///D:/vb/membuat-aplikasi-acak-angka-dengan.html

DUNIA_RPL

CARA MEMBUAT PERHITUNGAN HARGA BARANG DENGAN VB 6.0
1.    Buatlah New Project pada software VB anda kemudian tambahkan empat buah kontrol label, empat TextBox dan satu commandButton pada form, kemudian atur letaknya seperti pada gambar berikut : 

 Gambar aplikasi penghitung harga barang dengan VB

2.    Atur properti caption untuk masing-masing label dan commanButton seperti pada gambar diatas.

3.    Klik ganda tombol CommandButton1(proses), kemudian ketikkan kode/listing/script program berikut :
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Text4.Text = (a * b) - (a * b * c) / 100
End Sub
Pernyataan Dim adalah untuk mendeklarasikan variabel a, b, dan c dimana variabel tersebut untuk mewakili/menampung nilai yang diketikkan pada text1, text2 dan text3 dengan tipe integer (angka). Jika tombol commandbutton1/tombol proses diklik maka pada text4 akan menampilkan hasil perhitungan antara perkalian nilai yang diketikkan pada text1 dan text2 kemudian dikalikan dengan nilai yang diketikkan pada text3.

4.    Jalankan Program dengan menekan tombol F5, kemudian coba ketikkan nilai pada masing-masing textbox dan tekan tombol proses.

5.    Hasilnya seperti berikut:


 Gambar Program Penghitung harga Barang dengan VB

6.    Simpan hasil proyek Anda dan Selamat mencoba,,Sesungguhnya sifat malas itu datang dari hati yang kotor..!

Referensi : Microsoft Visual Basic 6.0 Untuk Pemula (MADCOMS)

DUNIA_RPL

 APLIKASI ALARM DENGAN VB 6.0
Baiklah kita akan membuat prog
ram aplikasi Alarm dengan Vb 6.0 , dimana aplikasi ini bisa membantu mengingatkan anda ketika sedang asyik bermain komputer, dimana biasanya kita kelupaan sholat gara-gara maen game atau lupa bahwa ada jadwal pada jam itu. Dalam membuat program aplikasi alarm ini sangat mudah sekali saya yakin anda pasti bisa setelah membaca tutorial dari saya berikut ini :
1.    Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2.    Tambahkan pada form anda 3 kontrol label, 2 kontrol commandbutton, 2 kontrol timer dan satu textbox, kemudian aturlah sehingga seperti gambar dibawah ini :

Gambar Program Aplikasi Alarm Dengan Vb 6.0
3.    Aturlah properties kontrol Timer1 dimana Enabled= TRUE dan Interval=1000 , lalu untuk kontrol Timer2 Enabled=FALSE dan intervalnya 1000 juga
4.    kemudian ketikkan kode/listing/script program dibawah ini :
Dim alarm As Boolean
Private Sub Command1_Click()
If alarm = True Then
Timer2.Enabled = False
Command1.Caption = "Aktif"
alarm = False
Else
Command1.Caption = "Tidak Aktif"
alarm = True
End If
End Sub

Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
alarm = False
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time
If Text1.Text = Label1.Caption And alarm = True Then
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Beep
End Sub
5.    Save dan silahkan run program anda dengan menekan F5 dan silahkan untuk mengeset waktu alarm yang anda inginkan lalu klik tombol Aktif , berikut contoh dimana kita menetapkan pukul 12:00:00 PM alarm akan hidup :
Gambar Hasil Program Aplikasi Alarm Dengan Vb 6.0
6.    Mudahkan, Selamat Mencoba…!!!
 sumber:file:///D:/vb/membuat-program-aplikasi-alarm-dengan.html