Announcement

Collapse
No announcement yet.

Quicky Programming ?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Quicky Programming ?

    Argh I was wondering if you guys could help me out here. I've ben stumbling over this code for a few hours and I'm willing to bet one of you have the anwser. Any help would be great !

    ok, I'm using VB.Net and I for the life of me cannot convert this vb6 code:

    Code:
    Sub timeout(seconds As Double)
    Dim total As Double
    Dim current As Double
    Dim X As Double
    
    X = Timer
    
    Do
    DoEvents
    current = Timer
    total = current - X
    Loop Until total > seconds
    
    
    
    End Sub
    Progress [I will seriously never be done!]
    Via EPIA MII
    512MB RAM
    OEM GPS (embedded)
    nLite WinXP pro on
    1GB Extreme III CF card
    Carnetix 1260 startup/ DC-DC regulator
    Software: Still, re-Writing my existing front end in .Net

  • #2
    Originally posted by IntellaWorks
    Argh I was wondering if you guys could help me out here. I've ben stumbling over this code for a few hours and I'm willing to bet one of you have the anwser. Any help would be great !

    ok, I'm using VB.Net and I for the life of me cannot convert this vb6 code:

    Code:
    Sub timeout(seconds As Double)
    Dim total As Double
    Dim current As Double
    Dim X As Double
    
    X = Timer
    
    Do
    DoEvents
    current = Timer
    total = current - X
    Loop Until total > seconds
    
    
    
    End Sub
    What is "Timer" ???. Don't see it declared . Are you just trying to loop for a certain amout of time and still process events ?

    Comment


    • #3
      VWmike, if your not familiar with VB6 then dont try to answer it....timer is the current cpu clock time
      PC Components:
      Lilliput; XPC/FLEX mobo; 1.7 ghz P4 Mobile;512 DDR; 160 gb HDD; opus 150; slot usb dvd-rw
      My work log

      Comment


      • #4
        i think this is close

        Imports System
        Imports System.Threading

        Public Class Form1
        Inherits System.Windows.Forms.Form

        Sub timeout(ByVal seconds As Double)
        Thread.Sleep(seconds * 1000)
        End Sub

        End Class
        PC Components:
        Lilliput; XPC/FLEX mobo; 1.7 ghz P4 Mobile;512 DDR; 160 gb HDD; opus 150; slot usb dvd-rw
        My work log

        Comment


        • #5
          .

          nope :-\ grrrrrr this is such an easy thing
          Progress [I will seriously never be done!]
          Via EPIA MII
          512MB RAM
          OEM GPS (embedded)
          nLite WinXP pro on
          1GB Extreme III CF card
          Carnetix 1260 startup/ DC-DC regulator
          Software: Still, re-Writing my existing front end in .Net

          Comment


          • #6
            here it is exactly

            Sub timeout(ByVal seconds As Double)
            Dim x, current, Total As Double
            x = Microsoft.VisualBasic.DateAndTime.Timer
            Do
            Application.DoEvents()
            current = Microsoft.VisualBasic.DateAndTime.Timer
            Total = current - x
            Loop Until Total > seconds
            End Sub
            PC Components:
            Lilliput; XPC/FLEX mobo; 1.7 ghz P4 Mobile;512 DDR; 160 gb HDD; opus 150; slot usb dvd-rw
            My work log

            Comment


            • #7
              awesome.

              Awesome.. thats where they hid the timer.... thanks a bunch !
              Progress [I will seriously never be done!]
              Via EPIA MII
              512MB RAM
              OEM GPS (embedded)
              nLite WinXP pro on
              1GB Extreme III CF card
              Carnetix 1260 startup/ DC-DC regulator
              Software: Still, re-Writing my existing front end in .Net

              Comment


              • #8
                no prob
                PC Components:
                Lilliput; XPC/FLEX mobo; 1.7 ghz P4 Mobile;512 DDR; 160 gb HDD; opus 150; slot usb dvd-rw
                My work log

                Comment

                Working...
                X