1 | $regfile = "m2561def.dat"
|
2 | $hwstack = 82
|
3 | $framesize = 68
|
4 | $swstack = 68
|
5 |
|
6 | $crystal = 16000000 'Quarzfrequenz
|
7 | $baud = 19200
|
8 |
|
9 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
10 | ''''''''''''''''''''''''''''''' Ausgänge '''''''''''''''''''''''''''''''''''''''
|
11 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
12 |
|
13 | Config Portf.0 = Output
|
14 | Led0 Alias Portf.0
|
15 | Config Portf.1 = Output
|
16 | Led1 Alias Portf.1
|
17 | 'Config Portf.2 = Output
|
18 | 'Led2 Alias Portf.2
|
19 | 'Config Portf.3 = Output
|
20 | 'Led3 Alias Portf.3
|
21 |
|
22 |
|
23 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
24 | ''''''''''''''''''''''''''''''' Echo Off '''''''''''''''''''''''''''''''''''''''
|
25 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
26 | Echo Off
|
27 |
|
28 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
29 | ''''''''''''''''''''''''''''''' Variablen ''''''''''''''''''''''''''''''''''''''
|
30 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
31 |
|
32 | Dim Eingabe As String * 25
|
33 | Dim Ausgabe As String * 25
|
34 |
|
35 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
36 | ''''''''''''''''''''''''''''''' Serielle Schnittstellen'''''''''''''''''''''''''
|
37 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
38 | Config Com1 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
|
39 | Open "com1:" For Binary As #1 'RS232
|
40 |
|
41 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
42 | ''''''''''''''''''''''''''''''' Definition Unterprogramme ''''''''''''''''''''''
|
43 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
44 | Declare Sub Daten_vom_pc_empfangen()
|
45 | Declare Sub Daten_zum_pc_senden()
|
46 |
|
47 |
|
48 | Do
|
49 | ' Hauptschleife
|
50 | Call Daten_vom_pc_empfangen()
|
51 | Call Daten_zum_pc_senden()
|
52 |
|
53 | Loop
|
54 |
|
55 |
|
56 | End
|
57 |
|
58 |
|
59 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
60 |
|
61 | Sub Daten_vom_pc_empfangen()
|
62 |
|
63 | Waitms 15
|
64 | Toggle Led0
|
65 |
|
66 | Input #1 , Eingabe
|
67 |
|
68 |
|
69 | End Sub
|
70 |
|
71 |
|
72 | ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
|
73 |
|
74 | Sub Daten_zum_pc_senden()
|
75 |
|
76 | Waitms 15
|
77 | Toggle Led1
|
78 |
|
79 | Ausgabe = Eingabe + Chr(13)
|
80 |
|
81 | Print #1 , Eingabe
|
82 |
|
83 |
|
84 | End Sub
|