Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.90/29: Рейтинг темы: голосов - 29, средняя оценка - 4.90
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350

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

19.01.2012, 23:07. Показов 6174. Ответов 38
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте.
Как написать на пакете программ Visual Studio 6 Basic 6 прогу, которая будет решать задачи по квантовой физике с использованием всех её законов и формул и давать расчёт по формулам потом?
Есть какие-нибудь мысли?
Спасибо. Я надеюсь.
я тут подумал: проект относительно прост, т.к. нет функций, обращений к другим прогам и системе, все действия на форме. просто тут нужно нереальное терпение, чтобы не запутаться(а это 100%) в циклах и найти в себе решимость доделать код. если не отступитесь, вот вам начало: даны 3 величины: скорость, время, путь. даны две, величины, найдите третью.
Как для начала такое можно написать??? ???
Потом подумал:задание:даны 3 текстбокса, 1 кнопка.
3 текстбокса - это скорость, время, расстояние.
Вписываю данные(цифры) в 2 текстбокса, нажимаю кнопку.
В процедуре кнопки любыми способами нахожу значение неизвестной величины.
Если у Вас получится, скажите пожалуйста, что делать дальше??? ???
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.01.2012, 23:07
Ответы с готовыми решениями:

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

Написать программу,которая будет вычислять меньшее из всех чисел
Человек вводит с клавиатуры по одному целому числу. Когда ввод закончен,то вводится строка "end". Надо программу вычисляющую...

Написать функцию которая будет решать систему уравнений
Здравствуйте! Подскажите, пожалуйста, как в MathCAD написать функцию которая будет решать систему уравнений и выдавать её корни. Т.е. чтобы...

38
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
19.01.2012, 23:15
Цитата Сообщение от daranton Посмотреть сообщение
проект относительно прост
относительно чего
Цитата Сообщение от daranton Посмотреть сообщение
задачи по квантовой физике
Цитата Сообщение от daranton Посмотреть сообщение
это скорость, время, расстояние
чего
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 01:01
мм по моему затея того не стоит. для такой программы нужно будет вложить все типы задач. например для задачи Скорость,Время,Путь можно проверять какой из текст боксов пуст и тогда решать по формуле.
пример.
Visual Basic
1
2
3
4
'Íàõîäèì Ñêîðîñòü
If Trim(v.Text) = "" Then
    Answer.Text = Val(s) * Val(t)
End If
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 01:14  [ТС]
Цитата Сообщение от gaw Посмотреть сообщение
относительно чего


чего
А что у Вас вызывает сомнения??? ???

Добавлено через 1 минуту
Цитата Сообщение от gaw Посмотреть сообщение
относительно чего


чего
Цитата Сообщение от Runkin Посмотреть сообщение
мм по моему затея того не стоит. для такой программы нужно будет вложить все типы задач. например для задачи Скорость,Время,Путь можно проверять какой из текст боксов пуст и тогда решать по формуле.
пример.
Visual Basic
1
2
3
4
'Íàõîäèì Ñêîðîñòü
If Trim(v.Text) = "" Then
    Answer.Text = Val(s) * Val(t)
End If
А что означает этот цикл??? ???
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 01:17
Цитата Сообщение от daranton Посмотреть сообщение
А что у Вас вызывает сомнения??? ???

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



А что означает этот цикл??? ???
ну на такое могу ответить:
А что у Вас вызывает сомнения??? ???
1
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 01:36  [ТС]
Цитата Сообщение от Runkin Посмотреть сообщение
ну на такое могу ответить:
А что у Вас вызывает сомнения??? ???
Опишите пожалуйста этот цикл. Что он из себя представляет??? ???
Поподробнее пожалуйста каждое слово в нём, плизззз
0
274 / 64 / 4
Регистрация: 18.04.2011
Сообщений: 1,362
Записей в блоге: 1
20.01.2012, 01:39
вам бы основы прог. подучить. ибо if -это не цикл, а условный оператор
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 01:54
больше "?" знаков, и больше "з" после "пли" и вам все захотят помочь
вот пример такой задачи:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Íàõîäèì Ñêîðîñòü
If Trim(v.Text) = "" Then
    MsgBox ("Ñêîðîñòü= " & Val(s.Text) / Val(t.Text))
End If
'Íàõîäèì Âðåìÿ
If Trim(t.Text) = "" Then
    MsgBox ("Âðåìÿ= " & Val(s.Text) / Val(v.Text))
