1
« en: Jueves 24 de Septiembre de 2009, 01:38 »
hola.
Tengo 3 dias en la programacion y estoy en mi 2do proyecto pero noc como terminarlo tengo algunos codigos pero me hacen falta algunos lo que estoy haciendo es una calculadora cientifica pero noc como hacer para que la respuesta me salga en el Textbox ya que lo unico que e podido hacer es que me salga en un Msgbox ahi e hecho que me salga la Raiz y el Porcentaje si me pueden decir como hacer para que me salga en un textbox solamente en 1 textbox asi como la calculadora de windows y tambien ayudenme a hacer la tangente,sen y coseno es que como recien estoy empezando no se como se hace y por mas que busco en internet no encuentro alguna solucion para mi problema.
Aca les dejo los codigos con los que estoy trabajando ahorita mi Calculadora esta un poco fea xq los numeros me salen en el Textbox1 mas no en el 2 ni en el 3 luego la raiz y el porcentaje me salen en un msgbox y para sumar restar y dividir solo se hacerlo en 3 text box mas no en 1 porfavor ayudenme.
para raiz estoy haciendo asi:
Dim x, r, incr, tol, s As Double
x = TextBox1.Text
r=1
incr=1
tol=0.0001
Do While incr > tol
if r*r = x then
incr = tol
end if
s=r + incr
if s*s > x then
incr = incr/2
else
r=s
end if
loop
MsgBox("esta es tu raiz" & " " & r)
para el porcentaje lo he hecho asi
dim x,y,a As Double
x = textbox1.text
y = textbox2.text
a = x/100*y
if x/100*y = a then
MsgBox("este es tu porcentaje" & " " & a)
la potencia:
Dim x, a As integer
x = textbox1.text
a = x*x
if x*x = a then
MsgBox(x & " " & "al cuadrado es" & " " & a)
la suma resta division multiplicacion y division la estoy haciendo asi
textbox3.text = val(textbox1.text) + val(textbox2.text)
textbox3.text = textbox1.text - textbox2.text
textbox3.text = textbox1.text * textbox2.text
textbox3.text = textbox1.text / textbox2.text
y los numeros los estoy poniendo asi
textbox1.text = textbox1.text & "1"
'entre las comillas va lo que quiero que funcione.
Alguien que me ayude a ordenar todo esto para que todo pueda ponerlo con un solo textbox porfavor
y si tambien me puede ayudar con la tangente seno y coseno.