Калькулятор

[Maxxx.!!!.]

Какой принцип? Это же не программа, это пару как попало распиханных по форме кнопок, причем "=" у тебя почему-то не в массиве, а отдельным элементом, а ты говорил, что тебе все в массиве надо.

[Ed_5]

нет,я говорил,что равно надо отдельно,но если конечно его можно сделать массивом,то не плохо будет.Ты можешь мне помочь сделать массивом???

[Maxxx.!!!.]

Не знаю, правильно ли я твои бессвязные реплики понял. В общем, смотри этот код:
Это тебе надо?

[Maxxx.!!!.]

Там все кнопки (включая =) в одном массиве Command7. Все работает.

[Ed_5]

Я вижу,спасибо большее...

[Maxxx.!!!.]

Должен будешь, больше мозг всем парил. Дальше-то сам разберешься?

[Ed_5]

Хорошо!!!Спасибо!!!Да сам дальше разберусь!!!

[Хакер]

Ed_5, устное предупреждение за неиспользование кнопки "Правка".
Maxxx.!!!., устное предупреждение за эвфемизированные ругательства.

[Ed_5]

Maxxx.!!!. Не подскажешь еще как прописать:sin,cos,tg,ctg

[Maxxx.!!!.]

Хакер, больше не буду, честно!
Ed_5, синусы всякие пишутся так же, как и все остальное, ибо это встроенные в vb функции.

[Ed_5]

вместо "+" например,что надо написать???

[Maxxx.!!!.]

Нда, жаль, что админ запретил мне ругаться. Я понимаю, что тебе лень и на все пофиг, но ты код мой посмотри хоть, там же три строчки, блин. Какая разница, что вместо "+" писать, да что хочешь, ты просто вообще смысла даже в этих трех строчках не понял. Смотри: в переменной "c" хранится код операции, для наглядностия сделала так, например, что операция умножения кодируется символом "*". Когда ты в конце щелкаешь по кнопке "=", то программа выбирает, какую операцию ты до этого выбрал. Если ты ввел число, потом нажал на "*", ввел другон число и нажал на "=", то у тебя с="*", поэтомк выполняем Text1.Text = a * Val(Text1.Text)

[Ed_5]

Калькулятор массивом.rar

Maxxx.!!! Посмотри и поймешь,что я имел ввиду...

(1.84 Кб) Скачиваний: 80

[Maxxx.!!!.]

Я понял только то, что тебе надо забыть о программировании и обработать руки напильником. Ты даже свой код ленишься читать.
Берешь кнопку для cos, например, и в обработчике событий на нее пишешь (пусть это будет, например, 15 кнопка):

Код: Выделить всё

Private Sub Command7_Click(Index As Integer)
Select Case Index
Case 15
Text1.Text=cos(val(Text1.text))

В коде для кнопки "=" прописывать ничего не надо, т.к. cos, sin и т.д. требуют только одно число, а не два, как, например, сложение.

[Ed_5]

Спасибо тебе большее,я в этом бэйсике вообще не чего не понимаю....

[Maxxx.!!!.]

Это заметно. Пожалуйста.

[FaKk2]

А слабо без встроенных функций сделать синус/косинус и т.д.?

[Debugger]

Это смотря с какой точностью... Я могу выложить приближенную формулу (до десятитысячной).

[Хакер]

А слабо без встроенных функций сделать синус/косинус и т.д.?

Каков смысл? Сложение тоже реализовывать вручную, побитно?

Разве что только если калькулятор считает какие-нибудь 128-битные FP-числа.

[FaKk2]

А слабо без встроенных функций сделать синус/косинус и т.д.?

Каков смысл? Сложение тоже реализовывать вручную, побитно?

Разве что только если калькулятор считает какие-нибудь 128-битные FP-числа.

Тебя никогда не интересовало каким образом калькулятор (обычный, настольный) считает любой угол с заданной точностью?

[Хакер]

Это может быть по разному реализовано. Я знаю несколько реализаций.

Но в рамках данной темы, какой смысл имеет твой постинг с фразой "Слабо"?