End If
'Íàõîäèì Ïóòü
If Trim(s.Text) = "" Then
    MsgBox ("Ïóòü= " & Val(v.Text) * Val(t.Text))
End If
приложил прогу.
Вложения
Тип файла: rar Project1.rar (3.3 Кб, 35 просмотров)
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 01:56
тут должно быть всё понятно, др словами рассмотрим на примере.
Visual Basic
1
2
3
4
'Находим Скорость
If Trim(v.Text) = "" Then
    MsgBox ("Скорость= " & Val(s.Text) / Val(t.Text))
End If
ЕСЛИ (поле Скорости) Пусто ТОГДА
ВЫВОДИМ( Скорость = Путь делить на Время )
Конец
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 03:41  [ТС]
Цитата Сообщение от magals Посмотреть сообщение
вам бы основы прог. подучить. ибо if -это не цикл, а условный оператор
Он и оператор и задаёт цикл повторяемости и ещё слово Else иногда используется в цикле, а оператором Select Case делают выборку из цикла.

Добавлено через 2 минуты
Цитата Сообщение от Runkin Посмотреть сообщение
больше "?" знаков, и больше "з" после "пли" и вам все захотят помочь
вот пример такой задачи:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Íàõîäèì Ñêîðîñòü
If Trim(v.Text) = "" Then
    MsgBox ("Ñêîðîñòü= " & Val(s.Text) / Val(t.Text))
End If
'Íàõîäèì Âðåìÿ
If Trim(t.Text) = "" Then
    MsgBox ("Âðåìÿ= " & Val(s.Text) / Val(v.Text))
End If
'Íàõîäèì Ïóòü
If Trim(s.Text) = "" Then
    MsgBox ("Ïóòü= " & Val(v.Text) * Val(t.Text))
End If
приложил прогу.
А что такое "з" и "пли"??? ??? Как понимать???
Что Вы в этом коде делаете??? ???

Добавлено через 2 минуты
Цитата Сообщение от Runkin Посмотреть сообщение
тут должно быть всё понятно, др словами рассмотрим на примере.
Visual Basic
1
2
3
4
'Находим Скорость
If Trim(v.Text) = "" Then
    MsgBox ("Скорость= " & Val(s.Text) / Val(t.Text))
End If
ЕСЛИ (поле Скорости) Пусто ТОГДА
ВЫВОДИМ( Скорость = Путь делить на Время )
Конец
Не совсем понял, где именно пусто??? ???
То есть
Visual Basic
1
Print "Скорость = Путь делить на Время"
или как-то по-другому??? ???
Конец
Visual Basic
1
End
А как назвать эту прогу, которую Вы написали??? ???
0
274 / 64 / 4
Регистрация: 18.04.2011
Сообщений: 1,362
Записей в блоге: 1
20.01.2012, 03:47
Цитата Сообщение от daranton Посмотреть сообщение
Он и оператор и задаёт цикл повторяемости и ещё слово Else иногда используется в цикле, а оператором Select Case делают выборку из цикла.
http://spec.piramidin.com/coreguide15/stmtsov.html (не важно что это по джаваскрипту)
или вы бредите или я чего то недогоняю в ВБ
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 03:59  [ТС]
Цитата Сообщение от magals Посмотреть сообщение
http://spec.piramidin.com/coreguide15/stmtsov.html (не важно что это по джаваскрипту)
или вы бредите или я чего то недогоняю в ВБ
Не важно, коненчо, главное, что смысл такой же как в JavaScript)))
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 04:56
Цитата Сообщение от daranton Посмотреть сообщение
Он и оператор и задаёт цикл повторяемости и ещё слово Else иногда используется в цикле, а оператором Select Case делают выборку из цикла.

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

А что такое "з" и "пли"??? ??? Как понимать???
Что Вы в этом коде делаете??? ???

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

Не совсем понял, где именно пусто??? ???
То есть
Visual Basic
1
Print "Скорость = Путь делить на Время"
или как-то по-другому??? ???
Конец
Visual Basic
1
End
А как назвать эту прогу, которую Вы написали??? ???
что за серия "вопросов" ?
по моему я скинул рабочий проект и описал как он работает
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 04:58  [ТС]
Цитата Сообщение от Runkin Посмотреть сообщение
что за серия "вопросов" ?
по моему я скинул рабочий проект и описал как он работает
А можно ещё и код к данному проекту, а не только готовый эксэшник??? ???
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 05:02
Цитата Сообщение от daranton Посмотреть сообщение
А можно ещё и код к данному проекту, а не только готовый эксэшник??? ???
я всё уже писал.
код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Находим Скорость
If Trim(v.Text) = "" Then
    MsgBox ("Скорость= " & Val(s.Text) / Val(t.Text))
End If
'Находим Время
If Trim(t.Text) = "" Then
    MsgBox ("Время= " & Val(s.Text) / Val(v.Text))
End If
'Находим Путь
If Trim(s.Text) = "" Then
    MsgBox ("Путь= " & Val(v.Text) * Val(t.Text))
End If
это код кнопки
ещё на форме 3 текст бокса
1) s
2) v
3) t
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
20.01.2012, 05:13  [ТС]
Цитата Сообщение от Runkin Посмотреть сообщение
я всё уже писал.
код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
'Находим Скорость
If Trim(v.Text) = "" Then
    MsgBox ("Скорость= " & Val(s.Text) / Val(t.Text))
End If
'Находим Время
If Trim(t.Text) = "" Then
    MsgBox ("Время= " & Val(s.Text) / Val(v.Text))
End If
'Находим Путь
If Trim(s.Text) = "" Then
    MsgBox ("Путь= " & Val(v.Text) * Val(t.Text))
End If
это код кнопки
ещё на форме 3 текст бокса
1) s
2) v
3) t
А как они у Вас обозначены до этого кода??? ???
Можно весь код целиком посмотреть и формы??? ???
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
20.01.2012, 05:17
o_O ftw omg facepalm ;/??? ???
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
21.01.2012, 02:37  [ТС]
Цитата Сообщение от Runkin Посмотреть сообщение
o_O ftw omg facepalm ;/??? ???
Я Вас не понял, что Вы хотите сказать??? ???

Добавлено через 21 час 16 минут
Цитата Сообщение от Runkin Посмотреть сообщение
мм по моему затея того не стоит. для такой программы нужно будет вложить все типы задач. например для задачи Скорость,Время,Путь можно проверять какой из текст боксов пуст и тогда решать по формуле.
пример.
Visual Basic
1
2
3
4
'Íàõîäèì Ñêîðîñòü
If Trim(v.Text) = "" Then
    Answer.Text = Val(s) * Val(t)
End If
А
Visual Basic
1
s, v и t - это переменные integer, то есть объявлены как As integer
??? ???
0
 Аватар для Runkin
69 / 67 / 5
Регистрация: 22.12.2011
Сообщений: 261
Записей в блоге: 2
21.01.2012, 02:47
тебе стоит научится читать и не пропускать слова мимо глаз
ещё на форме 3 текст бокса
1) s
2) v
3) t
s v t это имена текстбоксов на форме, ты сам так предложил в 1м посте.
0
 Аватар для daranton
42 / 8 / 0
Регистрация: 30.03.2010
Сообщений: 350
21.01.2012, 03:56  [ТС]
Цитата Сообщение от Runkin Посмотреть сообщение
тебе стоит научится читать и не пропускать слова мимо глаз

s v t это имена текстбоксов на форме, ты сам так предложил в 1м посте.
А как это в коде записать??? ???
Visual Basic
1
2
3
4
5
6
s As string
v As string
t As string
s = TextBox
v = TextBox
t = TextBox
Примерно так??? ???
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.01.2012, 03:56
Помогаю со студенческими работами здесь

Написать программу, которая будет считать сумму и количество всех нечетных чисел
Задания по циклу 1. Написать программу, которая будет считать сумму и количество всех нечетных чисел от 1 до N и выводить их сумму. N...

Погогите пожалуйста сделать программу которая будет решать уровнение на ассемблере
Доброго времени суток! Погогите пожалуйста сделать программу которая будет решать уровнение на ассемблере

Написать программу с использованием пользовательских функций, которая будет преобразовывать число в "*"
Доброго времени суток!) Нужна срочно помощь по 1й задаче.... В общем: нужно написать программу с использованием пользовательских...

Реализовать программу, которая будет решать графическим методом типовую задачку линейного программирования
Приветик всем, по курсовой нужно реализовать программку, которая будет решать графическим методом типовую задачку линейного...

Как решать задачи с использованием двумерных массивов
Народ помогите решить задачу. Значения двумерного массива A размера 7х7 задаются с помощью вложенного оператора цикла в перевиденном...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .
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
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru