home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / DALCD.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-03  |  1.8 KB  |  106 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       DALCD.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Steuerung der DA-AusgΣnge
  8. ' - ⁿber vier Tasten <A, >A, <B, >B
  9. ' - Anzeige der Spannungen am Display
  10. '
  11. '**************************************
  12. ' --- Definitionen --------------------
  13.  
  14. define Datenbus byteport[1]
  15. define RS port[9]
  16. define RW port[10]
  17. define E port[11]
  18. define Daten byte
  19. define Zahl word
  20. define TasterA1 port[13]
  21. define TasterA2 port[14]
  22. define TasterB1 port[15]
  23. define TasterB2 port[16]
  24. define AusgangA DA[1]
  25. define AusgangB DA[2]
  26. define WertA word
  27. define WertB word
  28.  
  29.  
  30. ' --- Programmoperationen -------------
  31.  
  32. gosub Init
  33. WertA = 50        '5V
  34. WertB = 50        '5V
  35. #Loop
  36.   if (Not TasterA1) then WertA = WertA - 1
  37.   if (Not TasterA2) then WertA = WertA + 1
  38.   if (Not TasterB1) then WertB = WertB - 1
  39.   if (Not TasterB2) then WertB = WertB + 1
  40.   if WertA < 0 then WertA = 0
  41.   if WertA > 255 then WertA = 255
  42.   if WertB < 0 then WertB = 0
  43.   if WertB > 255 then WertB = 255
  44.   AusgangA = WertA
  45.   AusgangB = WertB
  46.   Daten = 0
  47.   gosub Cursor
  48.   Zahl = WertA
  49.   gosub SpannungLCD
  50.   Daten = 64
  51.   gosub Cursor
  52.   Zahl = WertB
  53.   gosub SpannungLCD
  54.   pause 10 
  55.   goto Loop
  56.  
  57. #Init
  58. E=0
  59. Daten = &H38    'Initialisierung
  60. gosub Kommando
  61. Daten = &H0E    'Display einschalten
  62. gosub Kommando
  63. Daten = &H01
  64. gosub Kommando
  65. return
  66.  
  67. #Kommando
  68. RW = 0
  69. RS = 0
  70. Datenbus = Daten
  71. pulse E
  72. return
  73.  
  74. #Zeichen
  75. RW = 0
  76. RS = 1
  77. Datenbus = Daten
  78. pulse E
  79. return
  80.  
  81. #Cursor
  82. RW = 0
  83. RS = 0
  84. Datenbus = Daten + &H80
  85. pulse E
  86. return
  87.  
  88.  
  89. #SpannungLCD    '##.# V
  90. Daten = (Zahl / 100) + 48
  91. gosub Zeichen
  92. Zahl = (Zahl mod 100)
  93. Daten = (Zahl / 10) + 48
  94. gosub Zeichen
  95. Daten = 46      '"."
  96. gosub Zeichen
  97. Daten = (Zahl mod 10) + 48
  98. gosub Zeichen
  99. Daten = 32      '" "
  100. gosub Zeichen
  101. Daten = 86      '"V"
  102. gosub Zeichen
  103. return
  104.  
  105. end
  106.