Visual Basic

Re: Align form with Excel Window

12-Nov-08 11:12

erhmmm converting points to pixels or if it's out of hand using the old fashion GetWindowEx and GetWindowRect from the Win32 API.
An aproximation is 1.3 ... so for let's say 3 points u have about 3,9 pixels.

Dave Kreskowiak13-Nov-08 4:05

Sending Bytes Packet to Remote System

13-Nov-08 4:05

I didn't say that. It just means you have to use a different method to get the window rectangle. Use the Process class to find the EXCEL process, the get it's MainWindowHandle. You can then use that handle to call Win32's GetWindowRect function (see www.pinvoke.net for examples) to get the Left position in pixels.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

ajorge200812-Nov-08 4:48

ajorge2008

12-Nov-08 4:48

Good afternoon!

Currently i'm working with .Net Framework 2.0 SerialPort Class and trying to send a bunch of bytes as a command to obtain data from a remote system.
The GSM connection is well done, but after this connection, i'm sending a command regarding the communication protocol of the remote equipment, but i don't get any kind of response.

Could anyone help me with this? I'm sending the code i've wrote:

Option Explicit On
Option Strict Off

Imports System.IO.Ports

Public Class Form1

Public Delegate Sub StringSubPointer(ByVal Buffer As String)
Dim WithEvents spObject As New SerialPort
Dim Test_Command As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button1.BackColor = Color.Silver
Button2.BackColor = Color.Silver
Button3.BackColor = Color.Silver

With spObject
.PortName = "COM6"
.BaudRate = 9600
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
.DtrEnable = True
.RtsEnable = True
'.ReadTimeout = 12000
'.NewLine = Chr(13) 'CR - Carriage Return
'.Encoding = System.Text.Encoding.GetEncoding(28591)
End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If spObject.IsOpen Then

spObject.Close()

End If

Try

spObject.Open()

Catch ex As Exception

MsgBox("It wasn't possible to open your Serial Com Port! Please try again...", MsgBoxStyle.OkOnly, "Warning")
Return

End Try

Try

spObject.Write("+++" + vbCr)
spObject.Write("ATDPhoneNumber" + vbCr)

RichTextBox1.Clear()

RichTextBox1.Text = "Dialing with the Remote System... Please wait for a few seconds..."

Catch ex As Exception

MsgBox("It wasn't possible to connect with the Remote System! Please try again...", MsgBoxStyle.OkOnly, "Warning")
Return

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button1.BackColor = Color.Silver
Button2.BackColor = Color.Green

Dim btArray As Byte() = {68, 00, 00, 68, 00, 00, 00, 00, 80, 00, 01, 81, 00, 16}

Try

spObject.Write(btArray, 0, 14)

RichTextBox1.Clear()
RichTextBox1.Text = "Your command has been correctly sent. Please standby for data response..."

Catch ex As Exception

Button2.BackColor = Color.Silver
MsgBox("Sorry, it wasn't possible to send your command. Please try again...", MsgBoxStyle.OkOnly, "Warning")

Return

End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button1.BackColor = Color.Silver
Button2.BackColor = Color.Silver
Button3.BackColor = Color.Green

RichTextBox1.Clear()
RichTextBox1.Text = "Disconnecting from the Remote System..."

Try

With spObject

.Write("+++" + vbCr)
.Write("ATH0" + vbCr)

End With

Catch ex As Exception

RichTextBox1.AppendText("It wasn't possible to disconnect from the Remote System. Please try again!")
Button3.BackColor = Color.Silver
Return

End Try

Try

With spObject

.Close()

End With

Catch ex As Exception

RichTextBox1.AppendText("It wasn't possible to close your communication port! Please try again.")
Button3.BackColor = Color.Silver
Return

End Try

Try

Me.Close()

Catch ex As Exception

RichTextBox1.Clear()
Button3.BackColor = Color.Silver
RichTextBox1.Text = "It wasn't possible to close this application! Please try again."
Return

End Try

End Sub

Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles spObject.DataReceived

Button2.BackColor = Color.Silver

Me.BeginInvoke(New StringSubPointer(AddressOf Display), spObject.ReadLine)

End Sub

Private Sub Display(ByVal Buffer As String)

RichTextBox1.AppendText(Buffer)

End Sub

End Class

Best Regards.

Re: Sending Bytes Packet to Remote System

Dave Kreskowiak12-Nov-08 6:38

Re: Sending Bytes Packet to Remote System

12-Nov-08 6:38

There are 3 glaring possibilities. The first is you have to make asolutely sure your communication parameters are correct, like baud rate, data bits, stop bits, parity, ....

The second is that you're call to spObject.ReadLine will only work if the device sent back what .NET interprets as a Newline[^] sequence in the byte stream. If this sequence isn't there, then the call will throw a Timeout exception.

The third possibility is that you didn't send the command to the device in a manner, or format, the device expects. Is the byte sequence correct?? Is the command terminated correctly?? Was it sent with extra bytes appended to it that the device didn't expect (like CR and LF)??

This is going to be a difficult question to answer because YOU have the hardware, not us. We have nothing to test this against. It's going to take a bunch of research on the device and trial-and-error fiddling on your part to get this to work.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Rajesh Anuhya12-Nov-08 17:46

