Visual Basic

VB6 Serial Comm Crashs Visual Studio

2-Sep-09 9:32

Michael Schäuble wrote:
your own idea Wink from an older thread.

yep. copying an image solves a file-locked problem in Image.FromFile; using FromStream does the same.

I have used this code:

byte[] bytes=new byte[32*1024];
GCHandle handle=GCHandle.Alloc(bytes, GCHandleType.Pinned);
IntPtr ptr=handle.AddrOfPinnedObject();
// no exceptions:   Format16bppArgb1555, Format16bppRgb565, Format16bppRgb555,
//          Format1bppIndexed, Format8bppIndexed, Format32bppRgb
// exceptions:      Format16bppGrayScale
Bitmap bm1=new Bitmap(16, 16, 1024, PixelFormat.Format8bppIndexed, ptr);
log("bm1 OK");
Bitmap bm4=new Bitmap(1000, 1000);
Graphics g=Graphics.FromImage(bm4);
g.DrawImage(bm1, 0, 0);
log("bm4 drawn");
Bitmap bm2=new Bitmap(bm1);
bm1.Dispose();
handle.Free();
Bitmap bm3=new Bitmap(bm2);
bm2.Dispose();
log("size ="+bm3.Size);
bm3.Dispose();

to experiment and find out which formats are acceptable; it seems Format16bppGrayScale is the
odd one out: .NET is willing to construct a bitmap (bm1) but refuses to use it (either in bm4 or in bm2)

Work arounds:

1.
Format1bppIndexed is the one closest to what you could use, but I have no idea on how to install an appropriate lookup table.

2.
What is bound to work is convert the raw data to a format that will be understood, such as Format32bppRgb
All it takes is replacing each 16-bit value X by a new value Y where Y equals something like X/4 * 0x1010101 which assumes X has 10 significant bits, so 2 bits need to be thrown out, and the gray value gets copied to all bytes (that's what the multiplication does when using unsigned arithmetic).

Smile | :)

Luc Pattyn

Badger | [badger,badger,badger,badger...]

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

modified on Wednesday, September 2, 2009 3:59 PM

suguimoto1-Sep-09 12:02

suguimoto

1-Sep-09 12:02

Hello everyone,

I got a really strange problem. I could make 2 computers to communicate to each other through hyperterminal, 115200,8,n,1 Hardware(CTS,RTS).

Then I decide to make a VB6 program in one of those (with the same parameters). Sending data from VB6 is just fine (the hyperterminal in the other computer shows the same data), but when it receives any data the program crashes and the program manager shows 99% of the cpu is beings used by VB6 Confused | :confused:

Note.: There´re no infinite loops neither "OnComm" function is avaible in the algorithm.

Did anyone have this problem? Or knows how to solve it?

Thanks Wink | ;)

Christian Graus1-Sep-09 14:26

Christian Graus

1-Sep-09 14:26

Why would you use VB6 ? It's out of date, and was always rubbish.

Christian Graus

Driven to the arms of OSX by Vista.

Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.

suguimoto1-Sep-09 16:20

suguimoto

1-Sep-09 16:20

Well, it´s easy to program and does not need the whole .net framework to run with.

I know it´s out of date, but it´s still reliable for simple tasks and even really old pcs can run.

Thanks but...

Does anyone have a clue about it?

Mycroft Holmes1-Sep-09 16:05

Mycroft Holmes

1-Sep-09 16:05

STOP throw out what you have started, download VB.net express and start again. You are using a tool that is no longer supported.

Luc Pattyn2-Sep-09 1:11

Calculate the origin and radius of a circle

2-Sep-09 1:11

No matter how obsolete and outdated your chosen language is, Windows always has and always will require you to not touch controls from any thread other than the one that created the control, and my best guess is you are trying to receive and somehow display incoming serial data on a different thread (most asynchronous operations run on some other thread automatically).

This little article[^] describes the problem and solution in .NET (using C# examples); I don't know how it looks in ancient VB.

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

keithp08231-Sep-09 10:21

keithp0823

1-Sep-09 10:21

My trig skills are lacking, please assist if possible.

Given the coordinates of three points of an arc, how do I calculate the origin and radius of the arc or circle.

Dim s As String() = Split("a 100 100 76 110 50 100", " ")

Dim x1 As Integer = CInt(s(1))
Dim y1 As Integer = CInt(s(2))

Dim x2 As Integer = CInt(s(3))
Dim y2 As Integer = CInt(s(4))

Dim x3 As Integer = CInt(s(5))
Dim y3 As Integer = CInt(s(6))

e.Graphics.DrawArc(Pens.Green, x, y, width, height, angle1, angle2)

Luc Pattyn1-Sep-09 13:58

1-Sep-09 13:58

Hi, this is not a programming question, it is a math question, and as such language independent.
Here is one way to solve it:
- choose two of the three points, and find the line that holds all points at an equal distance of them (that line is perpendicular on the line that connects them).
- choose another set of two of those three points, and find again the line that...
- the center of the circle is bound to be at the intersection of those two lines.

So that is your solution, you can work about the formulae and the code yourself.

Smile | :)

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

keithp08232-Sep-09 5:35

keithp0823

2-Sep-09 5:35

Yes, it is a math question... which is why I stated that my trigonometry skills are lacking. If I knew the formulas to do as you suggested, I wouldn't be asking the question to begin with. I do; however, appreciate the feedback.

I am researching the math, but don't have a lot of time to come up with the solution. If anyone can help by showing me the correct formula to use I would very much appreciate the assistance.

Luc Pattyn2-Sep-09 5:54

2-Sep-09 5:54

oh nice. so you are one-voting me and asking to be spoon fed at the same time?

I have news for you: this is not a hand-me-the-code kind of site, this is a site for serious people making and showing an effort and asking for help when they get stuck in the middle of it; or alternatively asking for general advice (which I gave you) before starting something.

And to all people that don't have the time, my advice is to either work harder or start earlier, or both. I'm not impressed.

Dead | X|

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

keithp08232-Sep-09 6:32

keithp0823

2-Sep-09 6:32

I'm not asking to be spoon fed the code. Just asking if anyone knows the formula.

Yes, I'm also searching with google and I'm already working through some trig tutorials to figure out the math. Now, if you will stop wasting time by posting non-answers, I'll get back to my research.

Confused by Events

Sonhospa1-Sep-09 1:49

Sonhospa

1-Sep-09 1:49

Hello everybody,

in my project I have a pictureBox, sitting in one of the panels of a SplitContainer and docking to it in fill mode. The PictureBox loads it's images in zoom mode and is supposed to take the size of the loaded/zoomed image automatically whenever a) the form's size is changed or b) the splitter is moved.

In a first approach to reach this I call

Private Sub FitPictureBox()
    If PictureBox1.Image IsNot Nothing Then
        Dim thisFrame As Bitmap = PictureBox1.Image
        AspectRatio = thisFrame.Width / thisFrame.Height
        SplitContainer3.SplitterDistance = PictureBox1.Width / AspectRatio
    End If

from the 'resize' event as well as from the 'splitter.moved' event.

Now I'm desperately struggling to make this work, coz the 'resize' event (as well as the layout event) calling 'FitPictureBox' triggers the 'splitter.moved' event again - and I run into a loop i.e. a 'stack overflow' exception. Still I need to consider fitting the PictureBox in both cases.

Could anyone of you please guide me a way out of this dilemma? Did I use the wrong events or is there a better approach at all?

Thank you,
Mick

Jay Royall1-Sep-09 2:02

Jay Royall

1-Sep-09 2:02

Hi, I have also had similar problems in the past with events causing other events to fire. I have found a way around this but really don't think it is the best way, so it will be interesting for me also to see other people's responses.

What I have done in the past is set a global variable and check that variable in the event handlers. So, at the start of your 'resize' event set a variable, say 'Resizing' to True, then in your splitter.moved event, check the state of 'Resizing', if False then do the event. Just remember to set 'Resizing' back to nothing at the end of the 'Resize' event.

Like I said, I don't think this is the best solution, seems a little dirty to me but it works.

Mycroft Holmes1-Sep-09 16:09

Mycroft Holmes

1-Sep-09 16:09

Liqz wrote:
so it will be interesting for me also to see other people's responses

Nope - this is exactly the method I use, form level booleans called bLoading sprinkled throughout the app.

Jay Royall1-Sep-09 22:07

Jay Royall

1-Sep-09 22:07

Ah OK fine. I just thought that I might have been missing something native to the .Net framework which does a similar job. But thanks for the reassurance, I shall be more confident in my approach in the future Big Grin | :-D

Johan Hakkesteegt1-Sep-09 2:06

Johan Hakkesteegt

1-Sep-09 2:06

If I understand you correctly, the picuterbox is supposed to fit itself to the size of the SplitContainer after the container's size is changed (in whatever way).

Can you do something like this?
1. the container size changes
2. measure the size of the container
3. measure the size of the picturebox
4. if the picturebox's size is (already) correct, do nothing; if it is incorrect call your sub (and do whatever else).

Or what Liqz said...

My advice is free, and you may get what you paid for.