Ping: Visual Basic Programmers

[Oilers9911]

I am trying to learn VB programming and my first project is a very simple soccer game based on attack and defence ratings. What I want to do is store the teams and their rating in a .dat file that can retrieve the ratings as each team plays. It is very simple. The only data I need to store is the team name (example, Liverpool) the nickname, (The Reds), home ground (Anfield), attack rating (an integer between 1 and 100) and defence rating (between 1 and 100).

What is the best way to do this? Just create a text document with something like Liverpool,The Reds,Anfield,78,76? Or do I have to create some kind of input form and write the data to a file that way?

Thanks guys.

[Coder]

create a type for the team.. like this:

Type tTeam
   Name As String * 20
   Stadium As String * 20
   AttackRating As Byte
   DefenseRating As Byte
End Type

The use random access to retrieve the data

lets see if I remember this.. might be a bit sloppy, but whatever

Dim AllTeams() as tTeam
Dim tmpTeam as tTeam
Dim TeamFile as string
Dim TeamsRead as integer

TeamFile = App.Path & "\TeamFile.dat"

Open TeamFile For Random As #1 Len = Len(tmpTeam)

Do While Not EOF(1)
   Get #1, TeamsRead, tmpTeam
   TeamsRead = TeamsRead + 1
   ReDim Preserve AllTeams(TeamsRead)
   AllTeams(TeamsRead) = tmpTeam
Loop

Close #1

Oh.. and obviously you need to save as well.. check this article out:

http://support.microsoft.com/kb/150700

Since you have so few variables, you might actually use textfiles rather than binary files though..

That's much easier..

Use the same type, but start by creating a textfile like this:

Liverpool,Anfield,60,70
Arsenal, Emirate Stadium, 99,99

Then use this little sub to read rather than the stuff I used above (replace everything from Open to Loop

Dim arTeam() as String
Dim TeamsRead as Integer

Open FileName for Input as #1
Do while not eof(1)
  Line Input #1, s
  arTeam = Split(s,",")
  tmpTeam.Name = arTeam(0)
  tmpTeam.Stadium = arTeam(1)
  tmpTeam.Attack = CInt(arTeam(2))
  tmpTeam.Defense = CInt(arTeam(3))
  TeamsRead = TeamsRead + 1
  ReDim Preserve AllTeams(TeamsRead)
  AllTeams(TeamsRead) = tmpTeam
Loop

This might need a few changes.. a bit tired here.. and I'm basically writing from memory..

[Oilers9911]

Thanks alot man. I'll give that a try.

Originally Posted by Coder

Liverpool,Anfield,60,70
Arsenal, Emirate Stadium, 99,99

You must be an Arsenal supporter

[Coder]

Originally Posted by Oilers9911

Thanks alot man. I'll give that a try.



You must be an Arsenal supporter

Chelsea,Toilet,1,1

[daedalus]

Originally Posted by Coder

Liverpool,Anfield,60,70
Arsenal, Emirate Stadium, 99,99

You are CORRECT, sir!

[Oilers9911]

Originally Posted by Coder

Chelsea,Toilet,1,1

I would have gone with Shithole but yeah I agree.

[Oilers9911]

Now I assume I can do something similar with the fixture list. I would like to assign each team a number from 1 to 20 and then have the fixtures look like this:

1,20
2,19
3,18

with the home side listed first. Then at the end of the season renumber all the teams so that the fixtures change. Does that sound right?

[Oilers9911]

Originally Posted by daedalus

You are CORRECT, sir!

In that case after today it would be Portsmouth 99,99 right?