Basic4ppc has encountered a problem ...

[badkarma]

When I use this code ...

Sub Globals
'Declare the global variables here.
Dim MyFileData
Dim MyFileDataPos
End Sub

Sub Len(len_mystr)
Return StrLength (len_mystr)
End Sub

Sub Mid(mid_mystr,mid_pos,mid_length)
Return SubString (mid_mystr,mid_pos-1,mid_length)
End Sub

Sub ReadMyNo

Do Until Mid(MyFileData, MyFileDataPos, 1) = Chr(10) OR MyFileDataPos > Len(MyFileData)
If Mid(MyFileData, MyFileDataPos, 1) <> " " Then ReadMyNo = ReadMyNo & Mid(MyFileData, MyFileDataPos, 1)
MyFileDataPos = MyFileDataPos + 1
Loop

MyFileDataPos = MyFileDataPos + 1

End Sub

Sub App_Start

MyFileDataPos = 1
MyFileData = " 10"&Chr(10)&" 20"&Chr(10)&" 30"&Chr(10)&" 40"&Chr(10)&" 50"&Chr(10)

Msgbox(readmyno)
Msgbox(readmyno)
Msgbox(readmyno)

End Sub

... Basic4ppc crashes out and shuts down with the WinXP message "Basic4ppc has encountered a problem and needs to close. We are sorry for the inconvenience. Any work you have been working on may have been lost."

... the code is good running under vb6.

It may be all the other stuff on my machine (vb.net etc conflicting?) but just thought I'd report it just in case.

[badkarma]

forgot to mention:

b4ppc = v6.05
.net v2.0.50727.1433
unreg version

winxp sp2

[badkarma]

hmmm - just a thought - could be because i am setting readmyno = xxx

will use temp string instead of 'readmyno=' and retry and report back ...

[badkarma]

aha! got it tracked down ...

if you replace the above sub readmyno with this one ...

Sub ReadMyNo
Dim rmn
rmn = ""
Do Until Mid(MyFileData, MyFileDataPos, 1) = Chr(10) OR MyFileDataPos > Len(MyFileData)
If Mid(MyFileData, MyFileDataPos, 1) <> " " Then
rmn = rmn & Mid(MyFileData, MyFileDataPos, 1)
End If
MyFileDataPos = MyFileDataPos + 1
Loop

MyFileDataPos = MyFileDataPos + 1
Return rmn

End Sub

It then works OK.

But I think compiler needs to say "error: cannot assign readmyno a value!" (or something like that ) instead of crashing out...

(readmyno was a function under vb6)

will now check rest of my code and replace as required...

If this crashes on your system, it may be adviseable to fix as I guess other users porting frrom vb6 may get same error and it might turn them off what is otherwise a cool devkit.

I'll keep reporting back this kind of stuff as I progress my conversions ...

Steve

[Erel]

Thank you for reporting this bug. It will be fixed in the next release (a proper error message should show).