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

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

19.01.2012, 23:07. Показов 6262. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru