XProfan

Français

diimool25

pfad$ = "J:\1"+".txt"

if fileexists(pfad$)

    clearlist
    assign #1, Pfad$
    reset #1

    WhileNot @Eof(#1)

        i% = i%+1
        Input #1,Zeile$
        SetText RadionButton%[i%], Zeile$

    EndWhile

    close #2>1

wieso commence il im programm à den 1. aus qui txtdatei beim 6. button trop faire ?

07.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

un Array ist nullbasierend. tu mets mais den index i% juste sur 1. tout autor wird cela zweite Arrayfeld abgefragt.
Kompilieren Marque Séparation

Declare Arr%[9]
Cls

WhileLoop 0,9

    Arr%[&Loop] = &Loop

Wend

WhileLoop 0,9

    Print Arr%[&Loop]

Wend

KompilierenMarqueSéparationpfad$ = "J:\1"+".txt"
 avec dem + et pas 
KompilierenMarqueSéparationpfad$ = "J:\1.txt"

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

diimool25

cela J'ai eu gemacht là cela avec qui 1 oui seulement ne test fichier ist et je hatte cela woanders Schonmal so gemacht et car J'ai eu cela so übernommen mais merci

07.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

diimool25

undwas soll je maintenant oui c'est ca enlever ?

07.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

diimool25

Ahh j'ai meinen faute déjà trouvé je hatte i% déjà devant genutzt et là était i% déjà sur 6 desswegen hat il ouf 6 angefangen

07.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

diimool25

wieso peux je aucun buttons chez dem countdown nutzen ?

proc count2

Set("Décimal",1)
var time%=&GetTickCount
var text&=Create("Text",%hwnd,»,30,30,120,20)

tandis que & GetTickCount-time%<60000
Cas & GetTickCount-time%<60000 : Settext text&,Str$((60000-(& GetTickCount-time%))/1000) + " Sekunden"
Endwhile

ENDPROC

08.03.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

je serait la fois chez Rechenoperationen Klammern benutzen.
Kompilieren Marque Séparation

Set("Decimals",1)
Cls
var time%=&GetTickCount
var text&=Create("Text",%hwnd,"",30,30,120,20)

while (&GetTickCount-time%) < 60000

    Case (&GetTickCount-time%) < 60000 : Settext text&,Str$((60000-(&GetTickCount-time%))/1000) + " Sekunden"

End

/a>

Ist erstens, besser trop lesen et zweitens venez XProfan
aussi ensuite pas durcheinander.

Im obigen Code vois je zwar aucun Erzeugung de Buttons, mais je prends
à, qui du cela dans deinem Gesamtcode fais.

si du den obige Proc count2 ausführst, wird dans cette 60 Sekunden
aussi rien plus aller, weil qui Tandis que-Boucle avec cela beschäftig ist,
avec SetText.... une Text trop mettons. ici am besten SetTimer benutzen
et den pas allzu petite faire, si WaitInput dans deiner Hauptschleife
aussi encore réagir peux.

qui bessere Weg ist, MultiProzessing trop verwenden. là ist dans qui
Aider z.B. beschrieben, comment on qui Zeit dans qui Titelleiste anzeigt.

cela pourrait z.B. so air :
Kompilieren Marque Séparation

Déclarer start&, stop&, liste&, ende&, ende2&, pid&
Fenêtre Style 16' System-menu ausblenden
Titre de la fenêtre "Haupt - Fenster"
Fenêtre 600,  500
start& = @Créer("Button", %HWnd, "Start", 10, 10, 80, 25)
stop&  = @Créer("Button", %HWnd, "Stop",  100,10, 80, 25)
ende&  = @Créer("Button", %HWnd, "Ende",  190,10, 80, 25)
liste& = @Créer("Listbox", %HWnd, 0, 10, 50, 400, 200)
ende2& = 0
EnableWindow stop&, 0

WhileNot ende2&

    WaitInput

    Si @Clicked(start&)

        ClearList liste&
        pid& = pExec("|Count2", %HWnd, liste&)

        Si pid& > 0

            EnableWindow stop&, 1
            EnableWindow start&, 0

        EndIf

    ElseIf @Clicked(stop&)

        Si pid& > 0

            Process("Kill", pid&, 0)
            EnableWindow start&, 1
            EnableWindow stop&, 0

        EndIf

    ElseIf @Clicked(ende&)

        Si pid& > 0

            Process("Kill", pid&, 0)

        EndIf

        ende2& = 1

    EndIf

Endwhile

Proc Count2

    Paramètres whandle&, listb&
    Set("Décimal",1)
    var ende1% = 0
    var time%=&GetTickCount
    var text&=Créer("Text",%hwnd,»,30,30,120,20)

    Tandis que ((&GetTickCount-time%) < 60000) OU (ende1% = 1)

        Cas getText$(whandle&) = » : ende1% = 1

        Si (&GetTickCount-time%) < 60000

            AddStrings(listb&, Str$((60000-(&GetTickCount-time%))/1000) + " Sekunden")
            SendMessage(listb&, $0186, @GetCount(listb&) -1, 0)

        EndIf

    Endwhile

ENDPROC

Fin

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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation