Sorry your browser is not supported!

Hi, trying to write code to sort Racing Drivers and Laptimes after each lap.
i.e.
Button McLaren 1:25.00
Hamilton Mercedes 1:25.34
Etc.
I know I need to use something like….

type laptime_t
Name as string
Score as integer
Endtype

And use an array……

dim Laptime(9) as Laptime_t

and …

Laptime(9).Name = DriverName$
Laptime(9).Score = DriverLapTime
sort array Laptime(), -2 ` Sort into descending score order

But I am struggling to understand how to include in a loop, assuming in this case there are 10 drivers.
After each lap I need the driver order to be sorted, and also match drivers to their teams in a print out. Help really appreciated.

Figured it out.... just can't work out how to sort in ascending order as I want smallest time first.

Rem ***** Included Source File *****
Rem Project: Dark Basic Pro Project
Rem Created: Friday, May 30, 2014

Rem ***** Main Source File *****
Type laptime_t
Name as string
Time as integer
Team as string
Endtype


dim Laptime(9) as Laptime_t

Laptime(0).Name = "Button"
Laptime(0).Time = 1234
Laptime(0).Team = "McLaren"
Laptime(1).Name = "Hill"
Laptime(1).Time = 2000
Laptime(1).Team = "Williams"
Laptime(2).Name = "Prost"
Laptime(2).Time = 1256
Laptime(2).Team = "Renault"
Laptime(3).Name = "Massa"
Laptime(3).Time = 3000
Laptime(3).Team = "Ferrari"
Laptime(4).Name = "Alonso"
Laptime(4).Time = 1000
Laptime(4).Team = "Ferrari"
Laptime(5).Name = "Hamilton"
Laptime(5).Time = 2100
Laptime(5).Team = "Mercedes"
Laptime(6).Name = "Vettel"
Laptime(6).Time = 900
Laptime(6).Team = "RedBull"
Laptime(7).Name = "Webber"
Laptime(7).Time = 2600
Laptime(7).Team = "RedBull"
Laptime(8).Name = "Mansell"
Laptime(8).Time = 1300
Laptime(8).Team = "Willaims"
Laptime(9).Name = "Herbert"
Laptime(9).Time = 2700
Laptime(9).Team = "Lotus"


Sort Array Laptime(), -2 ` Sort into descending score order

Display_x_pos=10
Display_y_pos=10

For Pos_n=0 to 9
Text Display_x_pos,Display_y_pos,""+ Laptime(Pos_n).Name
Text Display_x_pos+90,Display_y_pos,""+LEFT$(Laptime(Pos_n).Team,3) // Limits team name to 3 characters i.e. MCL
Text Display_x_pos+170,Display_y_pos,""+ STR$(Laptime(Pos_n).Time)

Display_y_pos=Display_y_pos+10

Next Pos_n



Wait key

Do


LOOP

End

Not sure what the problem is. The Help says:



So why not use a positive number?

LOL thx, tried that just after I posted and guess what , it worked cheers