Hallo iedereen,

Telkens als ik het hiernavolgende programmaatje wil laten lopen krijg ik de foutmelding "" Compileerfout: Syntaxisfout.

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

Ik zelf kan mijn fout met de beste wil niet vinden, wie kan er mij helpen a.u.b.?

Groetjes  

CNFR

Hoi Emphyrio

Alvast bedankt voor uw reactie, ik heb alles aangepast zoals u hebt aangegeven.

Maar nog steeds krijg ik dezelfde foutmelding.
De eerste lijn word bij de foutmelding rood gekleurd (cls: x=1 enz.

CNFR

De End If die Emphyrio er laat bij zetten moet terug weg.
Guido

@guido: Je hebt gelijk, maar ik wou toch nog even deze bedenking neerzetten  

Ofwel is zijn BASIC syntax :IF()THEN..ELSE ..ENDIF in dat geval moeten er 5 ENDIF's staan

Ofwel is ENDIF optioneel, in dat geval staat er één te veel en vermoed ik dat het laatste statement End Sub (ipv End If) moet zijn (hetgeen me doet vermoeden dat het VB is).

Voor de rest kan het zijn dat de INPUT op een andere regel moet staan en niet op dezelfde lijn (sommige compilers doen daar moeilijk over).

Emphyrio  

Welke Basic gebruik je? Er zijn zoveel verschillende en elke Basic is toch weer een beetje anders.

Een eerste vereiste op forums is ook vragen beantwoorden.

En vul je profiel eens deftig in. Met GV_Profile gaat dat heel gemakkelijk.

Guido

Kan je een rechtstreekse link legen naar het programma. Met welke versie vanExcel ben je aan het werken.

Het is code voor een echte Basic (een van de eerste gewone programmeer talen). Je zou kunnen zeggen dat Basic een van de voorgangers is van de huidige Visual Basic.  

Naar gebruik van code is er wel een vershil in het gebruik van de syntax tussen Basic en VB. Je kan de uitvoering welliswaar lezen en begrijpen. Het wil echter niet zegen dat je het ook zomar gewoon kan overzetten naar VBA.

Je hebt nu twee mogelijkheden ofwel ga je opzoek naar een basic compiler (https://www.thefreecountry.com/compilers/basic.shtml) ofwel (laat je) pas je het aan aan VBA. Nu in het laatste geval is het gemakkelijker dat je eerst even een gedetaileerde beschrijving geeft van wat er eigenlijk moet gebeuren (wat wil je eigenlijk hebben dat het programma doet).

Heel belangrijk is dan dat je afstand neemt van de code hierboven en dat we gewoon vanaf nul beginnen.