Общие вопросы и приёмы эффективного программирования на BASIC

@Замабувараев · Регистрация: 18.12.2014

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

Вот как создать кнопку:

PureBasic
1
2
3
4
5
6
7
8
9
10
Dim hwndButton As HWND = CreateWindow( _
    WC_BUTTON,
    "Текст кнопки", _
    WS_CHILD Or BS_BITMAP Or BS_PUSHBUTTON Or WS_CLIPSIBLINGS, _
    10, 10, 100, 50, _
    hwndMainForm, _
    Cast(HMENU, 1000), _
    hInst, _
    NULL _
)

@Pro_grammer · 17.04.2021, 14:15

Сообщение от The trick

У него нет валидации данных, вместо этого показывается к примеру ошибка нулевого коэффициента а.

Не вместо, а потому, что A не может быть 0 по определению.
Это любой школьник знает.
А вот В и C вполне себе могут быть = 0, потому там и нет такого сообщения.

Сообщение от The trick

ты ничего полезного не сказал.

Я нашёл и указал на критическую ошибку в программе. А ты даже не понял, в чем она, эта ошибка до сих пор.
От тебя пользы намного больше

@The trick · 17.04.2021, 14:21

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

Не вместо, а потому, что A не может быть 0 по определению.

У тебя видимо проблема с логикой. Нет валидации данных -> из-за этого нулевой коэффициент -> ошибка нулевого коэффициента там где должна быть ошибка валидации данных. Я понимаю что это трудно для тебя, но постарайся осмыслить это.

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

А ты даже не понял, в чем она, эта ошибка до сих пор.

Я понял в чем его ошибка и об этом написал еще вначале и написал как исправить, но ты видимо не читаешь что тебе пишут - постоянно о чем-то своем пишешь.

@Pro_grammer · 17.04.2021, 14:37

Сообщение от The trick

Я понял в чем его ошибка и об этом написал еще вначале

Ты об этом:

Сообщение от The trick

Единственная проблема у него это неверное сообщение об ошибке.

Реально, ты считаешь это ЕДИНСТВЕННОЙ проблемой (даже не ошибкой!), что он неверно написал текст сообщения

А то, что программа считает неправильно из за ошибки с валидацией данных, это нормально для тебя?

@The trick · 17.04.2021, 15:05

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

Реально, ты считаешь это ЕДИНСТВЕННОЙ проблемой (даже не ошибкой!), что он неверно написал текст сообщения
А то, что программа считает неправильно из за ошибки с валидацией данных, это нормально для тебя?

Я считаю если программа будет выдавать сообщение что введены некорректные данные вместо зануления - это нормально.

@Замабувараев · 18.04.2021, 23:30 **[ТС]**

Вот вам релиз со всплывающими подсказками. Работать будет на XP и моложе.

@Замабувараев · 19.04.2021, 00:47 **[ТС]**

The trick, А есть ли какой‐нибудь способ указать в ресурсах элементы управления, которые должны быть внутри рамки (BS_GROUPBOX) чтобы они были дочерними для рамки, а не для окна?

@m-ch · 19.04.2021, 08:10

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

Не вместо, а потому, что A не может быть 0 по определению.
Это любой школьник знает.

Почему Вы считаете, что A не может быть равно нулю?
При A = 0 квадратное уравнение превращается в линейное, оно может иметь: один корень, множество корней, не иметь корней
Почему бы не сделать программу которая учитывает, что A может быть равным нулю
Например, на сайте: a c m p . r u есть задача 0411

Кликните здесь для просмотра всего текста

Напишите программу, которая сможет решить уравнение
ax² + bx + c = 0
при заданных коэффициентах a, b и c.

Входные данные
Единственная строка входного файла INPUT.TXT содержит три целых числа a, b и c, каждое из которых не превосходит по модулю 30000. Числа разделяются пробелами.

Выходные данные
На первой строке выходного файла OUTPUT.TXT выведите число различных действительных корней заданного уравнения. Затем выведите сами корни по одному на строке с ошибкой, не превосходящей 10-4. Если для заданных коэффициентов корней бесконечно много, на единственной строке выходного файла выведите -1.

которая как раз на решение квадратного уравнения, там допускается нулевое значение коэффициента A
Мое решение на VB6 в 211 байт (решал 9 лет назад) было в топе 20 решений (сейчас VB6 сайт не принимает, в лидерах Python и Pascal):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Main()
    Open "input.txt" For Input As 1
    Open "output.txt" For Output As 2
    Input #1, a, b, c
    d = b ^ 2 - 4 * a * c
    If (a Or b Or c) = 0 Then
        ? #2, -1
    ElseIf (a Or b) = 0 Or d < 0 Then
        ? #2, 0
    ElseIf a = 0 Then
        ? #2, 1, -c / b
    Else
        q = (d ^ 0.5 - b) / 2 / a
        ? #2, 1 - (d > 0), q , -q - b / a 
    End If
End Sub

Решение без объявления переменных и прочих упущений для сокращения кода

Может предусмотреть в решении, что любой коэффициент в т.ч. и A может быть равен нулю
Уравнение может иметь: два корня, один корень, не иметь корней, иметь множество корней

@Замабувараев · 19.04.2021, 08:15 **[ТС]**

Сообщение от m-ch

При A = 0 квадратное уравнение превращается в линейное

Вот потому и не может быть нулю. Мы не линейные уравнения решаем, а квадратные.

@Pro_grammer · 19.04.2021, 08:49

Сообщение от m-ch

Может предусмотреть в решении, что любой коэффициент в т.ч. и A может быть равен нулю

Тут ~~хозяин~~ программист барин. В данном контексте это не предмет обсуждения. Претензии были конкретно по обработке ошибок ввода исходной информации, что приводили к неверным результатам.
Что и было успешно решено в конечном итоге

@The trick · 19.04.2021, 08:55

Сообщение от Замабувараев

The trick, А есть ли какой‐нибудь способ указать в ресурсах элементы управления, которые должны быть внутри рамки (BS_GROUPBOX) чтобы они были дочерними для рамки, а не для окна?

Насколько мне известно, нет. Можно сделать дочерний диалог, либо просто сменить родителя, но это придется делать в коде. Кстати можно еще уменьшить размер, отказавшись от ресурсов и загружая диалог из секции кода. Т.е. убрать секцию ресурсов вообще, объединить секции данных и кода.

@Замабувараев · 19.04.2021, 10:40 **[ТС]**

Сообщение от The trick

Можно сделать дочерний диалог, либо просто сменить родителя, но это придется делать в коде.

Я просто всегда думал, что рамки — это контейнеры для дочерних окон, где рамка — родительское окно. Но во всех примерах, что обнаруживал, просто предлагают дочерние окна располагать поверх рамки.

Ещё руководство от корпорации Микрософт рекомендует однострочным окнам класса EDIT задавать высоту 14 DLU. Я так и сделал, но сопоставив размеры, оказывается, что их текстовое поле чуть меньше, значит, нужно ставить 13 DLU. И отступ между верхушкой STATIC и верхушкой связанного EDIT тоже рекомендуют ставить 3 DLU, но тогда они не выравниваются по базовой линии текста, значит нужно делать 2 DLU.

Добавлено через 23 минуты
Не нашёл всплывающих подсказок в PureBasic. Ну как же так?

@Pro_grammer · 19.04.2021, 10:59

Сообщение от Замабувараев

Не нашёл всплывающих подсказок в PureBasic.

Синтаксис

GadgetToolTip(#Gadget, Text$)
Описание

Привязывает указанный Текст к данному Гаджету, в качестве всплывающей подсказки. Текст всплывающей подсказки - это текст, который отображается, когда курсор мыши находится над гаджетом в течение небольшого промежутка времени (обычно это желтый плавающий блок).

@Замабувараев · 19.04.2021, 11:19 **[ТС]**

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

GadgetToolTip(#Gadget, Text$)

Почему‐то не перечислено в списке с картинками, досадная оплошность встроенной справки.

Почти то, что мне было нужно. К сожалению есть недостатки.
Мне нужно было:
Чтобы всплывала без наведении мыши.
Чтобы возвращала фокус обратно в текстовое поле, если данные не прошли валидацию.
Чтобы работала как воздушный шар с заголовком, значком и признаком критичности.

Добавлено через 8 минут

Сообщение от The trick

агружая диалог из секции кода. Т.е. убрать секцию ресурсов вообще, объединить секции данных и кода.

Это придётся делать какие‐то скрипты для линковщика, у меня так и не получилось.

@Pro_grammer · 19.04.2021, 11:31

Сообщение от Замабувараев

К сожалению есть недостатки.

Это кросплатформенная версия. Ваши хотелки видимо где то не поддерживаются в других системах.
Всегда если нужна Винда, то есть API.
Вот вам "рыба", добавите что надо по образу и подобию:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
  ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP|#TTS_NOPREFIX|#TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0)
  ;SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  ;SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  Balloon\hWnd=GadgetID(Gadget)
  Balloon\uId=GadgetID(Gadget)
  Balloon\lpszText=@Text$
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE,Icon,@Title$)
  EndIf
EndProcedure
 
If OpenWindow(0,0,0,500,250,"Пример",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ButtonGadget(1,10,10,100,20,"Кнопка",0)
 
  BalloonTip(WindowID(0),1,"ToolTip выглядит хорошо"+Chr(13)+"с переносом строки","Со значком и заголовке",1)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Добавлено через 7 минут
Вот вам ещё до кучи, всплывает по событию, в любом месте, по координатам:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
; Автор: alter Mann
 
EnableExplicit
 
Define EventID
Define TT
 
#TTF_ABSOLUTE = $0080
#TTF_TRACK = $0020
#TTS_CLOSE = $80
 
Procedure MAKELONG(low, high)
  ProcedureReturn low | (high<<16)
EndProcedure
 
Procedure BalloonInfo(WindowID, Text$ , Title$, Icon, PosX, PosY, MaxWidth)
  Protected ToolTip
  Protected Balloon.TOOLINFO
 
  ToolTip=CreateWindowEx_(#WS_EX_TOPMOST,#TOOLTIPS_CLASS,#Null,#WS_POPUP | #TTS_NOPREFIX | #TTS_ALWAYSTIP | #TTS_BALLOON | #TTS_CLOSE,0,0,0,0,WindowID,0,GetModuleHandle_(0),0)
  SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,MaxWidth)
  SendMessage_(ToolTip, #TTM_TRACKPOSITION, 0, MAKELONG(PosX,PosY))
 
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
  EndIf
 
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND  | #TTF_ABSOLUTE | #TTF_TRACK
  Balloon\hwnd=WindowID
  Balloon\uId=WindowID
  Balloon\lpszText=@Text$
  Balloon\hinst = GetModuleHandle_(0)
 
  GetWindowRect_(WindowID,@Balloon\rect)
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, @Balloon)
  SendMessage_(ToolTip, #TTM_TRACKACTIVATE, 1, @Balloon)
 
  ProcedureReturn ToolTip
EndProcedure
 
EnableExplicit
 
Define EventID
 
If OpenWindow(0, 0, 0, 300, 200, "Пример", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ButtonGadget(1, 10, 10, 150, 20, "Открыть подсказку")
  ButtonGadget(2, 10, 40, 150, 20, "Закрыть подсказку")
 
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 1
          If TT
            DestroyWindow_(TT)
          EndIf
          TT = BalloonInfo(WindowID(0),"Текст подсказки","Заголовок",#TOOLTIP_WARNING_ICON,300,300,150)
        Case 2
          DestroyWindow_(tt)
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

@Замабувараев · 19.04.2021, 11:33 **[ТС]**

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

где то не поддерживаются в других системах

Сомневаюсь, чтобы в каком‐нибудь Mac или Linux не поддерживались подсказки в виде воздушных шаров с заголовком и значком.

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

"ToolTips_Class32"

Вот как раз эта всплывает только тогда, когда мышь наведена. Это не то, что нужно.
То, что нужно — это отправка сообщения EM_SHOWBALLOONTIP текстовому полю, только это работает с comctl32.dll шестой версии (то есть в икспи и моложе).

@Pro_grammer · 19.04.2021, 11:39

Сообщение от Замабувараев

Это не то, что нужно.

А второй код?

@Замабувараев · 19.04.2021, 11:43 **[ТС]**

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

А второй код?

Посмотрю.

@locm · 19.04.2021, 12:31

Сообщение от Замабувараев

Почему‐то не перечислено в списке с картинками

Потому что это не гаджет (контрол). Смотрите функции раздела Gadget, а не на картинки.

Сообщение от Замабувараев

Чтобы работала как воздушный шар с заголовком, значком и признаком критичности.

Знаете что Linux и MacOS X нет такой подсказки? Библиотека кроссплатформенная и содержит функции доступные на всех платформах.

Сообщение от Замабувараев

Сомневаюсь, чтобы в каком‐нибудь Mac или Linux не поддерживались подсказки в виде воздушных шаров с заголовком и значком.

Приведите примеры с картинками таких подсказок в Linux и MacOS X.

Сообщение от Замабувараев

Это придётся делать какие‐то скрипты для линковщика, у меня так и не получилось.

Это не сложно.

@The trick · 19.04.2021, 12:40

Сообщение от Замабувараев

Я просто всегда думал, что рамки — это контейнеры для дочерних окон, где рамка — родительское окно.

Любое окно можно сделать контейнером, просто формат ресурсов не позволяет задать иерархию для контролов.

Сообщение от Замабувараев

Ещё руководство от корпорации Микрософт рекомендует однострочным окнам класса EDIT задавать высоту 14 DLU. Я так и сделал, но сопоставив размеры, оказывается, что их текстовое поле чуть меньше, значит, нужно ставить 13 DLU. И отступ между верхушкой STATIC и верхушкой связанного EDIT тоже рекомендуют ставить 3 DLU, но тогда они не выравниваются по базовой линии текста, значит нужно делать 2 DLU.

Их разрабы еще те дизайнеры:

Общие вопросы и приёмы эффективного программирования на BASIC

Сообщение от Замабувараев

Это придётся делать какие‐то скрипты для линковщика, у меня так и не получилось.

Откажись от ресурсов вообще. Объединение - merge. Вот пример на C.

@Замабувараев · 19.04.2021, 13:09 **[ТС]**

Code
1
/merge:.rsrc=.code

Не сработает: Шиндошс требует, чтобы секция с ресурсами называлась .rsrc.

Code
1
/merge:.bss=.code

Сработает, только если секция с кодом будет для записи.

Добавлено через 3 минуты

Сообщение от The trick

Откажись от ресурсов вообще

Тогда проводник не сможет показывать значок и версию в описании. А ещё манифест для высокого DPI.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	19.04.2021, 00:47 [ТС]
	The trick, А есть ли какой‐нибудь способ указать в ресурсах элементы управления, которые должны быть внутри рамки (BS_GROUPBOX) чтобы они были дочерними для рамки, а не для окна? 0