Как создать подобную прогу так чтобы при вводе разных чисел, изменялся размер зеленой полосы

@СержПф · Регистрация: 30.03.2010

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

@gaw · 30.03.2010, 20:36

а максимальное значение вводимых чисел известно ?

@аналитика · 30.03.2010, 21:00

.......

@СержПф · 31.03.2010, 14:51 **[ТС]**

Спасибо огромнейшее!!!!!!!!!

Добавлено через 17 часов 45 минут
Чик...а как дописать чтобы она ругалась правильно когда будешь вводить БУКВУ или ОТРИЦАТЕЛЬНОЕ ЧИСЛО??????

@аналитика · 31.03.2010, 15:28

Visual Basic
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
Option Explicit
Dim d
 
Private Sub Form_Load()
   d = Frame1.Width - 15
End Sub
 
 
Private Sub Command1_Click()
   Dim i As Byte, j As Byte, max
   
   For i = 0 To 3
      If Not good(Text1(i)) Then Exit Sub
      If Val(Text1(i).Text) > max Then max = Val(Text1(i).Text)
   Next i
   
   For i = 0 To 3
      Text2(i).Width = Val(Text1(i).Text) / max * d
   Next i
End Sub
 
Function good(tb As TextBox) As Boolean
   Dim i As Byte
   
   good = True
   
   If Val(tb.Text) < 0 Then MsgBox ">=0!!!": good = False
   If Not IsNumeric(tb.Text) Then MsgBox "ààà!!!": good = False
   
   If Not good Then
      tb.SetFocus
      For i = 0 To 3
         Text2(i).Width = 0
      Next i
   End If
End Function

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@СержПф 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 9

	Как создать подобную прогу так чтобы при вводе разных чисел, изменялся размер зеленой полосы 30.03.2010, 19:55. Показов 971. Ответов 4 Метки нет (Все метки) Как создать подобную прогу так чтобы при вводе разных чисел, изменялся размер зеленой полосы Миниатюры 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	30.03.2010, 20:36
	а максимальное значение вводимых чисел известно ? 1

@СержПф 0 / 0 / 0 Регистрация: 30.03.2010 Сообщений: 9
	31.03.2010, 14:51 [ТС]
	Спасибо огромнейшее!!!!!!!!! Добавлено через 17 часов 45 минут Чик...а как дописать чтобы она ругалась правильно когда будешь вводить БУКВУ или ОТРИЦАТЕЛЬНОЕ ЧИСЛО?????? 0