LA/QM forum › Quick Macros › Help (QM) v
Help with Counter

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Help with Counter
JustMe Offline
Junior Member
Posts: 45
Threads: 15
Joined: Jul 2006
#1
12-18-2006, 06:20 AM
Hello how would i get this counter to stop and close the toolbar when it gets to 300?

Code:
Copy      Help
;/count
function# hWnd message wParam lParam

sel message
,case WM_CREATE
,CreateControl 0 "Static" 0 0 0 0 150 20 hWnd 2
,SetTimer(hWnd 1 1000 0); goto timer    
,case WM_TIMER
,,if(wParam=1)
,,,;timer
,,,str s.getwintext(id(2 hWnd)); s=val(s)+1; s.setwintext(id(2 hWnd))
,,,
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#2
12-18-2006, 10:11 AM
Code:
Copy      Help
;/count
function# hWnd message wParam lParam

sel message
,case WM_CREATE
,CreateControl 0 "Static" 0 0 0 0 150 20 hWnd 2
,SetTimer(hWnd 1 1000 0); goto timer
,case WM_TIMER
,,if(wParam=1)
,,,;timer
,,,int c=GetProp(hWnd "count")
,,,if(c=300) clo hWnd; ret
,,,SetProp(hWnd "count" c+1)
,,,str s.getwintext(id(2 hWnd)); s=val(s)+1; s.setwintext(id(2 hWnd))
,,,
Website Find
JustMe Offline
Junior Member
Posts: 45
Threads: 15
Joined: Jul 2006
#3
12-19-2006, 02:49 AM
Thanks for the help Gin..... I was wondering is it possible to get the text in the counter to be white instead of black?
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#4
12-19-2006, 08:56 AM
Search forum for CFont.
Website Find
JustMe Offline
Junior Member
Posts: 45
Threads: 15
Joined: Jul 2006
#5
12-20-2006, 12:06 PM
Hello i have changed it to a dialog but i can't work out how to stop it starting soon as the dialog is open i want it to only start when i push the start button would be nice if someone could show me how or point me in the right direction to work it out my self

Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str e3
if(!ShowDialog("counter" &counter &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 221 133 "Form"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 Edit 0x54030080 0x200 6 4 24 14 ""
;4 Button 0x54032000 0x0 6 24 48 14 "start"
;END DIALOG
;DIALOG EDITOR: "" 0x2010900 "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,DT_Init hDlg lParam
,SetTimer hDlg 1 1000 0  
,ret 1
,case WM_TIMER
,str s.getwintext(id(3 hDlg)); s=val(s)+1; s.setwintext(id(3 hDlg))
,case WM_DESTROY DT_DeleteData hDlg
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 4
,;
,case IDOK
,DT_Ok hDlg
,case IDCANCEL
,DT_Cancel hDlg
ret 1
Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#6
12-20-2006, 12:48 PM
Move SetTimer line below case 4 line.
Website Find
JustMe Offline
Junior Member
Posts: 45
Threads: 15
Joined: Jul 2006
#7
12-20-2006, 02:03 PM
Thanks for your help again Gin i have it working sort of but when it gets to 300 the 300 stays there even if i push start again.. how do i get it to clear once it gets to 300 so it can start again when i push start button..


Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str e3
if(!ShowDialog("counter" &counter &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 221 133 "Form"
;1 Button 0x54030001 0x4 120 116 48 14 "OK"
;2 Button 0x54030000 0x4 170 116 48 14 "Cancel"
;3 Edit 0x54030080 0x200 6 4 24 14 ""
;4 Button 0x54032000 0x0 6 24 48 14 "start"
;END DIALOG
;DIALOG EDITOR: "" 0x2010900 "" ""

ret
;messages
sel message
,case WM_INITDIALOG
,DT_Init hDlg lParam  
,ret 1
,case WM_TIMER
,if(wParam=1)
,,int c=GetProp(hDlg "count")
,,if(c=300);ret
,,SetProp(hDlg "count" c+1)
,,str s.getwintext(id(3 hDlg)); s=val(s)+1; s.setwintext(id(3 hDlg))
,case WM_DESTROY DT_DeleteData hDlg
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 4
,SetTimer(hDlg 1 1000 0)
,mac "TV Show"
,case IDOK
,DT_Ok hDlg
,case IDCANCEL
,DT_Cancel hDlg
ret 1
Find
ken gray Offline
Posting Freak
Posts: 1,769
Threads: 410
Joined: Feb 2003
#8
12-20-2006, 06:47 PM
i think you need to reset c to "0" just after the "case 4" line.
An old blog on QM coding and automation.

The Macro Hook
Website Find
Gintaras Offline
Administrator
Posts: 12,074
Threads: 141
Joined: Dec 2002
#9
12-20-2006, 11:51 PM
Code between case WM_TIMER and case WM_DESTROY lines:

Code:
Copy      Help
,if(wParam=1)
,,int c=GetProp(hDlg "count")+1
,,if(c=300) c=0; KillTimer(hDlg 1)
,,SetProp(hDlg "count" c)
,,str s=c; s.setwintext(id(3 hDlg))
Website Find
JustMe Offline
Junior Member
Posts: 45
Threads: 15
Joined: Jul 2006
#10
12-24-2006, 12:07 PM
Hello thanks for all the help with this just one last thing is it possible to change the lil green arrow icon on the dialog? i have a lil TV icon i would like to have inplace of it..could u show me how to change it or again point me in the right direction so i can work it out my self..

Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

str controls = "3"
str e3
if(!ShowDialog("counter" &counter &controls)) ret

;BEGIN DIALOG
;0 "" 0x90C80A44 0x100 0 0 54 55 "TV"  
;2 Button 0x54030000 0x4 3 40 48 14 "Cancel"
;3 Edit 0x54030080 0x200 3 4 24 14 ""
;4 Button 0x54032000 0x0 3 24 48 14 "start"
;END DIALOG
;DIALOG EDITOR: "" 0x2010900 "" ""

ret
;messages
mov 936 25 hDlg
sel message
,case WM_INITDIALOG
,DT_Init hDlg lParam  
,ret 1
,case WM_TIMER
,if(wParam=1)
,,int c=GetProp(hDlg "count")+1
,,if(c=300) c=0; KillTimer(hDlg 1)
,,SetProp(hDlg "count" c)
,,str s=c; s.setwintext(id(3 hDlg))
,case WM_DESTROY DT_DeleteData hDlg
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,case 4
,SetTimer(hDlg 1 1000 0)
,mac "TV Show"
,case IDOK
,DT_Ok hDlg
,case IDCANCEL
,DT_Cancel hDlg
ret 1
Find


Forum Jump:


Users browsing this thread: 3 Guest(s)