pascal10000
Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011
| Sujet: a laide pour codé Jeu 19 Déc 2019 - 17:09 | |
| Bonsoir a vous tous
Qui peut m'aider a codé selon le tableau ci dessous pour faire le calcul
CP < 1350 | 1350 = CP < 1500 | CP >= 1500 Cadences lentes K = 25 | K = 25 - 10 x (CP – 1350) / 150 | K = 15 Cadences accélérées K = 15 | K = 15 - 10 x (CP – 1350) / 150 | K = 5
voici le code que j'en ai déduit mais je doute qu'il soit bon
Pts$=grid_read$(Grd,PosY,Pos+6) If Val(Pts$)=<1350 Then K=25 If Val(Pts$)=>1500 Then K=15 If K=25 And Val(Pts$)>1350 And Val(Pts$)<1500 Then K=(15*(Val(Pts$)-1350))/150 If K=15 And Val(Pts$)>1350 And Val(Pts$)<1500 Then K=(15*(Val(Pts$)-1350))/150 Pts$=grid_read$(Grd,PosY,Pos+3) Pts1$=grid_read$(Grd,PosY,Pos+4) Res=(Val(Pts$)-Val(Pts1$))*K Grid_Write Grd,PosY,Pos+7,Res1$
merci d'avance et bonne soirée
| |
|
Marc
Nombre de messages : 2466 Age : 63 Localisation : TOURS (37) Date d'inscription : 17/03/2014
| Sujet: Re: a laide pour codé Ven 20 Déc 2019 - 1:10 | |
| Bonjour à tous ! @Pascal10000 Je te propose pour exemple, ce petit programme qui calcul K en fonction du capital-points et de la cadence. Je n'ai pas arrondi le résultat de K. Tu peux ajouter la fonction INT() pour n'afficher que le partie entière de K. Les calculs conditionnels sont effectués lignes 32 à 35. Tu pourras aisément utiliser une partie de ce programme pour l'adapter à ton tableau. Bonne programmation ! - Code:
-
' Calcul de K en fonction de la cadence et du CP du joueur
LABEL Calcul DIM CP : ' Capital points joueur DIM K1 : ' valeur de K en cadences lentes DIM K2 : ' valeur de K en cadences accelerees
EDIT 1 : ' Zone de saisie du CP LEFT 1,10 TOP 1,10
ALPHA 2 LEFT 2,145 TOP 2,15 CAPTION 2,"<= Entrez le CP du joueur"
ALPHA 3 : ' Affichage de K1 (cadences lentes) LEFT 3,10 TOP 3,50
ALPHA 4 : ' Affichage de K2 (cadences accélérées) LEFT 4,10 TOP 4,100
ON_CHANGE 1,Calcul
END
Calcul: IF NUMERIC(TEXT$(1))= 0 THEN k1 = 0 : K2 = 0: AfficheK() : RETURN CP = Val(TEXT$(1)) IF CP < 1350 THEN K1 = 25 : K2 = 15 : AfficheK() : RETURN IF CP >= 1500 THEN K1 = 15 : K2 = 5 : AfficheK() : RETURN K1 = 25-10*(CP-1350)/150 K2 = 15-10*(CP-1350)/150 AfficheK() RETURN
SUB AfficheK() CAPTION 3,"K = " + STR$(K1)+" en cadences lentes" CAPTION 4,"K = " + STR$(K2)+" en cadences accélérées" END_SUB | |
|
pascal10000
Nombre de messages : 812 Localisation : Troyes Date d'inscription : 05/02/2011
| Sujet: Re: a laide pour codé Ven 20 Déc 2019 - 10:59 | |
| merci marc de ton intervention
je vais regarder ça au plus près | |
|
Contenu sponsorisé
| Sujet: Re: a laide pour codé | |
| |
|