控制台编程

开发平台：

Visual Basic

物料进料模块代码.txt：源码内容

							'物料进料模块
Private Sub Timer9_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
  
  D4.BackColor = &HFF&
  Static bTimes As Integer
  bTimes = bTimes + 1
  Debug.Print bTimes
  If bTimes = 5 Then
  Timer9.Enabled = False
  imgres1.Visible = False
  Timer1.Enabled = True
  End If
    imgres1.Left = imgres1.Left - 650
   
End Sub

						