Program Database Hotel

assalammualaikum wr.wb
dsni sya ingin berbagi pngetahuan,,tp pngetahuan saya msh jblm dr cukup,,
dsini saya sdikit memberikan  gambaran untuk membuat sbuah program database
 1)

 2)

 3)

mav saya blm kasih skrip.a,,nti scepat mngkin skrip.a akn sya ksh tau,,,
nie contoh program yang hampir jadi,d donwload ajh yh http://www.filefactory.com/file/cc62273/n/PB.rar

Program kalkulator Sederhana

mav saya kasih bru disain.a,,,untuk skrip.a nnti saya update... ^_^

Program billing sederhana

Dim Harga As Integer, Bill As Integer
Dim IntervalWaktu As Integer



Private Sub Command1_Click()

Label6 = ": " & Format(Time, "hh:mm:ss")
JamMulai = Format(Time, "hh:mm:ss")
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Timer2.Enabled = True


End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Timer2.Enabled = False

End Sub


Private Sub Command3_Click()
Unload Me
End Sub



Private Sub Form_Load()

Harga = 5
IntervalWaktu = 2000    'dalam milidetik
Timer1.Interval = IntervalWaktu
End Sub

Private Sub Timer1_Timer()
Timer1.Tag = Bill + Harga
Bill = Timer1.Tag
Label1.Caption = ": Rp. " & Bill & ",-"

End Sub

Private Sub Timer2_Timer()
Label7 = ": " & Format(Time, "hh:mm:ss")

End Sub

 slamet mencoba apabila ada kulehan atw ada msalah coment dsni aj,,ok febryrisdianto27@yahoo.com