home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / App-Board / tx.bas < prev   
Encoding:
BASIC Source File  |  1997-06-16  |  2.7 KB  |  133 lines
  1. '********************************************************************
  2. '
  3. ' C-Control/BASIC       TX.BAS
  4. '
  5. ' Systemvoraussetzungen:
  6. '
  7. ' - Application Board mit angeschlossenem Telemetrie-Sender
  8. '   und Tastatur
  9. '
  10. ' Schwerpunkt:
  11. '
  12. ' - Funkuebertragung von Daten (siehe auch RX.BAS)
  13. ' 
  14. '********************************************************************
  15.  
  16. define value word
  17. define neg byte
  18.  
  19. define key_nr byte
  20. define compare byte
  21. define key_ascii byte
  22.  
  23. define keyboard ad[8]
  24.  
  25.  
  26. ' die Reihenfolge der Tasten auf dem Keyboard
  27. define KEY_ASTERIX 0
  28. define KEY_7       1
  29. define KEY_4       2
  30. define KEY_1       3
  31. define KEY_0       4
  32. define KEY_8       5
  33. define KEY_5       6
  34. define KEY_2       7
  35. define KEY_CROSS   8
  36. define KEY_9       9
  37. define KEY_6       10
  38. define KEY_3       11
  39.  
  40. ' Sender-Enable -Signal liegt an Port 16
  41. define digi byteport[2]
  42. define enable port [16]
  43.  
  44. ' --- Initialisierung ---
  45.  
  46.   value = 0
  47.   neg = 0
  48.  
  49. ' --- Tastaturabfrageschleife ---
  50.  
  51. #LOOP
  52.  
  53. ' anhand einer Tabelle werden die vom A/D-Wandler gemessenen
  54. ' Spannungswerte einer Taste zugeordnet, dabei wird eine
  55. ' Toleranz von +- 3 zugelassen, um Widerstandstoleranzen
  56. ' zu kompensieren
  57.  
  58.   for key_nr = 0 to 11
  59.     looktab keycodes, key_nr, compare
  60.     if abs(keyboard-compare) < 3 then gosub SEND_KEY
  61.   next
  62.  
  63. 'kleine Pause
  64.   pause 10
  65.  
  66. ' Endlosschleife
  67. goto LOOP
  68.  
  69. ' --- Vergleichstabelle mit Werten, die mit keyb1.bas ermittelt wurden ---
  70.  
  71. ' sollten die von Ihnen festgestellten Tasten-A/D-Werte von dieser Tabelle
  72. ' etwas abweichen, so ist das normal und durch die Widerstandstoleranzen
  73. ' begruendet
  74.  
  75. table keycodes
  76.   0 23 46 68
  77.   90 111 132 152
  78.   173 193 214 235
  79. tabend
  80.  
  81.  
  82. ' --- Zuordnung von ASCII-Codes fuer die Tasten aus einer Tabelle und Ausgabe ---
  83.  
  84. ' Achten Sie auf die hier implementierten Sonderfunktionen
  85. ' der Tasten # und * sowie auf das Setzten des negativen
  86. ' Vorzeichens durch Druecken der 0 vor der eigentlichen Eingabe
  87.  
  88. #SEND_KEY
  89.   looktab asciicodes, key_nr, key_ascii
  90.   enable = ON        ' Sender einschalten               
  91.   pause 5            ' Stabilisierungszeit fuer den Sender
  92.   put key_ascii      ' Byte uebertragen
  93.   enable = OFF       ' Sender ausschalten
  94.  
  95. return
  96.  
  97. ' negatives Vorzeichen
  98. #NEGATIVE
  99.   neg = not neg
  100.   print "-";
  101. return
  102.  
  103. ' Loeschen des zuletzt eingegebenen Zeichens
  104. #BACKSPACE
  105.   if value = 0 then neg = not neg
  106.   value = value / 10
  107.   put 8
  108.   put 32
  109.   put 8
  110. return
  111.  
  112. ' Eingabe abschliessen
  113. #NEWLINE
  114.   print
  115.   if neg then value = -value
  116.   print "Sie haben "; value; " eingegeben"
  117.   value = 0
  118.   neg = 0
  119. return
  120.  
  121. #ERRORBEEP
  122.   beep 100,10,0
  123. return
  124.  
  125. table asciicodes
  126.   8 55 52 49
  127.   48 56 53 50
  128.   10 57 54 51
  129. tabend
  130.  
  131.  
  132.  
  133.