Hello guys...I made a program but when i run it i get a debug because i put the wrong timers action i tried to change it but still: Private Sub Form_Load() Let lblTime.Caption = Let Timer1.Enabled = True Let Timer2.Enabled = False End Sub Can anybody tell me how to put the timers auction on the second line?

Reply

OK, first of all, following piece of code
will produce run-time error... You need to assign some value to Caption, like

I don't know what you are doing in Timer events, but this is the only error in this piece of code... This has nothing to do with Timer actions, it's just a syntax error...

A little tip: You can leave out Let statement, it really has no function anymore. Your code would then look like this:

 

 

 

Reply

Thanks for the reply Galahad.. :-)

John, Please make the topic names more resonable. They should describe the contents of your post. It helps us to rank at search Engines.

Reply

i will

I still get the debug. I tried everything but nothing

Here is the code:

Private Sub Form_Load()
lblTime.Caption = ""
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub txtStatus_Change()
If frmMain.WindowState = 1 Then
Let Timer2.Enabled = True
Else
Let Timer2.Enabled = False
Let frmMain.Caption = "AdCache Remover"
End If
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub Timer1_Timer()
Let lblTime.Caption = Str((lblTime.Caption) + 1)
Let lblStatusTime.Caption = Str((lblStatusTime.Caption) + 1)
On Error Resume Next
x% = Len(Dir$("c:\Windows\System\AdCache\*.*")) 'If you have a different directory for the AdCache change it.
If Err Or x% = 0 Then fileexists = False Else fileexists = True
If lblTime.Caption = 1 Then
If fileexists = True Then
Kill ("C:\Windows\System\AdCache\*.*") 'If you have a different directory for the AdCache change it.
Let txtStatus.Text = "Deleting AdCache"
Let lblTime.Caption = 0
Else
Let txtStatus.Text = "Removing"
Let lblTime.Caption = 0
End If
End If
If lblStatusTime.Caption = 1 Then
Let txtStatus.Text = txtStatus.Text & "."
ElseIf lblStatusTime.Caption = 2 Then
Let txtStatus.Text = txtStatus.Text & ".."
ElseIf lblStatusTime.Caption = 3 Then
Let txtStatus.Text = txtStatus.Text & "..."
ElseIf lblStatusTime.Caption = 4 Then
Let txtStatus.Text = txtStatus.Text & "...."
ElseIf lblStatusTime.Caption = 5 Then
Let txtStatus.Text = txtStatus.Text & "....."
ElseIf lblStatusTime.Caption = 6 Then
Let txtStatus.Text = txtStatus.Text & "......"
ElseIf lblStatusTime.Caption = 7 Then
Let txtStatus.Text = txtStatus.Text & "......."
ElseIf lblStatusTime.Caption = 8 Then
Let txtStatus.Text = txtStatus.Text & "........"
ElseIf lblStatusTime.Caption = 9 Then
Let txtStatus.Text = txtStatus.Text & "........."
ElseIf lblStatusTime.Caption = 10 Then
Let txtStatus.Text = txtStatus.Text & ".........."
ElseIf lblStatusTime.Caption = 11 Then
Let txtStatus.Text = txtStatus.Text & "..........."
ElseIf lblStatusTime.Caption = 12 Then
Let txtStatus.Text = txtStatus.Text & "............"
ElseIf lblStatusTime.Caption = 13 Then
Let txtStatus.Text = txtStatus.Text & "............."
ElseIf lblStatusTime.Caption = 14 Then
Let txtStatus.Text = txtStatus.Text & ".............."
ElseIf lblStatusTime.Caption = 15 Then
Let txtStatus.Text = txtStatus.Text & "..............."
ElseIf lblStatusTime.Caption = 16 Then
Let txtStatus.Text = txtStatus.Text & "................"
ElseIf lblStatusTime.Caption = 17 Then
Let txtStatus.Text = txtStatus.Text & "................."
ElseIf lblStatusTime.Caption = 18 Then
Let txtStatus.Text = txtStatus.Text & ".................."
ElseIf lblStatusTime.Caption = 19 Then
Let txtStatus.Text = txtStatus.Text & "..................."
ElseIf lblStatusTime.Caption = 20 Then
Let txtStatus.Text = txtStatus.Text & "...................."
ElseIf lblStatusTime.Caption = 21 Then
Let txtStatus.Text = txtStatus.Text & ""
Let lblStatusTime.Caption = 0
End If
End Sub

Private Sub Timer2_Timer()
Let lblCaptionTime.Caption = Str((lblCaptionTime.Caption) + 1)
If lblCaptionTime.Caption = 2 Then
Let lblCaptionTime.Caption = 0
End If
If lblCaptionTime.Caption = 0 Then
Let frmMain.Caption = "AdCache Remover"
ElseIf lblCaptionTime.Caption = 1 Then
Let frmMain.Caption = txtStatus.Text
End If
End Sub

Reply

I believe that this should work. Couple things I noticed, first you set the caption of you label to "" thus the functions that depended on that value wouldn't work. Next the LET is not necessary and the LONG if...elseif...endif statement was WAY too long, I replaced it with something I think should do the same trick. I might have messed up a few of the controls names....





If you need help (Or I screwed this up) just ask me, also remember to put you code within the code tags so you aren't docked posting points. The code tags are "[ CODE ]" to start the code section and "[ /CODE ]" to end the code. Without the spaces and quotes of course...

Reply

I get a debug on this:

Reply

It would help us if you tell us what specific error you get... If you get an error at that line, I guess you don't have Label object with that name. Maybe you spelled it differently or something... Try to be more descriptive in your posts, we will be able to help you quicker

Reply

John_cena just try to check your code under Timer1 function...
and also when you do coding you can indent each block of codes for you to be able to trace easily the code especially those syntax error. your code are almost done it just a miss matched of using "IF" and "END IF" command...

Reply