CONFESSION OF A CODER

[oZ]

oZ here;

Confession; I wrote the Registration form, having spent about 60 hours doing it I still didn’t have it without a few “bugs”. That’s where the VRCC staff really stepped up to the plate.

In writing the Registration for InZane X, I could have never finished it without incredible help from F6Gal (who laid out the design and look of the form and totally came up with the smart ideas for keeping the form logical and easy to understand), Scott (who did a lot of clean up and who’s advice was invaluable) and Willow (who kept me on track and reminded me of everything I forgot).

And not to forget Lori who I want to thank, she tested the darn thing to make sure it worked before we put it up.

With the extreme help of all the above VRCC staff I think we got the form “bullet proof”.

If you have any problems with the Registration form just know it’s probably my blunder, meaning there was something even my crack VRCC board didn’t find! But with hundreds of lines of code it’s just not that easy to catch everything, but we have it now.

If you have any problems while using the InZane X Registration form just email us at vrccstaff@gmail.com and we'll help you and make everything right!

Your humble, slightly neurotic servant
oZ…

[Whistler]

I personally think you and the Staff have done an outstanding job!  Any questions or blunders I make  have always been taken care of by a more than willing staff.  This will be my second InZane and I am greatly looking forward to it.  You guys and gals do a great job and work many thankless hours  to pull it off. Great Job and THANK YOU ALL!  See you in Michigan!!  JDW

[DFragn]

Nice Job Oz & Gang!
Between you and the crew any remaining "blunders" I'm sure would go undetected.

I'm hoping my health will allow this InZane for us. It would be my first and being so close this go round a big disappointment if we can't.

Oz - trust me I know all about code "blunders". I make a lot of them and they can take many hrs. to locate and sometimes my code is a little "dirty".

Option Explicit
Dim Cancelled As Boolean, showTime As Boolean, showTimeLeft As Boolean
Dim startTime As Long
Dim BarMin As Long, BarMax As Long, BarVal As Long  

Private Declare Function GetTickCount Lib "Kernel32" () As Long  

Public Sub Configure(ByVal title As String, ByVal status As String, _
                     ByVal Min As Long, ByVal Max As Long, _
                     Optional ByVal CancelButtonText As String = "Cancel", _
                     Optional ByVal optShowTimeElapsed As Boolean = True, _
                     Optional ByVal optShowTimeRemaining As Boolean = True)
    Me.Caption = title
    lblStatus.Caption = status
    BarMin = Min
    BarMax = Max
    BarVal = Min
    CancelButton.Visible = Not CancelButtonText = vbNullString
    CancelButton.Caption = CancelButtonText
    startTime = GetTickCount
    showTime = optShowTimeElapsed
    showTimeLeft = optShowTimeRemaining
    lblRunTime.Caption = ""
    lblRemainingTime.Caption = ""
    Cancelled = False
End Sub  

Public Sub SetStatus(ByVal status As String)
    lblStatus.Caption = status
    DoEvents
End Sub  


Public Sub SetValue(ByVal value As Long)
    If value < BarMin Then value = BarMin
    If value > BarMax Then value = BarMax
    Dim progress As Double, runTime As Long
    BarVal = value
    progress = (BarVal - BarMin) / (BarMax - BarMin)
    ProgressBar.Width = 292 * progress
    lblPercent = Int(progress * 10000) / 100 & "%"
    runTime = GetRunTime()
    If showTime Then lblRunTime.Caption = "Time Elapsed: " & GetRunTimeString(runTime, True)
    If showTimeLeft And progress > 0 Then _
        lblRemainingTime.Caption = "Est. Time Left: " & GetRunTimeString(runTime * (1 - progress) / progress, False)
    DoEvents
End Sub  

Public Function GetRunTime() As Long
    GetRunTime = GetTickCount - startTime
End Function  


Public Function GetFormattedRunTime() As String
    GetFormattedRunTime = GetRunTimeString(GetTickCount - startTime)
End Function  


Private Function GetRunTimeString(ByVal runTime As Long, Optional ByVal showMsecs As Boolean = True) As String
    Dim msecs&, hrs&, mins&, secs#
    msecs = runTime
    hrs = Int(msecs / 3600000)
    mins = Int(msecs / 60000) - 60 * hrs
    secs = msecs / 1000 - 60 * (mins + 60 * hrs)
    GetRunTimeString = IIf(hrs > 0, hrs & " hours ", "") _
                     & IIf(mins > 0, mins & " minutes ", "") _
                     & IIf(secs > 0, IIf(showMsecs, secs, Int(secs + 0.5)) & " seconds", "")
End Function  


Public Function GetValue() As Long
    GetValue = BarVal
End Function  


Public Function cancelIsPressed() As Boolean
    cancelIsPressed = Cancelled
End Function  


Private Sub CancelButton_Click()
    Cancelled = True
    lblStatus.Caption = "Cancelled By User. Please Wait."
End Sub

[oZ]

Wow! That's some serious code and to tell you at first look I wouldn't like to dig through all that looking for bugs

[oZ]

I personally think you and the Staff have done an outstanding job!  Any questions or blunders I make  have always been taken care of by a more than willing staff.  This will be my second InZane and I am greatly looking forward to it.  You guys and gals do a great job and work many thankless hours  to pull it off. Great Job and THANK YOU ALL!  See you in Michigan!!  JDW

JDW
thanks for your reply it cool to hear folks know what we're up too!

[big d]

with this being our third inzane i want to thank all who work tirelessly to make the eventgo off without a hitch. after the disastrous start to last years i/z it ended with a nice ride in the back of a police cruiser with F6Gal. wow what a ride. again thank you for all your hard work and look forward to seeing all of you again in a couple months.