| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- 10 ' Anastyr.bas /Datum P-J H”gfeldt 850123
- 20 ' Kap 3.1 Ex 3 sid 34
- 30 ' STYRNING AV ANALOG SPŽNNING
- 40 '
- 50 ' Funktion f”r omvandling till heltal
- 60 '
- 70 DEF FNHELTAL%(FLYT)=FLYT-65536!
- 80 '
- 100 ' HUVUDPROGRAMMET
- 110 '
- 200 Z=INP(&H307) ' NOLLSTŽLL KORTEN
- 210 '
- 220 CLS
- 230 PRINT "STYRNING AV ANALOG SPŽNNING"
- 240 PRINT :PRINT "St„ll in tumhjulen i ”nskat l„ge och tryck p† RETURN ";
- 250 INPUT Z$
- 260 '
- 270 WHILE -1 ' O„ndlig loop, avbryt med ctrl-break
- 280 '
- 290 ' AVLŽSNING AV TUMHJULEN
- 300 '
- 310 OUT &H301,4 ' V„ljer kort med adress 4, grupp 1=tumhjul ental
- 320 ENTAL%=INP(&H300) AND &HF ' L„s grupp 1 (0-3), ental
- 330 '
- 340 OUT &H301,&H84 ' V„lj kort med adress 4, grupp 2=tumhjul tiondel
- 350 TIONDEL%=INP(&H300) AND &HF ' L„s grupp 2 (8-11), tiondelar
- 360 '
- 370 SPANNING$=STR$(ENTAL%)+"."+STR$(TIONDEL%)
- 380 SPANNING=VAL(SPANNING$) ' 0 - 9.9 volt
- 390 '
- 400 ' SKRIV UTSPŽNNING
- 410 '
- 420 OUT &H301,3 ' V„lj D/A-kortet 4083
- 430 UT=SPANNING*4095/10
- 440 IF UT>32767 THEN UT%=FNHELTAL%(UT) ELSE UT%=UT ' Konvertera
- 450 OUT &H300,UT% AND &HFF ' Skicka l†ga delen till grupp 1
- 460 OUT &H302,UT%\256 ' H”ga delen till grupp 2
- 470 '
- 480 WEND
|
