1

Тема: Перший проект - послідовні повторні натискання Button

Підскажіть будь ласка, як правильно написати код, щоби при послідовних повторних натисках  Button виконувались різні дії. Наприклад:


Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'При першому натисканні Button виконувалось
TextBox2.Text = Val(Label1.Text) - 1

'При другому натисканні Button виконувалось
TextBox2.Text = Val(Label1.Text) - 13

'При наступному натисканні Button ....

End Sub

2 Востаннє редагувалося koala (28.05.2018 20:59:52)

Re: Перший проект - послідовні повторні натискання Button

Очевидно, вам треба якось запам'ятовувати стан. Як це робити краще - суттєво залежить від того, що, де, як і для чого ви робите; а ви цього не написали, хоча я й просив. Так що лишається лише найпростіший і найкривіший варіант - глобальна змінна.

Dim minuend = 1
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  'при першому проходженні minuend буде 1
  TextBox2.Text = Val(Label1.Text) - minuend 
  minuend = 13
  'а тепер - 13.
End Sub

Також раджу користуватися тегами code.

Подякували: viktor961

3

Re: Перший проект - послідовні повторні натискання Button

koala, дуже Вам дякую, за те що звернули увагу на моє повідомлення! однак очевидно, я не зовсім зрозуміло пояснив, що я хочу зробити. Зараз спробую. Є проект, у якому на екрані (формі) запускаються мячі, які привязані до таймера. При появі мяча на формі, мені потрібно щоб натискаючи одну кнопку, вінімався час натиску на кнопку від часу появи мяча. Визначалась таким чином різниця (або час реакції на мяч). Я вже досяг успіху в технічному офрмленні появи мячів. Однак є проблема, як запрограмувати Button, таким чином, щоб він кожен раз по новому розраховував різницю. Тобто, кожен новий натиск, виклав нову дію. Коди, які подані вище, працюють тільки з останнього рядка, тобто при натисканні кнопки завжди від поточного часу віднімається осатннє значення- 13. Ось і проблема - інша дія на інший Click однієї і тієї ж кнопки, як це технічно зробити.

4

Re: Перший проект - послідовні повторні натискання Button

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'При першому натисканні Button виконувалось
TextBox2.Text = Val(Label1.Text) - 1

'При другому натисканні Button виконувалось
TextBox2.Text = Val(Label1.Text) - 13

'При наступному натисканні Button ....

End Sub

5

Re: Перший проект - послідовні повторні натискання Button

Тобто вам треба не змінювати поведінку кнопки, а просто підставляти час останньої появи м'яча в одну й ту саму формулу? Так запам'ятовуйте десь (хоч би в глобальній змінній) час появи м'яча, а в кнопці віднімайте це значення від поточного.

Подякували: viktor961

6

Re: Перший проект - послідовні повторні натискання Button

koala, ось як це зробити я і не знаю. Здається рішення просте))) раз натиснув- від поточного часу відняло час появи малюнка, другий раз натиснув знову спрацювало))) коли є вище написаний код, воно віднімає тільки останнє)))) як закодувати у кнопці це все???)))

7

Re: Перший проект - послідовні повторні натискання Button

Я ж уже сказав, як - замінити фіксовані числа на час появи м'яча.

Подякували: viktor961

8

Re: Перший проект - послідовні повторні натискання Button

Хто зможе відредагувати фото, відео з камери вуличного спостереження?

9

Re: Перший проект - послідовні повторні натискання Button

igorpetrovich27 написав:

Хто зможе відредагувати фото, відео з камери вуличного спостереження?

Ви, якщо навчитеся читати документи в мережі. Наприклад, Правила цього форуму.