я конечно понимаю, что это нагло отвлекать людей на такие мелочи, но может кто-нибудь пришлет бедной лентяйке калькулятор в VB , буду очень признательна

Забери на мыле ! Что будет непонятно ........ пиши !
Удачи !

Цитата

Забери на мыле ! Что будет непонятно ........ пиши !

Лично мне на мыло ничего не пришло??

Цитата

Лично мне на мыло ничего не пришло??

Вот, вот... Меня тоже бы интересовало как калькулятор на VB можно сделать. Форум сделан же не для того, чтобы на нем ничего полезного не было, поэтому ответы на вопросы писать надо на форум, а не на мыло.
Alles, пожалуйста, помести исходник в эту тему. Просто если его не будет, то тему можно сразу стирать, так как пользы от нее не будет.

Без проблем !!! стандартный пример с хелпа куда уж проще.
или это плагиат но хелп помоему и служит для того что-бы было проще осваивать все премудрости программирования , или я не прав ?
cardinal - кабы сделать чтобы сюда можно была и скриншот внедрять ? или это невозможно jpg прескрасно сжымается и скриншот формы был бы порядка 10-15kb. Так просто былобы наглядней и ненадо было вляпывать кучю текстовухи (особенно когда на форме много элементов). Или для этого надо открывать страницу на бесплатном хостинге ?

Форма , ..на ней 20 элементов . 19 из них кнопки ? 20-тый Label
У кнопок для цифр . Name- "Number" причем у всех от 0 до 9 меняем только индекс Index()
и есно индекс у каждой зависит от номера.

Кнопка - " = " Name - Operator , Index(4)
Кнопка - " * " Name - Operator , Index(2)
Кнопка - "+ " Name - Operator , Index(1)
Кнопка - " - " Name - Operator , Index(3)
Кнопка - " / " Name - Operator , Index(0)
Кнопка - " %" Name - Percent
Кнопка - " C" Name - Cancel
Кнопка - "CE" Name - CancelEntry
Label - Name-Readout

Код

Option Explicit Dim Op1, Op2                 Dim DecimalFlag As Integer Dim NumOps As Integer       Dim LastInput               Dim OpFlag                   Dim TempReadout Private Sub Cancel_Click()    Readout = Format(0, "0.")    Op1 = 0    Op2 = 0    Form_Load End Sub Private Sub CancelEntry_Click()    Readout = Format(0, "0.")    DecimalFlag = False    LastInput = "CE" End Sub Private Sub Decimal_Click()    If LastInput = "NEG" Then        Readout = Format(0, "-0.")    ElseIf LastInput <> "NUMS" Then        Readout = Format(0, "0.")    End If    DecimalFlag = True    LastInput = "NUMS" End Sub Private Sub Form_Load()    DecimalFlag = False    NumOps = 0    LastInput = "NONE"    OpFlag = " "    Readout = Format(0, "0.")    'Decimal.Caption = Format(0, ".") End Sub Private Sub Number_Click(Index As Integer)    If LastInput <> "NUMS" Then        Readout = Format(0, ".")        DecimalFlag = False    End If    If DecimalFlag Then        Readout = Readout + Number(Index).Caption    Else        Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")    End If    If LastInput = "NEG" Then Readout = "-" & Readout    LastInput = "NUMS" End Sub Private Sub Operator_Click(Index As Integer)    TempReadout = Readout    If LastInput = "NUMS" Then        NumOps = NumOps + 1    End If    Select Case NumOps        Case 0        If Operator(Index).Caption = "-" And LastInput <> "NEG" Then            Readout = "-" & Readout            LastInput = "NEG"        End If        Case 1        Op1 = Readout        If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then            Readout = "-"            LastInput = "NEG"        End If        Case 2        Op2 = TempReadout        Select Case OpFlag            Case "+"                Op1 = CDbl(Op1) + CDbl(Op2)            Case "-"                Op1 = CDbl(Op1) - CDbl(Op2)            Case "X"                Op1 = CDbl(Op1) * CDbl(Op2)            Case "/"                If Op2 = 0 Then                   MsgBox "Can't divide by zero", 48, "Calculator"                Else                   Op1 = CDbl(Op1) / CDbl(Op2)                End If            Case "="                Op1 = CDbl(Op2)            Case "%"                Op1 = CDbl(Op1) * CDbl(Op2)            End Select        Readout = Op1        NumOps = 1    End Select    If LastInput <> "NEG" Then        LastInput = "OPS"        OpFlag = Operator(Index).Caption    End If End Sub Private Sub Percent_Click()    Readout = Readout / 100    LastInput = "Ops"    OpFlag = "%"    NumOps = NumOps + 1    DecimalFlag = True End Sub

Спасибо большоеа я в начале все без массива делала.Вот действительно тупая.И почему у меня в хелпе нет таких милых примеров?Или не там ищу.

Цитата

cardinal - кабы сделать чтобы сюда можно была и скриншот внедрять ?

Хороший вопрос. Лично я создал свой сайт на Narod.ru и вытащил туда свои картинки, но
Вот как сами можете видеть картинки появляются не на всех компьютерах