تبلیغات
تبلیغات متنی
محبوبترینها
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836967277
می خوام یک برنامه -
واضح آرشیو وب فارسی:سایت ریسک: t=7270">می خوام یک برنامه kazifasa 26 بهمن 1382, 18:44من می خوام یک برنامه برای کافی نت بنویسم که ساعت ورود و خروج را بگیر و نرخ استفاده شده را حساب کند من دنبال فرمولی هستم که بتوانم متغیری که ساعت ها را از هم کم کند ÷یدا کنم لطفا کمک کنید omidak 26 بهمن 1382, 21:29سلام: چه زباني؟ :roll: kazifasa 27 بهمن 1382, 09:40به هر زباني كه بشه نوشت مشكلي نيست تحت ويندوز باشه اگر با visual basic با شه بهتره omidak 27 بهمن 1382, 19:44سلام: خوب الانه مشكل اتون چيه؟ :roll: كجايه كارتون گيره؟ :roll: kazifasa 27 بهمن 1382, 21:12فرمولي كه بتونم ساعت ها را از هم كم كنم omidak 28 بهمن 1382, 04:27سلام: برايه گرفتن زمان قبل و بعد و همچنين تفريق اشون از API استفاده کن :wink: مقدار زمانی که Windows شما فعال هست توسط API: Public Declare Function GetTickCount Lib "kernel32" () As Long گرفته میشه... زمان شروع رو یک بار بگیرید . بار بعد پایان. اینها رو از هم کم کنید... و توسط این Function که همین الان مُردم تا نوشتم اش تبدیل به مقدار زمانی ایش کنید :wink: : Public Function GetThisTime(ByVal timein As Long) As String Dim conH As Integer Dim conM As Integer Dim conS As Integer Dim remTime As Long Dim strRetTime As String remTime = timein / 1000 conH = Int(remTime / 3600) remTime = remTime Mod 3600 conM = Int(remTime / 60) remTime = remTime Mod 60 conS = remTime If conH > 0 Then strRetTime = Trim(Str(conH)) & ":" Else strRetTime = "" End If If conM >= 10 Then strRetTime = strRetTime & Trim(Str(conM)) ElseIf conM > 0 Then strRetTime = strRetTime & "0" & Trim(Str(conM)) Else strRetTime = strRetTime & "00" End If strRetTime = strRetTime & ":" If conS >= 10 Then strRetTime = strRetTime & Trim(Str(conS)) ElseIf conS > 0 Then strRetTime = strRetTime & "0" & Trim(Str(conS)) Else strRetTime = strRetTime & "00" End If GetThisTime = strRetTime End Function یک Module باز کنید . این دوتا کد رو توش بزارید و بعد به این صورت ازش استفاده کنید :wink: : Dim SDate, EDate As Long Private Sub Command 1_Click() SDate = GetTickCount End Sub Private Sub Command 2_Click() EDate = GetTickCount Text2.Text = GetThisTime(EDate - SDate) End Sub kazifasa 28 بهمن 1382, 09:32با تشكر از شما دوست عزيز كه زحمت كشيد و اين كد را در اختيار من گذاشتيد اگر امكان دارد مي خواستم ببينم كه آيا مي توانيم فايل كمپايل شده را در اختيار من بگذاريد يا نه ممنون مي شوم omidak 28 بهمن 1382, 15:43سلام: اگه كل برنامه رو ميخوايي . والا اين روزا ديگه دارم ميمرم. شرمنده اگر همين يك تيكه كه نوشتم رو ميخوايي برات ميفرستم :wink: kazifasa 28 بهمن 1382, 21:18ممنون مي شم اگرخمين كار بكنيد zimi 14 بهمن 1385, 11:25shoma chera loghmaro mipichooni? ba exel benvis khob :) MnavidM 15 بهمن 1385, 08:24این تایپک برمیگرده با سال 2004 . اگر سوالی دارید ، در تاپیکی دیگر مطرح کنید. موفق باشید.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 196]
-
گوناگون
پربازدیدترینها