(434)  S'inscrire

Français
Forum

Platzierungen errechnen - Anfängerfrage

 
- page 1 -


allô gens,
je suis encore un ziemlicher Débutant, quoi cet Discours angeht. je s'il te plaît c'est pourquoi um Verständnis, si mon Frage iwie dumm ist ou bien so.

mon Problem ist: j'ai une Software programmiert, qui un Tanztunier auswerten soll. Eigentlich hat cela jusqu'à maintenant alles pas mal geklappt, seulement jetz suis je malheureusement Hängen geblieben: chaque Tanzpaar bekommt une Gesamtpunktzahl, qui cela Programme aussi déjà errechnet. mais maintenant muss je pour Plätze vergeben, d.h. je muss es irgendwie hinkriegen, dass qui Platzierungen à qui Paare vergeben volonté, je après que, comment viele Punkte ils ont. maintenant ist cela seulement pas so comment son denkt: Den ersten place Beispielsweise hat cela paire, cela am wenigsten Punkte hat.

je hoffe, mir peux quelqu'un aider, cet Platzierungen simple trop errechnen. mais cela Programme muss avec cela le calcul, dass 2 Paare gleichviele Punkte avons et deswegen doit vous aussi qui gleiche Platzierung bekommen.

s'il te plaît erklärt mir cela anschaulich, si possible. Vielen Dank im Voraus!!
tecnologymaster
 
21.12.2010  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



« cette Beitrag wurde comme Solution gekennzeichnet. »


Thomas
Freier
@Jörg, pourquoi soll il de unten anfangen? car

Den ersten place Beispielsweise hat cela paire, cela am wenigsten Punkte hat.

KompilierenMarqueSéparation
Déclarer Listbox%,Ende%, place%, x!, y%, z! ,Text$
SetTrueColor 1
Cls @RGB(255,255,255)
ListBox%=@CreateSortedListBox(%hWnd,»,20,20,200,200)
' peux aussi une unsichtbare Listbox son....Box(%hWnd,»,0,0,0,0)
@AddStrings(ListBox%,Format $("000.00",10.20)+" | "+"Müller")
@AddStrings(ListBox%,Format $("000.00",5.40)+" | "+"Meier")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Karl")
@AddStrings(ListBox%,Format $("000.00",8.00)+" | "+"Wert")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Hansen")
Platz%=0
x!=0
y%=20
z!= -1
Decimals 2

WhileLoop @GetCount(ListBox%)

    'WhileLoop beginnt avec 1, 1.la ligne liste = 0, d.h. index Liste= & Loop-1
    x!=val(Translate$(Substr$(@GetString$(ListBox%,(&Boucle-1)),1,"|"),»,"."))
    cas x! > z! : inc place%' place% seulement erhöhen, si prochaine Wert größer
    Text$=str$(place%)+".place   "+Substr$(@GetString$(ListBox%,(&Boucle-1)),2,"|")
    DrawText 300,y%,Text$
    Text$="mit "+ str$(x!)+" Punkten"
    DrawText 480,y%,Text$
    y%=Y%+20
    z!= x!

Endwhile

WaitKey
Fin
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.12.2010  ▲
 




Jörg
Sellmeyer
Salut,

je serait qui Punktzahlen avec Format$() dans Cordes transformer. et zwar so, qui alle Zahlenstrings qui gleiche Longueur avons - alors avec Vornullen auffüllen. si le nombre maximum dreistellig ist, lautet qui Formel so:
KompilierenMarqueSéparation
Punkte$ = Format $("000",Punkte%) + "|" + participant$

ensuite alle Cordes dans un sortierte Listbox. ensuite la hâte Du Schonmal qui Reihenfolge. maintenant peux Du de unten anfangen qui Plätze trop vergeben.
qui dernier Eintrag bekommt Schonmal den 1. place. tu dois maintenant seulement encore zum jeweils nächsthöheren Listenplatz qui Punktzahl comparer um gleichen Punkteständen den gleichen place zuzuweisen.
encore eleganter allez cela avec einem Listview mais je ne sais pas, quelle Profanversion tu as.

Salut
Jörg
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.12.2010  ▲
 



[offtopic]Thema aus qui Aider zur Webseite ^ ^ pour XProfan-Forum déménagé. [/offtopic]
 
21.12.2010  ▲
 




Thomas
Freier
@Jörg, pourquoi soll il de unten anfangen? car

Den ersten place Beispielsweise hat cela paire, cela am wenigsten Punkte hat.

KompilierenMarqueSéparation
Déclarer Listbox%,Ende%, place%, x!, y%, z! ,Text$
SetTrueColor 1
Cls @RGB(255,255,255)
ListBox%=@CreateSortedListBox(%hWnd,»,20,20,200,200)
' peux aussi une unsichtbare Listbox son....Box(%hWnd,»,0,0,0,0)
@AddStrings(ListBox%,Format $("000.00",10.20)+" | "+"Müller")
@AddStrings(ListBox%,Format $("000.00",5.40)+" | "+"Meier")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Karl")
@AddStrings(ListBox%,Format $("000.00",8.00)+" | "+"Wert")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Hansen")
Platz%=0
x!=0
y%=20
z!= -1
Decimals 2

