cnc-club.ru

Код: Выделить всё

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 - Открываем ком порт как файл #1 https://msdn.microsoft.com/en-us/library/office/gg264163.aspx
15 PAUSE! = .125
20 PRINT "Press any key to read Gage Port"
22 '
25 WHILE INKEY$ = "": WEND
30 PRINT #1, "A"; : GOSUB 100           ' В канал А... ; Читаем в JUNK
35 PRINT #1, "d"; : GOSUB 100           ' Пишем d ; Читаем в JUNK
40 PRINT #1, "00 0010": GOSUB 100       ' Пишем адрес\номер датчика\прибора; Читаем в JUNK
41 '
42 '
45 PRINT #1, "A"; : GOSUB 100           ' В канал А...; Читаем в JUNK
50 PRINT #1, "r"; : GOSUB 100           ' Пишем r; Читаем в JUNK
55 PRINT #1, "A"; : GOSUB 100           ' В канал А.. ; Читаем в JUNK
60 PRINT #1, "s"; : GOSUB 100           ' Пишем s; Читаем в JUNK
65 PRINT JUNK$                          ' Выводим значение (последнее прочтенное) из JUNK на экран 
70 END                                  ' Quit
90 '
100             
110 T! = TIMER                       
120 WHILE TIMER < T! + PAUSE!: WEND     ' ждем PAUSE
130 LINE INPUT #1, JUNK$                ' Читаем из порта в JUNK https://msdn.microsoft.com/ru-ru/library/office/gg264130.aspx
140 RETURN                              ' returns to program here

Код: Выделить всё

./bin/fbc 1.bas -lang qb -x 1.prog