Rajesh Anuhya

12-Nov-08 17:46

Very good answer by Dave Kreskowiak

first check from the hyperterminal to check your sending protocal is correct,

after u got response then look through your code for bugs.

don't use the spobject.readline , this statement will not accept the extended ascii chart characters. use spobject.readbytes

Rajesh B --> A Poor Workman Blames His Tools <--

Trimming special characters in VB 6.0

indian14312-Nov-08 4:33

12-Nov-08 4:33

Hi,

I have a string in which I have to replace all occurances of special characters with null string or character. Trim(Char[]) function is trimming only start and end of the string but I need to Trim the complete string between also.

Can anybody please help me.

Thanks
Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

Jon_Boy12-Nov-08 6:07

Jon_Boy

12-Nov-08 6:07

Use replace instead of trim.

Dim line As String = "abc#$*xyz"
line = Replace(line, "#$*", "")

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

indian14312-Nov-08 6:12

12-Nov-08 6:12

Hi,

Good Idea but I one problem with this, the sequence of special characters is not known and wherever any special character appears that should be replaced with null string.

string may come like this and even in different way.
"asfgd%dfg&sdfd@#$sfdgfg&fdgfd*fgfdg$%$%$rtee&*were$^&^&dfds43636"

So any idea please will be a great helpfull.

Thanks a Lot,
Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

sph3rex12-Nov-08 6:35

12-Nov-08 6:35

You could think it a lil bit different ... just a thought

use System.Text.RegularExpressions.Regex with a negated class

something like "[^a-z0-9_]" where the group represents negated valid characters(meaning anything that is not there between those [] brackets will be matched) and use System.Text.RegularExpressions.Regex.Replace("your incoming string","string to replace the occurences of invalid chars");

indian14312-Nov-08 6:56

12-Nov-08 6:56

Hi,

Good Idear but can u please help me by giving a small code snippet if possible.

And can u please atleast hint me how to show the negation expression in a RegularExpression. That would help me a lot.

Thanks,
Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

sph3rex12-Nov-08 7:06

12-Nov-08 7:06

dim myString as string = "my incoming string"
Dim reg as new System.Text.RegularExpressions.Regex("[^a-z0-9_]", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
dim resultString as String = reg.replace(myString,"")

indian14312-Nov-08 7:36

12-Nov-08 7:36

Hi,

Thanks for the help but only one final question I may need to use the special character Space as I am going to use the string for Directory name, can u please give me idea how to mention spaces in regular expression.

Thanks,
Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

Dave Kreskowiak12-Nov-08 10:33

12-Nov-08 10:33

*> SMACK <* That's for writing his code for him. Now he's getting paid to turn in YOUR work.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

sph3rex12-Nov-08 10:57

12-Nov-08 10:57

Look at the bright side ... at least you won't get another regex question ... at least not today :P

Dave Kreskowiak12-Nov-08 6:26

12-Nov-08 6:26

Another RegEx would do this easily. All you have to do is match any character that is not acceptable and call the Replace method on the RegEx object. The match would probably be something like "\W" and the replacement string would be an empty string.

Google for "Expresso RegEx" and you'll come up with a very nice tool to help you with this.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Jon_Boy12-Nov-08 9:49

Jon_Boy

12-Nov-08 9:49

I think we are in standby mode for the next regex question today Smile | :)

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Thanks to all got it

indian14312-Nov-08 7:50

12-Nov-08 7:50

Hi,

Thanks a lot friends. I got it. It is completed.

Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

Re: Thanks to all got it

Dave Kreskowiak12-Nov-08 10:31

Pattern for only numericals

12-Nov-08 10:31

Yes, but is it tested completely?? Did you check all boundry conditions and possible inputs?? $Shucks | :-\$

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

indian14312-Nov-08 1:57

12-Nov-08 1:57

Hi,

Can anybody please check and clear any problem exists in the below code. My actual requirement is I get values as "900.09" and "90009", but I have return "90009" as numeric and "900.09" as non-numeric.
I am not getting the pattern or may be my testing senario is wrong please clear me this as I am new to VB 6.0.

With objRegExp
        .Pattern = "\d" '"[0-9]"
        .IgnoreCase = True
        .Global = True
    End With
      
    If iLen > 0 Then
         If (objRegExp.Test(sTemp) = True) Then
            IsNumericOnly = True
         End If
    End If

Thanks,

Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

Jon_Boy12-Nov-08 2:39

Jon_Boy

12-Nov-08 2:39

Quit spamming the board. You've already asked this question below.

If this vb6 code or .Net?

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

indian14312-Nov-08 3:39

12-Nov-08 3:39

Hi,

It is VB 6.0 code not .Net.

Thanks,
Aleem Mohammad.

Thanks & Regards,

Md. Abdul Aleem
NIIT technologies

Paul Conrad12-Nov-08 3:40

Paul Conrad

12-Nov-08 3:40

kissdznuts wrote:
this vb6 code or .Net?

He says he is new to vb6. I don't know whether to laugh or feel sorry for him.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham

Dave Kreskowiak12-Nov-08 3:27