FoxPro/Visual FoxPro - ayuda en programacion foxpro

   
Vista:

ayuda en programacion foxpro

Publicado por isaias (1 intervención) el 16/09/2011 04:55:51
Ayuda, me podrian explicar como programas fox pro para crear un software que por escribir sus medidas el programa diga que tipo de triangulo es ,

por ejemplo

[text1] <--------medida 1
[text2]<---------medida 2
[text3] <---------medida 3

{comand1}

lo que quiero que haga el pregrama es ke al presionar el comand1 salga un cuadro de texto con el tipo de triangulo, ya hize todo y siempre me sale un error!! miren mis codigos y diganme en que me equivoco:

store 0 to text1 text2 text3

text1=thisform.text1.value
text2=thisform.text2.value
text3=thisform.text2.value

if value(text1)=Text2=text3
MESSAGEBOX("equilatero")
Else
If value(text1)<>text2<>text3
MESSAGEBOX("Escaleno")
Else
If value(text1)<>text2=text3
MESSAGEBOX("isoceles")
ENDIF

en que me equivoco???
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda en programacion foxpro

Publicado por es_binario (757 intervenciones) el 16/09/2011 06:16:19
No se si la tarea tenga que ser con if pero yo lo hago asi y funciona perfecto.

1
2
3
4
5
6
7
8
9
10
11
12
l1 = this.Parent.text1.Value
l2 = this.Parent.text2.Value
l3 = this.Parent.text3.Value
 
DO CASE
	CASE l1 = l2 AND l2 = l3
		MESSAGEBOX("Triángulo equilátero",64,"Triángulo equilátero")
	CASE l1 <> l2 AND l2 <> l3 AND l3 <> l1
		MESSAGEBOX("Triángulo escaleno",64,"Triángulo escaleno")
	OTHERWISE
		MESSAGEBOX("Triángulo isósceles",64,"Triángulo isósceles")
ENDCASE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda en programacion foxpro

Publicado por es_binario (757 intervenciones) el 16/09/2011 06:20:00
por cierto tu codigo deberia se ser

1
2
3
IF text1 = Text2 AND  text1 = text3
	MESSAGEBOX("equilatero")
Else


sin el value() que tu usas y con and para que evalue 2 situaciones.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda en programacion foxpro

Publicado por marcelo (139 intervenciones) el 16/09/2011 18:13:28
hola :

mas alla que el codigo de es_binario es mas optimo ,te paso este que esta hecho usando la sentencia if :

saludos

STORE 0 TO text1,text2,text3

text1=VAL(thisform.text1.value)
text2=VAL(thisform.text2.value)
text3=VAL(thisform.text3.value)

if text1=Text2 AND text2=text3
MESSAGEBOX("equilatero")
Else
If text1<>text2 AND text2<>text3 AND text1<>text3
MESSAGEBOX("Escaleno")
Else
If ((text1<>text2 AND text2=text3) or;
(text1=text2 AND text2<>text3) OR ;
(text1=text3 AND text2<>text3))
MESSAGEBOX("isoceles")
ENDIF
endif
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ayuda en programacion foxpro

Publicado por marcelo (139 intervenciones) el 17/09/2011 02:49:38
me corrijo:
en el codigo anterior que postee ,está demas la evaluacion que hago para saber si es isosceles el triangulo.al no ser escaleno ni equilatero estarian demas estas lineas :

if ((text1<>text2 AND text2=text3) or;
(text1=text2 AND text2<>text3) OR ;
(text1=text3 AND text2<>text3))

endif

despues del segundo else se muestra el mensaje que es isosceles y nada mas
saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar