-
Gave Reputation to rproffitt in VB6: how avoid these memory leak on API timer?
I have yet to read the issue of leaks were entirely plugged in VB6. Example at https://forum.codejock.com/topic7921.html notes an area that appears to be "yup, it does that" in reference … -
Replied To a Post in VB6: how avoid these memory leak on API timer?
1 - yes i can't assign an object\instance to nothing without test it 1st: Dim WithEvents tmr As vbAPITimerTools.APITimer 'create a vbAPITimerTools.APITimer instance with an event Set tmr = New … -
Replied To a Post in VB6: how avoid these memory leak on API timer?
i did a simple mistake: Set GameBitmap = Nothing instead: If Not GameBitmap Is Nothing Then Set GameBitmap = Nothing End If what event is used when i press the … -
Edited VB6: how avoid these memory leak on API timer?
heres my timer class with a module(on a group project for create a DLL): 'Module: Option Explicit Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As … -
Created VB6: how avoid these memory leak on API timer?
heres my timer class with a module(on a group project for create a DLL): 'Module: Option Explicit Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As … -
Began Watching VB6: how avoid these memory leak on API timer?
heres my timer class with a module(on a group project for create a DLL): 'Module: Option Explicit Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As … -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
what make me more crazy is that i'm using a code, converted and works, from VB6 lol -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
yes i must test more... and, like you see, that vertical bar have another color.... that means the code problem can be here: 'Get the horizontal Ray Distance: HorizDist = … -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
maybe you have right... but, for now, i don't understand why and where i'm fail :( i'm learning from: https://permadi.com/1996/05/ray-casting-tutorial-table-of-contents/ theres several tutorials, but not all are so good :( -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
will be rounded numbers problem or something? yes i'm testing more, but no success :( -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
i can see: 1 - maybe some are too much height(but they are converted to 300 of max); 2 - on some they are repeated... and maybe the problem is … -
Replied To a Post in RayCasting: why i get a more width vertical lines on square grid size?
debug print line height: Line Height : 1452 Line Height : 1441 Line Height : 1430 Line Height : 1419 Line Height : 1407 Line Height : 1397 Line Height … -
Gave Reputation to rproffitt in RayCasting: why i get a more width vertical lines on square grid size?
When I work such an issue I set the breakpoint where the trouble is and examine variables. There's some variable that controls the output so that's what you look at. … -
Created RayCasting: why i get a more width vertical lines on square grid size?
heres my RayCasting code on VB2010(it can be another programming language, i will get the same bug): Private Function GetPositionMap(ByVal Position As Double) As Integer Return fix(Position / ObjectSize) End … -
Began Watching RayCasting: why i get a more width vertical lines on square grid size?
heres my RayCasting code on VB2010(it can be another programming language, i will get the same bug): Private Function GetPositionMap(ByVal Position As Double) As Integer Return fix(Position / ObjectSize) End … -
Created VB2010- why i get a different vertical size\color on RayCasting?
these is the VB6 function for RayCasting: Private Sub DrawRays() Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As Double Dim HorizX As Double … -
Began Watching VB2010- why i get a different vertical size\color on RayCasting?
these is the VB6 function for RayCasting: Private Sub DrawRays() Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As Double Dim HorizX As Double … -
Replied To a Post in VB2010: how use CopyMemory() API function?
understood ;) thanks for all... using the VB2010 is best use GDI+... if i need change all pixels, we must use lockbits() on a Bitmap -
Replied To a Post in VB2010: how use CopyMemory() API function?
correct me: the Bitmaps.lockbits() and Bitmaps.unlockbits(), for change the pixels(all pixels), are more faster or like DIB's speed or more slow? -
Replied To a Post in VB2010: how use CopyMemory() API function?
that link\tutorial have some errors: VB2010 don't have the 'any' type -
Created VB2010: how use CopyMemory() API function?
How use and declare CopyMemory() API function VB2010? -
Began Watching VB2010: how use CopyMemory() API function?
How use and declare CopyMemory() API function VB2010? -
Replied To a Post in how convert cur images to image?
like i said: is for learning... we can use that images in several places ;) -
Replied To a Post in how convert cur images to image?
damn i can't edit.. it's VB2010 and not VB6... but the tags is vb.net... i'm sorry -
Created how convert cur images to image?
how can i convert cursor files to image? i need see the cur\ani on picturebox?(just for learning) Private Sub btnChooseImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChooseImage.Click If … -
Began Watching how convert cur images to image?
how can i convert cursor files to image? i need see the cur\ani on picturebox?(just for learning) Private Sub btnChooseImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChooseImage.Click If … -
Replied To a Post in how converte C to VB6?
Reverend Jim: i installed the VS2010.. seems much more faster on my laptop ;) -
Gave Reputation to Reverend Jim in how converte C to VB6?
I always recommend ditching VB6. It is super old technology. If you were using Python 2.x I would also advise moving to Python 3.x for the same reason. If you … -
Gave Reputation to Reverend Jim in how converte C to VB6?
Glad you were able to work it out. Why are you still using VB6? -
Gave Reputation to SCBWV in how converte C to VB6?
VB6 doesn't support <<. As best I can determine, the C code is shifting bits to the right, then back to the left, effectively clearing the lower 6 bits. In … -
Edited how converte C to VB6?
how can i convert these C line: (py>>6)<<6) to VB6? -
Created how converte C to VB6?
how can i convert these C line: (py>>6)<<6) to VB6? -
Began Watching how converte C to VB6?
how can i convert these C line: (py>>6)<<6) to VB6? -
Replied To a Post in VB6 - RayCasting: why my Vertical intersection is so big?
after several tests i fix it: Do While RayCounts < RayCount If (RayRadians > (2 * PI)) Then RayRadians = 0.001 i have more to update: 1 - win more … -
Replied To a Post in VB6 - RayCasting: why my Vertical intersection is so big?
i fix 1 error: ElseIf (KeyCode = vbKeyUp) Then If (LevelMap0(Fix((Player.PosY + Player.MoveY * Speed) / ObjectSize), Fix((Player.PosX + Player.MoveX * Speed) / ObjectSize)) <> vbBlue) Then 'and: ElseIf (KeyCode … -
Replied To a Post in VB6 - RayCasting: why my Vertical intersection is so big?
actual code: Private Sub DrawRays2() Dim AY As Double Dim AX As Double Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As Double Dim … -
Replied To a Post in VB6 - RayCasting: why my Vertical intersection is so big?
not so easy :( WallDistance = WallDistance * Cos(Abs(RayRadians - Player.Radians)) 'avoiding the Fish Effect RayHeight = (ObjectSize / WallDistance) * 200 '320 is the width screen If (RayHeight > … -
Replied To a Post in VB6 - RayCasting: why my Vertical intersection is so big?
finally i found the problem is on these line: HorizDist = Sqr(((HorizX - Player.PosX) * (HorizX - Player.PosX)) + ((HorizY - Player.PosY) * (HorizY - Player.PosY))) 'works fine VertDist = … -
Created VB6 - RayCasting: why my Vertical intersection is so big?
heres my RayCasting function: Private Sub DrawRays2() Dim AY As Double Dim AX As Double Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As … -
Began Watching VB6 - RayCasting: why my Vertical intersection is so big?
heres my RayCasting function: Private Sub DrawRays2() Dim AY As Double Dim AX As Double Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As … -
Created VB6 - why i get the error 8 on CreateDIBSection()?
i'm using CreateDIBSection(): Public Function NewImage(ByVal ImageWidth As Long, ByVal ImageHeight As Long, Optional color As ColorConstants = vbBlack) As Long If (Width > 0 Or Height > 0 Or … -
Began Watching VB6 - why i get the error 8 on CreateDIBSection()?
i'm using CreateDIBSection(): Public Function NewImage(ByVal ImageWidth As Long, ByVal ImageHeight As Long, Optional color As ColorConstants = vbBlack) As Long If (Width > 0 Or Height > 0 Or … -
Began Watching VB6 how send parameters on CreateThread()?
how send parameters on CreateThread()? on a class: Option Explicit Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, … -
Created VB6 how send parameters on CreateThread()?
how send parameters on CreateThread()? on a class: Option Explicit Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, … -
Replied To a Post in VB6: how combine ARGB color elements?
i was avoiding the overflow.... but the problem is much more than the data type... and it's only on Alpha element... but finally seems fixed: Public Function ARGB(ByVal alpha As … -
Marked Solved Status for VB6: how combine ARGB color elements?
i have tried several ways, but i always get an overflow error :( how can i combine the ARGB color elements? Public Function ARGB(ByVal alpha As Byte, ByVal red As … -
Created VB6: how combine ARGB color elements?
i have tried several ways, but i always get an overflow error :( how can i combine the ARGB color elements? Public Function ARGB(ByVal alpha As Byte, ByVal red As … -
Began Watching VB6: how combine ARGB color elements?
i have tried several ways, but i always get an overflow error :( how can i combine the ARGB color elements? Public Function ARGB(ByVal alpha As Byte, ByVal red As … -
Replied To a Post in VB6 - why the 'for' loop is so slow?
i need optimization, because i only have 200FPS for change 1 color.. these is a test for change the Alpha values... i can share all code -
Created VB6 - why the 'for' loop is so slow?
see these 'for' loop: Public Function SetTransparentColor(color As Long) Dim X As Integer Dim Y As Integer Dim c As Long Dim h As Long Dim w As Long Dim …
The End.