darkkiller545
Gebruiker
- Lid geworden
- 5 sep 2008
- Berichten
- 106
ik heb een opdracht gekregen van iemand om een programma te maken op mijn grafische zakrekenmachine. Het progje dat hij mij vroeg om te maken is namelijk het volgende
hij vroeg mij om een progje te maken dat bij sommige mensen werkt en bij sommige niet dus de namen die ingeeft. Als iemand een andere methode weet bv.: via de nummer van de rekenmachine. Mag ook is zelfs beter.
ik heb namelijk het volgende gedaan.:
PROGRAM: TEST
-:"test"
-WisBasisscherm
-Uitvoer(1,7,"Voornaam"
-Uitvoer(3,2,"Druk op de DEL toets en geef je voornaam in."
-Input "Naam: ",Str1
-If Str1="JEROEN"
-Then
-Goto 1
-Else
-If Str1="BATS"
-Then
-Goto 1
-Else
-If Str1="TOM"
-Then
-Goto 1
-Else
-Goto 0
-Stop
-Lbl 0
-WisBasisscherm
-Uitvoer(5,3,"U kan spelen"
-Pauze
-1 -> Z
-Goto S
-WisBasisscherm
-Stop
-Lbl 1
-WisBasisscherm
-Uitvoer(4,2,"Dit spel werkt"
-Uitvoer(6,3,"niet voor u"
-Pauze
-0 -> Z
-Goto S
-Wisbasisscherm
-Lbl S
-1 -> Y
-prgm OP
Dit is het voor het progje test dat gebruikt wordt voor het ingeven van de namen en er voor zorgt dat het werkt en niet werkt. De Y en de Z worden in het prog OP verder gebruikt
PROGRAM: OP
-:"OP"
-Lbl T
-If Y=0
-Goto i
-If Y=1
-Goto J
-Lbl i
-prgm TEST
-Goto T
-Lbl J
-If Z=0
-Goto Q
-If Z=1
-Goto R
-End
-Lbl R
-WisBasisscherm
-Uitvoer(5,4,"Welkom" => Hier komt normaal het progje (Tussen in code Geen verwijzing !!)
-Pauze
-WisBasisscherm
-Goto M
-End
-Lbl Q
-Uitvoer(1,1,""
-Goto M
-End
-Lbl M
-WisVar Z
-WisBasisscherm
-Stop
Dit is het hele progje. en het werkt maar er is een probleem en dat is dat het enkel werkt als het progje niet in archief staat of verborgen is. Valt dit probleem op te lossen.
En weet iemand hoe ik het progje kan beveiliggen dat niemand het kan aanpassen.
als je wilt dat ik het progje zelf post laat dan iets weten dan zet ik de gemaakte versie erbij hoef je hem enkel te downloaden.
groeten kenny
hij vroeg mij om een progje te maken dat bij sommige mensen werkt en bij sommige niet dus de namen die ingeeft. Als iemand een andere methode weet bv.: via de nummer van de rekenmachine. Mag ook is zelfs beter.
ik heb namelijk het volgende gedaan.:
PROGRAM: TEST
-:"test"
-WisBasisscherm
-Uitvoer(1,7,"Voornaam"
-Uitvoer(3,2,"Druk op de DEL toets en geef je voornaam in."
-Input "Naam: ",Str1
-If Str1="JEROEN"
-Then
-Goto 1
-Else
-If Str1="BATS"
-Then
-Goto 1
-Else
-If Str1="TOM"
-Then
-Goto 1
-Else
-Goto 0
-Stop
-Lbl 0
-WisBasisscherm
-Uitvoer(5,3,"U kan spelen"
-Pauze
-1 -> Z
-Goto S
-WisBasisscherm
-Stop
-Lbl 1
-WisBasisscherm
-Uitvoer(4,2,"Dit spel werkt"
-Uitvoer(6,3,"niet voor u"
-Pauze
-0 -> Z
-Goto S
-Wisbasisscherm
-Lbl S
-1 -> Y
-prgm OP
Dit is het voor het progje test dat gebruikt wordt voor het ingeven van de namen en er voor zorgt dat het werkt en niet werkt. De Y en de Z worden in het prog OP verder gebruikt
PROGRAM: OP
-:"OP"
-Lbl T
-If Y=0
-Goto i
-If Y=1
-Goto J
-Lbl i
-prgm TEST
-Goto T
-Lbl J
-If Z=0
-Goto Q
-If Z=1
-Goto R
-End
-Lbl R
-WisBasisscherm
-Uitvoer(5,4,"Welkom" => Hier komt normaal het progje (Tussen in code Geen verwijzing !!)
-Pauze
-WisBasisscherm
-Goto M
-End
-Lbl Q
-Uitvoer(1,1,""
-Goto M
-End
-Lbl M
-WisVar Z
-WisBasisscherm
-Stop
Dit is het hele progje. en het werkt maar er is een probleem en dat is dat het enkel werkt als het progje niet in archief staat of verborgen is. Valt dit probleem op te lossen.
En weet iemand hoe ik het progje kan beveiliggen dat niemand het kan aanpassen.
als je wilt dat ik het progje zelf post laat dan iets weten dan zet ik de gemaakte versie erbij hoef je hem enkel te downloaden.
groeten kenny
Laatst bewerkt:
