Калькулятор

[Ed_5]

Помогите пожалуйста сделать калькулятор с одной строкой и массивом кнопок в нем на VB5,очень надо!!!!

[DeMONiZ]

похожая тема недавно была:
http://bbs.vbstreets.ru/viewtopic.php?f=1&t=39565

[Maxxx.!!!.]

Мне кажется, что автор топика имел ввиду не то, что описывается в viewtopic.php?f=1&t=39565, а простой калькулятор, вроде страндартного в Windows. Ed_5, так тебе какой нужен калькулятор?

[arvitaly]

Помогите пожалуйста сделать калькулятор с одной строкой и массивом кнопок в нем на VB5,очень надо!!!!

ыыы, во всех чтоли универах одинаковые задания. У нас тоже такое было)

[Maxxx.!!!.]

Вот, на коленке написал небольшой прототип калькулятора (он во вложении). Там только цифры 1, 2, 3 и операции сложения и умножения. Код посмотри, разберись и допиши нужное по образцу.

[Ed_5]

Maxxx.!!! Ты не подскажешь как сделать массив кнопок???

[DeMONiZ]

Что ты имееешь ввиду под массивом кнопок?

[Maxxx.!!!.]

Мля, какой массив? Т.е. тебе надо что-ли, чтобы кнопки с цифрами операциями шли не отдельно, а в массиве? Ну так создай массив элементов, кто тебе запрещает... Только если у тебя знаний не хватает написать простейший калькулятор, то я тебе не советую заморачиваться с массивами.

[iGrok]

Maxxx.!!! Ты не подскажешь как сделать массив кнопок???

Свойство .Index + одинаковые имена.

[Ed_5]

Мне надо чтобы,под Command_1 например,были записаны все действия.Вот я например так сделал массив кнопок 0-9:Private Sub cmdCommand1_Click(Index As Integer)
Text1.Text = Index

[Ed_5]

Я бы не заморачивался,да мне надо курсач сдавать именно чтобы было сделано массивом

[Ed_5]

Если кто то может,то выложите код пожалуйста,позарез надо....

[Maxxx.!!!.]

Чушь у тебя какая-то: Text1.Text = Index, т.е. ты хочешь, чтобы у тебя в текстбокс добавлялся индекс массива кнопок?! На кой тебе это надо? И как ты тогда будешь реализовывать кнопки "+" или там "="?

[Ed_5]

Мне без разницы как,надо только чтобы +,-,*,/ были массивом тоесть например под Command_1,а равно конечно же под Сommand_2.Так вообще можно сделать?

[arvitaly]

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

Private Sub cmdCommand1_Click(Index As Integer)
select case index
case 0
сложение
case 1
вычитание
case 2
умножение
end select
end sub

С тебя 100 WMR, если добавишь могу и весь курсач)

[Maxxx.!!!.]

Че сделать-то? Ты нормально-то объясни, чего тебе надо, я же, мля, не ясновидящий. Если я тебя правильно понял (а это вряд ли), то тебе надо создать массив элементов, что ты, как я понял, уже сделал; теперь же делай вроде того:

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

Private Sub cmdCommand1_Click(1)
Text1.Text =Text1.Text & "1"
end sub

Ну и так для каждой цифры.

[Ed_5]

Спасибо,это я понял,а какой код для равно тогда в таком случае будет?

[Maxxx.!!!.]

Мля, ты завалишь свой курсовик и тебя возьмут в армию. Это точно. Ты вообще мой исходник смотрел? Нет? Так посмотри, там есть код. Вообще, ничего там лучше не меняй в коде, просто привяжи все это к своему на фиг не нужному массиву. Ума у тебя сделать кнопки от 4 до 0, думаю, хватит.

[Ed_5]

Я без массива сам его сделал,да только препод стоит на своем массиве и все тут....

[arvitaly]

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

Private Sub cmdCommand1_Click(1)
Text1.Text =Text1.Text & "1"
end sub

хм

[Maxxx.!!!.]

arvitaly, а что не так?

[Ed_5]

arvitaly Может ты подскажешь как равно(=) прописать???

[Maxxx.!!!.]

Ed_5, мля, ты точно что ли код-то не смотрел? Там же есть =. Какая разница, с массивом или без.

[arvitaly]

arvitaly, а что не так?

Ну как бы в объявлении функции в скобках обычно указывают переменные и их тип, передаваемые в функцию, а не значения

arvitaly Может ты подскажешь как равно(=) прописать???

Покажи вообще, что ты уже сделал (код)

[Ed_5]

вот в чем проблема,что мне нужен имннно массив

[Ed_5]

вот:Private Sub cmdCommand1_Click(Index As Integer)
Text1.Text = Index
End Sub


Private Sub cmdCommand2_Click(Index As Integer)
Select Case Index
Case 0
Case 1
Case 2
End Select
End Sub

[Maxxx.!!!.]

arvitaly, "Ну как бы в объявлении функции в скобках обычно указывают переменные и их тип, передаваемые в функцию, а не значения" - да это я не глядя код Ed_5 взял

Ed_5, это не код, а отписка. Скинь в архив весь проект и выложи здесь - а то я, например, вообще не понимаю, что ты там наделал.

[Ed_5]

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

Кнопки 0-9 работают нормально

(1.38 Кб) Скачиваний: 111

[Ed_5]

Принцип хоть правильный?Равно только вот не хватает....

[Maxxx.!!!.]

Это как же они нормально работают. Родной мой, мне очень интересно, ей богу, как ты, не знаю, собираешься на этом "калькуляторе" считатЬ, если у тебя элементарно никакое число больше 9 нельзя ввести.