Присвоение переменой х значения из ТектБокса.

[TiG]

Мне нужно нецелое число из ТекстБокса присвоить переменной Dim x As String. Выдает ошибку(( Подскажите, где я торможу.

[GSerg]

Скажи сне, что ты делаешь, и я скажу, где ты тормозишь...

[TiG]

Ну в общем то мне надо текстовую информацию преобразовать в числовую.

Dim x As Srting

sub ... timer1 ...

x = text1.text

end sub

[Sedge]

А какая ошибка-то?

[Konst_One]

Код: Выделить всё

dim x as long

x=clng(0 & Text1.Text)


[Scuder]

Код: Выделить всё

dim x as long

x=clng(0 & Text1.Text)


Double - CDbl()

Только действительно непонятно, где там ошибка возникает..

[TiG]

Сенкс )) Помогло.

Далее сталкнулся с другой трудностью(((

Рассказываю задачу:

На com порт поступают данные.
mscoom контролом данные выплевываю в текстбокс и фильтрую в другой текст бокс, число меняющееся с частотой 10 раз в секунду. Число от 0.00 до 360.00 (градусы). Два таймера с частотой 50 мс поочереди запускаются и считывают имеющееся число и выплевывают его в другие два текстбокса)) Вычеляется разница между первым текстбоксом и вторым и выплевыется в конечный текстбокс (скорость поворота корабля)))) Получается число отличное от числа, которое прописано в эмуляторе посылающем раз в 100 мс на компорт, как приращение х+10 например. т.е. 10 неравно 10.

Причина думаю в том что уходит лишнее время на громоздкий код, как можно решить эту задачу по другому?

[TiG]

вот код этот гениальный кстати )))

Dim x As Single
Dim xx As Single
Dim dxx As Single
Dim g As Single



Private Sub Form_Load()
MSComm1.PortOpen = True
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If x < 360 Then
x = x + 1.73
Else: x = 0
End If
MSComm1.Output = "hgfhgfhg jhfgf jhghjg6576 87687 yyg$HCHDT," & x & ",T*hh<CR><LF>ghfhgfjhgf jkhlkjhjh jkhkjh 7868767"
Text1.Text = MSComm1.Input
p1 = InStr(1, Text1.Text, "T,", vbTextCompare)
If p1 > 0 Then
p2 = InStr(p1, Text1.Text, ",T", vbTextCompare)
End If
If p2 - p1 > 0 Then
Text2.Text = Mid$(Text1.Text, p1 + 2, p2 - p1 - 2)
Else
Text2.Text = ""
End If
End Sub

Private Sub Timer2_Timer()
Text4.Text = Text2.Text
xx = CLng(0 & Text4.Text)
Timer2.Enabled = False
Timer3.Enabled = True

End Sub

Private Sub Timer3_Timer()
Text5.Text = Text2.Text
dxx = CLng(0 & Text5.Text)
g = dxx - xx
Text3.Text = g
Timer3.Enabled = False
Timer2.Enabled = True

End Sub

[TiG]

Нашел ответ на свой вопросище)))
Дело было в округлении)) CLng это рулез, но мне то число с сотыми были нужны, поэтому СStr рульнее))) но се равно сенк за подсказку.

[Konst_One]

CSng - single