Rangliste

08/31/2009 16:44 qLADYofLORDp#1
**EDIT**
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
08/31/2009 18:30 | Moep |#2
omg... wer soll denn da durchblicken...
Weißt du [Only registered and activated users can see links. Click Here To Register...]?!...
08/31/2009 20:14 SCORNI#3
da fehlt das then nach dem if und ein endif gibts wohl auch nicht. (Zeile 897)
09/01/2009 08:14 qLADYofLORDp#4
Quote:
Originally Posted by SCORNI View Post
da fehlt das then nach dem if und ein endif gibts wohl auch nicht. (Zeile 897)
da haben wir wohl 2 verschiedene codes.
ja arrays kenn ich (aus anderen programmiersprachen) aber ich mag die ned. ich hab liebe variabeln.

naja wenn da niemand durchblickt, kann mir dann vtl. jemand ein beispielcode schrieben (einen kleinen der nicht auf mein programm passen muss bzw. soll)
damit ich das in meinem programm dan entsprechend anpassen kann. (will ja was lernen ned die arbeit gemacht kriegen)

das wär supper dupper lieb
09/01/2009 10:55 Shadow992#5
Quote:
Originally Posted by qLADYofLORDp View Post
da haben wir wohl 2 verschiedene codes.
ja arrays kenn ich (aus anderen programmiersprachen) aber ich mag die ned. ich hab liebe variabeln.

naja wenn da niemand durchblickt, kann mir dann vtl. jemand ein beispielcode schrieben (einen kleinen der nicht auf mein programm passen muss bzw. soll)
damit ich das in meinem programm dan entsprechend anpassen kann. (will ja was lernen ned die arbeit gemacht kriegen)

das wär supper dupper lieb
Also ich würde erstmal das ganze in Arrays machen , deine ganzen if abfragen lassen sich dann wunderbar mit ein oder 2 For Schleifen unterbringen , auch das mit der Liste wäre dann normalerweise kein problem mehr , vorallem weil man alles auf einem Blick sieht (mit arrays dürfte der Code nicht länger als 400 zeilen sein)

sowas hier $team1runde1pkt könntest du doch einfach in einen 2 dimensionalen array umwandeln .
Den dann abzufragen wäre auch recht einfach
kleines Beispiel :
Code:
Dim $pkt[10][4]
dim $pkt_ges[10]
for $i=0 To Ubound($pkt,1)-1
for $a=0 To Ubound($pkt,2)-1
$pkt_ges[$i]=$pkt_ges[$i]+$pkt[$i][$a]
next
next
Dieser kleine Code ersetzt diesen Teil vom Code komplett :
Code:
$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
und diesen teil ersetzt er auch komplett :
Code:
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
Jetzt sieht man mal wir haben uns jetzt ca 44 zeilen Code erspart ....

Ich glaube mit Arrays nicht zu arbeiten wenn sie gebraucht werden , ist so ziehmlich das blödste und anstrengendste was es gibt ....
09/01/2009 11:46 qLADYofLORDp#6
oke oke ich bin ein idiot xDD
ich hab jetzt angefangen das ganze ab zu ändern. (habs ned ganz so gemacht wie du hier)
ich habe $Teams[10][7] genommen
die 10 für die teams .. ist ja logisch
0 = Name
1 = punkte erste runde
2 = 2 runde
3 = 3 runde
4 = 4 runde
5 = gesammt
7 = rang

so ist das gedacht.. naja jetzt komm ich zu dem teil im code wo das
Quote:
for $i=0 To Ubound($pkt,1)-1
for $a=0 To Ubound($pkt,2)-1
$pkt_ges[$i]=$pkt_ges[$i]+$pkt[$i][$a]
next
next
meinen code:
$Teams[0][6]=$team1runde1pkt+$team1runde2pkt+$team1runde3pkt+$ team1runde4pkt
$Teams[1][6]=$team2runde1pkt+$team2runde2pkt+$team2runde3pkt+$ team2runde4pkt
$Teams[2][6]=$team3runde1pkt+$team3runde2pkt+$team3runde3pkt+$ team3runde4pkt
$Teams[3][6]=$team4runde1pkt+$team4runde2pkt+$team4runde3pkt+$ team4runde4pkt
$Teams[4][6]=$team5runde1pkt+$team5runde2pkt+$team5runde3pkt+$ team5runde4pkt
$Teams[5][6]=$team6runde1pkt+$team6runde2pkt+$team6runde3pkt+$ team6runde4pkt
$Teams[6][6]=$team7runde1pkt+$team7runde2pkt+$team7runde3pkt+$ team7runde4pkt
$Teams[7][6]=$team8runde1pkt+$team8runde2pkt+$team8runde3pkt+$ team8runde4pkt
$Teams[8][6]=$team9runde1pkt+$team9runde2pkt+$team9runde3pkt+$ team9runde4pkt
$Teams[9][6]=$team10runde1pkt+$team10runde2pkt+$team10runde3pk t+$team10runde4pkt

ersetzten soll
hehe ich kapier das ganze jetzt aber so üüüberhaupt ned ubound kann man ja nachlesen aber kannst du mir ned vtl. einen tipp geben was du da machst???

schon mal ein THX für die bisherige hilfe
SEHR SEHR NETT

EDIT:
ausserdem fehlt mir da noch die löstung für die rangliste... wie genau find ich dann heraus welches tem welchen rang hat??
09/01/2009 14:47 qLADYofLORDp#7
*push*
bitte bitte
kann mir einer weiter helfen.
09/02/2009 09:07 qLADYofLORDp#8
Habs selber hingekricht sry für die störung

hier mal der code fals jemand mal die sufu benutzen sollte:
(jah es ist umständlich aber es futzt)

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