_ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.txtCom = New System.Windows.Forms.TextBox() Me.txtBaudRate = New System.Windows.Forms.TextBox() Me.txtADDR = New System.Windows.Forms.TextBox() Me.txtADDRL = New System.Windows.Forms.TextBox() Me.btConeck = New System.Windows.Forms.Button() Me.btDisconeck = New System.Windows.Forms.Button() Me.btBaca = New System.Windows.Forms.Button() Me.ID = New System.Windows.Forms.TextBox() Me.statPolling = New System.Windows.Forms.TextBox() Me.dgTags = New System.Windows.Forms.DataGridView() Me.TagName = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Addres = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.data = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Label1 = New System.Windows.Forms.Label() Me.Timer2 = New System.Windows.Forms.Timer(Me.components) Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() CType(Me.dgTags, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'txtCom ' Me.txtCom.Location = New System.Drawing.Point(84, 50) Me.txtCom.Name = "txtCom" Me.txtCom.Size = New System.Drawing.Size(67, 20) Me.txtCom.TabIndex = 0 Me.txtCom.Text = "COM5" ' 'txtBaudRate ' Me.txtBaudRate.Location = New System.Drawing.Point(84, 76) Me.txtBaudRate.Name = "txtBaudRate" Me.txtBaudRate.Size = New System.Drawing.Size(67, 20) Me.txtBaudRate.TabIndex = 1 Me.txtBaudRate.Text = "38400" ' 'txtADDR ' Me.txtADDR.Location = New System.Drawing.Point(84, 126) Me.txtADDR.Name = "txtADDR" Me.txtADDR.Size = New System.Drawing.Size(67, 20) Me.txtADDR.TabIndex = 2 Me.txtADDR.Text = "43060" ' 'txtADDRL ' Me.txtADDRL.Enabled = False Me.txtADDRL.Location = New System.Drawing.Point(84, 152) Me.txtADDRL.Name = "txtADDRL" Me.txtADDRL.Size = New System.Drawing.Size(67, 20) Me.txtADDRL.TabIndex = 3 Me.txtADDRL.Tag = "12" Me.txtADDRL.Text = "10" ' 'btConeck ' Me.btConeck.Location = New System.Drawing.Point(84, 178) Me.btConeck.Name = "btConeck" Me.btConeck.Size = New System.Drawing.Size(75, 23) Me.btConeck.TabIndex = 4 Me.btConeck.Text = "Coneck" Me.btConeck.UseVisualStyleBackColor = True ' 'btDisconeck ' Me.btDisconeck.Location = New System.Drawing.Point(84, 207) Me.btDisconeck.Name = "btDisconeck" Me.btDisconeck.Size = New System.Drawing.Size(75, 23) Me.btDisconeck.TabIndex = 5 Me.btDisconeck.Text = "Putus" Me.btDisconeck.UseVisualStyleBackColor = True ' 'btBaca ' Me.btBaca.Location = New System.Drawing.Point(84, 241) Me.btBaca.Name = "btBaca" Me.btBaca.Size = New System.Drawing.Size(75, 23) Me.btBaca.TabIndex = 6 Me.btBaca.Text = "Baca" Me.btBaca.UseVisualStyleBackColor = True ' 'ID ' Me.ID.Location = New System.Drawing.Point(84, 100) Me.ID.Name = "ID" Me.ID.Size = New System.Drawing.Size(67, 20) Me.ID.TabIndex = 10 Me.ID.Text = "2" ' 'statPolling ' Me.statPolling.Location = New System.Drawing.Point(272, 8) Me.statPolling.Name = "statPolling" Me.statPolling.Size = New System.Drawing.Size(105, 20) Me.statPolling.TabIndex = 11 ' 'dgTags ' Me.dgTags.BackgroundColor = System.Drawing.Color.Silver Me.dgTags.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgTags.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.TagName, Me.Addres, Me.data}) Me.dgTags.Location = New System.Drawing.Point(187, 50) Me.dgTags.Name = "dgTags" Me.dgTags.Size = New System.Drawing.Size(365, 211) Me.dgTags.TabIndex = 16 ' 'TagName ' Me.TagName.HeaderText = "Tag Name" Me.TagName.Name = "TagName" Me.TagName.ReadOnly = True ' 'Addres ' Me.Addres.HeaderText = "Addres" Me.Addres.Name = "Addres" Me.Addres.ReadOnly = True ' 'data ' Me.data.HeaderText = "Data" Me.data.Name = "data" Me.data.ReadOnly = True ' 'Timer1 ' Me.Timer1.Enabled = True Me.Timer1.Interval = 500 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(61, 15) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(39, 13) Me.Label1.TabIndex = 13 Me.Label1.Text = "Label1" ' 'Timer2 ' Me.Timer2.Enabled = True Me.Timer2.Interval = 250 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(14, 53) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(34, 13) Me.Label2.TabIndex = 17 Me.Label2.Text = "Com :" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(14, 79) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(61, 13) Me.Label3.TabIndex = 18 Me.Label3.Text = "BoudRate :" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(14, 107) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(54, 13) Me.Label4.TabIndex = 19 Me.Label4.Text = "Slave ID :" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(14, 133) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(60, 13) Me.Label5.TabIndex = 20 Me.Label5.Text = "Start Addr :" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(14, 159) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(40, 13) Me.Label6.TabIndex = 21 Me.Label6.Text = "Legh :" ' 'Button1 ' Me.Button1.Location = New System.Drawing.Point(84, 270) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(75, 22) Me.Button1.TabIndex = 22 Me.Button1.Text = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(567, 310) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.dgTags) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.statPolling) Me.Controls.Add(Me.ID) Me.Controls.Add(Me.btBaca) Me.Controls.Add(Me.btDisconeck) Me.Controls.Add(Me.btConeck) Me.Controls.Add(Me.txtADDRL) Me.Controls.Add(Me.txtADDR) Me.Controls.Add(Me.txtBaudRate) Me.Controls.Add(Me.txtCom) Me.Name = "Form1" Me.Text = "100" CType(Me.dgTags, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents txtCom As System.Windows.Forms.TextBox Friend WithEvents txtBaudRate As System.Windows.Forms.TextBox Friend WithEvents txtADDR As System.Windows.Forms.TextBox Friend WithEvents txtADDRL As System.Windows.Forms.TextBox Friend WithEvents btConeck As System.Windows.Forms.Button Friend WithEvents btDisconeck As System.Windows.Forms.Button Friend WithEvents btBaca As System.Windows.Forms.Button Friend WithEvents ID As System.Windows.Forms.TextBox Friend WithEvents statPolling As System.Windows.Forms.TextBox Friend WithEvents dgTags As System.Windows.Forms.DataGridView Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Timer2 As System.Windows.Forms.Timer Friend WithEvents TagName As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Addres As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents data As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Button1 As System.Windows.Forms.Button End Class