Basic a ovladani portu

[Minář Petr]

Jsou to 4 zdrojaky z AR ?? .Kdysi jsem si to opisoval, jednalo se o merici kartu na LPT, jmenovalo se to tusim PCL AMA a je to pro Qbasic. Snad ti to pomuze.

	S pozdravem
				měřák
				petr.minar@kleibl.cz 

1.***********************

DECLARE FUNCTION mer ()
  badr% = &H300
REM **** definice meznich hodnot ****
  dolni = .6
  horni = .76
  unap = .5
  rn = .71
REM *********************************
SCREEN 12
CLS
DRAW "b m202,30 C8 R240 D420 I240 u420 BM203,31 P8,8"
LINE (202, 430)-(442, 430), 0
CIRCLE (322, 130), 90, 7
CIRCLE (322, 330), 90, 7
r = 0
DO
  yp = mer
  Y = (99 * Y + yp) / 100
  r = (rn * (unap - Y) / Y)
IF (dolni < r) AND (horni > r) THEN
    PAINT (322, 130), 8, 7
    PAINT (322, 330), 2, 7
    ELSE
    PAINT (322, 130), 12, 7
    PAINT (322, 330), 8, 7
END IF
LOCATE 28, 27
PRINT "    "
LOCATE 28, 27
PRINT USING "##.##"; r
LOOP UNTIL INKEY$ = "k"

FUNCTION mer
SHARED badr%
OUT badr% + 2, 0
DO
  LOOP UNTIL ((INP(badr% + 3)) AND 1) = 0
  mer = (INP(badr% + 2) - 128) / 25.6
END FUNCTION

2.***********************

REM test A/D prevodniku
REM meri a zobrazuje do stisku klavesy "k"
badr% = &H300
PRINT "Test A/D pýevodnˇku karty PCL-AMA"
PRINT "k.....KONEC"
DO
  OUT badr% + 2, 0
  DO
  LOOP UNTIL ((INP(badr% + 3)) AND 1) = 0
  x% = INP(badr% + 2)
  PRINT "Věsledek= "; x%; "digit= "; (x% - 128) / 25.6; "V"
LOOP UNTIL INKEY$ = "k"

3.***********************

REM test digitalniho vstupu
REM cte a zobrazuje data z digitalniho portu
basadr% = &H300
PRINT "Test digit lnˇho vstupu karty PCL-AMA"
PRINT "k.....KONEC"
DO
  PRINT INP(badr% + 1)
LOOP UNTIL INKEY$ = "k"

4.***********************

REM test digitalniho vystupu
REM zapisuje na dig.vystup zadana cisla
REM zapis 256=konec
basadr% = &H300
PRINT "Test digit lnˇho věstupu,zadej źˇslo 0...255"
PRINT "256.....KONEC"
DO
  INPUT "Data: "; d%
  OUT badr%, d%
LOOP UNTIL d% = 256



>  -----Původní zpráva-----
>  Od: hw-news@list.gin.cz [mailto:hw-news@list.gin.cz]za uživatele Jiří
>  Brettl
>  Odesláno: 14. ledna 2000 20:06
>  Komu: Multiple recipients of list
>  Předmět: Basic a ovladani portu
>  
>  
>  Zdavim vsechny,
>  muzete mi nekdo poradit jak cist a zapisovat na porty PC 
>  (COM, LPT) a to v
>  Basicu (GW,Q) ? Pomohl by mne nejaky funkcni vzor zdrojaku.
>  Predem dik.
>  J.Brettl