 |
| Register | Login | |||||
 |
Main
| Memberlist
| Active users
| ACS
| Commons
| Calendar
| Online users Ranks | FAQ | Color Chart | Photo album | IRC Chat |
|
| | ||
|
| Register | Login | |||||
|
Main
| Memberlist
| Active users
| ACS
| Commons
| Calendar
| Online users Ranks | FAQ | Color Chart | Photo album | IRC Chat |
|
| | ||
| 0 user currently in Programming. | 3 guests |
| Acmlm's Board - I2 Archive - Programming - Problem with Save State Editor... |
 |  |  |
| Pages: 1 2 | Add to favorites | "RSS" Feed | Next newer thread | Next older thread |
| User | Post | ||
Eliad Micro-Goomba Level: 6 Posts: 1/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| I'm making a Save State Editor, and I can't seem to get the 'Load ROM' thing right. Here's my code for Form1: Private FileData() As Byte 'create an array to hold the bytes of the save file Private OpenFile As String 'the name of the loaded file Private Sub menu_About_Click() Form5.Show Form1.Hide End Sub Private Sub menu_Characters_Click() Form3.Show Form1.Hide End Sub Private Sub menu_Items_Click() Form4.Show Form1.Hide End Sub Private Sub menu_Load_Click() 'open the common dlg and save file name into OpenFile string variable OpenFile = CommonDialog1.FileName 'if OpenFile is 0 (they hit cancel) exit sub If Len(OpenFile) = 0 Then Exit Sub 'open the file as binary and load it all into the FileData() array Open OpenFile For Binary As #1 ReDim FileData(LOF(1) - 1) Get #1, , FileData Close #1 Me.Caption = FileData(0) End Sub Private Sub menu_Quit_Click() End End Sub Any help would be much appreciated, thanks. |
|||
Synneth Relmn Paratroopa Level: 20  Posts: 40/144 EXP: 36477 For next: 5962 Since: 08-13-04 Since last post: 16 days Last activity: 7 days |
| ||
| you'd have to use CommonDialog1.ShowOpen() to show the common dialog box in the first place, right? (edited by Synneth Relmn on 01-28-05 04:16 PM) (edited by Synneth Relmn on 01-28-05 04:17 PM) |
|||
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55  Posts: 1073/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| Yeah, you forgot CommonDialog1.ShowOpen(), this is actually needed to call the "Open file" window. | |||
|
Eliad Micro-Goomba Level: 6 Posts: 4/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| It gave me a type mismatch error. Private Sub menu_Load_Click() 'open the common dlg and save file name into OpenFile string variable OpenFile = CommonDialog1.ShowOpen() 'if OpenFile is 0 (they hit cancel) exit sub If Len(OpenFile) = 0 Then Exit Sub 'open the file as binary and load it all into the FileData() array Open OpenFile For Binary As #1 ReDim FileData(LOF(1) - 1) Get #1, , FileData Close #1 Me.Caption = FileData(0) End Sub |
|||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1074/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| I haven't used VB in ages, but err, try to leave out the OpenFile = before the CommonDialog1.ShowOpen() Do functions need to be set to a variable to be called in VB? I think not :o |
|||
|
Eliad Micro-Goomba Level: 6 Posts: 5/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| Gave me a syntax error. | |||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1076/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| Hmm. Dim TestFile$ ' String variable CMDialog.Filter = "Test (*.tst)|*.tst" CMDialog.InitDir = "C:\SomePath" CMDialog.Action = 1 ' VB 4.0 way to select FileOpen ' Still works in VB 6.0 CMDialog.ShowOpen ' VB 6.0 way to select FileOpen TestFile$ = CMDialog.FileName ' = "" if the Cancel button is pressed If TestFile$ <> "" Then Main_UIForm.Caption = _ "Application Name or Function - " + CMDialog.FileTitle Call SomeProcedure(TestFile$) End If That's what google returned. Looks like you don't need the braces after the ShowOpen. |
|||
|
Eliad Micro-Goomba Level: 6 Posts: 6/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| Could someone please fix this and post a reply with it? =\ Private Sub menu_Load_Click() 'open the common dlg and save file name into OpenFile string variable OpenFile = CommonDialog1.ShowOpen 'if OpenFile is 0 (they hit cancel) exit sub If Len(OpenFile) = 0 Then Exit Sub 'open the file as binary and load it all into the FileData() array Open OpenFile For Binary As #1 ReDim FileData(LOF(1) - 1) Get #1, , FileData Close #1 Me.Caption = FileData(0) End Sub |
|||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1077/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| Private Sub menu_Load_Click() 'open the common dlg and save file name into OpenFile string variable CommonDialog1.ShowOpen 'if OpenFile is 0 (they hit cancel) exit sub OpenFile = CommonDialog1.FileName If Len(OpenFile) = 0 Then Exit Sub 'open the file as binary and load it all into the FileData() array Open OpenFile For Binary As #1 ReDim FileData(LOF(1) - 1) Get #1, , FileData Close #1 Me.Caption = FileData(0) End Sub There, that should work. |
|||
|
Eliad Micro-Goomba Level: 6 Posts: 7/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| It kinda does... It still doesn't say .zst in the 'choose filetype' area... | |||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1081/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
...  THAT'S what you needed all along? Err, next time *rereads first post*, yeah, next time please state this in the question. Because you weren't very clear and I assumed you were asking for this. Anyway, you can set the filetype settings with the property thing to the lower right of your screen (the VB screen). I'm not exactly sure on the way you need to type them, but I think it should look like this: *.zst|(*.zst) Or something like that, it's been ages. |
|||
|
Eliad Micro-Goomba Level: 6 Posts: 8/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| No no. I also had a problem with the cancel error, which you just told me how to fix. Thanks. Edit: How do I make it so it can only open the Breath of Fire 2 ROM (English version)? (edited by Eliad on 01-29-05 11:00 PM) |
|||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1082/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| That, I don't know, but I'm sure you could read it from the header, or try to identify a string of bytes somewhere randomly in the ROM (perhaps in the GFX, that should be a quite unique string) and then on opening check for those bytes in that position? | |||
|
Eliad Micro-Goomba Level: 6 Posts: 9/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| What is the code to do that, and how do I get a GFX string from a ROM? | |||
|
Darth Coby Vire Dacht je nou echt dat het over was? Dacht je nou echt dat ik gebroken was? Nee toch? Nou kijk eens goed op uit je ogen gast. zonder clic heb je geen kloten tjap... bitch Level: 55 Posts: 1084/1371 EXP: 1240774 For next: 73415 Since: 03-15-04 From: Belgium Since last post: 2 days Last activity: 9 hours |
| ||
| Not a GFX string, a byte string, call it byte array, just an array of bytes from the GFX part of the ROM. Use any tile editor to find the location of the graphics and then go there with your hex editor and copy like ten bytes. Byte arrays in VB are out of my knowledge though, can't help you with that. |
|||
dan Snap Dragon Level: 43  Posts: 378/782 EXP: 534516 For next: 30530 Since: 03-15-04 Since last post: 20 hours Last activity: 14 hours |
| ||
| If he is making a save state editor, he shouldn't be loading the ROM at all. | |||
|
HyperLamer <||bass> and this was the soloution i thought of that was guarinteed to piss off the greatest amount of people Sesshomaru Tamaranian Level: 118 Posts: 3073/8210 EXP: 18171887 For next: 211027 Since: 03-15-04 From: Canada, w00t! LOL FAD Since last post: 2 hours Last activity: 2 hours |
| ||
| OK, a few suggestions here: 1) Name your controls! Form5 and CommonDialog1 don't tell you anything. 2) Set the CancelError property to true, and use an error handler. Error #32755 means the dialog was cancelled. This way your program won't crash when it gets cancelled. Now, your filter problem is simple. Set the 'filter' property to something like "ZSnes Save States (*.zs?)|*.zs?". The text before the | is what it will say, the text after is the actual filter. You can add another | to put in more choices. (Ex: "Text files|*.txt|HTML Files|*.html".) *.zs? means any file whose extension is 'zs' followed by any one letter (because ZSnes uses .zst and .zs0 - .zs9). Now I don't know exactly why you'd be loading graphics in a save state editor.  Are you trying to read them from the ROM for visual aids in the save state editor? Actually reading graphics from a ROM and displaying them is rather difficult for someone who doesn't have much experience with the API. If you just want to have some pictures I suggest you just use Image controls. (And don't put a lot of them in because they take up a lot of memory.)If for some reason you do need to read the graphics from a ROM, you'll need to learn some API functions. Check out BitBlt, CreateDC, CreateCompatibleBitmap, SelectObject and SetPixel, these are mostly what you'll need to draw them. (You'll also want to use DeleteObject and DeleteDC to free up the graphic memory.) Basically you'd want to have an array that specifies the colour for each value, and draw the tiles onto a buffer using SetPixel. (I won't go into a lot of detail here, since I'm not even sure what you're trying to do.  ) |
|||
|
Eliad Micro-Goomba Level: 6 Posts: 10/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| I'm trying to make a Save State Editor that works with Breath of Fire 2 for SNES. | |||
drjayphd Beamos What's that spell? pimp! Level: 56  Posts: 857/1477 EXP: 1387410 For next: 10766 Since: 03-15-04 From: CT Since last post: 2 hours Last activity: 2 hours |
| ||
| Right, we know that. It's just a question of why you need the ROM when you're working with the savestate. If it's to make sure you're opening a BOF2 savestate, just look for a distinct string of bytes. | |||
|
Eliad Micro-Goomba Level: 6 Posts: 11/12 EXP: 692 For next: 215 Since: 01-28-05 Since last post: 275 days Last activity: 273 days |
| ||
| I knew I was needing to use the saved state all along, I just chose the wrong words to use... =\ |
| Pages: 1 2 | Add to favorites | "RSS" Feed | Next newer thread | Next older thread |
| Acmlm's Board - I2 Archive - Programming - Problem with Save State Editor... |
| | |
