syspel Posted April 13, 2016 Report Share Posted April 13, 2016 oi pessoal boa tarde olha o exemplo abaixo a=1000.00 b=200.00 c=-100.00 if a > 0 que e,ai ele mente ele diz que nao e endif if b=0.00 dele diz que .f. endif d= a-b if d > 0 ele fala que e .f. endif o program esta com 9000 mil linhas sera e porque o programa e muito grande ? a unica forma que achei para dar certo foi fazendo assim com exemplo abaixo if ltrim(str(d,12,2)) > "0.00" babababa endif e estranho porque e fator matematico, estou usando 2 casas decimais isto e erro xharbour ? obrigado a todos carlos fwh13.02 xharbour 123 dbf xdev Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 13, 2016 Report Share Posted April 13, 2016 #include "FiveWin.ch" function Main() // Declare as variaveis... Para o xharbour saber que e numerico LOCAL a := 0, b := 0, c := 0, d := 0 // olha o exemplo abaixo // troco as variaveis numericas. a := 1000.00 b := 200.00 c := -100.00 // ? a, b, c if a > 0 //que e,ai ele mente ele diz que nao e ? a // correto - 1000 endif if b = 0 //ele diz que .f. ? b else ? [nao e igual a 0 mano ], b // correto 200 endif d := a - b // ? d // 800 if d > 0 //ele fala que e .f. ? d endif ? [logica certinha... ] RETURN NIL Quote Link to comment Share on other sites More sharing options...
syspel Posted April 15, 2016 Author Report Share Posted April 15, 2016 ok obrigado a todos carlos kapiaba 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.