(舊文章移植)

實機測試照片:

Power Base + Q Cpu + Ethernet Unit + QJ71C24N Unit

476710810_m.jpg

 

VB隨意做個Form

476719637_m.jpg

 

此次與PLC的通信設定:

**************************************************
RS232設定:
鮑率:19200 bps(bits/sec)
檢查位元:奇位元(Odd)
資料:8位元
停止位元:1
**************************************************

QJ71C24硬體圖示

476714349_m.jpg

 

RS232 PIN意義。(雖然是日文,看圖示應該可以理解)

476711361_m.jpg

 

PLC RS232 - PC 結線圖

476711815_m.jpg

 

通信封包說明:此次使用A互換1C格式命令:A CPU/Q CPU

476712011_m.jpg 

格式:

ENQ+NETWORK NO.+PC NO.+命令+DELAY TIME+元件位址+讀出點數+檢查碼

單機,NETWORK NO.為00,PC NO.為FF;DELAY TIME設定為0

1)QCPU PLC讀的命令為QR(ACPU PLC讀的命令為WR),封包範例:

讀D10000為

Chr(5)+00FF+QR+0+D010000+01+85

把這資料直接送到PLC,PLC就會回答了;例如D10000現在值為34(16進制),

那麼正常會回答:00FF0034B6

其中,34就是D10000的現在值。

註:Q系列要控制D10000,直接打D010000就可以。

PLC實際通訊圖:

476720116_m.jpg

 

格式:

ENQ+NETWORK NO.+PC NO.+命令+DELAY TIME+元件位址+寫入點數+寫入值+檢查碼

2)寫的命令為QW,封包範例:

ENQ+00FF+QW+0+D010000+01+0034+51

把16進34寫入D10000;這資料直接送到PLC,若PLC回答00FF,

表示正常,這時你到PLC監視,你會看到D10000等於52,

也就是16進制的34。

與PLC實際通訊圖:

476719010_m.jpg

 

程式碼:
--------------------------------------
Private Sub Command1_Click()
f = 0
a = "00FF" + Text1.Text
b = Len(a)
For c = 1 To b
d = Mid(a, c, 1)
e = Asc(d)
f = e + f
Next
g = Hex(f)
ENQ = Chr(5)
sum = Right(g, 2)
MS = ENQ + a + sum
MSComm1.Output = MS
For M = 1 To 2000000
M = M + 1
Next
ANS = MSComm1.Input
Text2.Text = ANS
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
MSComm1.Settings = "19200,o,8,1"
MSComm1.CommPort = 6
MSComm1.Handshaking = 2
MSComm1.PortOpen = True
MSComm1.InputLen = 0
End Sub

-----------------------------------

僅供參考

創作者介紹
創作者 老男人 的頭像
老男人

老男人幻想世界

老男人 發表在 痞客邦 留言(8) 人氣()


留言列表 (8)

發表留言
  • Alice
  • 好友晚安
  • 晚安

    老男人 於 2018/04/12 21:45 回覆

  • Hunt
  • 看到熟悉的的VB了
    不過我現在都寫C#
  • 這是我10來年前文章的移植
    老實說我是做PLC這塊
    為了了解PC Base這塊,
    才又自己寫程式語言。
    古早要圖控,
    都用VB,DELPHI,LABVIEW等等。

    C#公司也有在使用,
    不過我沒碰過就是了

    老男人 於 2018/04/12 21:58 回覆

  • 修因
  • 哈哈 有看沒有懂
    還是要像老男人這樣的工程師 才能理解看懂!
  • 晚安
    只是舊文移植^^

    老男人 於 2018/04/12 21:34 回覆

  • sara
  • 看來好複雜
    看來你好優秀喔!
    推5
  • 感謝你

    老男人 於 2018/04/12 21:54 回覆

  • 悄悄話
  • 遠虹(佈置手作)
  • 老朋友了...頭香獎品迷有加碼嗎?
  • 可以啊
    增加蠟燭一根

    老男人 於 2018/04/12 22:15 回覆

  • 亮與貞
  • 推...現代的科技應用...真棒...
  • 感謝

    老男人 於 2018/04/13 23:30 回覆

  • koko
  • @_@"~~~ [:emotion1379949835-335392146.gif]

    午安~~~ [:emotion1379949822-4187777936.gif]
  • 晚安

    老男人 於 2018/04/13 23:30 回覆