Keskustelu: Koodit: scan koodien näytös-ohjelma

Tässä on näppis scan coodien näytös sorsa Turbo Pascalille (tai Borland)

tätä kun ajat ja painelet näppäimiä niin näet mikä luku on kukin näppäin hardis näppis kontrollerissa, tästä on apua kun tekee omaa näppiskoodia

ESC lopettaa ohjelman (ps. ESCIN koodi on siis 27)

uses crt;
var ch:char; a:byte;
begin
 ch:='''';
 repeat
  a:=port[$60];
  writeln(a);
  while keypressed do ch:=readkey;
 until ch=#27;
end.

Mukava nähdä että uusissa yrittäjissäkin on lupausta, tällä koodaajalla on selvästikin homma hanskassa.

Pistin tämän vielä Delphi-osastoon, mutta Pascal-vinkkejäkin on jo kaksi, niin varmaan pitäisi tehdä niille oma osasto.

joo pascal vinkeille voisi olla ihah hyvä oma osasto, kun minäpä ajattelin, että voisin pistää useampiakin pascal vinkkejä. tänänä äsken pistin kyllä perl vinkin että on vähän kieli-vaihtelua

korjaisin tuohon siis että ESC näppäimen scan coodi on 1 mutta askii arvo 27