Курсовая работа: Программирование в Бейсике
Label8.Caption = "30 êì/÷": Timer1.Interval = 10
If tnow = 24 Or tnow >= 0 And tnow <= 4 Then Label8.Caption = " - ": 'Timer1.Enabled = False
Label13.Caption = "100"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
For z = 0 To (Combo1.ListCount - 1)
Me.Picture1.PSet (arStayAbsciss(z, 0), arStayOrdinata(z, 0))
For i = 0 To (arStayCount(z) - 1)
Me.Picture1.Line -(arStayAbsciss(z, i), arStayOrdinata(z, i)), QBColor(z + 3)
Next i
For i = 0 To (arBusCount(z) - 1)
If z <> 0 Then
a = i
For j = 0 To (z - 1)
i = i + arBusCount(j)
Next j
Me.Image1(i).Visible = True
i = a
GoTo 1
Else
Me.Image1(i).Visible = True
End If
1: Next i
Next z
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Combo1_Click
End Sub
Private Sub Command2_Click()