控制台编程

开发平台：

Visual Basic

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

							'小车料满开走模块
Private Sub Timer7_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
  
D1.BackColor = &HFF&
picCar.Picture = LoadPicture("C:Documents and Settingsseastar桌面自动配料系统imgmaincar2.GIF")
Static yTimes As Integer
yTimes = yTimes + 1
Debug.Print yTimes
If yTimes = 10 Then
Timer7.Enabled = False
SQ1.Caption = "SQ1(OFF)"
End If
   picCar.Left = picCar.Left - 440
End Sub

						