Sujet Précédent Sujet Suivant

CALCULSURFACECERCLE

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 18 nov. 2011 à 19:04
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012 - 2 janv. 2012 à 22:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53774-calculsurfacecercle
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012
2 janv. 2012 à 22:18
Ok c'est du vbs mais jai créer aussi un programe sur le meme principe avec visual_studio_2010 par contre pour l'instant ceci reste une demo car je n'ai pas tout terminer toutes les formes et en plus ji ai rajouter un petit module de conversion des unitées car jme suis aperçue que le pc rend les calcules en "Cm" et moi je les voulais en "mm" ainsi que en "m", en plus il y a kelke délire comme la transparence du programe et d'autre truc, le seul problème qui se pose maintenant c'est que je ne sais pas comment faire pour balancer mon programe sur le net et surtout comment puis-je faire pour le mettre en vente, mais si quelqu'un a une astuce pour moi sa serrais sympa car j'ai une marmitte a faire tourner et sans emploi c'est pas top.
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012
2 janv. 2012 à 22:01
salut GHUYSMAN est bonne année,
Euh j'ai pas compris:
Il vient d'inventer le cercle avec des rayons de longueurs différentes ...
cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
2 janv. 2012 à 21:50
@castou60 : Ce que tu proposes c'est du VBS mais tu as fondamentalement raison.
Il vient d'inventer le cercle avec des rayons de longueurs différentes ...
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012
2 janv. 2012 à 21:47
Si sa interesse quelqu'un j'ai créer un script sous (VBS factory) permettant de calculer certaine forme géometrique comme le cylindre droit ou tronquer,tonneau,tore,polygone etc..., ont peu calculer soit le perimetre la surface ou bien encore le volume quand cela est possible, si quelqu'un a besoin sa peut etre interressant, perso moi jai fait cela car jai un pote qui est une quiche en géométrie, si ça vous dit contacter moi a:
castou60@gmail.com
castou60 Messages postés 28 Date d'inscription mercredi 1 décembre 2010 Statut Membre Dernière intervention 18 novembre 2012
2 janv. 2012 à 21:34
Salut,
Pour commencer bonne année a tous.

je viens de tomber sur ton truc et franchement ya plus simple quand on sait que la formule de calcule est: S= pi x r²

voici ske moi je ferrais:
---------------------------------------------------------------------------------------------
dim surface,pi,diam,ray,raycarrer
pi=4*Atn(1)
diam=inputbox("Entrer le diametre du cercle","Calcule de la surface d'un cercle")&diam
ray=(diam/2)
raycarrer=(ray*ray)
surface=(pi*raycarrer)
surface=fix(surface)
wscript.echo("la surface de ton cercle est de ")&surface, ("Cm²")
---------------------------------------------------------------------------------------------
Et si tu veux tous les chiffres après la virgule tu retire la ligne juste au dessus de wscript.echo .

Voila c'est simple et facile à comprendre @+.
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
20 nov. 2011 à 09:52
PS4 : amusant ton Classé sous :FTITA, ATTFF, KAROUM -_-"
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
20 nov. 2011 à 09:51
SaLuT,
PS1 Calcul(Me.TXT_RAYON1.Text, Me.TXT_RAYON2.Text, Me.TXT_PI.Text) envoyer du texte dans une fonction qui attends des doubles pas terrible non plus ! le conseil de NHenry sur l'option strict te le montrera.
PS2 ta function calcul :
Function Calcul(ByVal Rayon1 As Double, ByVal Rayon2 As Double) as double
calcul = Rayon1 * Rayon2 * 3.14....
end function
PS3 Utilise des maskedtextbox au lieu de vérifier la saisie, même si cela reste un bon réflexe ;)
BOnne prog, et ne poste un pas un code à chaque fois que tu arrive à suivre un tuto ;) Et oui, encore une fois code totalement inutile et qui est surtout non didactique.
cs_ghuysmans99 Messages postés 3982 Date d'inscription jeudi 14 juillet 2005 Statut Membre Dernière intervention 30 juin 2013 16
20 nov. 2011 à 02:39
#If Me.TXT_RAYON1 Is Nothing Or Not IsNumeric(Me.TXT_RAYON1.Text) Then
#Bon = False
#End If
#If Me.TXT_RAYON2 Is Nothing Or Not IsNumeric(Me.TXT_RAYON2.Text) Then
#Bon = False
#End If
Répétition -> mauvais.
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
18 nov. 2011 à 19:04
Bonsoir,

Pour ce genre de code simple à réutiliser, je te conseil plutôt de le déposer sur www.codyx.org (même login que pour VBFrance).

Sinon, actives Option Explicit et Option Strict (propriétés du projet).
Retire l'import automatique de Microsoft.VisualBasic (Onglet Référence des propriétés du projet, Partie du bas).

Corriges toutes les erreurs qui surviennent et reviens ensuite (ou avant, si tu coinces) :)
Rejoignez-nous