none
mau minta tolong di jelaskan dari para suhu suhu per sub routine proram di bawah ini.

    Pertanyaan

  • <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Form1
        Inherits System.Windows.Forms.Form
    
        'Form overrides dispose to clean up the component list.
        <System.Diagnostics.DebuggerNonUserCode()> _
        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.
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
            Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
            Me.SerialPort1 = New System.IO.Ports.SerialPort(Me.components)
            Me.rtbReceived = New System.Windows.Forms.RichTextBox()
            Me.Button1 = New System.Windows.Forms.Button()
            Me.TextBox1 = New System.Windows.Forms.TextBox()
            Me.txtx = New System.Windows.Forms.TextBox()
            Me.txty = New System.Windows.Forms.TextBox()
            Me.txtrot = New System.Windows.Forms.TextBox()
            Me.Button2 = New System.Windows.Forms.Button()
            Me.TextBox2 = New System.Windows.Forms.TextBox()
            Me.TextBox3 = New System.Windows.Forms.TextBox()
            Me.TextBox4 = New System.Windows.Forms.TextBox()
            Me.cmbPort = New System.Windows.Forms.ComboBox()
            Me.Label1 = New System.Windows.Forms.Label()
            Me.SuspendLayout()
    
    
    
    
    
            '
            'Timer1
            '
            Me.Timer1.Enabled = True
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
            '
            'SerialPort1
            '
            Me.SerialPort1.BaudRate = 115200
            Me.SerialPort1.PortName = "COM3"
            '
            'rtbReceived
            '
            Me.rtbReceived.Location = New System.Drawing.Point(807, 343)
            Me.rtbReceived.Name = "rtbReceived"
            Me.rtbReceived.Size = New System.Drawing.Size(163, 37)
            Me.rtbReceived.TabIndex = 0
            Me.rtbReceived.Text = ""
    
    
    
    
    
    
    
            '
            'Button1
            '
            Me.Button1.Location = New System.Drawing.Point(570, 419)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(98, 30)
            Me.Button1.TabIndex = 1
            Me.Button1.Text = "CONNECT"
            Me.Button1.UseVisualStyleBackColor = True
    
    
    
    
    
    
    
    
    
    
    
            '
            'TextBox1
            '
            Me.TextBox1.Location = New System.Drawing.Point(807, 225)
            Me.TextBox1.MaxLength = 3
            Me.TextBox1.Multiline = True
            Me.TextBox1.Name = "TextBox1"
            Me.TextBox1.Size = New System.Drawing.Size(215, 18)
            Me.TextBox1.TabIndex = 2
            Me.TextBox1.Text = "0"
            '
            'txtx
            '
            Me.txtx.Location = New System.Drawing.Point(807, 265)
            Me.txtx.MaxLength = 3
            Me.txtx.Name = "txtx"
            Me.txtx.Size = New System.Drawing.Size(215, 20)
            Me.txtx.TabIndex = 3
            Me.txtx.Text = "0"
            '
            'txty
            '
            Me.txty.Location = New System.Drawing.Point(807, 291)
            Me.txty.MaxLength = 3
            Me.txty.Name = "txty"
            Me.txty.Size = New System.Drawing.Size(215, 20)
            Me.txty.TabIndex = 4
            Me.txty.Text = "0"
    
    
    
    
    
    
    
    
    
    
    
    
            '
            'txtrot
            '
            Me.txtrot.Location = New System.Drawing.Point(807, 317)
            Me.txtrot.MaxLength = 3
            Me.txtrot.Name = "txtrot"
            Me.txtrot.Size = New System.Drawing.Size(215, 20)
            Me.txtrot.TabIndex = 5
            Me.txtrot.Text = "0"
            '
            'Button2
            '
            Me.Button2.Location = New System.Drawing.Point(674, 419)
            Me.Button2.Name = "Button2"
            Me.Button2.Size = New System.Drawing.Size(98, 30)
            Me.Button2.TabIndex = 6
            Me.Button2.Text = "DISCONNECT"
            Me.Button2.UseVisualStyleBackColor = True
    
            '
            'TextBox2
            '
            Me.TextBox2.BackColor = System.Drawing.SystemColors.GrayText
            Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.TextBox2.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.TextBox2.ForeColor = System.Drawing.Color.White
            Me.TextBox2.Location = New System.Drawing.Point(215, 352)
            Me.TextBox2.Name = "TextBox2"
            Me.TextBox2.Size = New System.Drawing.Size(152, 19)
            Me.TextBox2.TabIndex = 7
            Me.TextBox2.Text = "Pitch : 0 Deg"
    
    
            '
            'TextBox3
            '
            Me.TextBox3.BackColor = System.Drawing.SystemColors.GrayText
            Me.TextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.TextBox3.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.TextBox3.ForeColor = System.Drawing.Color.White
            Me.TextBox3.Location = New System.Drawing.Point(215, 60)
            Me.TextBox3.Name = "TextBox3"
            Me.TextBox3.Size = New System.Drawing.Size(152, 19)
            Me.TextBox3.TabIndex = 8
            Me.TextBox3.Text = "Roll: 0 Deg"
    
    
            '
            'TextBox4
            '
            Me.TextBox4.BackColor = System.Drawing.SystemColors.GrayText
            Me.TextBox4.BorderStyle = System.Windows.Forms.BorderStyle.None
            Me.TextBox4.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.TextBox4.ForeColor = System.Drawing.Color.White
            Me.TextBox4.Location = New System.Drawing.Point(215, 210)
            Me.TextBox4.Name = "TextBox4"
            Me.TextBox4.Size = New System.Drawing.Size(152, 19)
            Me.TextBox4.TabIndex = 9
            Me.TextBox4.Text = "Yaw : 0 Deg"
    
    
            '
            'cmbPort
            '
            Me.cmbPort.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.cmbPort.FormattingEnabled = True
            Me.cmbPort.Location = New System.Drawing.Point(430, 423)
            Me.cmbPort.Name = "cmbPort"
            Me.cmbPort.Size = New System.Drawing.Size(121, 24)
            Me.cmbPort.TabIndex = 10
    
    
    
    
    
    
    
    
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.BackColor = System.Drawing.Color.Transparent
            Me.Label1.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.Label1.ForeColor = System.Drawing.Color.White
            Me.Label1.Location = New System.Drawing.Point(309, 9)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(176, 22)
            Me.Label1.TabIndex = 11
            Me.Label1.Text = "ATKP MAKASSAR"
    
    
    
            '
            'Form1
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.BackColor = System.Drawing.SystemColors.GrayText
            Me.ClientSize = New System.Drawing.Size(784, 461)
            Me.Controls.Add(Me.Label1)
            Me.Controls.Add(Me.cmbPort)
            Me.Controls.Add(Me.TextBox4)
            Me.Controls.Add(Me.TextBox3)
            Me.Controls.Add(Me.TextBox2)
            Me.Controls.Add(Me.Button2)
            Me.Controls.Add(Me.txtrot)
            Me.Controls.Add(Me.txty)
            Me.Controls.Add(Me.txtx)
            Me.Controls.Add(Me.TextBox1)
            Me.Controls.Add(Me.Button1)
            Me.Controls.Add(Me.rtbReceived)
            Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
            Me.MaximizeBox = False
            Me.MaximumSize = New System.Drawing.Size(800, 500)
            Me.MinimizeBox = False
            Me.MinimumSize = New System.Drawing.Size(800, 500)
            Me.Name = "Form1"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "SIMILASI PERFORMANCE PESAWAT"
            Me.ResumeLayout(False)
            Me.PerformLayout()
    
        End Sub
        Friend WithEvents Timer1 As Timer
        Friend WithEvents SerialPort1 As IO.Ports.SerialPort
        Friend WithEvents rtbReceived As RichTextBox
        Friend WithEvents Button1 As Button
        Friend WithEvents TextBox1 As TextBox
        Friend WithEvents txtx As TextBox
        Friend WithEvents txty As TextBox
        Friend WithEvents txtrot As TextBox
        Friend WithEvents Button2 As Button
        Friend WithEvents TextBox2 As TextBox
        Friend WithEvents TextBox3 As TextBox
        Friend WithEvents TextBox4 As TextBox
        Friend WithEvents cmbPort As ComboBox
        Friend WithEvents Label1 As Label
    End Class
    
    
    minta tolong agar di jelaskan per sub routine dari para suhu suhu
    09 Mei 2017 9:53

Jawaban

  • itu kan yang dikasi tanda (') udah ada note penjelasannya, itu buat ngegambar posisi app nya dan gabungin pake serial port karena ada device lain yang konek ke app nya, app ini udah dibuat pake form designer  

    mending pelajari satu2 fungsinya dulu, minta penjelasan gini ngerti ngoding kan bro?

    https://msdn.microsoft.com/en-us/library/ms123401.aspx


    10 Mei 2017 2:49