XProfan

Español

Julian
Schmidt

¡Hola,
Yo sería gerne una Listbox redactar welche Pagar en el Richtigen Reihenfolge anzeigt. Etwa..

1,2,3...100,...1001,....9999

Oder auch umgekehrt. Un bastante normale 'SortedListBox' zeigt Pagar en dieser Reihenfolge....

0,1,100,1000,2,200,2000,5000...

Falls así algo no posible es sería Me gusta el höchsten Valor uno Listbox(una Procedimiento)ermitteln.
Kompilieren Marca Separación

cls
var Liste&=Create("ListBox", %hwnd, 1, 0, 0, 100, height(%hwnd))

whileloop 100

    AddString(Liste&,Str$((Rnd(20)*&loop)))

Endwhile

while 1

    Sleep 30
    case iskey(27) : end

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Julian
Schmidt

hmmmmmm....así puede ser auch los números en uno Listbox sortieren, sieht sólo no schön de :p
Voraussetzung es natürlich una 'UnsortedListbox'.
Kompilieren Marca Separación

Windowstyle 24
Window 100,200 - 100,200
Windowtitle "Beispiel zum Sortieren von Zahlen in einer Listbox"
var Liste&=Create("ListBox", %hwnd, 0, 0, 0, width(%hwnd), height(%hwnd)-40)

whileloop 100

    AddString(Liste&,Str$((Rnd(20)*&loop)))

Endwhile

var sort_list&=Create("Button",%hwnd,"Sortieren",5,height(%hwnd)-35,width(%hwnd)-10,30)

while 1

    waitinput

    if getfocus(sort_list&)

        Sort_Listbox_by_Number(Liste&)
        EnableWindow sort_list&,0

    Endif

Endwhile

Proc Sort_Listbox_by_Number

    Parameters hdl&
    declare index%
    var num%=99999999999999999
    var numbersortedlist&=Create("List", 0)

    while GetCount(hdl&)<>0

        whileloop GetCount(hdl&)

            if num%>Val(GetString$(hdl&,&loop-1))

                num%=Val(GetString$(hdl&,&loop-1))
                index%=&loop-1

            Endif

        Endwhile

        AddString(numbersortedlist&,Str$(num%))
        DeleteString(hdl&,index%)
        num%=99999999999999999

    Endwhile

    Whileloop GetCount(numbersortedlist&)

        AddString(hdl&,GetString$(numbersortedlist&,&loop-1))

    Endwhile

    destroywindow(numbersortedlist&)
    Return 1

../../function-references/XProfan/ENDPROC/'>ENDPROC

Apéndice:
Fünf Zeilen mehr, aber dafür sieht el sortieren mejor de xD
Kompilieren Marca Separación

Windowstyle 24
Ventana 100,200 - 100,200
Windowtitle "Beispiel para Sortieren de Pagar en uno Listbox"
var Liste&=Crear("ListBox", %hwnd, 0, 0, 0, width(%hwnd), height(%hwnd)-40)

whileloop 100

    AddStrings(Liste&,Str$((Rnd(20)*&bucle)))

Endwhile

var sort_list&=Crear("Button",%hwnd,"Sortieren",5,height(%hwnd)-35,width(%hwnd)-10,30)

mientras que 1

    waitinput

    if getfocus(sort_list&)

        Sort_Listbox_by_Number(Liste&)
        EnableWindow sort_list&,0

    Endif

Endwhile

Proc Sort_Listbox_by_Number

    Parámetros hdl&,num%
    declarar index%
    var numbersortedlist&=Crear("List", 0)
    var copy_orginal_list&=Crear("List", 0)

    Whileloop GetCount(hdl&)

        AddStrings(copy_orginal_list&,GetString$(hdl&,&bucle-1))

    Endwhile

    mientras que GetCount(copy_orginal_list&)<>0

        num%=99999999999999999

        whileloop GetCount(copy_orginal_list&)

            if num%>Val(GetString$(copy_orginal_list&,&bucle-1))

                num%=Val(GetString$(copy_orginal_list&,&bucle-1))
                index%=&bucle-1

            Endif

        Endwhile

        AddStrings(numbersortedlist&,Str$(num%))
        DeleteString(copy_orginal_list&,index%)

    Endwhile

    ClearList hdl&

    Whileloop GetCount(numbersortedlist&)

        AddStrings(hdl&,GetString$(numbersortedlist&,&bucle-1))

    Endwhile

    destroywindow(numbersortedlist&)
    destroywindow(copy_orginal_list&)
    Volver 1

ENDPROC

Mi Cuestión Yo así a meiner 100% Zufriedenstellung beantwortet. Der Hilo es así geschlossen!

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Dietmar
Horn

¡Hola Julian,

Yo sería el a sortierenden Pagar con führenden Nullen auffüllen y ellos así uno sortierte Listbox para Mostrar werfen.

Um el Sortierung umzukehren sería Yo jede el Pagar de 1000, 10000, 100000, más o menos subtrahieren, y esta entonces .el sortierte Listbox füllen.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Dietmar Horn (17.08.11)

Yo sería el a sortierenden Pagar con führenden Nullen auffüllen y ellos así uno sortierte Listbox para Mostrar werfen.

Welchen Befehl puede ser a solch una Zweck uso? Etwa Formato$(...)?

Apéndice:
Hab ahora simplemente veces una Procedimiento geschrieben welcher el höchste Zahl uno Listbox ermittelt. Es para mein Problema ya el Solución!
Kompilieren Marca Separación

cls
var Liste&=Create("ListBox", %hwnd, 1, 0, 0, 100, height(%hwnd))

whileloop 100

    AddString(Liste&,Str$((Rnd(20)*&loop)))

Endwhile

Create("Text",%hwnd,"Largest Number of Listbox: "+Str$(Listbox_Largest_Number(Liste&)),110,10,230,18)
Create("Text",%hwnd,"Smallest Number of Listbox: "+Str$(Listbox_Smallest_Number(Liste&)),110,30,230,18)

while 1

    waitinput

Endwhile

Proc Listbox_Largest_Number

    Parameters hdl&
    declare num%

    whileloop GetCount(hdl&)

        case num%<Val(GetString$(hdl&,&loop-1)) : num%=Val(GetString$(hdl&,&loop-1))

    Endwhile

    Return num%

EndProc

Proc Listbox_Smallest_Number

    Parameters hdl&
    var num%=99999999999999999

    whileloop GetCount(hdl&)

        case num%>Val(GetString$(hdl&,&loop-1)) : num%=Val(GetString$(hdl&,&loop-1))

    Endwhile

    Return num%

ENDPROC

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

hmmmmmm....así puede ser auch los números en uno Listbox sortieren, sieht sólo no schön de :p
Voraussetzung es natürlich una 'UnsortedListbox'.
Kompilieren Marca Separación

Windowstyle 24
Window 100,200 - 100,200
Windowtitle "Beispiel zum Sortieren von Zahlen in einer Listbox"
var Liste&=Create("ListBox", %hwnd, 0, 0, 0, width(%hwnd), height(%hwnd)-40)

whileloop 100

    AddString(Liste&,Str$((Rnd(20)*&loop)))

Endwhile

var sort_list&=Create("Button",%hwnd,"Sortieren",5,height(%hwnd)-35,width(%hwnd)-10,30)

while 1

    waitinput

    if getfocus(sort_list&)

        Sort_Listbox_by_Number(Liste&)
        EnableWindow sort_list&,0

    Endif

Endwhile

Proc Sort_Listbox_by_Number

    Parameters hdl&
    declare index%
    var num%=99999999999999999
    var numbersortedlist&=Create("List", 0)

    while GetCount(hdl&)<>0

        whileloop GetCount(hdl&)

            if num%>Val(GetString$(hdl&,&loop-1))

                num%=Val(GetString$(hdl&,&loop-1))
                index%=&loop-1

            Endif

        Endwhile

        AddString(numbersortedlist&,Str$(num%))
        DeleteString(hdl&,index%)
        num%=99999999999999999

    Endwhile

    Whileloop GetCount(numbersortedlist&)

        AddString(hdl&,GetString$(numbersortedlist&,&loop-1))

    Endwhile

    destroywindow(numbersortedlist&)
    Return 1

../../function-references/XProfan/ENDPROC/'>ENDPROC

Apéndice:
Fünf Zeilen mehr, aber dafür sieht el sortieren mejor de xD
Kompilieren Marca Separación

Windowstyle 24
Ventana 100,200 - 100,200
Windowtitle "Beispiel para Sortieren de Pagar en uno Listbox"
var Liste&=Crear("ListBox", %hwnd, 0, 0, 0, width(%hwnd), height(%hwnd)-40)

whileloop 100

    AddStrings(Liste&,Str$((Rnd(20)*&bucle)))

Endwhile

var sort_list&=Crear("Button",%hwnd,"Sortieren",5,height(%hwnd)-35,width(%hwnd)-10,30)

mientras que 1

    waitinput

    if getfocus(sort_list&)

        Sort_Listbox_by_Number(Liste&)
        EnableWindow sort_list&,0

    Endif

Endwhile

Proc Sort_Listbox_by_Number

    Parámetros hdl&,num%
    declarar index%
    var numbersortedlist&=Crear("List", 0)
    var copy_orginal_list&=Crear("List", 0)

    Whileloop GetCount(hdl&)

        AddStrings(copy_orginal_list&,GetString$(hdl&,&bucle-1))

    Endwhile

    mientras que GetCount(copy_orginal_list&)<>0

        num%=99999999999999999

        whileloop GetCount(copy_orginal_list&)

            if num%>Val(GetString$(copy_orginal_list&,&bucle-1))

                num%=Val(GetString$(copy_orginal_list&,&bucle-1))
                index%=&bucle-1

            Endif

        Endwhile

        AddStrings(numbersortedlist&,Str$(num%))
        DeleteString(copy_orginal_list&,index%)

    Endwhile

    ClearList hdl&

    Whileloop GetCount(numbersortedlist&)

        AddStrings(hdl&,GetString$(numbersortedlist&,&bucle-1))

    Endwhile

    destroywindow(numbersortedlist&)
    destroywindow(copy_orginal_list&)
    Volver 1

ENDPROC

Mi Cuestión Yo así a meiner 100% Zufriedenstellung beantwortet. Der Hilo es así geschlossen!

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Dietmar Horn (17.08.11)

Um el Sortierung umzukehren sería Yo jede el Pagar de 1000, 10000, 100000, más o menos subtrahieren, y esta entonces .el sortierte Listbox füllen.

Subtrahieren? Multiplizieren!

17.08.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Yo sería el a sortierenden Pagar con führenden Nullen auffüllen y ellos así uno sortierte Listbox para Mostrar werfen.

Meist es una Font con gleicher Laufweite disponible, entonces geht's auch con Leerzeichen.
Kompilieren Marca Separación

cls
var LB&=Create("ListBox", %hwnd, 1, 10, 10, 224, 400)
var LBfont&=CreateFont("DejaVu Sans Mono",14,0,0,0,0)
SetFont LB&,LBfont&
var a$=space$(20)
AddString(LB&,right$(a$+"100",20))
AddString(LB&,right$(a$+"1",20))
AddString(LB&,right$(a$+"11",20))
AddString(LB&,right$(a$+"4",20))
waitinput
DeleteObject LBfont&
KompilierenMarcaSeparación $H commctrl.ph
cls
var LB&=Crear("GridBox", %hwnd,";1;220;"; 1, 10, 10, 224, 400)
setstyle LB&,getstyle(LB&) | ~LVS_NOCOLUMNHEADER
var LBfont&=CreateFont(Arial,14,0,0,0,0)
SetFont LB&,LBfont&
var a$=space$(20)
AddStrings(LB&,right$(a$+"100",20))
AddStrings(LB&,right$(a$+"1",20))
AddStrings(LB&,right$(a$+"11",20))
AddStrings(LB&,right$(a$+"4",20))
waitinput
DeleteObject LBfont&
end