WhileLoop @GetCount(ListBox%)

    'WhileLoop beginnt avec 1, 1.la ligne liste = 0, d.h. index Liste= & Loop-1
    x!=val(Translate$(Substr$(@GetString$(ListBox%,(&Boucle-1)),1,"|"),»,"."))
    cas x! > z! : inc place%' place% seulement erhöhen, si prochaine Wert größer
    Text$=str$(place%)+".place   "+Substr$(@GetString$(ListBox%,(&Boucle-1)),2,"|")
    DrawText 300,y%,Text$
    Text$="mit "+ str$(x!)+" Punkten"
    DrawText 480,y%,Text$
    y%=Y%+20
    z!= x!

Endwhile

WaitKey
Fin
 
Gruß Thomas
Windows XP SP2, XProfan X2
22.12.2010  ▲
 




Jörg
Sellmeyer
Ah - stimmt oui. qui kleinste Eintrag ist dessus. je programmier trop wenig im Moment...
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
22.12.2010  ▲
 




Thomas
Freier
Ergänzend, si pour deux 1. qui Dritte den 3.place hat:
KompilierenMarqueSéparation
Déclarer Listbox%,Ende%, place%, x!, y%, z! ,Text$
SetTrueColor 1
Cls @RGB(255,255,255)
ListBox%=@CreateSortedListBox(%hWnd,»,20,20,200,200)
' peux aussi une unsichtbare Listbox son....Box(%hWnd,»,0,0,0,0)
@AddStrings(ListBox%,Format $("000.00",10.20)+" | "+"Müller")
@AddStrings(ListBox%,Format $("000.00",5.40)+" | "+"Meier")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Karl")
@AddStrings(ListBox%,Format $("000.00",8.00)+" | "+"Wert")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Hansen")
Platz%=0
x!=0
y%=20
z!= -1
Decimals 2

WhileLoop @GetCount(ListBox%)

    'WhileLoop beginnt avec 1, 1.la ligne liste = 0, d.h. index Liste= & Loop-1
    x!=val(Translate$(Substr$(@GetString$(ListBox%,(&Boucle-1)),1,"|"),»,"."))
    cas x! > z! : place% = &Boucle
    Text$=str$(place%)+".place   "+Substr$(@GetString$(ListBox%,(&Boucle-1)),2,"|")
    DrawText 300,y%,Text$
    Text$="mit "+ str$(x!)+" Punkten"
    DrawText 480,y%,Text$
    y%=Y%+20
    z!= x!

Endwhile

WaitKey
Fin

ou bien qui 1. qui avec den meisten Punkten ist:
KompilierenMarqueSéparation
Déclarer Listbox%, Box%, place%, x!, y%, z! ,Text$
SetTrueColor 1
Cls @RGB(255,255,255)
' peux aussi une unsichtbare Listbox son....Box(%hWnd,»,0,0,0,0)
ListBox%=@CreateSortedListBox(%hWnd,»,20,20,200,200)
' Listbox zum Sortieren chez Punktegleichheit
Box%=@CreateSortedListBox(%hWnd,»,0,0,0,0)
@AddStrings(ListBox%,Format $("000.00",10.20)+" | "+"Müller")
@AddStrings(ListBox%,Format $("000.00",5.40)+" | "+"Meier")
@AddStrings(ListBox%,Format $("000.00",5.4)+" | "+"Karl")
@AddStrings(ListBox%,Format $("000.00",5.40)+" | "+"Wert")
@AddStrings(ListBox%,Format $("000.00",1.2)+" | "+"Hansen")
Platz%=1
x!=0
y%=20
z!= 10000
Decimals 2

WhileLoop @GetCount(ListBox%),1,-1

    'WhileLoop beginnt avec 1, 1.la ligne liste = 0, d.h. index Liste= & Loop-1
    @AddStrings(Box%,@GetString$(ListBox%,(&Boucle-1)))' pour qui Ausgabe
    x!=val(Translate$(Substr$(@GetString$(ListBox%,(&Boucle-1)),1,"|"),»,"."))
    cas x! < z!:  place% =@GetCount(ListBox%)-&Boucle+1
    ' si qui prochain Wert dans Box 1 kleiner: Ausgabe Box 2
    cas x! > val(Translate$(Substr$(@GetString$(ListBox%,(&Boucle-2)),1,"|"),»,".")): Anzeige
    z!= x!

Endwhile

WaitKey
Fin

Proc Anzeige

    Déclarer a%
    a%=0

    Tandis que a%<=(@GetCount(Box%)-1)

        Text$=str$(place%)+".place   "+Substr$(@GetString$(Box%,a%),2,"|")
        DrawText 300,y%,Text$
        Text$="mit "+ str$(x!)+" Punkten"
        DrawText 480,y%,Text$
        y%=Y%+20
        inc a%

    Endwhile

    DestroyWindow(box%)
    Box%=@CreateSortedListBox(%hWnd,»,0,0,0,0)

ENDPROC

Sollte pour qui Aider alles ab Profan 7.5 courir.
Éditer 25.12., avec cela aussi qui Namen chez Punktegleichheit sortiert sommes.
 
Gruß Thomas
Windows XP SP2, XProfan X2
23.12.2010  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

13.504 Views

Untitledvor 0 min.
Sven Bader11.07.2021
Matthias Arlt18.02.2016
Peter Max Müller30.09.2014
Lothar Dannhauer22.06.2012
plus...

Themeninformationen

cet Thema hat 4 participant:

Thomas Freier (2x)
Jörg Sellmeyer (2x)
unbekannt (1x)
iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie