Skip to content

Commit ca39d32

Browse files
VTSTechVTSTech
committed
v0.3.1
Added two new menus! Help & Chat Under Help is link to Documentation And Tips for NetPlay Chat will bring you to new #MedAdvCFG Chat On Freenode! Removed md5.exe requirement. Now using Lib cryptdll.dll Removed much unneeded commented code About Menu is now functional on all forms. Now verifies PSX BIOS with REDUMP REDUMP Verification now displayed in Basic Mode Added roadmap.txt to GitHub https://github.com/Veritas83/MedAdvCFG EXE now compressed with UPX v3.91w 1433600 -> 671232 46.82% win32/pe MedAdvCFG.exe Various Code Optimizations
1 parent 0a0974a commit ca39d32

File tree

12 files changed

+910
-828
lines changed

12 files changed

+910
-828
lines changed

‎Form1.frm‎

Lines changed: 301 additions & 297 deletions
Large diffs are not rendered by default.

‎Form2.frm‎

Lines changed: 53 additions & 182 deletions
Large diffs are not rendered by default.

‎Form3.frm‎

Lines changed: 57 additions & 27 deletions
Original file line numberDiff line numberDiff line change
@@ -3,14 +3,14 @@ Begin VB.Form Form3
33
AutoRedraw = -1 'True
44
BackColor = &H00000000&
55
Caption = "MedAdvCFG v0.0.0 (Mednafen v0.9.x.x Frontend) by Nigel Todman [BASIC MODE]"
6-
ClientHeight = 8670
6+
ClientHeight = 8490
77
ClientLeft = 225
88
ClientTop = 855
9-
ClientWidth = 11280
9+
ClientWidth = 12120
1010
LinkTopic = "Form3"
11-
ScaleHeight = 8670
11+
ScaleHeight = 8490
1212
ScaleMode = 0 'User
13-
ScaleWidth = 11010
13+
ScaleWidth = 11829.89
1414
StartUpPosition = 3 'Windows Default
1515
Begin VB.CommandButton Command4
1616
BackColor = &H00000000&
@@ -26,7 +26,7 @@ Begin VB.Form Form3
2626
Left = 11880
2727
MultiLine = -1 'True
2828
TabIndex = 4
29-
Top = 8400
29+
Top = 8520
3030
Visible = 0 'False
3131
Width = 2175
3232
End
@@ -85,7 +85,7 @@ Begin VB.Form Form3
8585
Height = 2595
8686
Index = 11
8787
Left = 6120
88-
Picture = "Form3.frx":2B3FA
88+
Picture = "Form3.frx":8341
8989
Stretch = -1 'True
9090
Top = 5760
9191
Width = 2655
@@ -94,7 +94,7 @@ Begin VB.Form Form3
9494
Height = 2595
9595
Index = 10
9696
Left = 3360
97-
Picture = "Form3.frx":567F4
97+
Picture = "Form3.frx":10682
9898
Stretch = -1 'True
9999
Top = 5760
100100
Width = 2655
@@ -103,7 +103,7 @@ Begin VB.Form Form3
103103
Height = 2595
104104
Index = 9
105105
Left = 600
106-
Picture = "Form3.frx":81BEE
106+
Picture = "Form3.frx":189C3
107107
Stretch = -1 'True
108108
Top = 5760
109109
Width = 2655
@@ -112,7 +112,7 @@ Begin VB.Form Form3
112112
Height = 2595
113113
Index = 8
114114
Left = 8880
115-
Picture = "Form3.frx":ACFE8
115+
Picture = "Form3.frx":20D04
116116
Stretch = -1 'True
117117
Top = 3000
118118
Width = 2655
@@ -121,7 +121,7 @@ Begin VB.Form Form3
121121
Height = 2595
122122
Index = 7
123123
Left = 6120
124-
Picture = "Form3.frx":D83E2
124+
Picture = "Form3.frx":29045
125125
Stretch = -1 'True
126126
Top = 3000
127127
Width = 2655
@@ -130,7 +130,7 @@ Begin VB.Form Form3
130130
Height = 2595
131131
Index = 6
132132
Left = 3360
133-
Picture = "Form3.frx":1037DC
133+
Picture = "Form3.frx":31386
134134
Stretch = -1 'True
135135
Top = 3000
136136
Width = 2655
@@ -139,7 +139,7 @@ Begin VB.Form Form3
139139
Height = 2595
140140
Index = 5
141141
Left = 600
142-
Picture = "Form3.frx":12EBD6
142+
Picture = "Form3.frx":396C7
143143
Stretch = -1 'True
144144
Top = 3000
145145
Width = 2655
@@ -148,7 +148,7 @@ Begin VB.Form Form3
148148
Height = 2595
149149
Index = 4
150150
Left = 8880
151-
Picture = "Form3.frx":159FD0
151+
Picture = "Form3.frx":41A08
152152
Stretch = -1 'True
153153
Top = 360
154154
Width = 2655
@@ -157,7 +157,7 @@ Begin VB.Form Form3
157157
Height = 2595
158158
Index = 3
159159
Left = 6120
160-
Picture = "Form3.frx":1853CA
160+
Picture = "Form3.frx":49D49
161161
Stretch = -1 'True
162162
Top = 360
163163
Width = 2655
@@ -166,7 +166,7 @@ Begin VB.Form Form3
166166
Height = 2595
167167
Index = 2
168168
Left = 3360
169-
Picture = "Form3.frx":1B07C4
169+
Picture = "Form3.frx":5208A
170170
Stretch = -1 'True
171171
Top = 360
172172
Width = 2655
@@ -175,7 +175,7 @@ Begin VB.Form Form3
175175
Height = 2595
176176
Index = 1
177177
Left = 600
178-
Picture = "Form3.frx":1DBBBE
178+
Picture = "Form3.frx":5A3CB
179179
Stretch = -1 'True
180180
Top = 360
181181
Width = 2655
@@ -184,7 +184,7 @@ Begin VB.Form Form3
184184
Height = 2655
185185
Index = 0
186186
Left = 11880
187-
Picture = "Form3.frx":206FB8
187+
Picture = "Form3.frx":6270C
188188
Stretch = -1 'True
189189
Top = 8400
190190
Visible = 0 'False
@@ -209,6 +209,15 @@ Begin VB.Form Form3
209209
Begin VB.Menu about
210210
Caption = "About"
211211
End
212+
Begin VB.Menu Help
213+
Caption = "Help"
214+
Begin VB.Menu Documentation
215+
Caption = "Documentation"
216+
End
217+
End
218+
Begin VB.Menu Chat
219+
Caption = "Chat"
220+
End
212221
End
213222
Attribute VB_Name = "Form3"
214223
Attribute VB_GlobalNameSpace = False
@@ -269,6 +278,22 @@ Public Function TrailingSlash(strFolder As String) As String
269278
End If
270279
End Function
271280

281+
Private Sub about_Click()
282+
MsgBox "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend)" & vbCrLf & "Written by Nigel Todman (nigel@nigeltodman.com)" & vbCrLf & "Primarily written as a PSX Frontend." & vbCrLf & "Tested with the following System Cores:" & vbCrLf & "GB, GBA, GG, MD, NES, PCE, PCE_FAST, PSX, SNES, SS, VB" & vbCrLf & vbCrLf & "Homepage: www.NigelTodman.com" & vbCrLf & "Facebook: facebook.com/nigel.todman.3" & vbCrLf & "Twitter: @Veritas_83" & vbCrLf & "YouTube: Veritas0923" & vbCrLf & "BTC: 18j2Env7QokhGG5MccS3LPBKnjsko6u4NQ"
283+
End Sub
284+
285+
Private Sub Advanced_Click()
286+
Basic.Checked = False
287+
Form1.Basic.Checked = False
288+
Form1.Visible = True
289+
Form1.Advanced.Checked = True
290+
Form3.Visible = False
291+
End Sub
292+
293+
Private Sub Chat_Click()
294+
Shell ("cmd.exe /c start http://bit.ly/2k5E1Xq"), vbHide
295+
End Sub
296+
272297
Private Sub Command1_Click()
273298
If (PageOn + 1) > PageTotal Then
274299
PageOn = 1
@@ -299,12 +324,17 @@ Form2.Visible = True
299324
SysCore = Form1.ResetSysCore()
300325
End Sub
301326

327+
Private Sub Documentation_Click()
328+
Shell "cmd.exe /c start https://mednafen.github.io/documentation/", vbHide
329+
End Sub
330+
302331
Private Sub Form_Load()
303332
Form3.Width = 12345
304333
Build = Form1.GetBuild()
305334
Form3.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend) by Nigel Todman [BASIC MODE]"
306335
'Text1.Text = ""
307336
SysCore = Form1.SetSysCore
337+
Basic.Checked = True
308338
Set FSO = CreateObject("Scripting.FileSystemObject")
309339
'12 Games per page..
310340
For y = 1 To 12
@@ -389,7 +419,6 @@ Dim vFile As Variant
389419
Close #9
390420
Open MedAdvCOVERS For Output As #9
391421
For Each vFile In colFiles
392-
'Text1.Text = Text1.Text & vFile & vbCrLf
393422
Print #9, vFile
394423
Next vFile
395424
Close #9
@@ -572,11 +601,11 @@ If PageOn = 1 Then
572601
CoverFound = False
573602
tmparray(x) = Split(GamesList(x), "\")
574603
CurrName(x) = tmparray(x)(FNIndex)
604+
ROMFILE = CurrName(x)
575605
tmp = FileNameCleanup()
576606
CoverSearched = tmp
577607
For z = 1 To TotalCovers
578608
If InStr(1, LCase(CoversList(z)), LCase(CoverSearched), 1) <> 0 Then
579-
'MsgBox "Cover: " & PSXCovers(x) & " for " & tmp
580609
If y >= 12 Then
581610
x = TotalGames
582611
y = 12
@@ -623,7 +652,6 @@ ElseIf PageOn >= 2 Then
623652
CoverSearched = tmp
624653
For z = 1 To TotalCovers
625654
If InStr(1, LCase(CoversList(z)), LCase(CoverSearched), 1) <> 0 Then
626-
'MsgBox "Cover: " & PSXCovers(x) & " for " & tmp
627655
If y >= 12 Then
628656
x = TotalGames
629657
y = 12
@@ -678,11 +706,11 @@ SysCore = Form1.SetSysCore
678706
If Len(BIOSPATH) > 1 Then
679707
cmdstring = cmdstring & " -filesys.path_firmware " & Chr(34) & BIOSPATH & Chr(34)
680708
End If
681-
If Form1.Check11.Value = 1 Then
709+
If Form1.Check11.value = 1 Then
682710
cmdstring = cmdstring & " -psx.bios_na " & Chr(34) & BIOSFILE & Chr(34)
683-
ElseIf Form1.Check12.Value = 1 Then
711+
ElseIf Form1.Check12.value = 1 Then
684712
cmdstring = cmdstring & " -psx.bios_jp " & Chr(34) & BIOSFILE & Chr(34)
685-
ElseIf Form1.Check13.Value = 1 Then
713+
ElseIf Form1.Check13.value = 1 Then
686714
cmdstring = cmdstring & " -psx.bios_eu " & Chr(34) & BIOSFILE & Chr(34)
687715
End If
688716
End If
@@ -696,7 +724,7 @@ SysCore = Form1.SetSysCore
696724
If Len(BIOSPATH) > 1 Then
697725
cmdstring = cmdstring & " -filesys.path_firmware " & Chr(34) & BIOSPATH & Chr(34)
698726
End If
699-
If Check12.Value = 1 Then
727+
If Check12.value = 1 Then
700728
cmdstring = cmdstring & "-ss.bios_jp " & Chr(34) & BIOSFILE & Chr(34)
701729
Else
702730
cmdstring = cmdstring & "-ss.bios_na_eu " & Chr(34) & BIOSFILE & Chr(34)
@@ -720,7 +748,7 @@ SysCore = Form1.SetSysCore
720748
End If
721749

722750
'Basic Mode Panel Settings
723-
If Form2.Check23.Value = 1 Then
751+
If Form2.Check23.value = 1 Then
724752
cmdstring = cmdstring & " -video.fs 1"
725753
Else
726754
cmdstring = cmdstring & " -video.fs 0"
@@ -738,7 +766,7 @@ SysCore = Form1.SetSysCore
738766
'cmdstring = cmdstring & " " & Chr(34) & ROMFILE & Chr(34)
739767
cmdstring = cmdstring & " " & Chr(34) & Form3.Image1(Index).Tag & Chr(34)
740768
cmdstring = cmdstring & Chr(34)
741-
If Form2.Check1.Value = 1 Then
769+
If Form2.Check1.value = 1 Then
742770
If FatalError = False Then
743771
MsgBox cmdstring
744772
End If
@@ -748,7 +776,7 @@ If Form2.Check1.Value = 1 Then
748776
Else
749777
FatalError = False
750778
End If
751-
ElseIf Form2.Check1.Value = 0 Then
779+
ElseIf Form2.Check1.value = 0 Then
752780
On Error Resume Next
753781
'SysCore & vbcrlf & FullPath to Rom & CoverSearched
754782
Text1.Text = Text1.Text & vbCrLf & Form3.Image1(Index).Tag & vbCrLf & Image1(Index).ToolTipText & vbCrLf
@@ -773,3 +801,5 @@ Unload Form3
773801
Unload Form4
774802
End Sub
775803

804+
805+

‎Form3.frx‎

-1.78 MB
Binary file not shown.

0 commit comments

Comments
 (0)