aide moi Résolu

Question

Je suis entre de developer un programe en VB6 pour le travail pratique ,de calcul de salaire.Suis bloquer on niveau de different calcul, mes codes n'additione pas, ne soustre pas draisser moi se code SVP
'Public Function addition(pcf As Integer, sbase As Integer)
'Public Function soustraction(brut As Integer, inss As Integer)
'Dim brut As Integer
'Dim soldeI As Integer
sbase.Text = base * nbrejours / 30
pfc = base * 12 * nbrejours * 30 / 100
brut.Text = Int(pfc + sbase)
'brut = addition
inss.Text = brut * 3 / 100
soldeI.Text = Int(brut - inss)
impot.Text = soldeI * 5 / 100
'Text30.Text = Val(Text29 - Text14)
soldeII.Text = Int(soldeI - impot)
enclavement.Text = enclave * nbrejours / 30
entretienhabitation.Text = entretien * nbrejours / 30
netapayer.Caption = Int(soldeII.Text + enclavement.Text + entretienhabitation.Text)
'End Function
'End Function
aidez moi

limelloyd · Accepted Answer

Private Sub calculenet_Click()
Dim addition As Integer

val(sbase.Text) = Int((base * nbrejours) / 30)
pfc = Int(((base * 12 * nbrejours) * 30) / 100)
val(brut.Text) = Int(pfc + sbase)
val(inss.Text) = Int((brut * 3)/100)
val(soldeI.Text) = Int(brut - inss)
val(impot.Text) = Int((soldeI * 5) / 100)
val(soldeII.Text) = Int(soldeI - impot)
val(enclavement.Text) = Int((enclave * nbrejours) / 30)
val(entretienhabitation.Text) = Int((entretien * nbrejours) / 30)

val(netapayer.Caption) = Int(val(soldeII.Text) + val(enclavement.Text) + val(entretienhabitation.Text))
End Sub

ou esce que tu utilise ta variable "addition"
envoi moi aussi le code ou tu declare toute les autres variable que tu utilise dans ce code la.

cs_ShayW · Answer

Salut 
Premier  BUG  LOL
tu as oublié de dire bonjour 

qu'est ce qui ne marche pas tu as  une erreur 
tu as écrit 

si tu envoies un code sers toi du code icon et
choisis VB

cs_ShayW · Answer

et aussi
'Public Function addition(pcf As Integer, sbase As Integer) 
'Public Function soustraction(brut As Integer, inss As Integer) 

tu ne peux pas déclarer une fonction dans l'autre

willyadok · Answer

Salut, quand vous parlez de code icone que c'est que vous voulait dire, mon vrais probleme en est que mon programme n'additione mais il raproche les deux valeurs et la meme chose pour la soustraction,le pourcentage et le virgule ne sont pas reconue dans mon programme si vous me faire des solution sa m'aidera d'avance.

willyadok · Answer

Bonjour,
Faite moi  cette solution pour que j'avance dans le developement de cet projet.

cs_ShayW · Answer

Bonsoir                             ici au dessus

Quand on veut ajouter un code regarde au dessus
le tool bar passe le curseur sur le 3eme icon
de droite(ici au dessus) choisis VB dans la liste
et passe ton code entre 
'
'
comme ça c'est plus lisible 
tu peux me tutoyer

willyadok · Answer

Que fairai je pour que mon programme additione et aussi soustrai au lieu de rapproché les deux valeurs, c'est à dire par exemple A 1 + 1 2 , B = 2 + 2 = 4 et C = A + B ca me donne C = 24 au lieu que C soit egale à 6 , aide moi.

willyadok · Answer

Bonjours, Envoyer moi le code pour cette calcul donc pour l'addition et soustraction puis coment calculer avec le pourcentage.impot = soldeI * 3,5%)et puisbrut = pfc + sbase etsoldeI = brut - inss.

cs_ShayW · Answer

Bonjour

Envoies toutes la fonction que tu as écrit
et pas 2 lignes 

Bonjours, Envoyer moi le code pour cette calcul donc pour l'addition et soustraction puis coment calculer avec le pourcentage

limelloyd · Answer

Salut !! je vois quel est ton soucis. le fait que sa rapproche les deux valeurs, c'est juste que tu fais une concaténation au lieu d'une addition.

D'abord vu qu'il s'agit de calcul de salaire tu devrais defini tes variables au type réel selon moi.

mais bon le problème est due aux imbrications que tu fais. quand l'imbrication est mal faite VB considère cela comme un caractère alors il concatène (rapproche les deux) au lieu d'additionner.
tu as surement oublier les "val()" et aussi les .text !! vérifie tous sa, et si sa ne passe toujours pas!
envoie moi ton formulaire je vais essayer de voir, car ton code n'est pas trop explicite ici : prospermails@yahoo.fr

j'èspere avoir aidé.

willyadok · Answer

Salut voici tous ces codes, aisayé de ma porter ton aide ,

Private Sub calculenet_Click()
sbase.Text = Int(base * nbrejours / 30)
pfc = Int(base * 12 * nbrejours * 30 / 100)
brut.Text = Int(pfc + sbase)
inss.Text = Int(brut * 3 / 100)
soldeI.Text = Int(brut - inss)
impot.Text = Int(soldeI * 5 / 100)
soldeII.Text = Int(soldeI - impot)
enclavement.Text = Int(enclave * nbrejours / 30)
entretienhabitation.Text = Int(entretien * nbrejours / 30)
Dim addition As Integer
netapayer.Caption = Int(soldeII.Text + enclavement.Text + entretienhabitation.Text)
End Sub
Mercis pour ton acompagnement.

willyadok · Answer

salut
merci beaucoup mon frere sa additione mais mon deuxieme probleme d'utilisation de pourcentage et de virgule par exemple 
impot = int(brut * 3,5%)

Bonne suite

limelloyd · Answer

Okay je suis ravi d'avoir pu d'aider. concernant le pourcentage, il y'a deux possibilité, s'il s'agit d'un taux fixe ou variable. si "impot" et "brut " sont des variables. (3.5% = 0.035)

exple :

impot=(brut*0.035)

willyadok · Answer

Suit vraiment tres renvis de votre atention en mon egard mais j'espere que sa n'est te derange pas si je te presente d'autre difficulte que je. Par exemple lutilisation de liste Box et de l'option date.

willyadok · Answer

Salut , je doit gerer plus de 8 grade avec le texte box il me faut chaque fois saisir et la fonction date pour la gestion de date d'engagement des Agents.

willyadok · Answer

Avec le code ci dessous la date n'est pas modifiable 
Private Sub date_Date()
Dim date As Date
date.Text =#01/01/2010 
aidez moi mes chers

limelloyd · Answer

salut, ravi que les solutions que je t'ai donné ont pu t'aider. Pour le reste de tes problèmes expose les clairement, exprime toi mieux j'arrive pas a bien comprendre.

Pour la date utilise un datapicker, et initiale le à la date du system sur le LOAD de ton formulaire.

pour tes 8 grades dont tu parle pour éviter de saisir a chaque fois utilise un combobox.

pour la listview, tu fais un clique droit dessus et tu rempli les propriété selon ...

willyadok · Answer

Bonjour 
Datapicker ,je n'ai pas pu l'utilisé tu dis que il faut le mettre dans le load de la formulaire . Si possible ullistre le pour moi avec un exemple.
car j' ai esayé de l'utilise je n'ai pas pu. 
Aide moi.

limelloyd · Answer

salut je vois que tu as de nombreux problemes, aussi que t'as pas de bonne base en Vb6. je me propose de t'aider, tu es de quel pays, si on est du meme pays on peu se rencontrer pour resoudre tes soucis.

sinon envoi moi tout tn projet par mail.

Aide moi

19 réponses

Votre réponse