Simple, but functional and VERY effective graph control

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

thanks.

woka

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

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

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?

Quote:

---

Originally Posted by Wokawidget

OK. Here's Version 2.0 of the control.
It can now handle multiple datasets :D

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)

need help, How to add text to graph ?

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.

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

Welcome to VBForums :wave:

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