Aller au contenu

aide pour gestion d\'erreur, etc.


sechanbask

Messages recommandés

Pour ceux qui ont des difficultés pour les interceptions, les gestions, les étiquettes, les Call et les mises en abîme...

 

Option Explicit
Dim fluide As String
'---------------------------------------------------------------------------------------
' Procedure : HYDRAU
' DateTime  : 18/05/2007 21:25
' Author    : 
' Purpose   : v.0.6
'---------------------------------------------------------------------------------------
Sub HYDRAU()

On Error GoTo Gestion

'cherche si la commande a déjà été utilisé et quel fut le fluide dimensionné
'et renvoie l'utilsateur vers le dimensionnement de ce dernier
   Select Case fluide
   Case "eauverte"
   'Debug.Print puissance_entree
   eauverte
   Case "Températurefluide"
   Temperaturefluide
   Case Else

'importation du texte tapé par l'utilisateur
       Dim Inputstring As String
       ThisDrawing.Utility.InitializeUserInput 1, " Paramètres "
'Chaines de caractères caché à l'utilisateur
Dim reel As Single
reel = ThisDrawing.Utility.GetReal("ENTRER UN REEL ou Paramètres [Pa]) :")
'Récupération du réel puis continuation du code ou va vers gestion pour intercepter le P tapé par l'utilisateur
       MsgBox "le réel entré est :" & reel

'si le getreal crée un erreur, le programme continue à gestion dans le cas "-2145320928"
Gestion:
       Select Case Err.Number
       Case "-2145320928"
'Interception de l'"erreur" pour gérer le choix de l'utilisateur
   Inputstring = ThisDrawing.Utility.GetInput
'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur
           Select Case Inputstring
'si l'utilisateur a tapé un P:
           Case "Paramètres"
           Dim Inputstring2 As String
           Dim Choix_fonctions As String
           ThisDrawing.Utility.InitializeUserInput 2, " Eauverte Températurefluide "
'Chaines de caractères caché à l'utilisateur

           Choix_fonctions = ThisDrawing.Utility.GetKeyword("Choix du fluide [Ev/Tf] :")
           MsgBox "Interception réussie : " & Choix_fonctions
   
               Select Case Choix_fonctions
               Case "Eauverte"
               eauverte
               Case "Températurefluide"
               Temperaturefluide
               End Select
           End Select
       End Select
   End Select

End Sub



Function eauverte()
'a modifier pour retour vers choix
'puissance_entree = ThisDrawing.Utility.GetReal("Puissance Eau Glacée en kW :")
On Error GoTo errorEG
ThisDrawing.Utility.InitializeUserInput 1, " Paramètres "
Dim tempeauverte As Single
tempeauverte = ThisDrawing.Utility.GetReal("température eau verte en °C (Pa)[Pa]):")


fluide = "eauverte"
MsgBox tempeauverte & "°C"


errorEG:
   Select Case Err.Number
   Case 13
'Message d'erreur automatiquement crée par autocad
   Case "-2147352567"
'point d'insertion annulé
   Case "-2145320928"
'Interception de l'"erreur" pour gérer le choix de l'utilisateur
   Dim Inputstring As String
   Inputstring = ThisDrawing.Utility.GetInput
'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur
       Select Case Inputstring
       Case "Paramètres"
       fluide = ""
       Call HYDRAU
       Case Else
       End Select
       
   End Select

End Function


Function Temperaturefluide()
On Error GoTo errorTf
ThisDrawing.Utility.InitializeUserInput 1, " Paramètres "
Dim Temperature_estivale As Single
Temperature_estivale = ThisDrawing.Utility.GetReal("Temperaturedouce en °C ou (Pa)[Pa]):")
  


MsgBox "Températuredouce =" & Temperature_estivale & "°C"

fluide = "Temperaturefluide"
   

'si erreur ou interception sur paramètres
errorTf:
   Select Case Err.Number
   Case "-2145320928"
'Interception de l'"erreur" pour gérer le choix de l'utilisateur
   Dim Inputstring As String
   Inputstring = ThisDrawing.Utility.GetInput
'récuperéation de chaine de caractères réprésentée par les caractères proposés à l'utilisateur
       Select Case Inputstring
       Case "Paramètres"
   'vide la varible fluide pour ne pas revenir sur la fonction température douce
       fluide = ""
       Call HYDRAU
       Case Else
       End Select
       
   End Select

End Function

 

 

Si j'ai pas assez détaillé, demandez, ma consultation est gratuite...

 

P.S. Pour ceux qui cherchent à savoir à quoi ça sert... disons que sous cette forme, ben ça sert à rien. Néanmoins avec un peu (voire très peu) de modification, ça peut devenir assez puissant. Je livre le code source pour le reste, prouvez-moi que ce post n'est pas vain. A vos claviers !!

 

[Edité le 20/6/2007 par sechanbask]

ATEGIE - Bureau d'Études Fluides

http://www.ategie.fr/uploads/ategie/ategie-at%C3%A9gie-bureau-%C3%A9tudes-etudes-fluides-logo-100x56.png

Exécution, Synthèse, Conception, Maîtrise d'Oeuvre, Audit, Chiffrage

www.ategie.fr

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité