Skip to content

Commit b8d3e8a

Browse files
VTSTechVTSTech
committed
v0.2.6
Basic Mode Update. Page flipping is much faster. Getting covers for only next page, Not entire list now :) Basic Mode will now rom/cover search for following SysCores GB, GBC, LYNX, SS, MD, VB, GG, PCE, NES, SNES, PSX .dat files storing lists of roms/covers now located in /dat/ Various code optimizations
1 parent f408673 commit b8d3e8a

File tree

6 files changed

+166
-48
lines changed

6 files changed

+166
-48
lines changed

‎Form1.frm‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2961,7 +2961,7 @@ Label29.Visible = False
29612961
'"This icon set is 100% free under the WTFPL — no link backs or anything needed. All I ask is that you check out my other efforts, Fine Goods and NeonMob."
29622962
'You can has link backs.
29632963

2964-
Build = "0.2.5"
2964+
Build = "0.2.6"
29652965
Form1.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend) by Nigel Todman"
29662966
Label34.Caption = "MedAdvCFG v" & Build
29672967
Dir1.Path = VB.App.Path

‎Form2.frm‎

Lines changed: 43 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -761,17 +761,53 @@ CurrFolder = Dir(Dir1.Path, vbDirectory)
761761
Dim colFiles As New Collection
762762

763763
If SysCore = "psx" Then
764-
MedAdvGAMES = VB.App.Path & "\MedAdvPSX.dat"
765-
MedAdvCOVERS = VB.App.Path & "\MedAdvPSXCOVERS.dat"
764+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPSX.dat"
765+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPSXCOVERS.dat"
766766
MedAdvEXT = "cue"
767767
ElseIf SysCore = "snes" Then
768-
MedAdvGAMES = VB.App.Path & "\MedAdvSNES.dat"
769-
MedAdvCOVERS = VB.App.Path & "\MedAdvSNESCOVERS.dat"
768+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvSNES.dat"
769+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvSNESCOVERS.dat"
770770
MedAdvEXT = "smc"
771771
ElseIf SysCore = "nes" Then
772-
MedAdvGAMES = VB.App.Path & "\MedAdvNES.dat"
773-
MedAdvCOVERS = VB.App.Path & "\MedAdvNESCOVERS.dat"
772+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvNES.dat"
773+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvNESCOVERS.dat"
774774
MedAdvEXT = "nes"
775+
ElseIf SysCore = "ss" Then
776+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvSS.dat"
777+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvSSCOVERS.dat"
778+
MedAdvEXT = "cue"
779+
ElseIf SysCore = "gba" Then
780+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGBA.dat"
781+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGBACOVERS.dat"
782+
MedAdvEXT = "gba"
783+
ElseIf SysCore = "gb" Then
784+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGB.dat"
785+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGBCOVERS.dat"
786+
MedAdvEXT = "gbc"
787+
ElseIf SysCore = "gg" Then
788+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGG.dat"
789+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGGCOVERS.dat"
790+
MedAdvEXT = "gg"
791+
ElseIf SysCore = "pce" Then
792+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPCE.dat"
793+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPCECOVERS.dat"
794+
MedAdvEXT = "cue"
795+
ElseIf SysCore = "pce_fast" Then
796+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPCE.dat"
797+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPCECOVERS.dat"
798+
MedAdvEXT = "cue"
799+
ElseIf SysCore = "md" Then
800+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvMD.dat"
801+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvMDCOVERS.dat"
802+
MedAdvEXT = "bin"
803+
ElseIf SysCore = "lynx" Then
804+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvLYNX.dat"
805+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvLYNXCOVERS.dat"
806+
MedAdvEXT = "lnx"
807+
ElseIf SysCore = "vb" Then
808+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvVB.dat"
809+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvVBCOVERS.dat"
810+
MedAdvEXT = "vb"
775811
End If
776812

777813
RecursiveDir colFiles, Dir1.Path, "*." & MedAdvEXT, True
@@ -936,7 +972,7 @@ End If
936972
End Sub
937973

938974
Private Sub Form_Load()
939-
Build = "0.2.5"
975+
Build = "0.2.6"
940976
Form2.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend) by Nigel Todman [BASIC MODE]"
941977
Set FSO = CreateObject("Scripting.FileSystemObject")
942978
a = LoadSettings()

‎Form3.frm‎

Lines changed: 92 additions & 34 deletions
Original file line numberDiff line numberDiff line change
@@ -6,11 +6,11 @@ Begin VB.Form Form3
66
ClientHeight = 8670
77
ClientLeft = 225
88
ClientTop = 855
9-
ClientWidth = 12120
9+
ClientWidth = 12150
1010
LinkTopic = "Form3"
1111
ScaleHeight = 8670
1212
ScaleMode = 0 'User
13-
ScaleWidth = 11829.89
13+
ScaleWidth = 11859.17
1414
StartUpPosition = 3 'Windows Default
1515
Begin VB.TextBox Text1
1616
Height = 1335
@@ -283,30 +283,60 @@ End Sub
283283

284284
Private Sub Form_Load()
285285
Form3.Width = 12345
286-
Build = "0.2.5"
286+
Build = "0.2.6"
287287
Form3.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend) by Nigel Todman [BASIC MODE]"
288288
Text1.Text = ""
289289
SysCore = Form1.SetSysCore
290290
Set FSO = CreateObject("Scripting.FileSystemObject")
291291
'12 Games per page..
292292
If SysCore = "psx" Then
293-
MedAdvGAMES = VB.App.Path & "\MedAdvPSX.dat"
294-
MedAdvCOVERS = VB.App.Path & "\MedAdvPSXCOVERS.dat"
293+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPSX.dat"
294+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPSXCOVERS.dat"
295295
MedAdvEXT = "cue"
296-
For x = 1 To 12
297-
Image1(x).Height = 2592
298-
Next x
299296
ElseIf SysCore = "snes" Then
300-
MedAdvGAMES = VB.App.Path & "\MedAdvSNES.dat"
301-
MedAdvCOVERS = VB.App.Path & "\MedAdvSNESCOVERS.dat"
297+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvSNES.dat"
298+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvSNESCOVERS.dat"
302299
MedAdvEXT = "smc"
303-
For x = 1 To 12
304-
Image1(x).Height = 2000
305-
Next x
306300
ElseIf SysCore = "nes" Then
307-
MedAdvGAMES = VB.App.Path & "\MedAdvNES.dat"
308-
MedAdvCOVERS = VB.App.Path & "\MedAdvNESCOVERS.dat"
301+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvNES.dat"
302+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvNESCOVERS.dat"
309303
MedAdvEXT = "nes"
304+
ElseIf SysCore = "ss" Then
305+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvSS.dat"
306+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvSSCOVERS.dat"
307+
MedAdvEXT = "cue"
308+
ElseIf SysCore = "gba" Then
309+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGBA.dat"
310+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGBACOVERS.dat"
311+
MedAdvEXT = "gba"
312+
ElseIf SysCore = "gb" Then
313+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGB.dat"
314+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGBCOVERS.dat"
315+
MedAdvEXT = "gbc"
316+
ElseIf SysCore = "gg" Then
317+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvGG.dat"
318+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvGGCOVERS.dat"
319+
MedAdvEXT = "gg"
320+
ElseIf SysCore = "pce" Then
321+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPCE.dat"
322+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPCECOVERS.dat"
323+
MedAdvEXT = "cue"
324+
ElseIf SysCore = "pce_fast" Then
325+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvPCE.dat"
326+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvPCECOVERS.dat"
327+
MedAdvEXT = "cue"
328+
ElseIf SysCore = "md" Then
329+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvMD.dat"
330+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvMDCOVERS.dat"
331+
MedAdvEXT = "bin"
332+
ElseIf SysCore = "lynx" Then
333+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvLYNX.dat"
334+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvLYNXCOVERS.dat"
335+
MedAdvEXT = "lnx"
336+
ElseIf SysCore = "vb" Then
337+
MedAdvGAMES = VB.App.Path & "\dat\MedAdvVB.dat"
338+
MedAdvCOVERS = VB.App.Path & "\dat\MedAdvVBCOVERS.dat"
339+
MedAdvEXT = "vb"
310340
End If
311341

312342
x = 1
@@ -337,7 +367,7 @@ Close #8
337367

