控制台编程

开发平台：

Visual Basic

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

							'物料出料模块
Private Sub Timer2_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
  
D2.BackColor = &HFFFF&
Static xTimes As Integer
xTimes = xTimes + 1
Debug.Print xTimes
If xTimes = 10 Then
Timer2.Enabled = False
Timer3.Enabled = True
imgmix1.Visible = False
D2.BackColor = &HFF&
End If
   imgmix1.Top = imgmix1.Top + 200
End Sub

						