Saving Game

[Shizzell]

Hi,

Well, I have most of my game done, except I need to learn the following:

How to transfer variables from form to form
How to transfer variables to an outside source, like notepad, so it will save the information in the game.

Also, I would like to learn how to create a database, that will run from a server, so they could create an account, and login. But this is not a neccesity.

Thanks a ton, I know its pretty broad.

Shiz

[si_the_geek]

How to transfer variables from form to form

One way is to add a Module to your project, and declare the shared variable(s) in it (using Public), the variable(s) are then available from anywhere in your project.

How to transfer variables to an outside source, like notepad, so it will save the information in the game.

That's complex.. an easier option is to save a text file - see the Classic VB FAQ link below for examples & explanations.

Also, I would like to learn how to create a database, that will run from a server, so they could create an account, and login. But this is not a neccesity.

That's a whole new kettle of fish.. see the ADO Tutorial link below. (note that if you are using a database, you could use that to save the game instead of files).

[Shizzell]

Could you give me an example of the module with public?

[si_the_geek]

If you want 2 variables called "Fred" and "Joe" to be available to your forms, you would put this at the top of a module:

Public Fred as String, Joe as String

[Shizzell]

I know this is noobish, but i'ved never written a module, how does it work?

[Rich2189]

I know this is noobish, but i'ved never written a module, how does it work?

Rich click on the project explorer, Add->Module. Then bung Si's code into it. The project explorer is were all your forms are listed.

As for saving the game vars

http://www.vbforums.com/showpost.php...75&postcount=7

[Shizzell]

Dude, nice. That helps alot. Thanks bro.
But where do i put my variables?

[Rich2189]

Just write them in at the top and declare them as public.

Public gamevariable1 as integer, HighScore as long

[Shizzell]

Just write them in at the top and declare them as public.


Code:


Public gamevariable1 as integer, HighScore as long

No, I mean in the saving the game, where in that code do I put my information?

And I simply don't get the code to save, and get. What must I do completely? And do I put that under a command button?

??

[Rich2189]

No, I mean in the saving the game, where in that code do I put my information?

And I simply don't get the code to save, and get. What must I do completely? And do I put that under a command button?

??

Ah i see

yes command buttons

'the varibales in the following udt should be replaced with you setting variables, for example. Play position, high score.....
Private Type MyType
setting1 as integer
setting2 as string * 10
setting3 as byte
 
End Type
 
 
 
'command button save
 
Dim settings As MyType
Open "C:\settings.set" For Binary Access Write As #1
  Put #1, , settings
Close #1
 
 
'command button load
 
Dim settings As MyType
Open "C:\settings.set" For Binary Access Read As #1
  Get #1, , settings
Close #1
 
'assign the values of the type to the game variables.
 
var1 = settings.setting1

[Shizzell]

Could you give me an example? I think I'm catching on though.

[Shizzell]

Ok, I got it to work kinda. Code:

Option Explicit
Dim wow2 As String
 
Private Type MyType
setting1 As Integer
setting2 As String * 10
setting3 As Byte
 
End Type
 
Private Sub Command2_Click()
 
Dim settings As MyType
Open "C:\settings.txt" For Binary Access Write As #1
  Put #1, , label1.Caption
Close #1
End Sub
 
Private Sub Command3_Click()
Dim settings As MyType
Open "C:\settings.txt" For Binary Access Read As #1
  Get #1, , settings
Close #1
 
wow2 = settings.setting2
 
Label3.Caption = wow2
End Sub
 
Private Sub Form_Load()
Label1.caption = "Helloooooo"
End Sub

And when I click the load command button (Command2) It gives me the following in label3: lloooooo


I need some help =/

Thanks guys

[Rich2189]

almost correct

Option Explicit
    
 
    Private Type MyType
    setting1 As Integer
    setting2 As String * 10
    setting3 As Byte
 
    End Type
 
    Private Sub Command1_Click()
 
    Dim settings As MyType
'assign your caption to setting2 first.
settings.setting2 = Label1.Caption
    
Open "C:\settings.txt" For Binary Access Write As #1
      Put #1, , settings
    Close #1
    End Sub
 
    Private Sub Command2_Click()
    Dim settings As MyType
    Open "C:\settings.txt" For Binary Access Read As #1
      Get #1, , settings
    Close #1
 
    Label2.Caption = settings.setting2
 
     
    End Sub
 
    Private Sub Form_Load()
    Label1.Caption = "Helloooooo"
    End Sub

Of course you can have as many variables of different types in the UDT. Just to note ive changed it to command1 and command2 and label 1 and 2.