PureBasic Forums - English

Exactly.

There is a little problem too.

When the mouse pointor is placed over a expression which must be analyzed by the debugger check (which is a very good idea), if the expression is too much at the right of the scope, the tip message given by the debugger check is outside the screen ...

@BlueZnl

Your link is excellent.

I found this:
$01 ; open fridge
$02 03 ; take 3 bottles of beer
$03 ; consume
$03 ; consume
$03 ; consume

I correct it:
AtHome:
$01 ; open fridge
$05 08 ; is there more than 8 bottles?
$06 08 ; no, go out
$02 03 ; yes, take 3 bottles of beer
$04 ...

Hello,

I think it would be better if we can read the hexadecimal value too.
Thank you

Ollivier

@Trond

Very beautiful code!
Bravo!

Ollivier

Okay, if you prefer this... :D ... I found a solution.

Enumeration
#Window
#Text
#StatusBar
EndEnumeration

Global xStart.I
Global yStart.I
Global xChar.I
Global yChar.I

Procedure LoadCharMap()
Protected I.I ; Iteration
Protected A.S ; Ascii char
Protected W.I ; char Width
Protected H.I ...

I shouldn't be answering a 3D question! :roll: (I'm a 3D retard)

But I'll take a shot anyway. It looks like the robot mesh failed to load. Try using Robot.mesh from the PB 4.31 examples\sources\data\ folder and see if it works.
Although I can't run the code of this subject in V4.4 like V4.31, I ...

@MyUtopia

Hi. You should publish the interesting question you asked me because I think NetMaestro has more informations than me about API functions. I have solutions but they are too complex. I suppose there is a function adapted to update simply and correctly the window when you want to clear the ...

:roll:
Enumeration
#Window
#Text
EndEnumeration

Procedure ChangeText(textgadget)
For x = 0 To 9999999

NoDelay + 1
If NoDelay > 10000
SetGadgetText(textgadget,Str(x))
Delay(1)
NoDelay = 1
EndIf


Next
SetGadgetText(textgadget,Str(x))
EndProcedure

If OpenWindow(#Window,#PB_Ignore,0,100 ...

NetMaestro wrote a good method if there is only one rectangular area in which the text is displayed.

In his code, I discover too these two API functions :
- GetStockObject_(#DEFAULT_GUI_FONT)
- GetSysColor_(#COLOR_BTNFACE)
(I use them in the following code)

But if you want to display two numbers ...

Okay. Your 2 codes VB6+PB work fine and my 2 codes VB6+PB work fine. I suppose you didn't change a character in my code: it had no error...

I think it's possible to see the memory adding 2 lines in the VB6 code: for example, a msgbox which forces the user to click ok once before the "big loop" and ...

@Edwin Knoppert

I thank you to prepare all that for me. But what I want is less...

I downloaded it, extracted it and executed it. The program crashes whatever the value is, and with or without slash "/".

I an sorry. I just want to know if, on your computer and with VB6, these two codes work fine ...

A couple of codes like this...

VB6 code Declare Function Test Lib "C:\DOCUME~1\EDWINK~1\LOCALS~1\Temp\PB51A\unsaved.dll" () As String

Sub Main()

MsgBox Test()

End Sub

PB DLL code ProcedureDll.I Test()
ProcedureReturn SysAllocStringByteLen_("DLL MESSAGE IS OKAY!", 20)
EndProcedure ...But ...

@Edwin Knoppert

Only for VB6!

Ollivier

@Edwin Knoppert

I understand your easy test. But I have an other test (which is harder) I can't try myself, because I haven't VB.

Is it possible to make a little PB DLL like you told me page 1 (with SysAllocStringByteLen_() ), and a little VB6 code which calls 1 million times (1 000 000 times). A ...

I tried to reexecute the code on 4.31:

21 errors.
In the 21st error, I stoped debugging it. It's too much. It's a very big deception. It was ok in version 4.10. I wrote Fred the 3D libraries (Window3D, Gadget3D) are null on my computer. But he didn't understand. It's very shame, cause the native 3D ...