Page 2 of 2 FirstFirst 12
Results 41 to 49 of 49

Thread: Simple, but functional and VERY effective graph control

  1. #41

  2. #42
    New Member
    Join Date
    Sep 2010
    Location
    Batangas, Philippines
    Posts
    5

    Question 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

  3. #43

    Thread Starter
    Super Moderator Wokawidget's Avatar
    Join Date
    Nov 2001
    Location
    Headingly Occupation: Classified
    Posts
    9,632

    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

  4. #44
    Junior Member
    Join Date
    Dec 2010
    Posts
    16

    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.

  5. #45
    New Member
    Join Date
    Feb 2012
    Posts
    1

    Re: Version 2.0

    Quote Originally Posted by Wokawidget View Post
    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)

  6. #46
    New Member
    Join Date
    Jul 2012
    Posts
    1

    Re: Simple, but functional and VERY effective graph control

    need help, How to add text to graph ?

  7. #47
    New Member
    Join Date
    Nov 2012
    Posts
    1

    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.

  8. #48
    New Member
    Join Date
    Jun 2016
    Posts
    1

    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)

  9. #49
    Super Moderator si_the_geek's Avatar
    Join Date
    Jul 2002
    Location
    Bristol, UK
    Posts
    41,929

    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

Page 2 of 2 FirstFirst 12

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width