aide pour gestion d\'erreur, etc.

[sechanbask]

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]