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 : 2385
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é | |
| |
|
Calendrier