Tanpa kata
oleh dian heryana

hanya senyuman.

Latihan visual Basic : HOTEL

Lagi Latihan VB blajar blajar ....
nih Script nya seperti ini ...



Private Sub Command3_Click()
End
End Sub

Private Sub DTPicker2_Change()
txt_lama.Text = DTPicker2.Value - DTPicker1.Value
txt_B_inap.Text = Val(txt_lama.Text) * 50000
End Sub

Private Sub Check1_Click()
If (Check1.Value = 1) Then
txt_B_Makan.Text = Val(txt_lama.Text) * 8000
Else
txt_B_Makan.Text = 0
End If

End Sub

Private Sub Check2_Click()
If (Check2.Value = 1) Then
txt_B_Fitnes.Text = Val(txt_lama.Text) * 10000
Else
txt_B_Fitnes.Text = 0
End If

End Sub

Private Sub Check3_Click()
If (Check3.Value = 1) Then
txt_B_Laundry.Text = Val(txt_lama.Text) * 10000
Else
txt_B_Laundry.Text = 0
End If

End Sub


Private Sub txt_B_inap_Change()
txt_Total.Text = Val(txt_B_inap.Text)
End Sub


Private Sub txt_B_Makan_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text)
End Sub
Private Sub txt_B_Fitnes_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text) + Val(txt_B_Fitnes.Text)
End Sub
Private Sub txt_B_Laundry_Change()
txt_Total.Text = Val(txt_B_inap.Text) + Val(txt_B_Makan.Text) + Val(txt_B_Fitnes.Text) + Val(txt_B_Laundry.Text)
End Sub
Private Sub txt_bayar_Change()
txt_kembali.Text = Val(txt_bayar.Text) - Val(txt_tot_biaya.Text)
End Sub

Private Sub txt_pot_Change()
txt_Potongan.Text = (Val(txt_pot.Text) / 100) * Val(txt_Total.Text)
txt_tot_biaya.Text = Val(txt_Total.Text) + Val(txt_Potongan.Text)
End Sub

Nasihat Ibu
oleh : Dian Heryana


Anaku sayang…. Apa yang kau lakukan
Jangan kau sia – sia kan waktu yang terus berlalu
Ingat anaku waktumu hanya sesaat

Anaku……ingatlah
Kan tujuan utamamu di rantau orang
Mengumpulkan bekal tuk kehidupan kekal

Anaku sayang …. Sadarlah
Jangan kau tertipu keindahan nyata nan maya
Jangan kau terpedaya harta dan wanita
Jangan kau biarkan musuh nyatamu menipumu
hingga ia tertawa ria

Kenalilah dirimu anaku
Kenali tuanmu
Kenali musuhmu
Kenali jalan hidupmu
Ikutilah aturan main-Nya
Janganlah kau melanggar
Hingga kau durhaka

processornya lagi ngak bener ...
mungkin suatu nanti saya akan berbagi ilmu di blog ini bukan hanya keluh kesah ... semoga

Putri Kecil
by Dian Heryana

Putri kecil ...
Kau tebarkan pesona
lewat raut wajah cantikmu
hingga purnama pun
tenggelam dihadapmu

Putri kecil...
Kau sebarkan kebahagiaan
lewat binar terang matamu
mengubur kesusahan hati

Putri kecil...
Kau sebarkan segala suka
lewat indahnya senyuman
membunuh semua duka lara

Putri kecil ...
kau bangunkan gairah
lewat gerak riang tubuhmu
meninabobokan kemalasan

Putri kecil ...
mengapa Kau diam

Latihan 1 : Visual Basic

Lagi coba latihan vb



Form nya kayak gitu. scriptnya nanti ... kapan kapan

baca baca baca

baca analisys SWOT.
baca Modern Structure Analisys
baca Structure Analisys
baca baca baca

weleh weleh weleh saking puyengnya sampai tak dibaca semua :)

belum ada judul

wah sudah lama nih tidak nulis di blog (emang tadinya juga males, cuma kepaksa aja :) )......... agak susah online :) .
welcome home dian...:)

mulai hidup baru tidak harus dengan status baru, tapi dengan pola pikir baru. ayo berubahlah ... dunia ini terus berubah jika kita tidak ikut berubah kita akan punah...