Prosentteina palautus (käy esim health palkkeihin)

[MaGetzUb]

Vaikka tää on tosi pieni funktio nii tää on silti kannattava. En sitte tiedä miten nuo foorumien pystyssä pitäjät tähän suhtautuu. Hyöty on se vaikka maksimi määrä panoksia on vaikka 1000 ja pitäisi piirtää 100 pikselin pituinen laatikko panosten määrän mukaan. Jos yrität drawimagebox:illa niin
palkki on koko ajan täynnä, jos panoksia on enemmän kuin palkin pituus niin tulee mav tai sitten palkki näyttää täydeltä! (kuten sanoin )
(Jos painat liia kaua vasenta näppäintä tulee virhe!)
No.. asiaan:

Code: Select all

Screen 500,300
c=0
maxmaara=1000
imglifebar=LoadImage("Media/life.jpg") 
Repeat

If c=<0 Then c=0
 Text 0,15,"Panosten määrä: "+c+"/"+maxmaara
Text 0,0,"Näytä panosten määrä prossina: "+Prosents(c,maxmaara)+"%"
If c=>maxmaara Then c=maxmaara
 DrawImageBox imglifebar,10,50,0,0,Prosents(c,maxmaara)*2,26
Text 0,30,"Vähennä/lisää"+chr(34)+"panosten"+chr(34)+"määrää Ylös/alas näppäimillä."
Text 0,45,"Vähennä/lisää"+chr(34)+"panosten"+chr(34)+"maksimi määrää oikea/vasen näppäimillä"
C=c+UpKey()-DownKey()
maxmaara=maxmaara+rightkey()-leftkey(cbkeys)



DrawScreen 
Forever 





//Itse funktio
Function Prosents(howmuch,MaxM)
Return howmuch*100/MaxM
EndFunction 

Älkää ottako hernettä nenää

EDIT:

Offtopick: Mutta eihän tämä mikään turha asia ole, eihän?

EDIT:

2. mutta jos haluaa saada drawimage box:in toimimaan kannattaa käyttää tuota mun omaa tietääkseni.

[Harakka]

Prosentti on kyllä englanniksi percent... Kannattaa myös muuttaa jakaja tai jaettava liukuluvuksi niin tulokset ovat tarkempia. Tässä vertailu ja korjattu funktio:

Code: Select all

Print "prosents(1,1.1) = " + prosents(10,11)
Print "percents(1,1.1) = " + percents(10,11)
Print "(Oikea vastaus on 90.9)"
WaitKey

//Itse funktio
Function Percents(howmuch#,MaxM#)
Return Int(howmuch*100/MaxM)
EndFunction

Function Prosents(howmuch,MaxM)
Return howmuch*100/MaxM
EndFunction