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

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

19.01.2012, 23:07. Показов 6215. Ответов 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
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru