Вместе с коробулькй пришло 2 дискеты с прогой DOS и файлами *.BAS
Прога досовская не запускается (черный экран и все)
Пример похож на Basic и файлы с примерами имеют *.BAS
Как этот пример запустить на выполнение на компе?
Код: Выделить всё
1 ' This program shows how to pull a reading from the gageport
2 ' in the computer mode. the gage can be changed in line 40 by
3 ' modifying the last 4 digits of the string to correspond to the
4 ' gage you want to use. This program just pulls a single reading
5 ' from channel A of a gageport.
6 '
10 OPEN "COM1:9600,N,7,2,cs,ds,cd" FOR RANDOM AS #1
15 PAUSE! = .125 ' Sets up the delay time
20 PRINT "Press any key to read Gage Port"
22 '
25 WHILE INKEY$ = "": WEND ' Wait for the user to start
30 PRINT #1, "A"; : GOSUB 100 ' Set up channel A to read
35 PRINT #1, "d"; : GOSUB 100 ' the ultra digit III indicator
40 PRINT #1, "00 0010": GOSUB 100 ' this can be changed to anything
41 '
42 '
45 PRINT #1, "A"; : GOSUB 100 ' This is where we actually read
50 PRINT #1, "r"; : GOSUB 100 ' the gage value into the computer
55 PRINT #1, "A"; : GOSUB 100 ' by sending it an 'r' then a 's'
60 PRINT #1, "s"; : GOSUB 100 ' then waiting for the reading....
65 PRINT JUNK$ ' show the gage reading here
70 END ' Quit
90 '
100 ' This pauses for the command
110 T! = TIMER ' line sent to gageport to exec
120 WHILE TIMER < T! + PAUSE!: WEND ' then waits for the echo to
130 LINE INPUT #1, JUNK$ ' show up at the port
140 RETURN ' returns to program here
