{==============  FICHIER DE EDNUM  ======================}
{ Unite Graphe Trace.pas  Usinage machines a c.n. NUM750 }
{ programmation Turbo Pascal - Borland                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ Unite get_key7.pas : graphiques EDnum c.n du bois      }
{========================================================}

{$O+,F+}
Unit Get_Key7;
Interface

Const
      Shift_D:Boolean=False;
      Shift_G:Boolean=False;
      Ctrl:Boolean=False;       { press key Ctrl ok }
      Alt:Boolean=False;        { press key Alt  ok  }
      Inser_mode:Boolean=True;  { press key Inser ok }
      Key_Code:Boolean=False;   { code clavier etendue ok }

 Function KeyBoard:Byte;
 Procedure Beep;

Implementation

Uses crt,Dos;
Var Reg_DOS:Registers;


Procedure Beep;
{** Genere un bip grave **}
begin
  Sound(4071);
  Delay(50);
  NoSound;
end; 
{*Beep*}



Function KeyBoard:Byte;
 Var ch:Char;
 Begin
   Reg_DOS.AX:=$0C00;
   MsDos(Reg_DOS);
   ch:=Readkey;
   If Mem[0:$417] And 128 = 128 Then Inser_Mode:=True
     Else Inser_mode:=False;
   If Mem[0:$417] And 8 = 8  Then Alt :=True
     Else Alt:=False;
   If Mem[0:$417] And 4 = 4  Then Ctrl:=True
     Else Ctrl:=False;
   If Mem[0:$417] And 2 = 2  Then Shift_G:=True
     Else Shift_G:=False;
   If Mem[0:$417] And 1 = 1  Then Shift_D:=True
     Else Shift_D:=False;

   If (ch = #0) then
   Begin
      KeyBoard:=Ord(Readkey);
      Key_Code:=True;
   End
    else
       Begin
          KeyBoard:=ord(ch);
          Key_Code:=False;
       end;
 End; {* end keyBoard *}
 
End.

©® document original sources pascal
  
Page Last Updated: Juin 27, 2011 | Page Editor: A. Ara | SiteMap Dans Une Autre Galaxie
Cet emplacement web non-commercial, et totalement libre & indépendant de tout les parti politique ou d'organisme officiel de toute nature. Nous réflexions sont exclusivement l'avis de personnes qui rejettent le massacre que la société fait aux animaux pour tout motif.