 |
Вітаю Вас, Гість · RSS |
 |
Практичні роботи по Visual Basic
| |
kom_adm |
Дата: Пт, 22.04.2011, 22:33 | Повідомлення № 1 |
Ветеран спілкування
Повідомлень: 3767
| Хто має власні розробки практичних робіт по Visual Basic.net прохання скинути посилання в цій темі, прикріпити архів до повідомлення або надіслати на informatics@ukr.net
[admin]Шановні форумчани!!! Повідомлення, які не відповідають темі або несуть некорисний зміст будуть видалятись без попередження!!!
|
|
| |
bgd |
Дата: Вт, 14.11.2017, 12:16 | Повідомлення № 16 |
Досвідчений вчитель
Повідомлень: 531
| Цитата Nazar_Pshyk (  ) Дякую за відповідь - а можете детальніше пояснити, що мається на увазі - "помирити", як це реалізувати? Ось посилання на Portable версію Office 2007 (працює без встановлення паралельно з будь-яким іншим офісом): Portable Office 2007
|
|
| |
Nazar_Pshyk |
Дата: Ср, 15.11.2017, 17:08 | Повідомлення № 17 |
Новий користувач
Повідомлень: 3
| gromko Привіт, щодо твого запитання - коли перевіряю макрос через Debug, виконання коду зупиняється на записі: wdReplaceAll = 2.Додано (15.11.2017, 17:08) --------------------------------------------- bgd Дякую за допомогу. Якщо не зможу виявити причини в самому коді, то скористаюся даною версією.
|
|
| |
gromko |
Дата: Пт, 15.12.2017, 11:47 | Повідомлення № 18 |
Лінуксоїд
Повідомлень: 3210
| Зробили на практичній у 8 класі гру "Піймай кнопку" - кожні півсекунди кнопка переміщується на нове місце, всього десяток рядків коду (GAMBAS)
Код Public Sub NewButton() Button1.X = Rnd(50, Fmain.width - 50) Button1.Y = Rnd(50, Fmain.Height - 50) Button1.visible = True End
Public Sub Button1_Click()
Button1.visible = False Timer1.Enabled = False Message("Піймав!") Timer1.Enabled = True End
Public Sub Timer1_Timer()
Timer1.Delay = 500 NewButton
End
|
|
| |
swetikccc |
Дата: Пт, 15.12.2017, 12:25 | Повідомлення № 19 |
Ветеран спілкування
Повідомлень: 4208
| Цитата gromko (  ) Зробили на практичній у 8 класі гру "Піймай кнопку" - кожні півсекунди кнопка переміщується на нове місце, всього десяток рядків коду (GAMBAS) Що дало тупе переписування коду? Зарано я думаю Чи пояснювали дітям методи?
Відредаговано: swetikccc - Пт, 15.12.2017, 13:14 |
|
| |
TYP |
Дата: Пт, 15.12.2017, 13:00 | Повідомлення № 20 |
Прописаний назавжди
Повідомлень: 472
| Цитата gromko (  ) Timer1.Enabled = True Давно вже не грався в VB. А чому рух кнопки не причепити як в Delphi на OnTimer. Чи завданням було використання власних процедур?
|
|
| |
gromko |
Дата: Пт, 15.12.2017, 13:53 | Повідомлення № 21 |
Лінуксоїд
Повідомлень: 3210
| Цитата swetikccc (  ) Що дало тупе переписування коду?Зарано я думаю Чи пояснювали дітям методи? Це показав (як "поставити кнопку у довільному місці) Button1.X = Rnd(50, Fmain.width - 50) Button1.Y = Rnd(50, Fmain.Height - 50) Все інше самі - знйли елемент керування Timer, тож прийшлося пояснити, як він працює.
Цитата TYP (  ) А чому рух кнопки не причепити як в Delphi на OnTimer. Чи завданням було використання власних процедур? Ви на 100% праві - NewButton там взагалі не потрібно(вони взяли готовій код з попередньої задачі) , треба було помістити в Timer1_Timer - про це я їм потім і сказав:
Код Public Sub Button1_Click()
Button1.visible = False Timer1.Enabled = False Message("Піймав!") Timer1.Enabled = True End
Public Sub Timer1_Timer()
Timer1.Delay = 500 Button1.X = Rnd(50, Fmain.width - 50) Button1.Y = Rnd(50, Fmain.Height - 50) Button1.visible = True
End
|
|
| |
© Форум інформатиків України, 2007-2023.  |