Using Graphics: Making a Lander Game - Part 3
Since we will be using VB's built in registry functions, we can't go far wrong, but the normal caveats still apply. The registry is an integral part of windows, so make sure that you backup before you start fiddling!
The registry functions must be able to read and write the entire high score table in the registry, according to the application's title, the name of the table and the number of rows in the table. The GetSetting and SaveSetting functions allow us to do all of this in only 4 lines of code! Check it out:
Public Sub ReadScores() Dim getscore As Integer For getscore = 1 To numberplaces Scores(getscore).strName = GetSetting(App.Title, "Scores" _ & scorename, getscore & "name", "No name") Scores(getscore).intScore = GetSetting(App.Title, "Scores" _ & scorename, getscore & "score", 1000) Next End Sub Public Sub WriteScores() Dim putscore As Integer For putscore = 1 To numberplaces SaveSetting App.Title, "Scores" & scorename, putscore & _ "name", Scores(putscore).strName SaveSetting App.Title, "Scores" & scorename, putscore & _ "score", Scores(putscore).intScore Next End Sub
How much explanation does this code need? The read function goes through all the positions in the scores array, getting a value from the registry, and defaulting to "No name" and 1000 if none exist. The write function again goes through every element in the array, saving the value. You don't need any degrees or Microsoft Certifications to understand this!
(You can find out more about using the Registry in our topic area)
Page 4 of 6