File "VB51C.tmp"

Full Path: /home/analogde/www/Dessin/VB51C.tmp
File size: 1.73 KB
MIME-type: text/plain
Charset: 8 bit

Attribute VB_Name = "Module3"
Public Function DessineLiens()

Dim i As Long
Dim pad_lien As Long
Dim broche_lien As Long

If (numero_lien <> 0) Then
    For i = 0 To numero_lien - 1
        pad_lien = Liens(i, 0)
        broche_lien = Liens(i, 1)
        tmp = Objet_PAD(pad_lien).GetPosition_PAD()
        Ax = Pos_X
        Ay = Pos_Y
        tmp = Objet_BROCHE(broche_lien).GetPosition_BROCHE()
        Bx = Pos_X
        By = Pos_Y
        Form_principale.Graphe.Line (Ax, -Ay)-(Bx, -By), RGB(255, 0, 0)
    Next i
 End If

End Function

Public Function calculer_angle(ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double)
 
 Dim conversion_degre As Double
   
 Const PI = 3.14159265358979
 
 ' Angle entre 2 points quelconques
  conversion_degre = 180 / 3.141592
  calculer_angle = Int(Atn((Y1 - Y2) / (X1 - X2)) * conversion_degre * 1000) / 1000
 
 End Function
 
 Public Function calculer_distance(ByVal X1 As Double, ByVal Y1 As Double, ByVal X2 As Double, ByVal Y2 As Double)
 
 calculer_distance = sqrt((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
 
 End Function

Public Function traitement()

Dim i As Long
Dim pad_lien As Long
Dim broche_lien As Long

If (numero_lien <> 0) Then
    For i = 0 To numero_lien - 1
        pad_lien = Liens(i, 0)
        broche_lien = Liens(i, 1)
        tmp = Objet_PAD(pad_lien).GetPosition_PAD()
        Ax = Pos_X
        Ay = Pos_Y
        tmp = Objet_BROCHE(broche_lien).GetPosition_BROCHE()
        Bx = Pos_X
        By = Pos_Y
        Form_principale.Graphe.Line (Ax, -Ay)-(Bx, -By), RGB(255, 0, 0)
        angle = calculer_angle(Ax, Ay, A, A)
 
        
    Next i
 End If


'

' sauvegarde = criture dans un fichier



End Function