338368
TotalGames = x
339369
PageOn = 1
340-
PageTotal = Int(Round(TotalGames / 10))
370+
PageTotal = Int(Round(TotalGames / 12))
341371
Label1.Caption = "Total Games: " & TotalGames
342372
Label2.Caption = "Page: 1/" & PageTotal
343373
x = 1
@@ -461,28 +491,44 @@ If PageOn = 1 Then
461491
For z = 1 To TotalCovers
462492
If InStr(1, LCase(CoversList(z)), LCase(CoverSearched), 1) <> 0 Then
463493
'MsgBox "Cover: " & PSXCovers(x) & " for " & tmp
464-
If y = 13 Then
465-
y = y
466-
Else
494+
If y >= 12 Then
495+
x = TotalGames
496+
y = 12
497+
Image1(y).Picture = LoadPicture(CoversList(z))
498+
Image1(y).Tag = GamesList(x)
499+
Image1(y).ToolTipText = CoverSearched
500+
z = TotalCovers
501+
y = y + 1
467502
CoverFound = True
503+
Else
468504
Image1(y).Picture = LoadPicture(CoversList(z))
469505
Image1(y).Tag = GamesList(x)
470506
Image1(y).ToolTipText = CoverSearched
471507
z = TotalCovers
472508
y = y + 1
509+
CoverFound = True
473510
End If
474511
End If
475512
Next z
476513
If CoverFound = False Then
477-
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
478-
Image1(y).Tag = GamesList(x)
479-
Image1(y).ToolTipText = CoverSearched
480-
y = y + 1
514+
If y >= 12 Then
515+
x = TotalGames
516+
y = 12
517+
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
518+
Image1(y).Tag = GamesList(x)
519+
Image1(y).ToolTipText = CoverSearched
520+
y = y + 1
521+
Else
522+
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
523+
Image1(y).Tag = GamesList(x)
524+
Image1(y).ToolTipText = CoverSearched
525+
y = y + 1
526+
End If
481527
End If
482528
Next x
483529
ElseIf PageOn >= 2 Then
484530
y = 1
485-
For x = ((12 * PageOn) - 14) To TotalGames - 1
531+
For x = ((12 * PageOn) - 12) To TotalGames - 1
486532
z = 1
487533
CoverFound = False
488534
tmparray(x) = Split(GamesList(x), "\")
@@ -492,8 +538,9 @@ ElseIf PageOn >= 2 Then
492538
For z = 1 To TotalCovers
493539
If InStr(1, LCase(CoversList(z)), LCase(CoverSearched), 1) <> 0 Then
494540
'MsgBox "Cover: " & PSXCovers(x) & " for " & tmp
495-
If y = 13 Then
496-
y = 1
541+
If y >= 12 Then
542+
x = TotalGames
543+
y = 12
497544
Image1(y).Picture = LoadPicture(CoversList(z))
498545
Image1(y).Tag = GamesList(x)
499546
Image1(y).ToolTipText = CoverSearched
@@ -511,17 +558,28 @@ ElseIf PageOn >= 2 Then
511558
End If
512559
Next z
513560
If CoverFound = False Then
514-
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
515-
Image1(y).Tag = GamesList(x)
516-
Image1(y).ToolTipText = CoverSearched
517-
y = y + 1
561+
If y >= 12 Then
562+
x = TotalGames
563+
y = 12
564+
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
565+
Image1(y).Tag = GamesList(x)
566+
Image1(y).ToolTipText = CoverSearched
567+
y = y + 1
568+
Else
569+
Image1(y).Picture = LoadPicture(VB.App.Path & "\covers\" & SysCore & "\nocover.jpg")
570+
Image1(y).Tag = GamesList(x)
571+
Image1(y).ToolTipText = CoverSearched
572+
y = y + 1
573+
End If
518574
End If
519575
Next x
520576
End If
521-
Form3.Refresh
522-
For y = 1 To 12
523-
Image1(y).Refresh
524-
Next y
577+
578+
Form3.Refresh
579+
For x = 1 To 12
580+
Image1(x).Refresh
581+
Next x
582+
525583
End Function
526584

527585
Private Sub Image1_Click(Index As Integer)

‎Form4.frm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -5,11 +5,11 @@ Begin VB.Form Form4
55
ClientHeight = 7965
66
ClientLeft = 225
77
ClientTop = 855
8-
ClientWidth = 13080
8+
ClientWidth = 11280
99
ForeColor = &H0000FF00&
1010
LinkTopic = "Form4"
1111
ScaleHeight = 7965
12-
ScaleWidth = 13080
12+
ScaleWidth = 11280
1313
StartUpPosition = 3 'Windows Default
1414
Begin VB.CommandButton Command2
1515
Caption = "Back"
@@ -550,7 +550,7 @@ Function Validate_Bios()
550550
End Function
551551

552552
Private Sub Form_Load()
553-
Build = "0.2.5"
553+
Build = "0.2.6"
554554
Form4.Caption = "MedAdvCFG v" & Build & " (Mednafen v0.9.x.x Frontend) by Nigel Todman [BASIC MODE]"
555555

556556
Set FSO = CreateObject("Scripting.FileSystemObject")

‎Project1.vbp‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -14,9 +14,9 @@ Name="Project1"
1414
HelpContextID="0"
1515
CompatibleMode="0"
1616
MajorVer=2
17-
MinorVer=5
18-
RevisionVer=0
19-
AutoIncrementVer=0
17+
MinorVer=6
18+
RevisionVer=1
19+
AutoIncrementVer=1
2020
ServerSupportFiles=0
2121
VersionCompanyName="Nigel Todman"
2222
VersionFileDescription="MedAdvCFG"

‎README.md‎

Lines changed: 24 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -14,6 +14,30 @@ Homepage: http://www.nigeltodman.com/medadvcfg
1414

1515
<img src="https://i.gyazo.com/c98c6105efcf218ee89e9760b22fd18b.png">
1616

17+
v0.2.6 01-27-2017 12:01AM
18+
19+
Basic Mode Update.
20+
21+
Page flipping is much faster.
22+
23+
Getting covers for only next page, Not entire list now :)
24+
25+
Basic Mode will now rom/cover search for following SysCores
26+
27+
GB, GBC, LYNX, SS, MD, VB, GG, PCE, NES, SNES, PSX
28+
29+
.dat files storing lists of roms/covers now located in /dat/
30+
31+
Various code optimizations
32+
33+
34+
v0.2.5 01-26-2017 10:32PM
35+
36+
Changed .pixshader to .shader
37+
38+
Added 'nocover.jpg' placeholder to GitHub
39+
40+
1741
v0.2.4 01-26-2017 3:38PM
1842

1943
Basic Mode Update.

0 commit comments

Comments
 (0)