Kịch bản này được lập trình trong c

Kịch bản này được lập trình trong cơ bản.

Tôi có vấn đề của tôi để hiểu được kịch bản này. Công việc dự án của tôi phụ thuộc như vậy. Chương trình này đã được đã được xác định bởi nhà sản xuất Avisaro. Nhưng tiếc là không có ý kiến.
Tôi là một kỹ sư điện và tôi là không rõ ràng.
Bất cứ ai có thể hiểu được kịch bản này. Điều gì xảy ra ở đây phần bởi phần? Tôi có nghĩa là những gì các phần kịch bản?

Tôi yêu cầu giúp đỡ! Cảm ơn bạn!

Mfg
Mã số:
'Wireless RS232 thiết bị máy chủ
'(C) Avisaro AG 2010/03/18
'Phiên bản 1,16

Setleds 32 + 128

Exec "stpseq + 097 + v + i + s +"
Ngủ 100
Exec "nhắc"
Ngủ 100
Exec "sched 0"
Ngủ 100

Hãy để N = 0
Rem giá trị mặc định?
If ((phím & 1) = 1) Sau đó,
Đối với N = 0 To 100
If ((phím & 1) = 0) Sau đó,
Goto khởi điểm
End If
Setleds 255
Giấc ngủ 10
Setleds 0 + 128
Giấc ngủ 10
Tiếp theo N
Exec "khởi động lại rõ ràng"
Ngủ 100
Setleds 255
Làm
Ngủ 1
Vòng
End If
Bắt đầu:

Ngủ 400

'


Dim A (500)
Dim B (0)
Hãy để N = 0
Cho T = Thời gian
Hãy để F = 60
Hãy để M = 0
Hãy U = 0
Hãy để Y = 0

Rem INIT WEB

Cho X = $ "Kết nối (IP = 0 cho danh sách):"
Đặt -100, X $, Len (x $)
Cho X = $ "Kết nối / danh sách (port):"
Đặt -102, X $, Len (x $)
Cho X = $ "trạng thái (WR1 V14):"
Đặt -104, X $, Len (x $)

Tải 0, T $
Đặt -101, T $, Len (t $)


Tải 25, U
Nếu (-1 = U) Sau đó,
Hãy U = 23
Tiết kiệm 25, U
End If
Cho X $ = Str $ (u)
Đặt -103, X $, Len (x $)


Try_connect:

Ngủ 5

'RS232 đọc rỗng
INMODE -3
Input A


Nếu (t $ = Str $ (0)) Sau đó,
Cho X = $ "lắng nghe"
Khác
Cho X = $ "Hãy thử để kết nối"
End If

GOSUB Load_web

Hãy để Y = Status (101)

Nếu (y = 0) Sau đó,
Nếu (t $ = Str $ (0)) Sau đó,
'Danh sách 101, u, 0
Lists 101 U, 20
Setleds 32 + 128
Khác
Hãy để Y = resolv (t $)
Ngủ 500
'Kết nối 101, y, u, 0
Kết nối 101, Y, U, 20
Setleds 32 + 128
End If
End If

Hãy để Y = Status (101)


Nếu Y = 9 Sau đó,
Cho X = $ "Connected (Web đã khóa)"
INMODE 0
GOSUB Load_web
Rem Connected
Exec "dòng 101 '
Goto chính
End If


Goto Try_connect



Chính:

Setleds 48 + 128

If ((phím & 1) = 1) Sau đó,
Đóng 101
Setleds 32
GOSUB Load_web
Goto Try_connect
End If

Giấc ngủ 10

Hãy để Y = Status (101)
If (y ) Sau đó,
Đóng 101
Setleds 32
Goto Try_connect
End If


Goto chính:

Load_web:

Đặt -105, X $, Len (x $)

Rem thay đổi? Trên trang web?
Nhận -103, X $
Nếu Val (x $) Sau đó U
Hãy U = Val (x $)
Tiết kiệm 25, U
Đóng 101
End If

Nhận -101, X $
Nếu T $ $ Sau đó X
Cho T = $ X $
Tiết kiệm 0, T $
Đóng 101
End If


Trở về

'+++
'một v + + i + s

Kết quả (Anh) 1:

