十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在数据采集监视系统中,数据如何发送、接收、处理和应用是一个系统的关键部分。在系统实施过程中,由于通信方式、通信协议、系统功能的变化,如何能快速简便进行系统实施,又能在需求发生变化时有更强的适用性,是一个产品能否快速应用的关键。本文总结自己在设计方面的经验,阐述了VB通信中数据处理方式的三层结构模式。
为神池等地区用户提供了全套网页设计制作服务,及神池网站建设行业解决方案。主营业务为做网站、成都网站制作、神池网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
系统设计为通信层、数据处理层、应用层。而每一层使用下层提供的服务,并向其上一层提供服务。三层结构分别对应系统通信方式、通信协议、系统功能,当需求发生变化时只用更改对应的层次,而其他的层次则不用,或者只用进行很少的改变。
通信层提供建立连接、接收、发送、误码重发、错误处理等功能,保证通信的双方的数据是可以信任的,正确的。对应OSI模型的表示层以及下层。
数据处理层提供格式化的表示和转换数据服务,对数据进行解析。对应OSI模型的表示层。
应用层提供网络与用户应用软件之间的接口服务,应用数据处理层的解析出来的数据进行应用,并且和用户界面进行交流。对应OSI模型的应用层。
可以考虑使用Cache(缓存)技术,对于不经常变化的数据可以采用静态Cache,对于可能经常被修改的数据可以采用数据库依赖的通知Cache更新技术。
窗体是指由两个列表框(ListBox1、ListBox2)和4个命令按钮(Button1“”按钮,Button2“”按钮,Button3“”按钮,Button4“”按钮)所构成的界面,代码:
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.Text = "选项移动"
ListBox1.SelectionMode = SelectionMode.MultiSimple
ListBox2.SelectionMode = SelectionMode.One
For i = 1 To 10
ListBox1.Items.Add(Chr(Asc("a") + i - 1))
Next
For i = 1 To 10
ListBox2.Items.Add(i.ToString)
Next
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If ListBox1.SelectedItems Is Nothing Then Exit Sub
Dim b As ListBox.ObjectCollection
For i = 0 To Me.ListBox1.SelectedItems.Count - 1
Me.ListBox2.Items.Add(Me.ListBox1.SelectedItems(0))
Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndices(0))
Next
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
If ListBox2.SelectedItems IsNot Nothing Then
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For Each itm As Object In ListBox1.Items
ListBox2.Items.Add(itm)
Next
ListBox1.Items.Clear()
End Sub
Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
For Each itm As Object In ListBox2.Items
ListBox1.Items.Add(itm)
Next
ListBox2.Items.Clear()
End Sub
End Class