Conversion des mesures vb

Soyez le premier à donner votre avis sur cette source.

Vue 4 611 fois - Téléchargée 259 fois

Description

Petit programme sans prétention mais je pense utile. Conversion Twips - Inch - Cm - Himetric - Points et Degrés - Radians

Source / Exemple :


'Il faut 7 TextBox
' twips - inch Cm - Himetrix - Points - Degrés - radians
' Text(0) à Text(6)
' 3 Btns    1) Convertir - 2) Sortie  - 3) Mise à zéro

Private Sub Command1_Click()
Dim x As Integer, y As Integer, Element, Pi
Dim iTwips, iPouce, iCm, iHimetric, iPoint, iDegre, iRadius
Pi = Atn(1) * 4
'
y = 0
    For Each Element In Text()
        If Element <> "" Then
            y = y + 1
        End If
    Next
    If y < 1 Then
        MsgBox "Valeur non saisie", vbCritical
        Exit Sub
    End If
    If y > 1 Then
        MsgBox "Erreur plus d'une valeur", vbCritical
        For x = 0 To 6
            Text(x) = ""
        Next x
        Exit Sub
    End If
    If Text(0) <> "" Then
        iTwips = Text(0)
        iPouce = Text(0) / 1440
        iCm = Text(0) / 567
        iHimetric = Text(0) / 0.567
        iPoint = (Text(0) / 1440) * 72
            ElseIf Text(1) <> "" Then
                iTwips = Text(1) * 1440
                iPouce = Text(1)
                iCm = Text(1) * 2.54
                iHimetric = Text(1) * 2540
                iPoint = Text(1) * 72
                ElseIf Text(2) <> "" Then
                    iTwips = Text(2) * 567
                    iPouce = Text(2) / 2.54
                    iCm = Text(2)
                    iHimetric = Text(2) * 1000
                    iPoint = (Text(2) / 2.54) * 72
                    ElseIf Text(3) <> "" Then
                        iTwips = Text(3) * 0.567
                        iPouce = Text(3) / 2540
                        iCm = Text(3) / 1000
                        iHimetric = Text(3)
                        iPoint = (Text(3) / 2540) * 72
                        ElseIf Text(4) <> "" Then
                            iTwips = (Text(4) * 1440) / 72
                            iPouce = Text(4) / 72
                            iCm = (Text(4) / 72) * 2.54
                            iHimetric = (Text(4) / 72) * 2540
                            iPoint = Text(4)
    End If
    If Text(5) <> "" Then
        iRadius = Text(5) * Pi / 180
        iDegre = Text(5)
        ElseIf Text(6) <> "" Then
            iDegre = Text(6) / Pi * 180
            iRadius = Text(6)
    End If
Text(0) = FormatNumber(iTwips, 0)
Text(1) = FormatNumber(iPouce, 2)
Text(2) = FormatNumber(iCm, 2)
Text(3) = FormatNumber(iHimetric, 0)
Text(4) = FormatNumber(iPoint, 0)
Text(5) = FormatNumber(iDegre, 0)
Text(6) = FormatNumber(iRadius, 4)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Dim Element, x As Integer
    For x = 0 To 6
        Text(x) = ""
    Next x
End Sub

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
Dim chrval
chrval = "0123456789."
    Select Case KeyAscii
        Case vbKeyReturn
            SendKeys "{Tab}"
        Case Else
            If InStr(chrval, Chr(KeyAscii)) = 0 Then KeyAscii = 0
    End Select
End Sub

Conclusion :


Si il y a un bug, merci de m'en faire part.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004

En effet, à l'origine le twips a été créé pour que les fenêtres s'affichent de la même taille sur tous les écrans.. donc il ne faudrait pas prendre un nom fixe. Je pense qu'en changeant le ScaleMode et en récupérant un Scale{Height | Width | Left | ou Top} , on peut faire les conversions plus facilement.
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Ouai c'est pas mal, mais attention car les mesures peuvent varier d'un DC a l'autre en fonction du materiel et de la resolution notement du coté des twips...

@+
Messages postés
28
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
10 mars 2004

Merci pour l'indentation. Pour les commentaires il est vrai qu'à l'origine cet utilitaire n'était pas destiné à être une source. J'y penserai donc la prochaine fois.
Ok pour conversion avex un S, mais convertir est avec un T d'ou Convert.
Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
20
et convertion ca s'ecrit conversion avec un S
Messages postés
2368
Date d'inscription
mardi 17 avril 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
20
Juste c interressant mais plus de commentaire ca aurait été mieux :)
en tout ca c bien indenté :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.