een maximaale aantal 'invoeringen'

[Koekjeei]

hallo,

Ik heb een opdracht gekregen voor visual basic maar ik kom er niet echt uit .
De bedoeling is dat je een 'invulformulier' maakt voor mensen zodat zij kunnen meedoen met een cursus. Er zijn echter maar 10 inschrijvingen toelaatbaar.

Daar ligt dan ook meteen het probleem, ik heb geen flauw idee hoe ik zoiets zo moeten doen .

ik heb tot zover voorelkaar gekregen dat hij het allemaal wel opslaat maar dan ook over de 10 x.

dit is het code wat ik gebruik:
Naam = TxtNaam.Text
Open "\\segbroek02\leerlingen\103980\Informatica\VBasic\Eindopdracht\Met code\Inschrijvingen.txt" For Append As #1
Print #1, "Naam:"; Space(3);
Write #1, Naam
Close #1

naam wordt dan met adres, leeftijd, etc. vervangen.

zou iemand mij hierbij kunnen helpen!?

m.v.g, Koekje.

ps: weet iemand misschien ook hoe ik enters tussen de opgeslagen gegevens zou kunnen zetten? bijv: naam, adres, woonplaats, leeftijd, <enter>, naam, adres, woonplaats, leeftijd, <enter>, etc.

 

[etri]

Een lege regel kan via:

Print #1,    ' Print blank line to file.

Als je maar 10 personen mag laten inschrijven, zijn er twee mogelijkheden:
- maak maar 10 rijen, waardoor meer inschrijvingen niet mogelijk zijn
- lees slechts 10 rijen in, en geef een melding indien er teveel - meer dan 10 - zijn

 

[Charlize]

chr(13) misschien voor enter.

Om te zien of er meer dan 10 inschrijvingen zijn.
- lees elke lijn in totdat je het einde van je bestand bereikt
- tegelijkertijd gebruik je een teller dewelke voor elke lijn 1 ophoogt
- wanneer je teller >= 10 geef je de melding dat je niets meer kan toevoegen

Charlize

 

[etri]

chr(13) misschien voor enter.

VB heeft een speciale code daarvoor: vbCrLf

Dus als je in je messagebox naar een volgende rij wilt:

msgbox "regel1" & vbCrLf & "regel2"