anoniem Geplaatst: 27 februari 2003 Delen Geplaatst: 27 februari 2003 [code:1:8e3ffb47b4]Program temeratuurmeting; Uses CRT; const ba = $3f8; procedure Zeitgeber; begin Port[$43] := $24; Port[$40] := lo (59659); Port[$40] := hi (59659); end; procedure Uhr; begin Port[$43] := $36; Port[$40] := $0; Port[$40] := $0; end; function Frequenz (Kanal: Byte): Integer; var Dummy, Timer, Timer_alt : Integer; Eingang, Eingang_alt, Zeit : Byte; Zaehler : Integer; begin {Error 3: Unknown indentifier} Portwert := 16; if Kanal=2 then Portwert := 32; if Kanal=3 then Portwert := 64; if Kanal=4 then Portwert := 128; Zaehler := 0; Zeit := 0; Inline ($FA); Timer := Port[$40] and 128; repeat; Timer_alt := Timer; Timer := Port[$40] and 128; until Timer > Timer_alt; Eingang_alt := Port[BA+6] And Portwert; repeat Timer_alt := Timer; Eingang := Port[BA+6] AND Portwert; if Eingang > Eingang_alt then Zaehler := Zaehler := Zaehler+1; Eingang_alt := Eingang; Timer := Port[$40] and 128; If Timer > Timer_alt then Zeit := Zeit +1; until Zeit = 20; Inline ($FB); Frequenz := Zaehler; end; function Temperatur: Real; var Messfrequenz: Integer; begin Messfrequenz := Frequenz(2); Temperatur := 10 * (Messfrequenz-2065) / (2230-2065); if Messfrequenz > 2230 then Temperatur := 10 + 10*(Messfrequenz-2230) / (2475-2230); if Messfrequenz > 2475 then Temperatur := 20 + 10*(Messfrequenz-2475) / (2835-2475); if Messfrequenz > 2835 then Temperatur := 30 + 10*(Messfrequenz-2835) / (3430-2835); end; begin ClrScr; Zeitgeber; repeat GotoXY (10,10); writeln ('Temperatuur= ',Temperatur:4:2,' graden C'); until KeyPressed; Uhr; end.[/code:1:8e3ffb47b4] Wie weet waarom ik de foutmelding [i:8e3ffb47b4]Error 3: Unknown indentifier[/i:8e3ffb47b4] krijg ? Quote Link naar reactie
anoniem Geplaatst: 27 februari 2003 Auteur Delen Geplaatst: 27 februari 2003 [quote:ac7de57f9f="cyberwouter"] Wie weet waarom ik de foutmelding [i:ac7de57f9f]Error 3: Unknown indentifier[/i:ac7de57f9f] krijg ?[/quote:ac7de57f9f] [code:1:ac7de57f9f] function Frequenz (Kanal: Byte): Integer; var Dummy, Timer, Timer_alt : Integer; Eingang, Eingang_alt, Zeit : Byte; Portwert, Zaehler : Integer; { <---------- Portwert toevoegen} begin Portwert := 16; {Error 3: Unknown indentifier} if Kanal=2 then Portwert := 32; if Kanal=3 then Portwert := 64; if Kanal=4 then Portwert := 128; Zaehler := 0; [/code:1:ac7de57f9f] De variable [b:ac7de57f9f]Portwert[/b:ac7de57f9f] is nergens gedeclareerd. dat geeft zo'n foutmelding. Zet hem maar bij de andere declaraties dan is de foutmelding weg. wimb Quote Link naar reactie
anoniem Geplaatst: 27 februari 2003 Auteur Delen Geplaatst: 27 februari 2003 Ja nou je het zegt! dom dom dom dom dom :oops: :oops: . Evengoed thanks!. Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen