工控行業(yè)一般VB語言用在哪些方面，要怎么學(xué)？

n年前用VB做過幾個(gè)不同形式的工控系統(tǒng)。

創(chuàng)新互聯(lián)網(wǎng)站建設(shè)由有經(jīng)驗(yàn)的網(wǎng)站設(shè)計(jì)師、開發(fā)人員和項(xiàng)目經(jīng)理組成的專業(yè)建站團(tuán)隊(duì)，負(fù)責(zé)網(wǎng)站視覺設(shè)計(jì)、用戶體驗(yàn)優(yōu)化、交互設(shè)計(jì)和前端開發(fā)等方面的工作，以確保網(wǎng)站外觀精美、網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)易于使用并且具有良好的響應(yīng)性。

1）VB很適合作上位機(jī)的用戶界面（UI）

2）一般地，上位機(jī)與現(xiàn)場(chǎng)設(shè)備或現(xiàn)場(chǎng)控制設(shè)備之間，采用RS232C/485/422通信。所以，掌握串行通信原理，比如，什么是同步傳輸，什么是異步傳輸，什么是奇偶校驗(yàn)，什么是CRC校驗(yàn)，什么是面向字符（字節(jié)）的傳輸，什么是透明傳輸，等等，這些概念對(duì)構(gòu)建一個(gè)上位系統(tǒng)非常重要。對(duì)于VB6而言，就是掌握MSCOMM控件；對(duì)于VB.NET而言，掌握SerialPort

3）有的時(shí)候，上位機(jī)于現(xiàn)場(chǎng)設(shè)備之間的通信，采用特定的接口板塊。例如，在上位機(jī)PCI卡槽中插入特定功能的接口版。VB通過操縱這些接口版，與設(shè)備通信。通常，接口版制造商提供DLL形式的編程接口，VB調(diào)用這些DLL即可操縱這些接口版。所以，需要掌握VB調(diào)用DLL的知識(shí)。

4）工業(yè)以太網(wǎng)得到越來越多的應(yīng)用，VB可以通過工業(yè)以太網(wǎng)操縱設(shè)備。這需要掌握Socket編程。對(duì)vb6而言，就是WinSock控件；對(duì)VB.NET就是SOCKET類

如何用vb.net通過以太網(wǎng)使用modulebus協(xié)議讀寫西門子s7-200 smart 能實(shí)現(xiàn)嗎？

沒用過modbus通信寫過，但是使用自由通信可以

VB.net帶有通信控件，在里面設(shè)置波特率、奇偶效驗(yàn)、數(shù)據(jù)位、COM口

在PLC里做個(gè)自由通信就可以

使用vb.net將以太網(wǎng)共享給虛擬wifi網(wǎng)絡(luò)

最簡(jiǎn)單的辦法是用句柄操作窗體，這種方法就好比是計(jì)算機(jī)在代替你在打開設(shè)置窗口，完成設(shè)置。

比較難實(shí)現(xiàn)的方法是用API，不過我不知道用那些API，而且還要驅(qū)動(dòng)支持

因?yàn)関b。net是高級(jí)語言，不能直接操作驅(qū)動(dòng)，所以直接寫匯編是不可行的

VB與VB.NET串口及以太網(wǎng)通迅

關(guān)于串口通訊的問題：

很明顯，你還不知道（不會(huì)、不習(xí)慣）使用事件驅(qū)動(dòng)的方式接收數(shù)據(jù)。

建議你仔細(xì)看看串口組件（無論VB6還是VB.net）的OnComm事件，你的問題很容易解決。

關(guān)于以太網(wǎng)通訊：

在TCP通訊中端口確實(shí)可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應(yīng)該采取服務(wù)器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。

如何用vb開發(fā)程序直接通過以太網(wǎng)tcp協(xié)議訪問s7-1200的存儲(chǔ)區(qū)域

tcp協(xié)議是一個(gè)世界公開的協(xié)議，既然你在vb端能搞定如何進(jìn)行數(shù)據(jù)通訊，1200就很簡(jiǎn)單了。

在1200側(cè)你只需建立一個(gè)tcp的連接即可，連接類型為未指定，之后按照你自己的要求確定誰是客戶機(jī)，誰是服務(wù)器就好了，具體的建立連接的步驟可以參照1200的文檔，你可以在下面的文檔的通訊一章找到如何建立TCP連接的過程

西門子 S7-1200 PLC Smart Plus 技術(shù)參考Version 1.8

用vb.net實(shí)現(xiàn)網(wǎng)絡(luò)通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub