С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32

Вывод через MSFlexGrid данных о маршруте

03.05.2011, 20:08. Показов 1893. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите составить алгоритм.
Вот задание:
Ввести: номер маршрута, тип транспорта, количество мест, количество
проданных билетов и стоимость одной путевки. Определить наличие
свободных мест, их количество и потери в рублях. При отсутствии свободных
мест вывести сообщение. Вывод осуществить в виде таблицы.

На поле имеется TextBox - 5 штук, 1 CommandButton и 1 MSFlexGrid. Ну и метки различные.
Вот что я смог написать:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command2_Click()
Dim s As Single, f As Single, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
a = InputBox("Введите стоимость одной путевки")
Text1 = Str(a)
b = InputBox("Введите номер маршрута")
Text2 = Str(b)
c = InputBox("Введите количество мест")
Text3 = Str(c)
d = InputBox("Введите количество проданных билетов")
Text4 = Str(d)
e = InputBox("Введите стоимость одного билета")
Text5 = Str(e)
If c - d > 0 Then s = c - d
f = c * e - c * d
Нужно дописать алгоритм и исправить ошибки из уже написанного.
Не знаю как сделать, что бы в Text2 можно было вписать текст, поскольку оператором InputBox только числа вписываются.
Помогите пожалуйста, буду очень благодарен!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
03.05.2011, 20:08
Ответы с готовыми решениями:

Вывод на печать MSFlexGrid
Народ подскажите как напечатать MSFlexGrid. Исодники... OCX... библиотеки... всё что угодно. Спасибо :evil:

MSFlexGrid: вывод на принтер.
Решалась ли кем задача вывода содержимого таблицы MSFlexGrid на принтер? Буду очень признателен.

Вывод таблицы из бд MySQL через php в браузер, с возможностью вноса и изменения данных прямо через ячейки
Всем здравствуйте, в общем, такая вот проблема: Есть код: <!doctype html> <html> <head> <meta...

6
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
03.05.2011, 21:47
Цитата Сообщение от epmak88 Посмотреть сообщение
Вот задание:
ты уверен , что это все задание (а не его кусок)
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.05.2011, 21:51
поскольку оператором InputBox только числа вписываются.
оператором вводятся данные, которые ты объявил:
b As Integer вот и преобразуются в целое число
Объяви как строку или даже без указания типа(будет вариант)
0
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
03.05.2011, 21:58  [ТС]
gaw, да, это всё задание.
Alex77755, а как объявить как строку? Можешь код пожалуйста написать.
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.05.2011, 22:02
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

As String
1
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 32
03.05.2011, 22:46  [ТС]
Спасибо!
С этим моментом разобрался, ещё кто помог бы остальное доделать.

Добавлено через 39 минут
Всё, вывести решение в таблицу MSFlexGrid вроде бы получилось.
Только вот ещё несколько вопросов есть, скажите пожалуйста, чем отличается As Single от As Integer.
И как в MSFlexGrid увеличить ячейки, в которых ответ выводится, а то у меня не помещаются в них данные)
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
03.05.2011, 22:53
В MSFlexGrid увеличивать надо программно
.ColWidth(C) = 400 'ширина столбцов
А за типы данных неужели мы должны за тебя заглядывать в типы данных и тебе рассказывать ?
Самому влом?

Добавлено через 2 минуты
И больше таких вопросов не задавай - это всё есть в справке
Byte (байт) 1 байт От 0 до 255.

Boolean (логический) 2 байт True или False.

Integer (целое) 2 байт От -32*768 до 32*767.

Long
(длинное целое) 4 байт От -2*147*483*648 до 2*147*483*647.

Single
(с плавающей точкой обычной точности) 4 байт От -3,402823E38 до -1,401298E-45 для отрицательных значений;
от 1,401298E-45 до 3,402823E38 для положительных значений.

Double
(с плавающей точкой двойной точности) 8 байт От -1,79769313486232E308 до
-4,94065645841247E-324 для отрицательных значений;
от 4,94065645841247E-324 до
1,79769313486232E308 для положительных значений.

Currency
(денежный) 8 байт От -922*337*203*685*477,5808 до
922*337*203*685*477,5807.

Decimal
(масштабируемое целое) 14 байт +/-79*228*162*514*264*337*593*543*950*335 без дробной части;
+/-7,9228162514264337593543950335 с 28 знаками справа от запятой; минимальное ненулевое значение имеет вид
+/-0,0000000000000000000000000001.

Date (даты и время) 8 байт От 1 января 100*г. до 31*декабря*9999*г.

Object (объект) 4 байт Любой указатель объекта.

String
(строка переменной длины) 10 байт + длина строки От 0 до приблизительно 2 миллиардов.

String
(строка постоянной длины) Длина строки От 1 до приблизительно 65*400.

Variant
(числовые подтипы) 16 байт Любое числовое значение вплоть до границ диапазона для типа Double.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.05.2011, 22:53
Помогаю со студенческими работами здесь

Запрос к базе данных через форму и вывод данных на страничке
Всем привет. Очень нужна ваша помощь, вы моя последняя надежда. У меня стоит одна форма и ввожу имя человека который проходит тест, потом...

Вывод данных через ajax с типом данных JSON
Если я из обработчика пишу это, выведет, как и ежу понятно, 1 кнопку. ... $res = mysqli_query($db, 'SELECT `podmenu_name` FROM...

Вывод данных с базы данных через компоненты Interbase
Здравствуйте, пытаюсь вывести данные с базы данных с помощью компонентов Interbase, но не выходит. Размещаю на форме: - IBDatabase...

Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать через функцию MAIN()
а помогите теперь эту задачку #include <iostream> int main() { int last = 0, next = 1; long sum = 1; for(;...

Вывод данных с БД через if
всем привет! столкнулся с такой проблемой как вывод данных через IF. есть табличка где хранится данные - наименование и путь к файлу. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru