伊莉討論區

標題: Basic語言有問題，想請各位求助小弟我拜託拜託 [打印本頁]

作者: 嗯嗯123 時間: 2017-5-24 08:19 PM 標題: Basic語言有問題，想請各位求助小弟我拜託拜託

本帖最後由 darkjack 於 2017-5-25 08:22 PM 編輯

小弟碩班最近碰到老闆要求利用QBasic去操控控制器
但是完全沒學過，所以想請教各位高手
我想讓他可以到一個點後在到另一個點來回跑
但是下面這些我看不懂，程式碼是我從其他地方拿到的
想請教各位這程式碼是可以執行來回跑的動作嗎? 可以簡單的跟我解釋一下嗎?

想請問10~100 200~250 260~270 各個是甚麼意思?

拜託大家了! 快被老闆追殺惹

10 OPEN "COM1:9600,N,8,1" FOR RANDOM AS #1
20 PRINT #1, "V1 1800": GOSUB 200
22 PRINT #1, "V3 1800": GOSUB 200
25 FOR I = 1 TO 600000
30 PRINT #1, "M1 +58.000": GOSUB 200
40 PRINT #1, "M2 +0.18": GOSUB 200
50 PRINT #1, "M1 -58.000": GOSUB 200
60 PRINT #1, "M2 +0.18": GOSUB 200
70 NEXT I
100 END
200 PRINT #1, "Q"
210 INPUT #1, X$: PRINT X$,
220 INPUT #1, Y$: PRINT Y$,
222 INPUT #1, Z$: PRINT Z$,
230 INPUT #1, SI$: PRINT SI$; " ";
240 INPUT #1, SX$: PRINT SX$; " ";
245 INPUT #1, SY$: PRINT SY$; " ";
250 INPUT #1, SZ$: PRINT SZ$; " ";
260 IF SI$ = "R" THEN GOTO 200
262 IF SX$ = "R" THEN GOTO 200
264 IF SY$ = "R" THEN GOTO 200
266 IF SZ$ = "R" THEN GOTO 200
270 RETURN

複製代碼

作者: darkjack 時間: 2017-5-25 08:21 PM

好老的語言......QBasic ......

基本上我給你最簡化的說法就好

#1 = 代數（要輸入的資料）
Input 顧名思義輸入
Print 在這是做一個輸出動作
Open 是打開

其他的 SI ,SX 後面跟著 $ 是一個變數...

作者: Jeepluo 時間: 2017-5-26 12:00 PM

本帖最後由 Jeepluo 於 2017-5-26 04:13 PM 編輯

好久沒有用這東西了
100 行 END 代表程式結束
200-270 行是副程式
當出現 GOSUB(GOTO) 200 時即會執行 200-270 行程式，完成後返回往下執行
程式中的變數 $ 指的是字串， IF SX$ = "R" THEN GOTO 200 ← 表示假如 SX$ 字串等於 R 時，程式由 200 行開開始執行。

作者: Jeepluo 時間: 2017-5-26 12:10 PM

再說明一下好了 ...
第10行 OPEN "COM1:9600,N,8,1" FOR RANDOM AS #1
是指打開通訊埠 COM1 以9600 dpi 速度做傳輸，
COM1：RS-232 連接埠
9600：每秒多少位元
N：同位檢查
8：資料位元
1：停止位元
以上照抄就好了，傳輸速度跟機器的傳動有關，不能任意調不然有可能會接不到或接到亂碼。

#1 這個跟上面的 FOR RANDOM AS #1 有關，指的是開啟 1 號通道（不知有沒有記錯），必須指對（上下配合）。

語法我已經忘了，只記得這些了

歡迎光臨伊莉討論區 (http://wwwgggg4.eyny.com/)