Calculadora con un TEXTBOX (no con 3) By me

[700esoj]

Muy bien el titulo lo dice todo. Lo que hay que hacer es agregarle 2 labels con propiedad Visible false. Fue Escrita de arriba hasta abajo por mi.

Código:

'Windows Calculador By 700esoj
Dim archivo

Private Sub Commandbutton1_Click()
archivo = TextBox1.Text
Label1.Caption = archivo
TextBox1.Text = ""
Label2.Caption = "+"
TextBox1.SetFocus
End Sub

Private Sub Commandbutton2_Click()
archivo = TextBox1.Text
Label1.Caption = archivo
TextBox1.Text = ""
Label2.Caption = "-"
TextBox1.SetFocus
End Sub

Private Sub Commandbutton4_Click()
archivo = TextBox1.Text
Label1.Caption = archivo
TextBox1.Text = ""
Label2.Caption = "*"
TextBox1.SetFocus
End Sub

Private Sub Commandbutton3_Click()
archivo = TextBox1.Text
Label1.Caption = archivo
TextBox1.Text = ""
Label2.Caption = "/"
TextBox1.SetFocus
End Sub

Private Sub Commandbutton5_Click()
If Label2.Caption = "+" Then
TextBox1.Text = Val(TextBox1) + Val(Label1)
ElseIf Label2.Caption = "-" Then
TextBox1.Text = Val(Label1) - Val(TextBox1)
ElseIf Label2.Caption = "*" Then
TextBox1.Text = Val(TextBox1) * Val(Label1)
ElseIf Label2.Caption = "/" Then
TextBox1.Text = Val(Label1) / Val(TextBox1)
Else
MsgBox ("you are fucked up")
End If
End Sub

Private Sub Label1_Click()

End Sub

Private Sub TextBox1_Change()
TextBox1.ForeColor = vbGreen
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii <> 13 Then
 If KeyAscii < 45 Or KeyAscii > 57 Then
 KeyAscii = 0
 End If
 End If
End Sub
'----------------------------------------------------------
' aqui pueden seguir poniendole cada numero por ejemplo

private sub cmdNum1_click()
textbox1.text = textbox1 & "1"
end sub

Private sub cmdNum2_click()
textbox1.text = textbox1 & "2"
end sub

'etc. etc.

Bueno espero que les guste. El codigo que deje arriba es para VBA (Visual basic for Application)
pero igual pueden cambiarlo a Visual basic 6 o Visual Basic 5.0 y les servira.

-700esoj

[happy-word]

perdon pero ese codigo es un asco por k si quiere sumas mas de un vaor a l vez como lo ras por ejemplo si quieres sumar 2 +5+15

tu calculadora no ara eso de todo corrido como una calculadora normal pero para un newbie esta ien eso..

no te desanimes pero con arrays puesdes acer algo mejor y no tener que usar label sino guardar lo todo en arrays y luego usarlos para las operaciones en un mismo texto. todo..........


espero que mi critica te aya ayudado en algo sin o sabes lo que e digo dirijete a la seccion de visual basic.

[700esoj]

hey no me desanimo, alcontrario me gusta que me critiquen. Y como dices soy un n00b acabo de empesar a programar y me gusta aprender diferentes metodos. Entonces mi calculadora es un asco entonces me gustaria la forma que tu dices, utilizando arrays... Parece muy buena idea esa. Me podrias ayudar con eso? o un ejemplo o algo por el estilo.

Código:

Dim Numero[0 to 20] as double

' algo como esto????

disculpa mi ignorancia, pero solo e visto los arrays en c y nunca los e utilizado y mucho menos en Visual Basic. y Disculpa el haber puesto tal codigo, cuando aprenda de otra forma que no tengo 3 textbox entonces lo modificare y eliminare esta porqueria de code jejeje.

-700esoj