Добрый вечер!!!
Собственно:
Получаем нажатие двух клавиш (в кавычках их номера) с клиента на сервер (Пэйджап "33" и Пэйдждаун "34") в текстбокс.
Как сделать их учёт и сложение, т.е. чтобы каждое нажатие этих кнопок называлось единицей и прибавлялось к нему следующее.
Пример:
При однократном нажатии Пэйджап или Пэйдждаун выражение было равно "1" в тектбоксе, при повторном нажатии Пэйджап или Пэйдждаун, выражение преображается в "2" и т.п.
Кусок кода:
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datas As String
Dim i, x As Long
Text1.Text = x
Me.Winsock1.GetData datas
Me.Text2.Text = datas
If datas = 33 Then x = x + 1
If datas = 34 Then x = x + 1
End Sub
Но так не работает :( Подскажите, как осуществить...
