控制台编程

开发平台：

Visual Basic

传送带模块代码.txt：源码内容

							'传送带模块
Private Sub Timer3_Timer() 'Timer事件
  Open App.Path & "txt传送带模块代码.txt" For Input As #1
  Do While Not EOF(1)
     Line Input #1, aspect$ '一行一行读入
     whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  Loop
  Text1.Text = whole$
  Close #1
  
   M1.BackColor = &HFFFF&
   ImageNo1% = ImageNo1% + 1 '动画下一帧
   If ImageNo1% > 8 Then '如果动画已到最后一帧，则
   ImageNo1% = 0 '再从第一帧开始
   Timer3.Enabled = False
   Timer4.Enabled = True
   M1.BackColor = &HFF&
   End If
   imgRoll1.Picture = LoadPicture(App.Path & "imgroll1roll" & ImageNo1% & ".jpg")
End Sub
Private Sub Timer4_Timer()
  Open "C:Documents and Settingsseastar桌面自动配料系统txt传送带模块代码.txt" For Input As #1
  Do While Not EOF(1)
     Line Input #1, aspect$ '一行一行读入
     whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  Loop
  Text1.Text = whole$
  Close #1
  
   M2.BackColor = &HFFFF&
   ImageNo2% = ImageNo2% + 1 '动画下一帧
   If ImageNo2% > 8 Then '如果动画已到最后一帧，则
   ImageNo2% = 0 '再从第一帧开始
   Timer4.Enabled = False
   Timer5.Enabled = True
   M2.BackColor = &HFF&
   End If
   imgRoll2.Picture = LoadPicture(App.Path & "imgroll2roll" & ImageNo2% & ".jpg")
End Sub
Private Sub Timer5_Timer()
  Open "C:Documents and Settingsseastar桌面自动配料系统txt传送带模块代码.txt" For Input As #1
  Do While Not EOF(1)
     Line Input #1, aspect$ '一行一行读入
     whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  Loop
  Text1.Text = whole$
  Close #1
  
   M3.BackColor = &HFFFF&
   ImageNo3% = ImageNo3% + 1 '动画下一帧
   If ImageNo3% > 8 Then '如果动画已到最后一帧，则
   ImageNo3% = 0 '再从第一帧开始
   Timer5.Enabled = False
   Timer6.Enabled = True
   M3.BackColor = &HFF&
   End If
   imgRoll3.Picture = LoadPicture(App.Path & "imgroll3roll" & ImageNo3% & ".jpg")
End Sub
Private Sub Timer6_Timer()
  Open "C:Documents and Settingsseastar桌面自动配料系统txt传送带模块代码.txt" For Input As #1
  Do While Not EOF(1)
     Line Input #1, aspect$ '一行一行读入
     whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  Loop
  Text1.Text = whole$
  Close #1
  
   M4.BackColor = &HFFFF&
   ImageNo4% = ImageNo4% + 1 '动画下一帧
   If ImageNo4% > 8 Then '如果动画已到最后一帧，则
   ImageNo4% = 0 '再从第一帧开始
   Timer6.Enabled = False
   Timer7.Enabled = True
   M4.BackColor = &HFF&
   L1.BackColor = &HC000&
   L2.BackColor = &H80FF&
   SQ2.Caption = "SQ2(ON)"
   Label4.Caption = "<--小车料满离开-->"
   End If
   imgRoll4.Picture = LoadPicture(App.Path & "imgroll4roll" & ImageNo4% & ".jpg")
End Sub

						