Программирование в Бейсике
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
arStayAbsciss(Mis, disk) = Str$(X - mx)
arStayOrdinata(Mis, disk) = Str$(Y - my)
e = 0
Boom = False
Command6_Click
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Doomy Then
If Text4.Text = "" Then MsgBox "Напишите название остановки!!!": Exit Sub
If Do_Do = False Then
Exit Sub
Else
If Text4.Text = "" Then MsgBox " Напишите название остановки!!!": Exit Sub
Image1(Combo4.ListCount).Visible = True
Image1(Combo4.ListCount).Move X - w, Y - w
Me.Label14(Combo4.ListCount).Visible = True
Me.Label14(Combo4.ListCount).Move Image1(Combo4.ListCount).Left + 2 * w, Image1(Combo4.ListCount).Top
Me.Label14(Combo4.ListCount).Caption = Text4.Text
arStayAbsciss(Mis, Combo4.ListCount) = Str$(X - w): arStayOrdinata(Mis, Combo4.ListCount) = (Y - w)
arStayName(Mis, Combo4.ListCount) = Text4.Text
Me.Combo4.AddItem arStayName(Mis, Combo4.ListCount)
Me.Text4.Text = ""
End If
Else
Exit Sub
End If
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Combo7.Enabled = True
aa = aa + 1
Combo7.AddItem Str$(X) + "," + Str$(Y)
nama(LinesCount - 1, aa - 1) = Str$(aa - 1)
If aa <> 1 Then
Me.Picture2.Line -(X, Y)
Command13.Enabled = True
Else
Me.Picture2.PSet (X, Y)
End If
x0 = X: y0 = Y
End Sub
Private Sub Text4_Change()
Do_Do = True
End Sub
Private Sub Text9_Change()
Command16.Enabled = True
End Sub
Form2
Dim Boom As Boolean
Dim MovePossible As Boolean
Dim arLinesName(0 To 30) As String, LinesCount As Integer 30 max маршрутов
Dim arBusNumber(0 To 30, 0 To 25) As String, arBusCount(0 To 30) As Integer
Dim AllBuses As Integer 25 - max автлбусов
Dim arDriveName(0 To 30, 0 To 25) As String
Dim arConductorName(0 To 30, 0 To 25) As String
Dim arStayName(0 To 30, 0 To 35) As String 35 - max остановок на одном маршруте
Dim arStayAbsciss(0 To 30, 0 To 35) As String
Dim arStayOrdinata(0 To 30, 0 To 35) As String
Dim arStayCount(0 To 30) As Integer
Dim arStayPast(0 To 30, 0 To 25) As Integer последняя остановка автобуса
Dim arStayEdit(0 To 30, 0 To 25) As Integer в какую сторону изменять остановки
Dim arCoordEdit(0 To30,Dim k(0 To 30, 0 To 25) As Single в какую сторону изменять координаты
Dim b(0 To 30, 0 To 25) As Single угловой коэффициент при движении
Dim x0(0 To 30, 0 To 25) As Single
Dim y0(0 To 30, 0 To 25) As Single
Dim mx As Single
Dim my As Single, p As Integer, Pisk As Integer
Public Mis As Integer определенный маршрут
Public Misk As Integer определенный автобус
Dim i As Integer
Dim w As Single
Const t0 = 4: Const t1 = 7: Const t2 = 10: Const t3 = 13
Const t4 = 15: Const t5 = 17: Const t6 = 20: Const t7 = 23
Dim Fuel(0 To 750) As Single
Private Sub Combo1_Click()
Me.mnuEditBuses.Enabled = True
Me.mnuMove.Enabled = True
Me.Command1.Enabled = True
For i = 0 To (AllBuses - 1)
Image1(i).Picture = LoadPicture("c:\ Курсовая моя\Иконки \Blue Bus.ico")
Next i
Me.Frame1.Visible = True
Me.Label2.Visible = True
Mi = Mis
Mis = Combo1.ListIndex
Me.Picture1.Visible = True
Me.Label9.Visible = True
arBusCount(Combo1.ListIndex) = 0
arStayCount(Combo1.ListIndex) = 0
If Len(Dir("c:\ \" + Combo1.List(Mis) + ".txt")) = 0 Then
MsgBox " Файл маршрутов не найден!!!" + vbCrLf + _
" : c:\ \" + Combo1.List(Mis) + ".txt"
Combo1.ListIndex = Mi
Exit Sub
Else
Work_With_Files
End If
Picture1.Cls
For i = 1 To 35
Me.Image2(i).Visible = False
Me.Label14(i).Visible = False
Next i
Me.Picture1.PSet (arStayAbsciss(Mis, 0), arStayOrdinata(Mis, 0))
w = Me.Image2(0).Width / 2
Me.Image2(0).Move arStayAbsciss(Mis, 0) - w, arStayOrdinata(Mis, 0) - w
Me.Label14(0).Move Image2(0).Left + 2 * w, Image2(0).Top
Me.Label14(0).Caption = arStayName(Mis, 0)
For i = 0 To (arStayCount(Mis) - 1)
Me.Picture1.Line -(arStayAbsciss(Mis, i), arStayOrdinata(Mis, i))
Me.Image2(i).Move arStayAbsciss(Mis, i) - w, arStayOrdinata(Mis, i) - w
Me.Image2(i).Visible = True
Me.Label14(i).Visible = True
Me.Label14(i).Move Image2(i).Left + 2 * w, Image2(i).Top
Me.Label14(i).Caption = arStayName(Mis, i)
Next i
For i = 0 To (AllBuses - 1)
Image1(i).Visible = False
Next i
If Boom = True Then Boom = False: First_Stay_of_Buses
For i = 0 To (arBusCount(Combo1.ListIndex) - 1)
If Mis <> 0 Then
a = i
For j = 0 To (Mis - 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
Me.Timer1 = True
If Misk <> 999 Then If Image1(Misk).Visible = True Then Image1_Click (Misk)
t = Time
tnow = Val(Mid$(Str$(t), 1, 2))
If tnow > t0 And tnow t4 And tnow < t5 Or _
t6Andtnow t6 And tnow <= t7 Then Label8.Caption = "60 /": Timer1.Interval = 5
If tnow >= t1 And tnow = t5 And tnow <= t6 Then _
Label8.Caption = "30 /": Timer1.Interval = 10
=0Andtnow= 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()
Misk = 999
Unload Me
End Sub
Private Sub Form_Load()
Misk = 999
Boom = True
MovePossible = False
If Len(Dir("c:\ Курсовая моя\маршруты.txt")) = 0 Then
MsgBox " Файл маршрутов не найден!!!" + vbCrLf + _
" Проверьте его наличие: c:\ Курсовая моя\маршруты.txt"
Combo1.Enabled = False
Label11.Visible = False
Exit Sub
End If
Open "c:\ Курсовая моя\маршруты.txt" For Input As 1
LinesCount = 0
Do While Not EOF(1)
Input #1, arLinesName(LinesCount)
Combo1.AddItem arLinesName(LinesCount)
LinesCount = LinesCount + 1
Loop
Close 1
AllBuses = 0
For Mis = 0 To (Combo1.ListCount - 1)
If Len(Dir("c:\Курсовая моя\" + Combo1.List(Mis) + ".txt")) = 0 Then
MsgBox " Файл маршрутов не найден!!!" + vbCrLf + _
" Проверьте его наличие: c:\Курсовая\" + Combo1.List(Mis) + ".txt"
Else
Work_With_Files
AllBuses = AllBuses + arBusCount(Mis)
End If
Next Mis
Fuel(0) = 100
For i = 1 To (AllBuses - 1)
Load Image1(i)
Fuel(i) = 100
Next i
For i = 1 To 35
Load Image2(i)
Load Label14(i)
Next i
End Sub
Public Static Sub Work_With_Files()
arBusCount(Mis) = 0
arStayCount(Mis) = 0
Open "c:\Курсовая моя\" + Combo1.List(Mis) + ".txt" For Input As 2
Do While Not EOF(2)
Inp