1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101
|
PROCÉDURE Progresse(LOCAL moProgresse est un monétaire)
moX1 est un monétaire
moY1 est un monétaire
moX2 est un monétaire
moY2 est un monétaire
moX3 est un monétaire
moY3 est un monétaire
moX4 est un monétaire
moY4 est un monétaire
moXC est un monétaire
moYC est un monétaire
moXT est un monétaire
moYT est un monétaire
nCouleurFond est un entier
nCouleurTexte est un entier
moAngle est un monétaire
moMargeExt est un monétaire
moEpaisseur est un monétaire
moMargeExt = 1
moEpaisseur = 10
moX1 = moMargeExt
moY1 = moMargeExt
moX2 = IMG_Jauge..Largeur - (2 * moMargeExt)
moY2 = IMG_Jauge..Hauteur - (2 * moMargeExt)
moXC = ((moX2 - moX1) / 2)
moYC = ((moY2 - moY1) / 2)
moXT = moXC - (moProgresse = 100 ? 60 SINON (moProgresse < 10 ? 40 SINON 50))
moYT = moYC - 15
moX4 = moXC
moY4 = moY2
nCouleurTexte = BleuFoncé
SELON moProgresse
CAS < 0
moX3 = -1
moY3 = -1
nCouleurTexte = OrangeFoncé
CAS = 0
moX3 = -1
moY3 = -1
CAS <= 25
moAngle = (moProgresse * 90 ) / 25
moX3 = moXC - ((moXC - moX1) * Sinus(moAngle))
moY3 = moYC + ((moYC - moY1) * Cosinus(moAngle))
CAS <= 50
moAngle = ((moProgresse - 25) * 90 ) / 25
moX3 = moXC - ((moXC - moX1) * Cosinus(moAngle))
moY3 = moYC - ((moYC - moY1) * Sinus(moAngle))
CAS <= 75
moAngle = ((moProgresse - 50) * 90 ) / 25
moX3 = moXC + ((moXC - moX1) * Sinus(moAngle))
moY3 = moYC - ((moYC - moY1) * Cosinus(moAngle))
CAS < 100
moAngle = ((moProgresse - 75) * 90 ) / 25
moX3 = moXC + ((moXC - moX1) * Cosinus(moAngle))
moY3 = moYC + ((moYC - moY1) * Sinus(moAngle))
CAS = 100
moX3 = moX4
moY3 = moY4
CAS > 100
moX3 = moX4
moY3 = moY4
nCouleurTexte = RougeClair
AUTRE CAS
moX3 = -1
moY3 = -1
FIN
nCouleurFond = RGB(RGBRed(MaFenêtre..CouleurFond) - 10, RGBGreen(MaFenêtre..CouleurFond) - 10, RGBBlue(MaFenêtre..CouleurFond) - 10)
dDébutDessin(IMG_Jauge,dEffacer)
dChangeMode(IMG_Jauge,dessinAntiAliasing)
dCercle(IMG_Jauge,moX1-moMargeExt,moY1-moMargeExt,moX2+moMargeExt,moY2+moMargeExt, nCouleurFond, nCouleurFond)
SI moX3 >= 0 ALORS dPortion(IMG_Jauge,moX1,moY1,moX2,moY2,moX3,moY3,moX4,moY4,BleuClair, BleuClair)
dCercle(IMG_Jauge,moX1+moEpaisseur,moY1+moEpaisseur,moX2-moEpaisseur,moY2-moEpaisseur, MaFenêtre..CouleurFond, MaFenêtre..CouleurFond)
dPolice(IMG_Jauge,"Tahoma", 22, iGras)
dTexte(IMG_Jauge, moXT, moYT, NumériqueVersChaîne(moProgresse, "3,1F") + " %", nCouleurTexte)
IMG_Jauge..Note = moProgresse |
Partager