frmcomplier.frm

按摩椅软件开发示例,VB-PIC单片机通讯题,主要是串口通讯问题

VERSION 5.00
Begin VB.Form frmComplier 
   Caption         =   "Complier"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   Begin VB.Timer Timer3 
      Left            =   3000
      Top             =   240
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   615
      Left            =   1080
      TabIndex        =   0
      Top             =   480
      Width           =   1695
   End
End
Attribute VB_Name = "frmComplier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
        Left = 0
        Top = 0
        Width = 4000       '//窗体最大化
        Height = 2000
        Unload frmA1
        Unload frmB1
        Label1.Caption = "Data Covert 1% "

End Sub

Private Sub Form_Resize()

       Timer3.Enabled = True
       Timer3.Interval = 1
       Label1.Caption = ""

End Sub



Private Sub Timer3_Timer()
        

'frmA1.Visible = False
'frmB1.Visible = False

   ConvertFlag = 1
           ' frmA1.Visible = False
           ' frmA1.WindowState = 1
            frmA1.Show
          '  frmA1.Visible = False
          '  frmA1.Hide

            
         Unload frmA1
        Label1.Caption = "Data Covert 7% "
        
        If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
          
             frmComplier.Hide
        End If
        
                    

  ConvertFlag = 2
   '  frmA1.Visible = False
       '   frmA1.WindowState = 1
              frmA1.Show
             '   frmA1.Hide
'    frmA1.Visible = False
                  Unload frmA1
  Label1.Caption = "Data Covert 14% "
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
  
  
   ConvertFlag = 3
     ' frmA1.Visible = False
      '     frmA1.WindowState = 1
                frmA1.Show
       '    frmA1.Visible = False
                
            '     frmA1.Hide
                 

                 
                Unload frmA1

            Label1.Caption = "Data Covert 21% "
           If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If


   ConvertFlag = 4
    '    frmA1.WindowState = 1
    '  frmA1.Visible = False
                 frmA1.Show
                 
       '          frmA1.Visible = False
              '     frmA1.Hide
                   

                   
             Unload frmA1
  Label1.Caption = "Data Covert 28% "
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
              
   ConvertFlag = 5
   '   frmA1.Visible = False
      '     frmA1.WindowState = 1
                 frmA1.Show
                 
       '       frmA1.Visible = False
              '     frmA1.Hide
        '           frmA1.Visible = False

                 Unload frmA1
  Label1.Caption = "Data Covert 35% "
  
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
  
    
   ConvertFlag = 6
    '  frmA1.Visible = False
     '      frmA1.WindowState = 1
                  frmA1.Show
               '    frmA1.Hide
              '     frmA1.Visible = False

                   
                  Unload frmA1

    ' Unload frmA1
     Label1.Caption = "Data Covert 42% "
     
             If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
        End If
     
     

    ConvertFlag = 7
    '   frmA1.Visible = False
     '       frmA1.WindowState = 1
                  frmA1.Show
         '         frmA1.Visible = False
                  
            '    frmA1.Hide
                

               Unload frmA1
  Label1.Caption = "Data Covert 49% "
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
          
             frmComplier.Hide
        End If
  
  
  
            
    
   ConvertFlag1 = 8
    '  frmA1.Visible = False
        '   frmB1.WindowState = 1
                 frmB1.Show
             '    frmB1.Hide
                  Unload frmB1
  Label1.Caption = "Data Covert 56% "
  
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
  
   
  ConvertFlag1 = 9
    ' frmB1.Visible = False
                  frmB1.Show
                '  frmB1.Hide
                 Unload frmB1

           If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
    
   ConvertFlag1 = 10
   '  frmB1.Visible = False
                 frmB1.Show
            '     frmB1.Hide
                 Unload frmB1
  Label1.Caption = "Data Covert 63% "
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
  
  
  

   ConvertFlag1 = 11
     'frmB1.Visible = False
                frmB1.Show
             '   frmB1.Hide
               Unload frmB1

  Label1.Caption = "Data Covert 70% "
  
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
        End If
  
  
  
  
   ConvertFlag1 = 12
    ' frmB1.Visible = False
                 frmB1.Show
           '      frmB1.Hide
                  Unload frmB1
                  

   Label1.Caption = "Data Covert 77% "
           If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
          
        End If
   
   
   
   ConvertFlag1 = 13
    ' frmB1.Visible = False
                frmB1.Show
              '  frmB1.Hide
                 Unload frmB1

  Label1.Caption = "Data Covert 84% "
  
          If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
        End If
  

    ConvertFlag1 = 14
    frmB1.Show

    Unload frmB1
     Label1.Caption = "Data Covert 91% "
             If ExitFlag = 1 Then
          Timer3.Enabled = False
          ExitFlag = 0
          Exit Sub
             frmComplier.Hide
        End If
     
     
    ConvertFlag = 0
    ConvertFlag1 = 0




 '   If Db1ConvertFlag = 0 Then
  '      frmA1.Show
 '   ElseIf Db2ConvertFlag1 = 0 Then
 '       frmA1.Show
 '   End If
    Timer3.Enabled = False
      Label1.Caption = "Data Covert 100% "
    MsgBox "Data Convert Sucess!"
    frmComplier.Hide
    
 '   Label1.Caption = "Data Convert Over!"



End Sub