اطلاعیه

Collapse
No announcement yet.

چطور توی vbasic مکث ایجاد کنم

Collapse
X
 
  • Filter
  • زمان
  • Show
Clear All
new posts

  • چطور توی vbasic Ù…Ú©Ø« ایجاد کنم

    سلام
    2تا سوال در مورد vbasic دارم (ببخشید پیش پا افتادن)
    1.چطور توی vbasic مکث ایجاد کنم .مثلا اول که برنامه اجرا میشه 1 ذقیقه صبر کنه بعد اجرا شه و توی این 1 دقیقه هیچ کاری نکنه (از حلقه استفاده نشه)
    2.چطور باید کاری کنم که برنامه اجرا بشه ولی چیزی نشون داده نشه .مثلا کارش رو انجام بده ولی چیزی نشون نده(فکر کنم بهش میگن مقیم در حافظه) مثل ویروس

    ممنون

  • #2
    براي مكث بايد از تامر استفاده كني
    مثلا تاخير 1 ثانيه

    کد:
    Private Sub delay
    t1 = Timer
    While (Timer - t1 < 1)
      DoEvents
    Wend
    End sub

    براي مخفي بودن هم كافيه visible = false باشه براي هر فرم

    براي مخفي بودن تو پراسس قبلا بحث شده

    موفق باشي
    ¯/(°_o)\¯
    بیچاره آن کسی است که گرفتار عقل شد **** آسوده آن کسی است که خر آمد و الاغ رفت
    این چه شوری است که در دور قمر می بینم **** همه آفاق پر از فتنه و شر می بینم
    اسب تازی شده مجروح به زیر پالن **** طوغ زرین بر گردن خر می بینم
    Copyright: Enigma2

    به اميد شبگردي بهتر

    Comment


    • #3
      خیلی ممنون
      ولی برای مکث:
      اون حلقه سرعت رو نمیگیره؟(قرار هست همیشه اجرا باشه)
      یه چیزی میخوام مثل sleep توی QB
      Last edited by hamedany; 01-20-2008, 07:23 PM. دلیل: ???silent???==>sleep

      Comment


      • #4
        راه دیگه ایجاد وقفه استفاده از تابع sleep هست(جزو API هاست)
        روش declare

        کد:
        Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        روش استفاده مثلا برای وقفه 1 ثانیه

        کد:
        Sleep 1000
        برای اینکه برنامتون چیزی نشون نده میتونید یک برنامه بدون فرم بسازید.برنامه رو داخل تابع اصلی main بنویسید.مثل زیر

        کد:
        sub main()
        ----
        ----
        ----
        end sub
        وقسمت startup برنامه رو به sub main تغییر دهید
        یک هدف بدون برنامه، فقط یک آرزو است.
        -آنتوان دو سنت اگزوپری-

        Comment


        • #5
          نوشته اصلی توسط !l@ نمایش پست ها
          راه دیگه ایجاد وقفه استفاده از تابع sleep هست(جزو API هاست)
          روش declare

          کد:
          Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
          روش استفاده مثلا برای وقفه 1 ثانیه

          کد:
          Sleep 1000
          بله اين كد پردازش خيلي كمتري مي بره
          اين بهتره
          ¯/(°_o)\¯
          بیچاره آن کسی است که گرفتار عقل شد **** آسوده آن کسی است که خر آمد و الاغ رفت
          این چه شوری است که در دور قمر می بینم **** همه آفاق پر از فتنه و شر می بینم
          اسب تازی شده مجروح به زیر پالن **** طوغ زرین بر گردن خر می بینم
          Copyright: Enigma2

          به اميد شبگردي بهتر

          Comment


          • #6
            Function takfanarp(ByVal Timeout As Integer)
            Dim i As Long
            i = Timer
            Do While Timer - i < Val(Timeout)
            DoEvents
            Loop
            End Function
            این به عنوان یه مدل تعریف کن بعد تو فرم لود برنامه اولین خط بنویس
            takfanarp 3
            برای مثال
            خونه
            www.parspishro.ir
            ذهن آشفته ای من
            www.literature.blogfa.com

            Comment

            Working...
            X