This script is programmed in Basic. I have problems to understand this script. My project work so dependent. This program has been defined by the manufacturer Avisaro. But unfortunately no comments. I am an electrical engineer and I is not clear. Anyone can understand the script. What happens in this part by part? I mean what parts of the script? I ask for help! Thank you! Mfg Code: ' Wireless RS232 device server ' (C) Avisaro AG 2010/03/18 ' Version 1.16 Setleds 32 + 128 Exec "stpseq + 097 + v + i + s +" Sleeping 100 Exec "prompt" Sleeping 100 Exec "sched 0" Sleeping 100 Let N = 0 REM default value? If ((key & 1) = 1) then For N = 0 To 100 If ((key & 1) = 0) then GoTo start End If Setleds 255 Sleep 10 Setleds 0 + 128 Sleep 10 Next N Exec "restart" Sleeping 100 Setleds 255 Do Sleep 1 Round End If Start: Sleep 400 ' Dim A (500) Dim B (0) Let N = 0 For T = time Let F = 60 Let M = 0 Let U = 0 Let Y = 0 Rem WEB INIT For $ X = "connect (IP = 0 for a list):" Most recent-100, $ X, Len (x $) For $ X = "connection/list (port):" Most recent-102, X $, Len (x $) For $ X = "status (WR1 V14):" Most recent-104, X $, Len (x $) Download 0, T $ Most recent-101, T $, Len (t $) Download 25, U If (-1 = U) then, Let U = 23 Save 25, U End If For $ X = $ Str (u) Most recent-103, X $, Len (x $) Try_connect: Sleeps 5 ' RS232 read empty INMODE-3 Input A If ($ t = Str $ (0)) then For $ X = "listen" Other For $ X = "try to connect" End If GOSUB Load_web Let Y = Status (101) If (y = 0) then If ($ t = Str $ (0)) then ' List of 101, u, 0 Lists U 101, 20 Setleds 32 + 128 Other Let Y = resolv.conf (t $) Sleep 500 ' Connect 101, y, u, 0 Connection 101, Y, U, 20 Setleds 32 + 128 End If End If Let Y = Status (101) If Y = 9 then For $ X = "Connected (Web)" INMODE 0 GOSUB Load_web Rem Connected Exec "line 101 ' GOTO key End If GoTo Try_connect Key: Setleds 48 + 128 If ((key & 1) = 1) then Close 101 Setleds 32 GOSUB Load_web GoTo Try_connect End If Sleep 10 Let Y = Status (101) If (y <9>) then, Close 101 Setleds 32 GoTo Try_connect End If Goto: Load_web: Most recent-105, X $, Len (x $) REM change? On the web site? Get-103, X $ If Val (x $) <> then U Let U = Val (x $) Save 25, U Close 101 End If Get-101, $ X If T $ <> $ then X Cho T = $ X $ Tiết kiệm 0, T $ Đóng 101 End If Trở về '+++ 'một v + + i + s

Kết quả (Anh) 2:

This scenario basically programmed in. I have my problems to understand this scenario. My project work depends so. This program was already determined by the manufacturer Avisaro. But unfortunately no idea. I was an electrical engineer and I was not clear. Anyone can understand this scenario. What happens here section by section? I mean what the scenario? I ask for help! Thank you! Mfg Code: 'device server RS232 Wireless '(C) Avisaro AG 03.18.2010 'Version 1.16 32 + 128 Setleds Exec "stpseq + 097 + v + i + s +" Sleep 100 Exec "prompt" Sleep 100 Exec "sched 0" Sleep 100 Let N = 0 Rem default values? If ((keys & 1) = 1) Then, for N = 0 To 100 If ((keys & 1) = 0) Then Goto start at End If Setleds 255 Sleep 10 Setleds 0 + 128 Sleep 10 Next N Exec "reboot clear" Sleep 100 Setleds 255 Making Sleep 1 Loop End If Start: Sleep 400 ' Dim A (500) Dim B (0) Let N = 0. For T = Time Let F = 60 Let M = 0. Let U = 0. Let Y = 0 Rem INIT WEB Let X = $ " Connect (IP = 0 for list): " Set -100, X $, Len (x $) Let X = $ "Connect / list (port):" Set -102, X $, Len (x $ ) Let X = $ "state (WR1 V14):" Set -104, X $, Len (x $) Download 0, T $ Set -101, T $, Len (t $) Download 25, U If (- 1 = U) Then, Let U = 23 Savings 25, U End If Let X $ = Str $ (u) Set -103, X $, Len (x $) Try_connect: Sleeping 5 'hollow RS232 read INMODE -3 Input A If (t $ = Str $ (0)) Then Let X = $ "listen" Other Let X = $ "Try to connect" End If GOSUB Load_web Let Y = Status (101) If ( y = 0) Then If (t $ = Str $ (0)) Then 'List of 101, u, 0 Lists 101 U, 20 Setleds 32 + 128 Other Let Y = resolv (t $) Sleep 500 'Connect 101, y, u, 0 Connect 101, Y, U, 20 Setleds 32 + 128 End If End If Let Y = Status (101) If Y = 9 Then Let X = $ "Connected (Web Locked) " INMODE 0 GOSUB Load_web Rem Connected Exec '101 lines' main Goto End If Goto Try_connect Main: + 128 48 Setleds If ((keys & 1) = 1) Then Close 101 Setleds 32 GOSUB Load_web Try_connect Goto End If Sleep 10. Let Y = Status (101) If (y <9>) Then Close 101 Setleds 32 Goto Try_connect End If Main Goto: Load_web: Set -105, X $, Len (x $) Rem change? On the Web? Get -103, X $ If Val (x $) <> Then U Be U = Val (x $) Save 25, U Close 101 End If Receive -101, X $ If T $ <> $ Then X For T = $ X $ Saves 0, T $ Close 101 End If Return '+++ 'one v + + i + s