控制台编程

开发平台：

Visual Basic

小车模块代码.txt：源码内容

							
'小车开动模块
Private Sub Timer8_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
  L2.BackColor = &HFF&
  L1.BackColor = &H80FF&
  SQ1.Caption = "SQ1(ON)"
  Label2.Caption = "<--开始进料"
  
  Static aTimes As Integer
  aTimes = aTimes + 1
  Debug.Print aTimes
  If aTimes = 7 Then
  Timer8.Enabled = False
  Timer9.Enabled = True
  End If
    picCar.Left = picCar.Left - 200
    
End Sub

						