-
Sep 26th, 2010, 05:08 AM
#41
Re: Simple, but functional and VERY effective graph control
Np.
If you have any further questions then don't hesitate to post.
thanks.
woka
-
Sep 27th, 2010, 10:59 AM
#42
New Member
Re: Simple, but functional and VERY effective graph control
thanks, you're so cool.
uhm, hey, i got new question, I'm a little lost here in my code, I am about to separate the message I will receive from the GSM modem,My code is very simple but my prob is I don't know how to separate the next line. Here is my code:
Private Sub MSComm1_OnComm()
Static CEvent As String
Dim CChar As String * 1
Select Case MSComm1.CommEvent
Case comEvReceive
Do
CChar = MSComm1.Input
If Message_Store Then
Message_Buffer = Message_Buffer & CChar
End If
Select Case CChar
Case ">"
Greater_Sign = True
List1.AddItem CChar
Case vbLf
Case vbCr
If Len(CEvent) > 0 Then
Handle_Rec_Event CEvent
CEvent = ""
End If
Case Else
CEvent = CEvent + CChar
End Select
Loop While MSComm1.InBufferCount
End Select
End Sub
Public Function Parse_SMS() As Boolean
Dim StartPoint As Long
Dim EndPoint As Long
Dim Buffer1 As String
Dim Buffer2 As String
Buffer1 = Message_Buffer
StartPoint = InStr(1, Buffer1, "+CMGR:", vbTextCompare)
EndPoint = InStr(1, Buffer1, vbCrLf & "OK", vbTextCompare)
If StartPoint <> 0 And EndPoint > StartPoint Then
I = StartPoint
While I < EndPoint
Buffer2 = Buffer2 & Mid(Buffer1, I, 1)
I = I + 1
Wend
Parse_SMS = True
Message_Buffer = Buffer2
Exit Function
End If
Parse_SMS = False
End Function
Private Sub Read_Message()
If Parse_SMS Then
SMS_Break = Split(Message_Buffer, vbCrLf, , vbTextCompare)
SMS_Header = Split(SMS_Break(0), ",", , vbTextCompare)
SMS_TelNumber = Mid(Right(SMS_Header(1), 11), 1, 10)
SMS_ID = Mid(Right(SMS_Header(2), 11), 1, 10)
SMS_Date = Mid(Right(SMS_Header(3), 11), 2, 8)
SMS_Date_yy = Mid(Right(SMS_Header(3), 11), 2, 2)
SMS_Date_mm = Mid(Right(SMS_Header(3), 11), 5, 2)
SMS_Date_dd = Mid(Right(SMS_Header(3), 11), 8, 2)
SMS_Date = Mid(Right(SMS_Header(3), 11), 2, 8)
SMS_Date = Mid(Right(SMS_Header(3), 11), 2, 8)
SMS_Time = Mid(Right(SMS_Header(4), 12), 1, 8)
SMS_Time_hh = Mid(Right(SMS_Header(4), 12), 1, 2)
SMS_Time_mm = Mid(Right(SMS_Header(4), 12), 4, 2)
SMS_Time_ss = Mid(Right(SMS_Header(4), 12), 7, 2)
SMS_GMT = Mid(Right(SMS_Header(4), 12), 10, 2)
I'm not sure about this one.Ca you help me again please? thanks a lot!
Message_Buffer = ""
For I = 1 To UBound(SMS_Break(), 1)
Message_Buffer = Message_Buffer & SMS_Break(I)
Next I
SMS_Break2 = Split(Message_Buffer, vbCrLf, , vbTextCompare)
SMS_Header2 = Split(SMS_Break(0), ",", , vbTextCompare)
SMS_Temp1 = Mid(Right(SMS_Header2(1), 11), 1, 10)
SMS_Temp2 = Mid(Right(SMS_Header2(1), 11), 1, 10)
SMS_Temp3 = Mid(Right(SMS_Header2(1), 11), 1, 10)
SMS_Temp4 = Mid(Right(SMS_Header2(1), 11), 1, 10)
SMS_Message = Message_Buffer
lblErrors.Caption = "Decoding"
Else
lblErrors.Caption = "Unable to decode Message"
End If
End Sub
-
Sep 27th, 2010, 03:43 PM
#43
Re: Simple, but functional and VERY effective graph control
You may want ton post that into the VB6 forum section.
More people will be able to see it.
I have no idea what that code does as I have never dealt with modem messages...but others may have.
woka
-
Jan 2nd, 2011, 12:58 PM
#44
Junior Member
Re: Simple, but functional and VERY effective graph control
Hello.
I'm just looking for some kind of graph (better to say plot) control, but i'd like to stick with .net and newer.
Any chance of a control like this being available for new versions?
Last edited by erupter; Jan 2nd, 2011 at 01:02 PM.
-
Feb 14th, 2012, 05:50 PM
#45
New Member
Re: Version 2.0
Originally Posted by Wokawidget
OK. Here's Version 2.0 of the control.
It can now handle multiple datasets
This allows you to add even more functionality...check out the music equalizer demo
This demo show's you most of the styles and functionality you can do with this control, except the Loading and Saving of the graph.
I will write a form and add it into the demo to do this.
Wooooof
need some help in programing for a client. can you assist?
thanks
:O)
-
Jul 3rd, 2012, 03:20 AM
#46
New Member
Re: Simple, but functional and VERY effective graph control
need help, How to add text to graph ?
-
Nov 23rd, 2012, 11:07 AM
#47
New Member
Re: Simple, but functional and VERY effective graph control
First off, thank you Wokawidget for making a really neat, simple control.
Secondly, I'd like to ask it if ok to use this control (possibly modified somewhat) in a commercial project. The project is already existing and is a bespoke tool for operating scientific equipment, and would be an improvement on the current graphing methods we used. If you've got any more questions, feel free to come back with them - it should be possible to email me.
-
Jun 18th, 2016, 04:17 AM
#48
New Member
Re: Simple, but functional and VERY effective graph control
Hi dear Woka
I have a few question about this project
Can I help me??
please please please
send an e-mail to me, please
I am waiting for your mail
Thanks a lot
Last edited by si_the_geek; Jun 18th, 2016 at 04:44 AM.
Reason: removed email address to protect from spam (forum members can click your name to send an email)
-
Jun 18th, 2016, 04:43 AM
#49
Re: Simple, but functional and VERY effective graph control
Welcome to VBForums
I'm afraid Woka isn't active any more... but lots of people here could help with your questions (arguably better than Woka could, as he probably doesn't use VB6 any more).
Either post your questions as a reply here, or create a thread in our VB6 forum: http://www.vbforums.com/forumdisplay...-6-and-Earlier
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|