Осциллограф на Visual Basic

[neox-neox]

Здравствуйте!!! Вопрос к знатокам visual basic. Я в этом языке совсем еще "зеленый"так что прошу прошу помощи у знатоков. Хочу написать тут прогу осциллографа как из этого ролика

Видео:

могу сказать что с comport-ом уже разобрался и данные поступающие с атмеги запросто считываю. Использую "CHART"-график для визуализации данных, только вот не могу в него числа с comport-а никак вложить !!! код следующий

Public Class Form1

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Try
            SerialPort1.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

     
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        
        Chart1.Series("Series1").Points.Add(SerialPort1.ReadExisting()) ' ПРОБЛЕММА ЗДЕСЬ
End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        SerialPort1.PortName = ComboBox1.Text
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        SerialPort1.BaudRate = ComboBox2.Text
    End Sub
End Class 

ПОМОГИТЕ ПЛИЗ СОВЕТОМ КАК ПРАВИЛЬНО СДЕЛАТЬ !
P.S пишу в visual studio 2010

__________________
- Слово на "б" знаешь ? - ??? - "Береги себя"...

[Yurkin2007]

Точки в график Chart добавляются в виде числа, а функция чтения com-порта выдаёт данные ввиде строки. То есть надо сначала преобразовать выход чтения порта в число.
Вот как это сделано у автора ролика.

Dim data As String
        data = SerialPort1.ReadLine()
Dim y As Integer = CType(data, Integer)
        pointIndex += 1
        Chart1.Series(0).Points.AddXY(pointIndex, y)

[neox-neox]

Вот как это сделано у автора ролика.

большое спасибо за помощь!!! все оказалось намного проще в vb написал так:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
         
        Static Dim x As Decimal = 0
        Static Dim y As Decimal = 0
        x = x + 1
        Chart1.Series("Series1").Points.AddXY(x, SerialPort1.ReadExisting())
End Sub

а в atmegu так:

printf("%d\n\r",read_adc(0));

(для codevision) и все арбайтен гуд!!!