Ayuda con un botón!

Hola como estas.
Pues la verdad me me estoy enseñando a programar con visual basic 2008 y estoy haciendo una calculadora más o menos como la de windows, el problema es que quiero usar 2 textbox y cuando presione algún numero solo lo ponga en el primer textbox, y al presionar el segundo numero pues en el segundo textbox espero que me puedas ayudar, y de antemano le agradezco por su ayuda.

1 respuesta

Respuesta
1
Bueno supongamos que tienes el botón que se llama boton1, boton2
Y dos text box, llamados text1 y text2
El botón 1 tiene asignado el valor 1, o sino lo tienes que hacer con una colección de botones y usas el index.
en el click del boton 1 pones text1=1
en el boton 2 pones text2 = 2
.
Pues te agradezco tu respuesta, pero pues lo que quisiera saber es como hacer
para que al presionar al botón 1 que en mi calculadora es = 1; me aparezca en
el textbox 1 y cuando presione el botón +, -,* o / y apriete de nuevo en 1 me lo muestre en el textbox2, espero que me puedas ayudar porque la verdad ya estoy desesperado con
este problema, y si no fuera mucho pedir más adelante quisiera saber para que funcionan cada uno de los operandos, como string, single y todos los demás, de antemano te agradezco por tu ayuda,
saludos
String, single son formatos y en vn net cambio mucho, te recomiendo que veas todos los formatos en algún tutorial ya que son muchos.
Y sirven para declarar variables o parámetros entre clases.
Lo que vos querías hacer es el resultado ir mostrándolo.
Mira lo que encontré, córrelo paso a paso, cambiale los nombres de los text y demás componentes.
Acá sale todo sin separaciones ni tabulado, lo lamento
Public Class Form1
Public operando As Integer = 0
Public operando2 As Integer = 0
Public acumulador As Integer = 0
Public ultimaOperacion As Integer = 0
Public cambioOperando As Boolean
Public borraVisor As Boolean = True
Private Sub Operaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuma.Click, BtnResta.Click, BtnPor.Click, BtnEntre.Click
acumulador = TextBox1.Text
operando2 = acumulador
Select Case sender.name
Case Is = "BtnSuma"
ultimaOperacion = 1
Case Is = "BtnResta"
ultimaOperacion = 2
Case Is = "BtnPor"
ultimaOperacion = 3
Case Is = "BtnEntre"
ultimaOperacion = 4
'case is= otras operaciones....
' ultimaoperacion=x
End Select
cambioOperando = True
borraVisor = True
End Sub
Private Sub ejecuta(ByVal operacion As Integer)
Select Case operacion
Case Is = 1 'suma
acumulador = acumulador + operando
Case Is = 2 'resta
acumulador = acumulador - operando
Case Is = 3 'multiplica
acumulador = acumulador * operando
Case Is = 4 'divide
acumulador = acumulador / operando
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textbox1.Text = acumulador
End Sub
Private Sub BtnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIgual.Click
If cambioOperando = True Then
operando = TextBox1.Text
If operando = 0 Then
operando = operando2
End If
End If
Call ejecuta(ultimaOperacion)
TextBox1.Text = acumulador
cambioOperando = False
End Sub
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
If borraVisor = True Then
TextBox1.Text = ""
borraVisor = False
End If
End Sub
End Class
Public Class Form1
Public operando As Integer = 0
Public operando2 As Integer = 0
Public acumulador As Integer = 0
Public ultimaOperacion As Integer = 0
Public cambioOperando As Boolean
Public borraVisor As Boolean = True
Private Sub Operaciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuma.Click, BtnResta.Click, BtnPor.Click, BtnEntre.Click
acumulador = TextBox1.Text
operando2 = acumulador
Select Case sender.name
Case Is = "BtnSuma"
ultimaOperacion = 1
Case Is = "BtnResta"
ultimaOperacion = 2
Case Is = "BtnPor"
ultimaOperacion = 3
Case Is = "BtnEntre"
ultimaOperacion = 4
'case is= otras operaciones....
' ultimaoperacion=x
End Select
cambioOperando = True
borraVisor = True
End Sub
Private Sub ejecuta(ByVal operacion As Integer)
Select Case operacion
Case Is = 1 'suma
acumulador = acumulador + operando
Case Is = 2 'resta
acumulador = acumulador - operando
Case Is = 3 'multiplica
acumulador = acumulador * operando
Case Is = 4 'divide
acumulador = acumulador / operando
End Select
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textbox1.Text = acumulador
End Sub
Private Sub BtnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIgual.Click
If cambioOperando = True Then
operando = TextBox1.Text
If operando = 0 Then
operando = operando2
End If
End If
Call ejecuta(ultimaOperacion)
TextBox1.Text = acumulador
cambioOperando = False
End Sub
Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
If borraVisor = True Then
TextBox1.Text = ""
borraVisor = False
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo ver el ultimo dato de listbox cuando se actualiza?

