Calculer à 3 chiffres après la virgule / Calculate to 3 dec.

[NY152]

Bonjour,

J'aimerais calculer un nombre qui aurait impérativement 3 chiffres après la virgule ; Exemple : 0.035 ou 0.000)

Comment s'y prendre ?

J'aimerais aussi savoir comment savoir si une variable contient un nombre négatif ?

D'avance, merci
_______________________________________________________________________________________________

Hello,

I would like to calculate a number that would have absolutely three decimal places; Example: 0.035 or 0.000)

How?

I would also like to know how to know if a variable contains a negative number?

In advance, thank you

[Dude]

I would like to calculate a number that would have absolutely three decimal places; Example: 0.035 or 0.000)
I would also like to know how to know if a variable contains a negative number?

Code: Select all

a.f=-0.005
b.f=0.040
c.f=a+b
Debug StrF(c,3)

If a<0 : Debug "'a' is negative" : EndIf

[NY152]

Mais si on test a < 0.xxx ca ne fonctionne pas. J'aurais aimé pouvoir le faire.
________________________________________

But if you test with a < 0.xxx it does not work. I wish I could do it.

[T4r4ntul4]

Code: Select all

a.f=-0.005
If a<0.222
  Debug "'a' is negative"
EndIf

is not a problem

[Dude]

if you test with a < 0.xxx it does not work

Yes it does. For a number to be negative, it has to be < 0. Show me your code so I can see what you're doing wrong.

[netmaestro]

Code: Select all

cowbell.d = -0.123456           ; You can't limit the decimal places for the actual stored number
Debug cowbell
Debug StrD(cowbell, 3)          ; But you can control how many decimal places to display
cowbell=ValD(StrD(cowbell, 3))  ; Or truncate some if you wish
Debug cowbell
If cowbell < 0                  ; Test for negative
  Debug "NEED MORE COWBELL!!"   ; Should want more cowbell
EndIf

[wilbert]

You can't limit the decimal places for the actual stored number

You could use an integer type and multiply everything by 1000 and divide by 1000 when presenting a result.

[netmaestro]

You could use an integer type and multiply everything by 1000 and divide by 1000 when presenting a result.

Sorry I was unclear. You can't limit the number of places but there's a couple of ways you can remove unwanted ones.

[NY152]

My idea is to calculate a bitrate automatically.

Is incremented by 1 as bitrate value quality 'Bit / Pixel' is not reached. I aim 0.076.

My essay:

Code: Select all

EnableExplicit
Global sLargeur.f
Global sHauteur.f
Global sIPS.f


Global Largeur.s
Global Hauteur.s
Global IPS.s

Global BitPerPixel.f

Global Bitrate.f = 100

Global pause.s

OpenConsole("Bit/Pixel Calculator")
  Print("Largeur de la vidéo : ")
  Largeur = Input()
  Print("Hauteur de la vidéo : ")
  Hauteur = Input()
  Print("Image par seconde de la vidéo : ")
  IPS = Input()
  sLargeur=ValF(Largeur)
  shauteur=ValF(Hauteur)
  sIPS=ValF(IPS)
  BitPerPixel=(sLargeur*sHauteur*sIPS)/(Bitrate*1024)
  Repeat
    If BitPerPixel < 0.076
        Bitrate=Bitrate+1
        BitPerPixel=(sLargeur*sHauteur*sIPS)/(Bitrate*1024)
        PrintN("+Bitrate: " + BitRate + " Bit/Pixel: " + BitPerPixel); For Info
      ElseIf BitPerPixel > 0.076
        Bitrate=Bitrate-1
        BitPerPixel=(sLargeur*sHauteur*sIPS)/(Bitrate*1024)
        PrintN("+Bitrate: " + BitRate + " Bit/Pixel: " + BitPerPixel)
    EndIf
  Until BitPerPixel=0.076
  Print("Bitrate: " +BitRate + " Bit/Pixel: " + BitPerPixel)
  pause=Input()
CloseConsole()