data_aqu.bas

vb与三菱PLC的通信例子 对初学者很有用的

Attribute VB_Name = "Module2"
Public page_flag%
Public full_flag%
Public peice_N%
Public this_batch_distri%(2)
Public total_distri%(2)
Public press_time%(9)

Public Sub initial_form1_graph1()
 this_batch_distri%(0) = 0
 this_batch_distri%(1) = 0
 this_batch_distri%(2) = 0
 Form1.Graph1.AutoInc = 1
 Form1.Graph1.NumPoints = 3
 Form1.Graph1.ThisPoint = 1
For j% = 1 To Form1.Graph1.NumPoints - 1
  Form1.Graph1.GraphData = this_batch_distri%(j%)
Next j%
  Form1.Graph1.DrawMode = 2
End Sub
Public Sub display_form1_graph1()
 Form1.Graph1.AutoInc = 1
 Form1.Graph1.NumPoints = 3
 Form1.Graph1.ThisPoint = 1
 For j% = 1 To Form1.Graph1.NumPoints
   Form1.Graph1.GraphData = this_batch_distri%(j% - 1)
 Next j%
 Form1.Graph1.DrawMode = 2
'
  Form1.Text7.Text = "┿0°1