VBA Golf

@KoGG · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

В разделе VB Mikle Quits создал тему VB Golf
http://www.cyberforum.ru/visua... 20563.html
предлагаю расширить это соревнование на раздел VBA.
Прилагаю две версии игры Питон адаптированные по VBA: на форме с использованием графических API функций и просто в ячейках листа Excel.

P.S. Собственно Golf для затравки в исходной теме содержит ошибки и явно не тестировался.

@Апострофф · 20.03.2026, 14:54

Сообщение от KoGG

Visual Basic
1
2
3
4
5
6
Private Sub MyWait2(Sec!)
    Dim T!
    T = Timer + Sec
    While T > Timer
    Wend
End Sub

- скользкая процедура. В полночь не зависнет?

@KoGG · 20.03.2026, 16:12 **[ТС]**

Зависнет при вызове за 0,2 сек по полуночи.

@Mikle Quits · 20.03.2026, 18:52

А ещё эта процедура будет один поток на 100% нагружать. Не лучше Sleep() задекларировать?

@KoGG · 23.03.2026, 09:59 **[ТС]**

Лучше.
Возвращаемся опять к API.
С учетом того, что вызов MyWait2 я делал с задержкой с секундах, а не миллисекундах:

Visual Basic
1
2
3
4
5
6
7
8
9
#If VBA7 Then
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
'...
Private Sub MyWait2(Sec!)
    Sleep Clng(Sec * 1000)
End Sub

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

@KoGG 5730 / 1633 / 419 Регистрация: 23.12.2010 Сообщений: 2,453 Записей в блоге: 1
	20.03.2026, 16:12 [ТС]
	Зависнет при вызове за 0,2 сек по полуночи. 0

@Mikle Quits 782 / 300 / 17 Регистрация: 21.01.2023 Сообщений: 520
	20.03.2026, 18:52
	А ещё эта процедура будет один поток на 100% нагружать. Не лучше `Sleep()` задекларировать? 0