| |
| |
|
diimool25 | |
| |
| |
| |
|
|
Jörg
Sellmeyer | Ein Array es nullbasierend. Usted setzt aber el Index i% igual en 1. Darum se el zweite Arrayfeld abgefragt.
KompilierenMarcaSeparación |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 07.03.2014 ▲ |
|
| |
|
|
diimool25 | había Yo gemacht como el con el 1 sí sólo ne test datei es y yo hatte el woanders schonmal así gemacht y porque Tuve el así übernommen aber danke  |
|
| |
| |
| |
|
|
diimool25 | | undwas se Yo ahora genau wegnehmen ? |
|
| |
| |
| |
|
|
diimool25 | | Ahh Yo media fehler ya gefunden Yo hatte i% ya davor genutzt y como war i% ya en 6 desswegen ha él ei 6 angefangen |
|
| |
| |
| |
|
|
diimool25 | wieso kann Yo no buttons en el countdown nutzen ?
proc count2
Conjunto("Decimals",1)
var time%=&GetTickCount
var text&=Create("Text",%hwnd,"",30,30,120,20)
mientras que &GetTickCount-time%<60000
Case &GetTickCount-time%<60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + " Sekunden"
Endwhile
ENDPROC |
|
| |
| |
| |
|
|
H.Brill | Yo sería veces en Rechenoperationen Klammern benutzen.
KompilierenMarcaSeparación
Ist erstens, mejor a lesen y zweitens kommt XProfan
auch entonces no durcheinander.
Im obigen Code sehe Yo zwar no Erzeugung de Buttons, pero yo nehme
a, daß Si es usted el en deinem Gesamtcode machst.
Wenn du el obige Proc count2 ausführst, se en esta 60 Sekunden
auch nichts mehr ir, porque el Mientras que-Bucle así beschäftig es,
con SetText.... una Texto a conjunto. Hier al besten SetTimer benutzen
y el no allzu klein hacer, sodaß WaitInput en deiner Hauptschleife
auch todavía reagieren kann.
Der bessere Weg es, MultiProzessing utilizarse. Dort es en el
Ayuda z.B. beschrieben, cómo el Tiempo en el Titelleiste anzeigt.
Das podría z.B. así aussehen :
KompilierenMarcaSeparaciónDeclarar start&, stop&, liste&, ende&, ende2&, pid&
Ventana de Estilo 16' Sistema-Menü ausblenden
Título de la ventana "Haupt - Fenster"
Ventana 600, 500
start& = @Crear("Button", %HWnd, "Start", 10, 10, 80, 25)
stop& = @Crear("Button", %HWnd, "Stop", 100,10, 80, 25)
ende& = @Crear("Button", %HWnd, "Ende", 190,10, 80, 25)
liste& = @Crear("Listbox", %HWnd, 0, 10, 50, 400, 200)
ende2& = 0
EnableWindow stop&, 0
Sinestar encargado ende2&
WaitInput
If @Clicked(start&)
ClearList liste&
pid& = pExec("|Count2", %HWnd, liste&)
If pid& > 0
EnableWindow stop&, 1
EnableWindow start&, 0
EndIf
ElseIf @Clicked(stop&)
If pid& > 0
Process("Kill", pid&, 0)
EnableWindow start&, 1
EnableWindow stop&, 0
EndIf
ElseIf @Clicked(ende&)
If pid& > 0
Process("Kill", pid&, 0)
EndIf
ende2& = 1
EndIf
EndWhile
Proc Count2
Parámetros whandle&, listb&
Conjunto("Decimals",1)
var ende1% = 0
var time%=&GetTickCount
var text&=Crear("Text",%hwnd,"",30,30,120,20)
Mientras que ((&GetTickCount-time%) < 60000) O (ende1% = 1)
Case getText$(whandle&) = "" : ende1% = 1
If (&GetTickCount-time%) < 60000
AddStrings(listb&, Str$((60000-(&GetTickCount-time%))/1000) + " Sekunden")
SendMessage(listb&, $0186, @GetCount(listb&) -1, 0)
EndIf
Endwhile
ENDPROC
End
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 08.03.2014 ▲ |
|
| |
|
(798)
Deutsch
English
Français
Español
Italia