Tenhle kód je dost děsivej :) nicméně pokud potřebujete sečíst pole nějakých hodnot, je několik možností. rx(512) as string by bylo lepší rovnou definovat pro typ čísel jaký v něm ukládáte (int, double, single, byte ....) Při vkládání do pole používat: rx(input) = convert.to????(SerialPort1.ReadExisting) nebo nějakou sofistikovanější konverzi (např: TryParse) Nicméně s přetypováním na Int32 1) pomocí cyklu
Dim sum As Integer
For i = 0 To rx.Length - 1
sum += Convert.ToInt32(rx(i))
Next
2) pomocí dotazu
Dim sum as integer = rx.ToList().Sum(Function(c) Convert.ToInt32(c))
výraz:
If SerialPort1.IsOpen = False Then
'se nepoužívá, místo toho
If Not SerialPort1.IsOpen Then
máte tam spoustu nepoužitých deklarací: com1, RS232_sum, i, j, temporary, timer1
|