locked
vb code----Expected-end of statement RRS feed

  • Question

  • 'VERSION 5.00
    'Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "Mscomm32.ocx"
    Begin VB.Form FrmMain
       BackColor = &H80000002
       
        
       StartUpPosition = 3    'Windows Default
       WindowState = 2        'Maximized
       Begin VB.Timer Timer3
          Interval = 1000
          Left = 3720
          Top = 10560
       End
       Begin VB.Timer Timer2
          Interval = 1000
          Left = 4200
          Top = 10560
       End
       Begin MSCommLib.MSComm MSComm1
          Left = 5160
          Top = 10440
          _ExtentX        =   1005
          _ExtentY        =   1005
          _Version        =   393216
          DTREnable = 0           'False
       End
       Begin VB.Timer Timer1
          Interval = 1000
          Left = 4680
          Top = 10560
       End
       Begin VB.CommandButton Command2
          Caption = "Range 28-44 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          
          Width = 3735
       End
       Begin VB.Frame FrameDia
          
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          
          Width = 14295
          Begin VB.Label lblDataOuter
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "1.002"
             BeginProperty Font
                Name = "Trebuchet MS"
               
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4920
             TabIndex = 8
             Top = 840
             Width = 6075
          End
          Begin VB.Label Label2
             
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 7
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDia
             BackColor = &H80000002
             Caption = "Outer Diameter"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 1815
             Left = 600
             TabIndex = 6
             Top = 840
             Width = 4095
          End
       End
       Begin VB.Frame FrameHigh
          BackColor = &H80000002
          Caption = "Value of Measuring"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 24
             Charset = 0
             Weight = 400
             Underline = 0           'False
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          Height = 3495
          Left = 480
          TabIndex = 1
          Top = 5040
          Width = 14295
          Begin VB.Label lblHigh
             BackColor = &H80000002
             Caption = "Length"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 36
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = 0              'False
                Strikethrough = 0       'False
             EndProperty
             Height = 975
             Left = 720
             TabIndex = 4
             Top = 1200
             Width = 2655
          End
          Begin VB.Label lblUnit
             Alignment = 2          'Center
             AutoSize = -1           'True
             BackColor = &H80000009
             Caption = "mm."
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 10920
             TabIndex = 3
             Top = 840
             Width = 3075
          End
          Begin VB.Label lblDataLength
             Alignment = 2          'Center
             BackColor = &H80000009
             Caption = "30.001"
             BeginProperty Font
                Name = "Trebuchet MS"
                Size = 72
                Charset = 0
                Weight = 700
                Underline = 0           'False
                Italic = -1             'True
                Strikethrough = 0       'False
             EndProperty
             Height = 1785
             Left = 4800
             TabIndex = 2
             Top = 840
             Width = 6195
          End
       End
       Begin VB.CommandButton Command1
          Caption = "Range 16-28 mm."
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 21.75
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 1335
          Left = 6240
          TabIndex = 9
          Top = 9600
          Width = 3735
       End
       Begin VB.Image Img2844
          Height = 900
          Left = 11760
          Picture         =   "HighCheck_01.frx":1CCA
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Image img1628
          Height = 900
          Left = 7800
          Picture         =   "HighCheck_01.frx":210C
          Stretch = -1            'True
          Top = 8640
          Width = 900
       End
       Begin VB.Label lblDate
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Date"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 480
          TabIndex = 12
          Top = 9240
          Width = 3375
       End
       Begin VB.Label lblTime
          Alignment = 2          'Center
          BackColor = &H80000002
          Caption = "Time"
          BeginProperty Font
             Name = "Trebuchet MS"
             Size = 26.25
             Charset = 0
             Weight = 700
             Underline = 0           'False
             Italic = -1             'True
             Strikethrough = 0       'False
          EndProperty
          Height = 615
          Left = 120
          TabIndex = 11
          Top = 9960
          Width = 3975
       End
       Begin VB.Label lblMain
          BackColor = &H80000002
          Caption = "Dimension Measurement Machine"
          BeginProperty Font
             Name = "Comic Sans MS"
             Size = 27.75
             Charset = 0
             Weight = 400
             Underline = -1          'True
             Italic = 0              'False
             Strikethrough = 0       'False
          EndProperty
          ForeColor = &H80000007
          Height = 975
          Left = 3360
          TabIndex = 0
          Top = 0
          Width = 9135
       End
    End
    Option Explicit
    Public DataOuter As String, DataLength As String, RecData As String, Model As String
    Private Sub Form_Load()
        
        img1628.Visible = False
        Img2844.Visible = False
        
    End Sub

    Private Sub Command1_Click()
        MSComm1.Output = "@00WR0200000146*" & vbCr
        Delay
    End Sub

    Private Sub Command2_Click()
        
        Delay
    End Sub

    Private Sub Delay()
    Dim a As Single
        
    End Sub

    Private Sub Image1_Click()

    End Sub

    Private Sub Timer1_Timer()
        lblTime.Caption = Format(Now, "HH:MM:SS AmPm")
        lblDate.Caption = Format(Now, "DD/MM/YY")
    End Sub

    Private Sub Timer2_Timer()
        MSComm1.Output = "@00RD0040000654*" & vbCr
        Delay
         
          
            End If
    End Sub

    Private Sub Timer3_Timer()
     If Model = "1" Then
           img1628.Visible = True
        Else
           img1628.Visible = False
        End If
        If Model = "2" Then
           Img2844.Visible = True
        Else
           Img2844.Visible = False
        End If
    End Sub


    Wednesday, April 30, 2014 12:21 PM

Answers

All replies