برنامج مقهى انترنت...

Dim test As String
Dim test2 As String
test = "2:00:00"
test2 = "5"
MsgBox Val(test) * Val(test2)

will output 10

يعطيك العافية اخي...

وعندي سوال ثاني..

اذا بغييييت احسب القيمة بالدقائق...

يعني 50 ثانية * السعر... هذه كيف؟

MsgBox Val(test) * Val(test2)

لانه هذه تحسب لي الساعات فقط..!!

وشكرا

اذا test1 تحتوي على عدد الساعات اضربها ب60

ممكن أعرف مميزات هذا البرنامج فأنا أبحث عن برنامج كهذا ولكن بشرط أن يكون عداد وقت فقط ولا يتحكم بالجهاز كثيرا

مشكور اخي.. بس ولله ما ضبطت معي..!!

شوف هذا الكود...

ياريت لو تقدر تضبطه لي...

Option Explicit
Dim start
Dim price As String

Private Sub com1timer_Timer()
com1te.Text = Time - start
com1te.Text = Format(com1te, "hh:mm:ss")
End Sub

Private Sub Command1_Click()
com1status.ForeColor = &HC0&
com1status = "BUSY"
com1st.Text = Time
com1timer.Enabled = True
start = Time
End Sub

Private Sub Command4_Click()
com1timer.Enabled = False
com1end.Text = Time
price = 5
com1price.Text = Val(com1te) * Val(price)
End Sub

وعذرا عاااد... ترى اتعبتك بكثرة الاسئلة..

تحياتي

هذه صورة من الي البرنامج الي احاول اسويه... (يمكن تفيد)