das problem wurde gelöst hier nochmal den code:
Quote:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
Opt("GUIOnEventMode", 1)
Dim $Teams[10][7]
Dim $id1=0
Dim $Rang[11][3]
Dim $b=10
Dim $buble = 0
$Teams[0][0]="Team 1"
$Teams[1][0]="Team 2"
$Teams[2][0]="Team 3"
$Teams[3][0]="Team 4"
$Teams[4][0]="Team 5"
$Teams[5][0]="Team 6"
$Teams[6][0]="Team 7"
$Teams[7][0]="Team 8"
$Teams[8][0]="Team 9"
$Teams[9][0]="Team 10"
GUICreate("Spiele ohne Ende", 950, 600)
GUISetFont(16,450,0,"Comic Sans MS")
$teamname1=GUICtrlCreateButton("",10,60,15,15)
$teamname2=GUICtrlCreateButton("",10,110,15,15)
$teamname3=GUICtrlCreateButton("",10,160,15,15)
$teamname4=GUICtrlCreateButton("",10,210,15,15)
$teamname5=GUICtrlCreateButton("",10,260,15,15)
$teamname6=GUICtrlCreateButton("",10,310,15,15)
$teamname7=GUICtrlCreateButton("",10,360,15,15)
$teamname8=GUICtrlCreateButton("",10,410,15,15)
$teamname9=GUICtrlCreateButton("",10,460,15,15)
$teamname10=GUICtrlCreateButton("",10,510,15,15)
GUICtrlSetOnEvent($teamname1,"aendername1")
GUICtrlSetOnEvent($teamname2,"aendername2")
GUICtrlSetOnEvent($teamname3,"aendername3")
GUICtrlSetOnEvent($teamname4,"aendername4")
GUICtrlSetOnEvent($teamname5,"aendername5")
GUICtrlSetOnEvent($teamname6,"aendername6")
GUICtrlSetOnEvent($teamname7,"aendername7")
GUICtrlSetOnEvent($teamname8,"aendername8")
GUICtrlSetOnEvent($teamname9,"aendername9")
GUICtrlSetOnEvent($teamname10,"aendername10")
Teamnamen()
GUICtrlCreateLabel("1. Spiel",320,10)
GUICtrlCreateLabel("2. Spiel",420,10)
GUICtrlCreateLabel("3. Spiel",520,10)
GUICtrlCreateLabel("4. Spiel",620,10)
GUICtrlCreateLabel("Punkte",720,10)
GUICtrlCreateLabel(" Rang",820,10)
;------------------------------------
$team1runde1=GUICtrlCreateInput("",330,50,50)
$team2runde1=GUICtrlCreateInput("",330,100,50)
$team3runde1=GUICtrlCreateInput("",330,150,50)
$team4runde1=GUICtrlCreateInput("",330,200,50)
$team5runde1=GUICtrlCreateInput("",330,250,50)
$team6runde1=GUICtrlCreateInput("",330,300,50)
$team7runde1=GUICtrlCreateInput("",330,350,50)
$team8runde1=GUICtrlCreateInput("",330,400,50)
$team9runde1=GUICtrlCreateInput("",330,450,50)
$team10runde1=GUICtrlCreateInput("",330,500,50)
;------------------------------------
$team1runde2=GUICtrlCreateInput("",430,50,50)
$team2runde2=GUICtrlCreateInput("",430,100,50)
$team3runde2=GUICtrlCreateInput("",430,150,50)
$team4runde2=GUICtrlCreateInput("",430,200,50)
$team5runde2=GUICtrlCreateInput("",430,250,50)
$team6runde2=GUICtrlCreateInput("",430,300,50)
$team7runde2=GUICtrlCreateInput("",430,350,50)
$team8runde2=GUICtrlCreateInput("",430,400,50)
$team9runde2=GUICtrlCreateInput("",430,450,50)
$team10runde2=GUICtrlCreateInput("",430,500,50)
;------------------------------------
$team1runde3=GUICtrlCreateInput("",530,50,50)
$team2runde3=GUICtrlCreateInput("",530,100,50)
$team3runde3=GUICtrlCreateInput("",530,150,50)
$team4runde3=GUICtrlCreateInput("",530,200,50)
$team5runde3=GUICtrlCreateInput("",530,250,50)
$team6runde3=GUICtrlCreateInput("",530,300,50)
$team7runde3=GUICtrlCreateInput("",530,350,50)
$team8runde3=GUICtrlCreateInput("",530,400,50)
$team9runde3=GUICtrlCreateInput("",530,450,50)
$team10runde3=GUICtrlCreateInput("",530,500,50)
;------------------------------------
$team1runde4=GUICtrlCreateInput("",630,50,50)
$team2runde4=GUICtrlCreateInput("",630,100,50)
$team3runde4=GUICtrlCreateInput("",630,150,50)
$team4runde4=GUICtrlCreateInput("",630,200,50)
$team5runde4=GUICtrlCreateInput("",630,250,50)
$team6runde4=GUICtrlCreateInput("",630,300,50)
$team7runde4=GUICtrlCreateInput("",630,350,50)
$team8runde4=GUICtrlCreateInput("",630,400,50)
$team9runde4=GUICtrlCreateInput("",630,450,50)
$team10runde4=GUICtrlCreateInput("",630,500,50)
;------------------------------------
$aktualisieren=GUICtrlCreateButton(" ",10,555,"","",$bs_icon)
GUICtrlSetOnEvent($aktualisieren,"aktualisieren")
GUICtrlSetImage($aktualisieren,"shell32.dll",-147)
GUICtrlCreatePic("Stoeckli.jpg",620,565,150,25)
GUICtrlCreatePic("Logobyte4.jpg",790,565,150,22)
guisetonEvent($GUI_EVENT_CLOSE,"Schliessen")
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEnd
Func Schliessen()
Exit
EndFunc
Func aktualisieren()
$Teams[0][2]=GUICtrlRead($team1runde1)
$Teams[1][2]=GUICtrlRead($team2runde1)
$Teams[2][2]=GUICtrlRead($team3runde1)
$Teams[3][2]=GUICtrlRead($team4runde1)
$Teams[4][2]=GUICtrlRead($team5runde1)
$Teams[5][2]=GUICtrlRead($team6runde1)
$Teams[6][2]=GUICtrlRead($team7runde1)
$Teams[7][2]=GUICtrlRead($team8runde1)
$Teams[8][2]=GUICtrlRead($team9runde1)
$Teams[9][2]=GUICtrlRead($team10runde1)
$Teams[0][3]=GUICtrlRead($team1runde2)
$Teams[1][3]=GUICtrlRead($team2runde2)
$Teams[2][3]=GUICtrlRead($team3runde2)
$Teams[3][3]=GUICtrlRead($team4runde2)
$Teams[4][3]=GUICtrlRead($team5runde2)
$Teams[5][3]=GUICtrlRead($team6runde2)
$Teams[6][3]=GUICtrlRead($team7runde2)
$Teams[7][3]=GUICtrlRead($team8runde2)
$Teams[8][3]=GUICtrlRead($team9runde2)
$Teams[9][3]=GUICtrlRead($team10runde2)
$Teams[0][4]=GUICtrlRead($team1runde3)
$Teams[1][4]=GUICtrlRead($team2runde3)
$Teams[2][4]=GUICtrlRead($team3runde3)
$Teams[3][4]=GUICtrlRead($team4runde3)
$Teams[4][4]=GUICtrlRead($team5runde3)
$Teams[5][4]=GUICtrlRead($team6runde3)
$Teams[6][4]=GUICtrlRead($team7runde3)
$Teams[7][4]=GUICtrlRead($team8runde3)
$Teams[8][4]=GUICtrlRead($team9runde3)
$Teams[9][4]=GUICtrlRead($team10runde3)
$Teams[0][5]=GUICtrlRead($team1runde4)
$Teams[1][5]=GUICtrlRead($team2runde4)
$Teams[2][5]=GUICtrlRead($team3runde4)
$Teams[3][5]=GUICtrlRead($team4runde4)
$Teams[4][5]=GUICtrlRead($team5runde4)
$Teams[5][5]=GUICtrlRead($team6runde4)
$Teams[6][5]=GUICtrlRead($team7runde4)
$Teams[7][5]=GUICtrlRead($team8runde4)
$Teams[8][5]=GUICtrlRead($team9runde4)
$Teams[9][5]=GUICtrlRead($team10runde4)
$Teams[0][6]=$Teams[0][2]+$Teams[0][3]+$Teams[0][4]+$Teams[0][5]
$Teams[1][6]=$Teams[1][2]+$Teams[1][3]+$Teams[1][4]+$Teams[1][5]
$Teams[2][6]=$Teams[2][2]+$Teams[2][3]+$Teams[2][4]+$Teams[2][5]
$Teams[3][6]=$Teams[3][2]+$Teams[3][3]+$Teams[3][4]+$Teams[3][5]
$Teams[4][6]=$Teams[4][2]+$Teams[4][3]+$Teams[4][4]+$Teams[4][5]
$Teams[5][6]=$Teams[5][2]+$Teams[5][3]+$Teams[5][4]+$Teams[5][5]
$Teams[6][6]=$Teams[6][2]+$Teams[6][3]+$Teams[6][4]+$Teams[6][5]
$Teams[7][6]=$Teams[7][2]+$Teams[7][3]+$Teams[7][4]+$Teams[7][5]
$Teams[8][6]=$Teams[8][2]+$Teams[8][3]+$Teams[8][4]+$Teams[8][5]
$Teams[9][6]=$Teams[9][2]+$Teams[9][3]+$Teams[9][4]+$Teams[9][5]
For $i = 0 to 9 Step +1
$Rang[$i][0] = $Teams[$i][6]
Next
For $i = 0 to 9 Step +1
$Rang[$i][1]=$i+1
Next
sort1()
While $buble = 1
sort1()
WEnd
For $i = 0 to 9 Step +1
$Rang[$i][2]=$i+1
Next
For $i = 0 to 9 Step +1
$b = $i + 1
if $Rang[$i][0] = $Rang[$b][0] Then
$Rang[$b][2] = $Rang[$i][2]
EndIf
Next
sort2()
While $buble = 1
sort2()
WEnd
GUICtrlCreateLabel($Teams[0][6],750,50,35)
GUICtrlCreateLabel($Teams[1][6],750,100,35)
GUICtrlCreateLabel($Teams[2][6],750,150,35)
GUICtrlCreateLabel($Teams[3][6],750,200,35)
GUICtrlCreateLabel($Teams[4][6],750,250,35)
GUICtrlCreateLabel($Teams[5][6],750,300,35)
GUICtrlCreateLabel($Teams[6][6],750,350,35)
GUICtrlCreateLabel($Teams[7][6],750,400,35)
GUICtrlCreateLabel($Teams[8][6],750,450,35)
GUICtrlCreateLabel($Teams[9][6],750,500,35)
;------------------------------------
GUICtrlCreateLabel($Rang[0][2],850,50,35)
GUICtrlCreateLabel($Rang[1][2],850,100,35)
GUICtrlCreateLabel($Rang[2][2],850,150,35)
GUICtrlCreateLabel($Rang[3][2],850,200,35)
GUICtrlCreateLabel($Rang[4][2],850,250,35)
GUICtrlCreateLabel($Rang[5][2],850,300,35)
GUICtrlCreateLabel($Rang[6][2],850,350,35)
GUICtrlCreateLabel($Rang[7][2],850,400,35)
GUICtrlCreateLabel($Rang[8][2],850,450,35)
GUICtrlCreateLabel($Rang[9][2],850,500,35)
EndFunc
Func aendername1()
$Teams[0][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername2()
$Teams[1][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername3()
$Teams[2][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername4()
$Teams[3][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername5()
$Teams[4][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername6()
$Teams[5][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername7()
$Teams[6][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername8()
$Teams[7][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername9()
$Teams[8][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername10()
$Teams[9][0]=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func Teamnamen()
GUICtrlCreateLabel($Teams[0][0],40,50,250,30)
GUICtrlCreateLabel($Teams[1][0],40,100,250,30)
GUICtrlCreateLabel($Teams[2][0],40,150,250,30)
GUICtrlCreateLabel($Teams[3][0],40,200,250,30)
GUICtrlCreateLabel($Teams[4][0],40,250,250,30)
GUICtrlCreateLabel($Teams[5][0],40,300,250,30)
GUICtrlCreateLabel($Teams[6][0],40,350,250,30)
GUICtrlCreateLabel($Teams[7][0],40,400,250,30)
GUICtrlCreateLabel($Teams[8][0],40,450,250,30)
GUICtrlCreateLabel($Teams[9][0],40,500,250,30)
EndFunc
Func sort1()
$buble = 0
For $i = 9 To 0 Step -1
if $b >=1 Then
$b = $i - 1
if $Rang[$i][0] > $Rang[$b][0] Then
$Rang[10][0] = $Rang[$b][0]
$Rang[$b][0] = $Rang[$i][0]
$Rang[$i][0] = $Rang[10][0]
$Rang[10][1] = $Rang[$b][1]
$Rang[$b][1] = $Rang[$i][1]
$Rang[$i][1] = $Rang[10][1]
$buble = 1
EndIf
EndIf
Next
$b=10
EndFunc
Func sort2()
$buble = 0
For $i = 9 to 0 Step -1
if $b >=1 Then
$b = $i - 1
if $Rang[$i][1] < $Rang[$b][1] Then
$Rang[10][0] = $Rang[$b][0]
$Rang[$b][0] = $Rang[$i][0]
$Rang[$i][0] = $Rang[10][0]
$Rang[10][1] = $Rang[$b][1]
$Rang[$b][1] = $Rang[$i][1]
$Rang[$i][1] = $Rang[10][1]
$Rang[10][2] = $Rang[$b][2]
$Rang[$b][2] = $Rang[$i][2]
$Rang[$i][2] = $Rang[10][2]
$buble = 1
EndIf
EndIf
Next
$b=10
EndFunc
hi leuts
bei folgenem programm
kann man für 10 teams bei 3 spielen punkte eingeben.
wenn man auf den knopf aktualisieren drückt soll es die total punkte ausrechnen
und die rangliste ausgeben
...
das mit der rangliste funktioniert jedoch nicht ganz. wenn nämlcih 2 teams die gleiche punktzahl hat kommt das programm in spulen
schauts euch doch mal an büdde
Code:
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Dim $team1="Team 1"
Dim $team2="Team 2"
Dim $team3="Team 3"
Dim $team4="Team 4"
Dim $team5="Team 5"
Dim $team6="Team 6"
Dim $team7="Team 7"
Dim $team8="Team 8"
Dim $team9="Team 9"
Dim $team10="Team 10"
Dim $team1punkte=0
Dim $team2punkte=0
Dim $team3punkte=0
Dim $team4punkte=0
Dim $team5punkte=0
Dim $team6punkte=0
Dim $team7punkte=0
Dim $team8punkte=0
Dim $team9punkte=0
Dim $team10punkte=0
Dim $team1rang=0
Dim $team2rang=0
Dim $team3rang=0
Dim $team4rang=0
Dim $team5rang=0
Dim $team6rang=0
Dim $team7rang=0
Dim $team8rang=0
Dim $team9rang=0
Dim $team10rang=0
Dim $team1runde1pkt=0
Dim $team2runde1pkt=0
Dim $team3runde1pkt=0
Dim $team4runde1pkt=0
Dim $team5runde1pkt=0
Dim $team6runde1pkt=0
Dim $team7runde1pkt=0
Dim $team8runde1pkt=0
Dim $team9runde1pkt=0
Dim $team10runde1pkt=0
Dim $team1runde2pkt=0
Dim $team2runde2pkt=0
Dim $team3runde2pkt=0
Dim $team4runde2pkt=0
Dim $team5runde2pkt=0
Dim $team6runde2pkt=0
Dim $team7runde2pkt=0
Dim $team8runde2pkt=0
Dim $team9runde2pkt=0
Dim $team10runde2pkt=0
Dim $team1runde3pkt=0
Dim $team2runde3pkt=0
Dim $team3runde3pkt=0
Dim $team4runde3pkt=0
Dim $team5runde3pkt=0
Dim $team6runde3pkt=0
Dim $team7runde3pkt=0
Dim $team8runde3pkt=0
Dim $team9runde3pkt=0
Dim $team10runde3pkt=0
Dim $team1runde4pkt=0
Dim $team2runde4pkt=0
Dim $team3runde4pkt=0
Dim $team4runde4pkt=0
Dim $team5runde4pkt=0
Dim $team6runde4pkt=0
Dim $team7runde4pkt=0
Dim $team8runde4pkt=0
Dim $team9runde4pkt=0
Dim $team10runde4pkt=0
Dim $rang1=0
Dim $rang2=0
Dim $rang3=0
Dim $rang4=0
Dim $rang5=0
Dim $rang6=0
Dim $rang7=0
Dim $rang8=0
Dim $rang9=0
Dim $rang10=0
Dim $team1rang=0
Dim $team2rang=0
Dim $team3rang=0
Dim $team4rang=0
Dim $team5rang=0
Dim $team6rang=0
Dim $team7rang=0
Dim $team8rang=0
Dim $team9rang=0
Dim $team10rang=0
Dim $id1=0
GUICreate("Spiele ohne Ende", 800, 600)
$teamname1=GUICtrlCreateButton("",10,30,15,15)
$teamname2=GUICtrlCreateButton("",10,60,15,15)
$teamname3=GUICtrlCreateButton("",10,90,15,15)
$teamname4=GUICtrlCreateButton("",10,120,15,15)
$teamname5=GUICtrlCreateButton("",10,150,15,15)
$teamname6=GUICtrlCreateButton("",10,180,15,15)
$teamname7=GUICtrlCreateButton("",10,210,15,15)
$teamname8=GUICtrlCreateButton("",10,240,15,15)
$teamname9=GUICtrlCreateButton("",10,270,15,15)
$teamname10=GUICtrlCreateButton("",10,300,15,15)
GUICtrlSetOnEvent($teamname1,"aendername1")
GUICtrlSetOnEvent($teamname2,"aendername2")
GUICtrlSetOnEvent($teamname3,"aendername3")
GUICtrlSetOnEvent($teamname4,"aendername4")
GUICtrlSetOnEvent($teamname5,"aendername5")
GUICtrlSetOnEvent($teamname6,"aendername6")
GUICtrlSetOnEvent($teamname7,"aendername7")
GUICtrlSetOnEvent($teamname8,"aendername8")
GUICtrlSetOnEvent($teamname9,"aendername9")
GUICtrlSetOnEvent($teamname10,"aendername10")
Teamnamen()
GUICtrlCreateLabel("1. Spiel",120,10)
GUICtrlCreateLabel("2. Spiel",170,10)
GUICtrlCreateLabel("3. Spiel",220,10)
GUICtrlCreateLabel("4. Spiel",270,10)
GUICtrlCreateLabel("Punkte",320,10)
GUICtrlCreateLabel("Rangliste",370,10)
;------------------------------------
$team1runde1=GUICtrlCreateInput("",120,30,35)
$team2runde1=GUICtrlCreateInput("",120,60,35)
$team3runde1=GUICtrlCreateInput("",120,90,35)
$team4runde1=GUICtrlCreateInput("",120,120,35)
$team5runde1=GUICtrlCreateInput("",120,150,35)
$team6runde1=GUICtrlCreateInput("",120,180,35)
$team7runde1=GUICtrlCreateInput("",120,210,35)
$team8runde1=GUICtrlCreateInput("",120,240,35)
$team9runde1=GUICtrlCreateInput("",120,270,35)
$team10runde1=GUICtrlCreateInput("",120,300,35)
;------------------------------------
$team1runde2=GUICtrlCreateInput("",170,30,35)
$team2runde2=GUICtrlCreateInput("",170,60,35)
$team3runde2=GUICtrlCreateInput("",170,90,35)
$team4runde2=GUICtrlCreateInput("",170,120,35)
$team5runde2=GUICtrlCreateInput("",170,150,35)
$team6runde2=GUICtrlCreateInput("",170,180,35)
$team7runde2=GUICtrlCreateInput("",170,210,35)
$team8runde2=GUICtrlCreateInput("",170,240,35)
$team9runde2=GUICtrlCreateInput("",170,270,35)
$team10runde2=GUICtrlCreateInput("",170,300,35)
;------------------------------------
$team1runde3=GUICtrlCreateInput("",220,30,35)
$team2runde3=GUICtrlCreateInput("",220,60,35)
$team3runde3=GUICtrlCreateInput("",220,90,35)
$team4runde3=GUICtrlCreateInput("",220,120,35)
$team5runde3=GUICtrlCreateInput("",220,150,35)
$team6runde3=GUICtrlCreateInput("",220,180,35)
$team7runde3=GUICtrlCreateInput("",220,210,35)
$team8runde3=GUICtrlCreateInput("",220,240,35)
$team9runde3=GUICtrlCreateInput("",220,270,35)
$team10runde3=GUICtrlCreateInput("",220,300,35)
;------------------------------------
$team1runde4=GUICtrlCreateInput("",270,30,35)
$team2runde4=GUICtrlCreateInput("",270,60,35)
$team3runde4=GUICtrlCreateInput("",270,90,35)
$team4runde4=GUICtrlCreateInput("",270,120,35)
$team5runde4=GUICtrlCreateInput("",270,150,35)
$team6runde4=GUICtrlCreateInput("",270,180,35)
$team7runde4=GUICtrlCreateInput("",270,210,35)
$team8runde4=GUICtrlCreateInput("",270,240,35)
$team9runde4=GUICtrlCreateInput("",270,270,35)
$team10runde4=GUICtrlCreateInput("",270,300,35)
;------------------------------------
$aktualisieren=GUICtrlCreateButton("Aktualisieren",170,340)
GUICtrlSetOnEvent($aktualisieren,"aktualisieren")
guisetonEvent($GUI_EVENT_CLOSE,"Schliessen")
GUISetState(@SW_SHOW)
While 1
Sleep(1000)
WEnd
Func Schliessen()
Exit
EndFunc
Func aktualisieren()
$team1runde1pkt=GUICtrlRead($team1runde1)
$team2runde1pkt=GUICtrlRead($team2runde1)
$team3runde1pkt=GUICtrlRead($team3runde1)
$team4runde1pkt=GUICtrlRead($team4runde1)
$team5runde1pkt=GUICtrlRead($team5runde1)
$team6runde1pkt=GUICtrlRead($team6runde1)
$team7runde1pkt=GUICtrlRead($team7runde1)
$team8runde1pkt=GUICtrlRead($team8runde1)
$team9runde1pkt=GUICtrlRead($team9runde1)
$team10runde1pkt=GUICtrlRead($team10runde1)
$team1runde2pkt=GUICtrlRead($team1runde2)
$team2runde2pkt=GUICtrlRead($team2runde2)
$team3runde2pkt=GUICtrlRead($team3runde2)
$team4runde2pkt=GUICtrlRead($team4runde2)
$team5runde2pkt=GUICtrlRead($team5runde2)
$team6runde2pkt=GUICtrlRead($team6runde2)
$team7runde2pkt=GUICtrlRead($team7runde2)
$team8runde2pkt=GUICtrlRead($team8runde2)
$team9runde2pkt=GUICtrlRead($team9runde2)
$team10runde2pkt=GUICtrlRead($team10runde2)
$team1runde3pkt=GUICtrlRead($team1runde3)
$team2runde3pkt=GUICtrlRead($team2runde3)
$team3runde3pkt=GUICtrlRead($team3runde3)
$team4runde3pkt=GUICtrlRead($team4runde3)
$team5runde3pkt=GUICtrlRead($team5runde3)
$team6runde3pkt=GUICtrlRead($team6runde3)
$team7runde3pkt=GUICtrlRead($team7runde3)
$team8runde3pkt=GUICtrlRead($team8runde3)
$team9runde3pkt=GUICtrlRead($team9runde3)
$team10runde3pkt=GUICtrlRead($team10runde3)
$team1runde4pkt=GUICtrlRead($team1runde4)
$team2runde4pkt=GUICtrlRead($team2runde4)
$team3runde4pkt=GUICtrlRead($team3runde4)
$team4runde4pkt=GUICtrlRead($team4runde4)
$team5runde4pkt=GUICtrlRead($team5runde4)
$team6runde4pkt=GUICtrlRead($team6runde4)
$team7runde4pkt=GUICtrlRead($team7runde4)
$team8runde4pkt=GUICtrlRead($team8runde4)
$team9runde4pkt=GUICtrlRead($team9runde4)
$team10runde4pkt=GUICtrlRead($team10runde4)
$team1punkte=$team1runde1pkt+$team1runde2pkt+$team1runde3pkt+$team1runde4pkt
$team2punkte=$team2runde1pkt+$team2runde2pkt+$team2runde3pkt+$team2runde4pkt
$team3punkte=$team3runde1pkt+$team3runde2pkt+$team3runde3pkt+$team3runde4pkt
$team4punkte=$team4runde1pkt+$team4runde2pkt+$team4runde3pkt+$team4runde4pkt
$team5punkte=$team5runde1pkt+$team5runde2pkt+$team5runde3pkt+$team5runde4pkt
$team6punkte=$team6runde1pkt+$team6runde2pkt+$team6runde3pkt+$team6runde4pkt
$team7punkte=$team7runde1pkt+$team7runde2pkt+$team7runde3pkt+$team7runde4pkt
$team8punkte=$team8runde1pkt+$team8runde2pkt+$team8runde3pkt+$team8runde4pkt
$team9punkte=$team9runde1pkt+$team9runde2pkt+$team9runde3pkt+$team9runde4pkt
$team10punkte=$team10runde1pkt+$team10runde2pkt+$team10runde3pkt+$team10runde4pkt
;team1
$rang1=$team1punkte
;team2
if $rang1<$team2punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team2punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team2punkte
EndIf
;---
if $rang1<$team3punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team3punkte
ElseIf $rang2<$team3punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team3punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team3punkte
EndIf
;----
if $rang1<$team4punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team4punkte
ElseIf $rang2<$team4punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team4punkte
ElseIf $rang3<$team4punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team4punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team4punkte
EndIf
;----
if $rang1<$team5punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team5punkte
ElseIf $rang2<$team5punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team5punkte
ElseIf $rang3<$team5punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team5punkte
ElseIf $rang4<$team5punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team5punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team5punkte
EndIf
;----
if $rang1<$team6punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team6punkte
ElseIf $rang2<$team6punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team6punkte
ElseIf $rang3<$team6punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team6punkte
ElseIf $rang4<$team6punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team6punkte
ElseIf $rang5<$team6punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team6punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$team6punkte
EndIf
;----
if $rang1<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team7punkte
ElseIf $rang2<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team7punkte
ElseIf $rang3<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team7punkte
ElseIf $rang4<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team7punkte
ElseIf $rang5<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team7punkte
ElseIf $rang6<$team7punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$team7punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$team7punkte
EndIf
;----
if $rang1<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team8punkte
ElseIf $rang2<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team8punkte
ElseIf $rang3<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team8punkte
ElseIf $rang4<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team8punkte
ElseIf $rang5<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team8punkte
ElseIf $rang6<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$team8punkte
ElseIf $rang7<$team8punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$team8punkte
Else
$rang10=$rang9
$rang9=$rang8
$rang8=$team8punkte
EndIf
;----
if $rang1<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team9punkte
ElseIf $rang2<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team9punkte
ElseIf $rang3<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team9punkte
ElseIf $rang4<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team9punkte
ElseIf $rang5<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team9punkte
ElseIf $rang6<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$team9punkte
ElseIf $rang7<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$team9punkte
ElseIf $rang8<$team9punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$team9punkte
Else
$rang10=$rang9
$rang9=$team9punkte
EndIf
;----
if $rang1<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$rang1
$rang1=$team10punkte
ElseIf $rang2<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$rang2
$rang2=$team10punkte
ElseIf $rang3<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$rang3
$rang3=$team10punkte
ElseIf $rang4<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$rang4
$rang4=$team10punkte
ElseIf $rang5<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$rang5
$rang5=$team10punkte
ElseIf $rang6<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$rang6
$rang6=$team10punkte
ElseIf $rang7<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$rang7
$rang7=$team10punkte
ElseIf $rang8<$team10punkte Then
$rang10=$rang9
$rang9=$rang8
$rang8=$team10punkte
ElseIf $rang9<$team10punkte Then
$rang10=$rang9
$rang9=$team10punkte
Else
$rang10=$team10punkte
EndIf
Switch $rang1
Case $team1punkte
$team1rang=1
Case $team2punkte
$team2rang=1
Case $team3punkte
$team3rang=1
Case $team4punkte
$team4rang=1
Case $team5punkte
$team5rang=1
Case $team6punkte
$team6rang=1
Case $team7punkte
$team7rang=1
Case $team8punkte
$team8rang=1
Case $team9punkte
$team9rang=1
Case $team10punkte
$team10rang=1
EndSwitch
Switch $rang2
Case $team1punkte
$team1rang=2
Case $team2punkte
$team2rang=2
Case $team3punkte
$team3rang=2
Case $team4punkte
$team4rang=2
Case $team5punkte
$team5rang=2
Case $team6punkte
$team6rang=2
Case $team7punkte
$team7rang=2
Case $team8punkte
$team8rang=2
Case $team9punkte
$team9rang=2
Case $team10punkte
$team10rang=2
EndSwitch
Switch $rang3
Case $team1punkte
$team1rang=3
Case $team2punkte
$team2rang=3
Case $team3punkte
$team3rang=3
Case $team4punkte
$team4rang=3
Case $team5punkte
$team5rang=3
Case $team6punkte
$team6rang=3
Case $team7punkte
$team7rang=3
Case $team8punkte
$team8rang=3
Case $team9punkte
$team9rang=3
Case $team10punkte
$team10rang=3
EndSwitch
Switch $rang4
Case $team1punkte
$team1rang=4
Case $team2punkte
$team2rang=4
Case $team3punkte
$team3rang=4
Case $team4punkte
$team4rang=4
Case $team5punkte
$team5rang=4
Case $team6punkte
$team6rang=4
Case $team7punkte
$team7rang=4
Case $team8punkte
$team8rang=4
Case $team9punkte
$team9rang=4
Case $team10punkte
$team10rang=4
EndSwitch
Switch $rang5
Case $team1punkte
$team1rang=5
Case $team2punkte
$team2rang=5
Case $team3punkte
$team3rang=5
Case $team4punkte
$team4rang=5
Case $team5punkte
$team5rang=5
Case $team6punkte
$team6rang=5
Case $team7punkte
$team7rang=5
Case $team8punkte
$team8rang=5
Case $team9punkte
$team9rang=5
Case $team10punkte
$team10rang=5
EndSwitch
Switch $rang6
Case $team1punkte
$team1rang=6
Case $team2punkte
$team2rang=6
Case $team3punkte
$team3rang=6
Case $team4punkte
$team4rang=6
Case $team5punkte
$team5rang=6
Case $team6punkte
$team6rang=6
Case $team7punkte
$team7rang=6
Case $team8punkte
$team8rang=6
Case $team9punkte
$team9rang=6
Case $team10punkte
$team10rang=6
EndSwitch
Switch $rang7
Case $team1punkte
$team1rang=7
Case $team2punkte
$team2rang=7
Case $team3punkte
$team3rang=7
Case $team4punkte
$team4rang=7
Case $team5punkte
$team5rang=7
Case $team6punkte
$team6rang=7
Case $team7punkte
$team7rang=7
Case $team8punkte
$team8rang=7
Case $team9punkte
$team9rang=7
Case $team10punkte
$team10rang=7
EndSwitch
Switch $rang8
Case $team1punkte
$team1rang=8
Case $team2punkte
$team2rang=8
Case $team3punkte
$team3rang=8
Case $team4punkte
$team4rang=8
Case $team5punkte
$team5rang=8
Case $team6punkte
$team6rang=8
Case $team7punkte
$team7rang=8
Case $team8punkte
$team8rang=8
Case $team9punkte
$team9rang=8
Case $team10punkte
$team10rang=8
EndSwitch
Switch $rang9
Case $team1punkte
$team1rang=9
Case $team2punkte
$team2rang=9
Case $team3punkte
$team3rang=9
Case $team4punkte
$team4rang=9
Case $team5punkte
$team5rang=9
Case $team6punkte
$team6rang=9
Case $team7punkte
$team7rang=9
Case $team8punkte
$team8rang=9
Case $team9punkte
$team9rang=9
Case $team10punkte
$team10rang=9
EndSwitch
Switch $rang10
Case $team1punkte
$team1rang=10
Case $team2punkte
$team2rang=10
Case $team3punkte
$team3rang=10
Case $team4punkte
$team4rang=10
Case $team5punkte
$team5rang=10
Case $team6punkte
$team6rang=10
Case $team7punkte
$team7rang=10
Case $team8punkte
$team8rang=10
Case $team9punkte
$team9rang=10
Case $team10punkte
$team10rang=10
EndSwitch
If
GUICtrlCreateLabel($team1punkte,320,30,35)
GUICtrlCreateLabel($team2punkte,320,60,35)
GUICtrlCreateLabel($team3punkte,320,90,35)
GUICtrlCreateLabel($team4punkte,320,120,35)
GUICtrlCreateLabel($team5punkte,320,150,35)
GUICtrlCreateLabel($team6punkte,320,180,35)
GUICtrlCreateLabel($team7punkte,320,210,35)
GUICtrlCreateLabel($team8punkte,320,240,35)
GUICtrlCreateLabel($team9punkte,320,270,35)
GUICtrlCreateLabel($team10punkte,320,300,35)
;------------------------------------
GUICtrlCreateLabel($team1rang,370,30,35)
GUICtrlCreateLabel($team2rang,370,60,35)
GUICtrlCreateLabel($team3rang,370,90,35)
GUICtrlCreateLabel($team4rang,370,120,35)
GUICtrlCreateLabel($team5rang,370,150,35)
GUICtrlCreateLabel($team6rang,370,180,35)
GUICtrlCreateLabel($team7rang,370,210,35)
GUICtrlCreateLabel($team8rang,370,240,35)
GUICtrlCreateLabel($team9rang,370,270,35)
GUICtrlCreateLabel($team10rang,370,300,35)
EndFunc
Func aendername1()
$team1=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername2()
$team2=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername3()
$team3=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername4()
$team4=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername5()
$team5=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername6()
$team6=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername7()
$team7=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername8()
$team8=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername9()
$team9=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func aendername10()
$team10=InputBox("Teamname","Geben Sie den gewünschten Team Namen ein.")
Teamnamen()
EndFunc
Func Teamnamen()
GUICtrlCreateLabel($team1,40,30,50)
GUICtrlCreateLabel($team2,40,60,50)
GUICtrlCreateLabel($team3,40,90,50)
GUICtrlCreateLabel($team4,40,120,50)
GUICtrlCreateLabel($team5,40,150,50)
GUICtrlCreateLabel($team6,40,180,50)
GUICtrlCreateLabel($team7,40,210,50)
GUICtrlCreateLabel($team8,40,240,50)
GUICtrlCreateLabel($team9,40,270,50)
GUICtrlCreateLabel($team10,40,300,50)
EndFunc
?!...
