saveandload.bas

[原创]非常耐玩的足球小游戏

Attribute VB_Name = "saveandload"
'THIS MODULE ISN'T USED IN THE PROGRAM!!!!!(If you want to make the program smaller or improve the program you can public the Subs)
'When you do it, don't forget to add "form*." before the subject name
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

'date in game
Dim puckx As Single, pucky As Single, vpuckx As Single, vpucky As Single
Dim padx1 As Single, padx2 As Single, pady1 As Single, pady2 As Single
Dim pad2x1 As Single, pad2x2 As Single, pad2y1 As Single, pad2y2 As Single
Dim touche As Boolean, touche1 As Boolean
Dim gagne As Boolean
Dim headerpp As String, sturdinesspp As String, fitnesspp As String, passingpp As String, shotingpp As String
Dim Bcpp As String, additionpp As String, rp As String, mp As String
Dim save_ini As String, object_ini As String
Dim Section As String
Dim cusjfp As Integer
Dim cusllp As Integer
Dim cusfyp As Integer
Dim xx As String
'for function
        Dim temp_string As String
        Dim DefaultValue As String
        Dim Entry As String
        Dim EntryValue As String
        Dim EntryValueSize  As String
        Dim box_msg  As String
        Dim Len_string  As String
        Dim X As Integer
'save/load file choice
    Dim save_num As String
    Dim load_num As String
'others
Private Function rtv_ini_data$(ini_File$, ini_select$, ini_entry$)
        ' rtv_ini_data("XXX.INI","ENVIRONMENT","PATH")
        Dim temp_string As String
        Dim DefaultValue As String
        Dim Entry As String
        Dim EntryValue As String
        Dim EntryValueSize  As String
        Dim box_msg  As String
        Dim Len_string  As String
        Dim X As Integer
        rtv_ini_data$ = ""
        
        Section$ = ini_select$
        Entry$ = ini_entry$
        DefaultValue$ = "unknown"
        EntryValue$ = Space$(1000)
        EntryValueSize = 1000
        X% = GetPrivateProfileString(Section$, Entry$, DefaultValue$, EntryValue$, EntryValueSize, ini_File$)
        If X% = 0 Then
            box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
            MsgBox box_msg$, 16, "找不到所需字段"
        End If
        
        Len_string = Len(Trim$(EntryValue$)) - 1
        temp_string = Left$(EntryValue$, Len_string)
        rtv_ini_data$ = temp_string
End Function

Private Function upd_ini_data$(ini_File$, ini_select$, ini_entry$, EntryValue$)
        ' upd_ini_data("XXX.INI","ENVIRONMENT","PATH", "C:\")
        
        upd_ini_data$ = ""
        
        Section$ = ini_select$
        Entry$ = ini_entry$
        X% = WritePrivateProfileString(Section$, Entry$, EntryValue$, ini_File$)
        If X% = 0 Then
            box_msg$ = " 非法条目 -> " + Section$ + "/" + Entry$
            MsgBox box_msg$, 16, "读取时出错"
        End If
        
End Function
Private Sub save_file()
save_ini = App.Path + "\save.INI"
    xx = upd_ini_data(save_ini, save_num, "name", namep.Caption)
    xx = upd_ini_data(save_ini, save_num, "age", agep.Caption)
    xx = upd_ini_data(save_ini, save_num, "position", positionp.Caption)
    xx = upd_ini_data(save_ini, save_num, "headerpp", headerpp)
    xx = upd_ini_data(save_ini, save_num, "fitnesspp", fitnesspp)
    xx = upd_ini_data(save_ini, save_num, "passingpp", passingpp)
    xx = upd_ini_data(save_ini, save_num, "shotingpp", shotingpp)
    xx = upd_ini_data(save_ini, save_num, "additionpp", additionpp)
    xx = upd_ini_data(save_ini, save_num, "Bcpp", Bcpp)
    xx = upd_ini_data(save_ini, save_num, "rp", rp)
    xx = upd_ini_data(save_ini, save_num, "mp", mp)
    savefile_refresh
End Sub
Private Sub load_file()
save_ini = App.Path + "\save.INI"
    headerpp = Trim(rtv_ini_data(save_ini, load_num, "headerpp"))
    additionpp = Trim(rtv_ini_data(save_ini, load_num, "additionpp"))
    rp = Trim(rtv_ini_data(save_ini, load_num, "rp"))
    mp = Trim(rtv_ini_data(save_ini, load_num, "mp"))
    sturdinesspp = Trim(rtv_ini_data(save_ini, load_num, "sturdinesspp"))
    fitnesspp = Trim(rtv_ini_data(save_ini, load_num, "fitnesspp"))
    shotingpp = Trim(rtv_ini_data(save_ini, load_num, "shotingpp"))
    passingpp = Trim(rtv_ini_data(save_ini, load_num, "passingpp"))
    Bcpp = Trim(rtv_ini_data(save_ini, load_num, "Bcpp"))
    namep.Caption = Trim(rtv_ini_data(save_ini, load_num, "name"))
    agep.Caption = Trim(rtv_ini_data(save_ini, load_num, "age"))
    positionp.Caption = Trim(rtv_ini_data(save_ini, load_num, "position"))
    Form2.Label7.Caption = Trim(rtv_ini_data(save_ini, load_num, "name"))
'sx
End Sub
Private Sub savefile_refresh()
save_ini = App.Path + "\save.INI"
  f1n.Caption = Trim(rtv_ini_data(save_ini, 1, "name"))
  f2n.Caption = Trim(rtv_ini_data(save_ini, 2, "name"))
  f3n.Caption = Trim(rtv_ini_data(save_ini, 3, "name"))
  f1r.Caption = Trim(rtv_ini_data(save_ini, 1, "rp"))
  f2r.Caption = Trim(rtv_ini_data(save_ini, 2, "rp"))
  f3r.Caption = Trim(rtv_ini_data(save_ini, 3, "rp"))
  f1m.Caption = Trim(rtv_ini_data(save_ini, 1, "mp"))
  f2m.Caption = Trim(rtv_ini_data(save_ini, 2, "mp"))
  f3m.Caption = Trim(rtv_ini_data(save_ini, 3, "mp"))
End Sub