Hoi CNFR,
Ik heb je progje nagecheckt en het enige dat mss die fout zou kunnen geven is :
Sub TabelMaken()
cls: x=1: aantal$ ="even": input "Aantal teams"; aantal: cls
If aantal / 2 <> Int(aantal / 2) Then aantal$ = "oneven": aantal = aantal + 1
Print "team";: For z = 1 To aantal - 1: Print using; "###e"; z;: Next z:
Print: Print " ";: For z = 1 To aantal - 1: Print "rnd ";: Next z: Print
Print "----";: For z = 1 To aantal - 1: Print " ---";: Next z: Print:
For z = 1 To aantal - 1: Print using; "## "; z;
For y = 1 To aantal - 1: x = x + 1
If x = aantal Then x = 1
If x = z And aantal$ = "even" Then x = aantal
If x = z And aantal$ = "oneven" Then x = 0
Print using; "####"; x;: If x = aantal Or x = 0 Then x = z
Next y: x = x - 1: Print
Next z
If aantal$ = "even" Then
Print using; "## "; aantal,
For y = 1 To aantal / 2 - 1:
Print using; "#### ##"; aantal / 2 + y; y + 1;:
Next y: Print using; "####"; 1
End If
End If
De tweede End If vergeten...Voor de duidelijkheid zou ik in mijn FOR..NEXT teller ook gebruik maken van haakjes.
vb: For y = 1 To (aantal / 2 )- 1
Emphyrio