Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

[Pascal] Foutmelding wie weet waarom???

cyberwouter
2 antwoorden
  • [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: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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.