Procedure VB
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'aimerais créer une procédure/fonction sur VB qui se présenterait sous cette forme
Public Sub cout(ByVal k As String, ByVal c As Char)
Avec c soit un + soit un -
Et qui résoudrait:
If k= " " then calorie = calorie + c + 30
Cependant, comme je m'y attendais, cela ne marche pas, savez vous comment je peux faire?
Je vous remercie!!!
J'aimerais créer une procédure/fonction sur VB qui se présenterait sous cette forme
Public Sub cout(ByVal k As String, ByVal c As Char)
Avec c soit un + soit un -
Et qui résoudrait:
If k= " " then calorie = calorie + c + 30
Cependant, comme je m'y attendais, cela ne marche pas, savez vous comment je peux faire?
Je vous remercie!!!
A voir également:
- Procedure VB
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Procédure de frigo vide ✓ - Forum Consommation & Internet
- Le point d'entree de procedure est introuvable kernel32 dll ✓ - Forum Windows
- Le point d'entrée de procédure iswow64process2 est introuvable - Forum Windows
4 réponses
Bonjour
If k= " " then calorie = calorie + c + 30
???
Calorie c'est quoi ?
K "égale" un espace ?
dis plutôt ce que tu cherches à faire, ce sera + efficace :-)
Dans l'attente
If k= " " then calorie = calorie + c + 30
???
Calorie c'est quoi ?
K "égale" un espace ?
dis plutôt ce que tu cherches à faire, ce sera + efficace :-)
Dans l'attente
En fait,
Le but de mon programme est de créer une interface permettant de calculer l'apport calorifique d'un personne durant la journée.
Et au lieu de créer une base de données (ce que je ne sais pas faire, peut être est ce plus facile?), j'ai fait deux listes sur mon interface, une première dans laquelle s'affiche la liste des différents aliments (boisson, viande,...) et une deuxième où s'ajoute les aliments choisis (donc mangés) par l'utilisateur.
Ainsi, au moment de la validation, mon programme doit reconnaitre l'aliment et ajouter à son "panier" (ici calorie) le nombre de calorie correspondant à l'aliment.
Seulement, si l'utilisateur s'est trompé, on doit enlever la valeur correspondante à son panier. Et comme j'ai plein de Case...(pour ma base de données calorifique), j'ai préféré créer une procédure Public Sub cout(ByVal k As String, ByVal c As Char) où j'aimerais que c soit un + pour la validation ou un - pour la suppression de l'aliment sélectionné.
J'espère que j'ai été plus claire et j'attends votre réponse avec impatience.
Peut être avez vous d'autres idées à me donner?
Merci beaucoup!
Le but de mon programme est de créer une interface permettant de calculer l'apport calorifique d'un personne durant la journée.
Et au lieu de créer une base de données (ce que je ne sais pas faire, peut être est ce plus facile?), j'ai fait deux listes sur mon interface, une première dans laquelle s'affiche la liste des différents aliments (boisson, viande,...) et une deuxième où s'ajoute les aliments choisis (donc mangés) par l'utilisateur.
Ainsi, au moment de la validation, mon programme doit reconnaitre l'aliment et ajouter à son "panier" (ici calorie) le nombre de calorie correspondant à l'aliment.
Seulement, si l'utilisateur s'est trompé, on doit enlever la valeur correspondante à son panier. Et comme j'ai plein de Case...(pour ma base de données calorifique), j'ai préféré créer une procédure Public Sub cout(ByVal k As String, ByVal c As Char) où j'aimerais que c soit un + pour la validation ou un - pour la suppression de l'aliment sélectionné.
J'espère que j'ai été plus claire et j'attends votre réponse avec impatience.
Peut être avez vous d'autres idées à me donner?
Merci beaucoup!
Bonjour le forum,
Dans un premier temps : "ByVal c As Char"
Char n'est pas un type de variable reconnu par VB, sauf si le type Char a été défini par l'utilisateur.
Deuxièmement : "calorie = calorie + c + 30" sera reconnu comme une concaténation et non comme une addition.
Un select Case ferait bien l'affaire ici:
Dans un premier temps : "ByVal c As Char"
Char n'est pas un type de variable reconnu par VB, sauf si le type Char a été défini par l'utilisateur.
Deuxièmement : "calorie = calorie + c + 30" sera reconnu comme une concaténation et non comme une addition.
Un select Case ferait bien l'affaire ici:
Select Case c
Case "+"
calorie = calorie + 30
case "-"
calorie = calorie - 30
End Select
Oui pourquoi pas, mais cela ne va t il pas faire too much?
Parce que du coup pour tous les aliments, je vais avoir:
Public Sub cout(ByVal k As String, byval c as string??)
Select Case k
Case "-Thé glacé pour 100ml"
select case c
case "+"
Calorie = calorie + 30
case "-"
calorie = calorie - 30
end Select
Case "aliment suivant (environ une centaine)"...
Ou je suis à côté de la plaque?
Je suis vraiment débutante et du coup je connais pas les autres possibilités, pour gérer une aussi grosse base de données, en connaissez vous en une?
Merci!
Parce que du coup pour tous les aliments, je vais avoir:
Public Sub cout(ByVal k As String, byval c as string??)
Select Case k
Case "-Thé glacé pour 100ml"
select case c
case "+"
Calorie = calorie + 30
case "-"
calorie = calorie - 30
end Select
Case "aliment suivant (environ une centaine)"...
Ou je suis à côté de la plaque?
Je suis vraiment débutante et du coup je connais pas les autres possibilités, pour gérer une aussi grosse base de données, en connaissez vous en une?
Merci!