A tod@s! Tengo un Listbox al que se le cargan varios datos, quiero que cuando se actualice, vaya directamente al ultimo valor mostrándolo en el ListBox. ¿No se si se puede actuar con algún código acutando en el Scroll para que se desplace hasta abajo...
2 respuestas

Macro que cargue datos desde un Listbox a un Formulario

Pregunta para Elsa Matilde Estoy tratando de conseguir una Macro que me permita al señalar una fila en el ListBox2 se refleje en el formulario Form_Factura. Podrá ayudarme
1 respuesta

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
6 respuestas

Como mejorar Macro que actualiza Datos en 2 hojas del mismo Libro

Mediante la grabadora de Macro pude desarrollar la Macro Agregar_HojaAuxiliar(), pero veo a mi criterio por lo visto en dicho foro otras Macros que no son tan extensas por que sintetizan algunas líneas, habrá alguna posibilidad que en esta se pueda...
2 respuestas

Abrir archivo de excel después de exportarlo desde access

Necesito exportar una consulta a excel y lo hago de esta manera pero se que hay en una macro que hace lo mismo y al final abre el archivo exportado yo estoy usando este código con el cual efectivamente me exporta pero no se como desde que exporta me...
3 respuestas

Colocar 2 calendarios en hojas diferentes dentro del mismo archivo

Tengo un archivo con 2 hojas "Asistencias" y "Datos", coloque 1 calendarios en ambas hojas, pero sucede en la hoja "Asistencia "que al querer colocar la fecha en el TextBox2 dentro del formulario surge un error (1004 en tiempo de ejecución: Error en...
2 respuestas

Hypervinculo en cuadro de texto dentro de formularios de access no hace nada

Tengo un cuadro de texto dentro del formulario que me combina dos campos. Api de WhatsApp y teléfono de cliente. Ya le di la propiedad de hipervínculo, pero al hacer clic no hace nada. Cada registro cambia el teléfono del cliente.
2 respuestas

Rellenar celdas vacías en rangos múltiples

En una hoja de Excel tengo una base de datos extensa, en un rango de A5:D1500, en el orden de las columnas contiene los siguientes datos: "A" Departamento, "B" Nombre, "C" Cargo, "D" Monto a pagar. La cantidad de empleados en cada departamento es...
5 respuestas

Cómo recoger datos concretos de acciones específicas de una web en excel

Tengo un Excel con una columna con los nombres de unas acciones que cotizan en diferentes mercados mundiales. Quisiera saber si, desde una web especializada en bolsa, se puede recoger un dato concreto de cada una de esas acciones que tengo, y...
3 respuestas

Campos en informe de access auto ajustables

Tengo una duda que no se si se podrá resolver, tengo un informe de access con un texto predefinido, en el cual tienen que completarse unos campos previamente introducidos en un formulario, bien como puedo hacer para que el texto predefinido se ajuste...
4 respuestas