Calculadora y caja de colores vb 8.0

Solo disponible en BuenasTareas
  • Páginas : 4 (918 palabras )
  • Descarga(s) : 0
  • Publicado : 8 de noviembre de 2010
Leer documento completo
Vista previa del texto
Necitas crea un caja de texto
Una matriz diez botes de comandos para los numero
Otra matriz de cuatro botones de comando para los operadores (+,-,/,*)
Un comando para nueva operacion
Uncomando para el resultado (=)

CODIGO DEL FORMULARIO calculadora

Private Sub Igual_Click()
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)......
Case 0
Text1.Text =suma(anterior, Val(Text1.Text)) 'llamada a la función suma
Case 1
Text1.Text = resta(anterior, Val(Text1.Text))

Case 2
Text1.Text = multiplicar(anterior, Val(Text1.Text))
Case 3Text1.Text = Dividir(anterior, Val(Text1.Text))
End Select
End Sub

Private Sub Nueva_Click()
Text1.Text = ""
End Sub

Private Sub Operador_Click(Index As Integer)
signo = Index 'siindex es 0 sumas, si es 1 restas......
anterior = Val(Text1.Text)
Text1.Text = ""

End Sub

Private Sub Numero_Click(Index As Integer)
Text1.Text = Text1.Text + Numero(Index).Caption
EndSub

Private Function suma(Numero As Integer, Operador As Integer) As Integer
suma = Numero + Operador
End Function

Private Function resta(Numero As Integer, Operador As Integer) AsInteger
resta = Numero - Operador
End Function

Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer
multiplicar = Numero * Operador
End Function

PrivateFunction Dividir(Numero As Integer, Operador As Integer) As Integer
Dividir = Numero / Operador
End Function

Private Sub Salir_Click()
Unload Me
End Sub

Caja de colores
No se a que terefieres, pero esto te servira:
PictureBox1.ImageLocation = ("apenas empezamos")
MenuStrip1.BackColor = Color.DeepSkyBlue
MenuStrip1.ForeColor = Color.BlackMy.Forms.Form3.Imagenfondo1.ImageLocation = ("hola")
My.Forms.Form3.GroupBox1.BackColor = Color.DeepSkyBlue

My.Forms.Form4.MenuStrip1.BackColor = Color.DeepSkyBlue
My.Forms.Form5.MenuStrip1.BackColor = Color.DeepSkyBlue...
tracking img