[pascal] menu's enzo

[Verwijderd]

*ik ben met een leuk project bezig voor school, ik vraag hierbij geen source code want uiteindelijk wil ik het helemaal zelf doen*

http://tfalcon.quickhost.nl/aow.jpg

zoals je in de screenshot kan zien kan je bij het intypen van gevens die in een string worden gelezen (string is net zo groot als groote van rode vlak) ver buiten zijn veld kunnen gaan.

is er geen manier voor als ie het einde heeft bereikt de cursor naar de volgende regel springt? en dan bedoel in niet "writeln/readln"

[Tom-my]

[off topic]
Lollig zeg, dat er nog mensen zijn die dit gebruiken . Sterker nog, dat er scholen zijn die het op deze manier leren. Wrom aan pascal beginnen in turbo pascal en niet in delphi oid.

Op deze manier leer je natuurlijk wel de inzicht en het logisch denken wordt aangescherpt, maar je ken dr verder niet veel meer mee. Bijna niemand gebruikt nog applicaties voor dos, zeker niet na dec 2001 (euro).

Maja dat zal wel weer an mie legguh . Ik vond het toendertijd op de Haagsche Hoge School erg klote dat ze me pascal onder unix gingen leren ipv delphi oid.
[/off topic]

[Verwijderd]

ja daar heb ik nu toch geen *reet* aan, onderwijs loopt achter ja. kan ik er wat aan doen.

[Jaapie]

Met "windows" werken, moet je maar ff zoeken in de help van Pascal naar de functie "window"

[Verwijderd]

Kan je er geen controle inbouwen???

Dat je een FOR loopje krijgt of een IF-statement;

code:

IF text[20] >= ... THEN ...

zoiets
Weet het ook allemaal niet precies meer.
Eigenlijk dacht ik dat Pascal automatisch blokkeerde
als je aantal characters buiten je string range kwamen.
Maar goed, dat zal wel aan mij of aan mij versie liggen

[Tom-my]

Wrom kijk je niet na elke letter die ingetikt is of er nog letters bij mogen?

[Verwijderd]

Op zondag 23 december 2001 16:31 schreef FanToom het volgende:
[off topic]
Lollig zeg, dat er nog mensen zijn die dit gebruiken . Sterker nog, dat er scholen zijn die het op deze manier leren. Wrom aan pascal beginnen in turbo pascal en niet in delphi oid.

Op deze manier leer je natuurlijk wel de inzicht en het logisch denken wordt aangescherpt, maar je ken dr verder niet veel meer mee. Bijna niemand gebruikt nog applicaties voor dos, zeker niet na dec 2001 (euro).

Maja dat zal wel weer an mie legguh . Ik vond het toendertijd op de Haagsche Hoge School erg klote dat ze me pascal onder unix gingen leren ipv delphi oid.
[/off topic]

Is het niet makkelijker om te beginnen met programmeren
in een basic dos programma dan gelijk object georienteerd
te gaan beginnen?

Ik ben ook begonnen met Turbo Pascal for DOS
en nu programmeer ik Turbo C/C++ for DOS

Das echt wel makkelijker dan object programmeren.
(Hoewel object georienteerd veel motiverender is, dan lijkt het nog wat )

[Skinkie]

Op zondag 23 december 2001 16:31 schreef FanToom het volgende:
[off topic]
Lollig zeg, dat er nog mensen zijn die dit gebruiken . Sterker nog, dat er scholen zijn die het op deze manier leren. Wrom aan pascal beginnen in turbo pascal en niet in delphi oid.

Op deze manier leer je natuurlijk wel de inzicht en het logisch denken wordt aangescherpt, maar je ken dr verder niet veel meer mee. Bijna niemand gebruikt nog applicaties voor dos, zeker niet na dec 2001 (euro).

Maja dat zal wel weer an mie legguh . Ik vond het toendertijd op de Haagsche Hoge School erg klote dat ze me pascal onder unix gingen leren ipv delphi oid.
[/off topic]

Omdat ze bij een aantal scholen een jaar achterlopen, volgend jaar krijgt waarschijnlijk iedereen Java, helaas

[Verwijderd]

text[5] kan zijn "hallo"

maar als je in menu intypt 123456789123456789
heb je nog steeds een string van 5

text[5] is dan "12345"

het gaat erom dat je gewoon verder kan typen , als je een beetje domme gebruiker hebt.

[Verwijderd]

Op zondag 23 december 2001 16:36 schreef FanToom het volgende:
Wrom kijk je niet na elke letter die ingetikt is of er nog letters bij mogen?

omdat de text pas ingelezen drukt als je op enter drukt en dan pas het aantal characters telt.

[marijn]

Je kan met window werken zoals al gezegt was. Dat is gewoon standaard pascal. Of je kijkt waar de cursor positie is ofzo met getx; en gety;

zoiets dacht ik:

if getx=12 then ...

betere oplossing:

Lees elke keer 1 char in met een loop en dan kan je precies tellen hoeveel er ingetikt is.

[Boss]

(ik weet 't ook niet maar...)

grappig dat dit niet heel snel opgelost is! Blijkbaar is iedereen toch al weer de basic, simpele dingen vergeten uit het DOS tijdperk

[Verwijderd]

Op zondag 23 december 2001 16:42 schreef marijn het volgende:
Je kan met window werken zoals al gezegt was. Dat is gewoon standaard pascal. Of je kijkt waar de cursor positie is ofzo met getx; en gety;

zoiets dacht ik:

if getx=12 then ...

gaaf ! maar werken we niet met een X en een Y as?

[marijn]

Op zondag 23 december 2001 16:44 schreef TFaLCoN het volgende:

[..]

gaaf ! maar werken we niet met een X en een Y as?

Zo gaaf is dat niet hoor.
Maar waarom heb je Y nodig als je alleen de positie op de xas wil weten.

En als je een window gebruikt kan je wat je gemaakt hebt veel simpeler doen.

[PipoDeClown]

Je kunt toch Turbo Vision gebruiken voor je progjes. Muis, Venster etc etc. en dus ook dit soor invoerveldjes.
Dat je daarvoor nou even in de boeken moet duiken mag de pret niet drukken!

En grappig dat TP het uberhaupt nog doet op die pc's want ik krijg alleen maar die runtime error 200.

[Tom-my]

Het gaat er niet om of er met een x of y as wordt gewerkt, tis gewoon een voorbeeld wat geschetst wordt. Tis een wat moeilijkere manier maar wel functioneel (al vrat mijn leraar toendertijd alleen de oplossingen die hij wou hebben, en tja als programmeur zijnde zijn er 500 oplossingen meest voor een probleem (ja ditis overdreven)). Simpelste is gewoon tellen hoeveel letters er ingetikt zijn en bij elke volgende input een #0 mee te geven (dat is in delphi een leeg charretje).

[Tom-my]

Op zondag 23 december 2001 16:48 schreef PipoDeClown het volgende:
Je kunt toch Turbo Vision gebruiken voor je progjes. Muis, Venster etc etc. en dus ook dit soor invoerveldjes.
Dat je daarvoor nou even in de boeken moet duiken mag de pret niet drukken!

En grappig dat TP het uberhaupt nog doet op die pc's want ik krijg alleen maar die runtime error 200.

Daar is een patch voor

[Jaapie]

Op zondag 23 december 2001 16:48 schreef PipoDeClown het volgende:
Je kunt toch Turbo Vision gebruiken voor je progjes. Muis, Venster etc etc. en dus ook dit soor invoerveldjes.
Dat je daarvoor nou even in de boeken moet duiken mag de pret niet drukken!

En grappig dat TP het uberhaupt nog doet op die pc's want ik krijg alleen maar die runtime error 200.

Er is een patch beschikbaar, zonder die patch werken pascal programmas alleen op cpu onder de 200mhz ofzoiets

[Verwijderd]

dus als ik het goed heb...

code:

GotoXY(5,5);
Write('naampje : ');
read(data_naam);
if getx=25 then gotoXY(5,18);
GotoXY(5,6);
Write('leeftijdje : ');

[Verwijderd]

Op zondag 23 december 2001 16:59 schreef TFaLCoN het volgende:
dus als ik het goed heb...

code:

GotoXY(5,5);
Write('naampje : ');
read(data_naam);
if getx=25 then gotoXY(5,18);
GotoXY(5,6);
Write('leeftijdje : ');

of

code:

GotoXY(5,5);
Write('naampje : ');
while getx < 25 do read(data_naam);
GotoXY(5,6);
Write('leeftijdje : ');

[marcusk]

Op zondag 23 december 2001 16:36 schreef Livors het volgende:
Is het niet makkelijker om te beginnen met programmeren
in een basic dos programma dan gelijk object georienteerd
te gaan beginnen?

Ik ben ook begonnen met Turbo Pascal for DOS
en nu programmeer ik Turbo C/C++ for DOS

Das echt wel makkelijker dan object programmeren.
(Hoewel object georienteerd veel motiverender is, dan lijkt het nog wat )

ik vraag me af wat jij onder Object Georienteerd programmeren verstaat. Dat kan namelijk heel goed zonder windows, en heeft eigenlijk niets met dit topic te maken.

[marijn]

repeat
k=k+readkey();
until getx=5;
gotoxy(iets,iets);
// die k is dan dus regel 1;

ofzo

repeat
k=k+readkey();
until length(k)=5;
gotoxy(iets,iets);
// die k is dan dus regel 1;


Ik heb al een tijd geen pascal meer gedaan maar zoiets moet 't zijn.

[Verwijderd]

bepaal de groote vn dat stukje, dus naam:string[5];


of zo


oh shit dat is delphi

[TheLunatic]

code:

var i:integer
    c:char;
    s:string;

begin
s:='';
i:=0;
write('naam');
while not (i>20) do begin
  c:=readkey;
  s:=s+c;
  i:=wherey;
  end;
end.

dit zou moeten doen, dat als de plaats van de cursor 20+1 is dat ie stopt met lezen.