Simple, but functional and VERY effective graph control

[Wokawidget]

Np.
If you have any further questions then don't hesitate to post.

thanks.

woka

[cristey]

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

[Wokawidget]

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

[erupter]

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?

[RobertSteele]

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)

[id_ruben]

need help, How to add text to graph ?

[AlexNu]

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.