**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
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)
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 :
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 ....
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
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??
Rangliste für HP 08/20/2010 - Metin2 Private Server - 3 Replies Hallo zusammen
ich wollte mal fragen ob mir bitte jemand eine rangliste auf meine hp einbauen kann ich habe davon leider null plan.
Rangliste 05/29/2010 - Metin2 Private Server - 2 Replies Hallo,
ich habe mal eine Frage an euch alle. Ich benötige eine Rangliste für meinen neuen P-Server der Bald eröffnet wird. Gibt es hier einen guten php scripter der mir eine prima Rangliste erstellen kann ? Gegenleistung gibts natürlich eine ich weis nur noch nciht welche dazu müsste man sich kurz mit mir in Kontakt setzten. Am besten ins Netzwerk kommen von hamachi: WheelMt2 PW: wheel
oder ICQ: 488161732. wäre wirklich nett wenn sich jemand melden würde.
Danke im Voraus!
mfg
minimolli
Rangliste!? Pls Help 04/21/2010 - Metin2 Private Server - 1 Replies Hallo,
Ich wollte fragen ob irgendeiner eine Rangliste erstellen kann
Mit (Platz) (NAME) (LVL) (EXP) (LAND)???
Wäre sehr nett
(Ps. Oder mir sagen wir ich sie erstellen kann)
Rangliste in HP 02/20/2010 - Metin2 Private Server - 5 Replies Sers @ epvper
Habe folgende Frage. Und zwar würde ich egrne wissen ob man die Rangliste auf eine HPBK seite einbauen kann " PandoraMt2 " wenn ja wie??
(Will keine möglichkeiten für externe Ranglisten wie HP Scripts mit Regi usw...)
GM rangliste 11/02/2009 - Metin2 Private Server - 1 Replies Hallo
Ich wollte mal fragen wie ich die GM aus der Rangliste nehme von diesem TuT:http://www.elitepvpers.com/forum/metin2-pserver -guides-strategies/358561-how-mt2-hp-complete-item shop.html
Weil bei mir stehen die GM als 1. Stelle. Wie kann ich die Rausnehmen?
Mfg
?!...
