ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите сделать отсчёт кликов с удалённой тачки!
9 сообщений из 9, страница 1 из 1
Помогите сделать отсчёт кликов с удалённой тачки!
    #36688882
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Добрый вечер!!!
Собственно:
Получаем нажатие двух клавиш (в кавычках их номера) с клиента на сервер (Пэйджап "33" и Пэйдждаун "34") в текстбокс.
Как сделать их учёт и сложение, т.е. чтобы каждое нажатие этих кнопок называлось единицей и прибавлялось к нему следующее.
Пример:
При однократном нажатии Пэйджап или Пэйдждаун выражение было равно "1" в тектбоксе, при повторном нажатии Пэйджап или Пэйдждаун, выражение преображается в "2" и т.п.

Кусок кода:
Код: plaintext
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

Но так не работает :( Подскажите, как осуществить...
...
Рейтинг: 0 / 0
16.06.2010, 00:12
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689179
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А что не работает-то (за исключением того, что x не кладется обратно в TexBox)?
...
Рейтинг: 0 / 0
16.06.2010, 09:35
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689187
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
даже так:
Код: plaintext
1.
Dim i, x As Long
Text1.Text = x
в чем смысл вот этого?
...
Рейтинг: 0 / 0
16.06.2010, 09:38
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689211
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Не считает мне разы :( голову уже сломал...
Смысла нижнего выражения нет, это остатки мыслей... Help me :(
...
Рейтинг: 0 / 0
16.06.2010, 09:49
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689241
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А где оно должно считать?
Ну прибавляется к нулю единичка, получается 1
На этом программа завершается.
...
Рейтинг: 0 / 0
16.06.2010, 09:59
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689292
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Подскажите, пожалуйста, как сделать так, чтобы приплюсовывались дальше единички... :(
Очень давно не юзал ВБ... очень стыдно...
...
Рейтинг: 0 / 0
16.06.2010, 10:22
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689303
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
-=GeX=-Подскажите, пожалуйста, как сделать так, чтобы приплюсовывались дальше единички... :(
Очень давно не юзал ВБ... очень стыдно...

Да тут дело не в ВБ.
x = x + 1 - это на любом языке должно быть понятно.

Пишите (в подробности преобразования типов вдаваться не будем)
Код: plaintext
Text1.Text = Text1.Text +  1
и не рассказывайте сказки про "давно не юзал"
...
Рейтинг: 0 / 0
16.06.2010, 10:26
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36689382
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
-=GeX=- ,

Вынесите переменные (i,x) из процедуры и считайте нажатия, вот мой пример, для себя думаю прикрутите.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim i, x

Private Sub Form_Load()
i =  0 
x =  0 

End Sub

Private Sub Timer1_Timer()

If (GetAsyncKeyState(vbKeyPageUp)) Then
x = x +  1 
Text1.Text = x
End If

If (GetAsyncKeyState(vbKeyPageDown)) Then
i = i +  1 
Text2.Text = i
End If

End Sub
...
Рейтинг: 0 / 0
16.06.2010, 10:51
| Ответить | Цитировать | Написать  
Помогите сделать отсчёт кликов с удалённой тачки!
    #36691113
Фотография -=GeX=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=GeX=-
Участник
Сэр kiv-1980 , СПАСИБО БОЛЬШОЕ!!! :) Снимаю шляпу перед Вами!
Действительно забыл порядок ввода переменных, из-за этого мозг и сломал и побрёл в лес...
Удачи Вам и успехов во всём!
...
Рейтинг: 0 / 0
16.06.2010, 20:42
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите сделать отсчёт кликов с удалённой тачки!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]