Prosentteina palautus (käy esim health palkkeihin)

Oletko tehnyt jotain, mistä muut voisivat hyötyä. Postita vinkit tänne.
Post Reply
User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Prosentteina palautus (käy esim health palkkeihin)

Post by MaGetzUb » Wed Oct 31, 2007 9:34 pm

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. :shock: 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 :D)
(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ää :D
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.

Last edited by MaGetzUb on Wed Oct 31, 2007 11:38 pm, edited 2 times in total.
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

User avatar
Harakka
Advanced Member
Posts: 430
Joined: Mon Aug 27, 2007 9:08 pm
Location: Salo
Contact:

Re: Prosentteina palautus (käy esim health palkkeihin)

Post by Harakka » Wed Oct 31, 2007 10:12 pm

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
Peli piirtokomennoilla - voittaja, Virtuaalilemmikkipeli - voittaja,
Sukellusvenepeli - voittaja, Paras tileset - voittaja
Vaihtuva päähenkilö - voittaja, Autopeli - voittaja sekä
Hiirellä ohjattava peli - voittaja B)

Post Reply