libreoffice-dmaths 3.4+dfsg1-1 / usr / lib / libreoffice / share / extensions / DmathsAddon / OOoGdmath / PolygoneRegulierCode.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="PolygoneRegulierCode" script:language="StarBasic">&apos;OOoGdmath
&apos;Copyright (C) 2005-2009  Gilles Daurat

&apos;This program is free software; you can redistribute it and/or
&apos;modify it under the terms of the GNU General Public License
&apos;as published by the Free Software Foundation; either version 2
&apos;of the License, or (at your option) any later version.

&apos;This program is distributed in the hope that it will be useful,
&apos;but WITHOUT ANY WARRANTY; without even the implied warranty of
&apos;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
&apos;GNU General Public License for more details.

&apos;You should have received a copy of the GNU General Public License
&apos;along with this program; if not, write to the Free Software
&apos;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Option Explicit

Dim oPolygoneRegulierForm as Object

Sub Main
	oPolygoneRegulierForm = LoadDialog(&quot;OOoGdmath&quot;,&quot;PolygoneRegulierForm&quot;)
	ChangeTitreDialog(oPolygoneRegulierForm)

    oPolygoneRegulierForm.Model.OptionButton1.ImageURL = fCheminImages &amp; &quot;poly1.gif&quot;
    oPolygoneRegulierForm.Model.OptionButton2.ImageURL = fCheminImages &amp; &quot;poly2.gif&quot;

&apos;	RestaureForm(oPolygoneRegulierForm)
	oPolygoneRegulierForm.Execute()
End Sub

Private Sub CheckBox1_Click()
    oPolygoneRegulierForm.Model.TextBox3.Enabled = oPolygoneRegulierForm.Model.CheckBox1.State
End Sub
Private Sub CheckBox2_Click()
    oPolygoneRegulierForm.Model.CheckBox7.Enabled = oPolygoneRegulierForm.Model.CheckBox2.State
End Sub
Private Sub CheckBox6_Click()
    oPolygoneRegulierForm.Model.CheckBox8.Enabled = oPolygoneRegulierForm.Model.CheckBox6.State
End Sub
Private Sub CheckBox9_Click()
    oPolygoneRegulierForm.Model.CheckBox10.Enabled = oPolygoneRegulierForm.Model.CheckBox9.State
End Sub
Private Sub CommandButton1_Click()
    Dim unObjet As Object
    Dim UnPointille As String
    Dim secArray() As Single
    Dim posx, posy, NombreCotes, tt, rayon, x0, y0, i, xx, yy, x1, y1, LeNomPoint
    Dim UneCourbe as Object, LeCercle as Object
	Dim Shapes as Object
	
    oPolygoneRegulierForm.EndExecute()
	SauveForm(oPolygoneRegulierForm)
	InitialiseDessin(False)
    Shapes=InitialiseGroupe
    
    PointInsertion posx, posy
    NombreCotes = Val(oPolygoneRegulierForm.Model.TextBox1.Text)
    ReDim secArray(0 To NombreCotes , 0 To 1)
    tt = oPolygoneRegulierForm.Model.TextBox2.Text
    RemplaceVirgulePoint tt
    rayon = CentimetersToPoints(Val(tt))
    If NombreCotes &lt; 3 Or Int(NombreCotes) &lt;&gt; NombreCotes Then
        MsgBox1 &quot;Le nombre de côtés doit être un nombre entier&quot; + Chr(13) + &quot;supérieur ou égal à 3...&quot;, vbOKOnly
    Else
        x0 = 100
        y0 = 100
        secArray(0, 0) = x0 + rayon
        secArray(0, 1) = y0
        If oPolygoneRegulierForm.Model.CheckBox2.State Then
            InsereLigne x0, y0, x0 + rayon, y0, Shapes, oPolygoneRegulierForm.Model.Image3
        End If
        For i = 1 To NombreCotes
            xx = x0 + rayon * Cos(i * 2 * Pi / NombreCotes)
            yy = y0 + rayon * Sin(i * 2 * Pi / NombreCotes)
            secArray(i, 0) = xx
            secArray(i, 1) = yy
            If oPolygoneRegulierForm.Model.CheckBox2.State Then
                InsereLigne x0, y0, xx, yy, Shapes, oPolygoneRegulierForm.Model.Image3
                If oPolygoneRegulierForm.Model.CheckBox7.State Then CodeLongueur x0, y0, xx, yy, 1, Shapes
            End If
            If oPolygoneRegulierForm.Model.CheckBox6.State Then
                x1 = x0 + rayon * Cos((i * 2 + 1) * Pi / NombreCotes) * Cos(Pi / NombreCotes)
                y1 = y0 + rayon * Sin((i * 2 + 1) * Pi / NombreCotes) * Cos(Pi / NombreCotes)
                InsereLigne x0, y0, x1, y1, Shapes, oPolygoneRegulierForm.Model.Image5
                MarqueAngleDroit x1, y1, x0, y0, Shapes
                If oPolygoneRegulierForm.Model.CheckBox8.State Then CodeLongueur x0, y0, x1, y1, 2,Shapes
            End If
            If oPolygoneRegulierForm.Model.CheckBox4.State Then
                xx = xx + 500 * Cos(i * 2 * Pi / NombreCotes)
                yy = yy + 500 * Sin(i * 2 * Pi / NombreCotes)
                If OOoGdmath_TypeNommage &lt;&gt; 0 Then
                    InsereTexte oPolygoneRegulierForm.Model.TextBox4.Text + Trim(Str(iif(OOoGdmath_SensNommage=0,i,NombreCotes+1-i))), xx, yy, Shapes, 0, 0, 0
                Else
                    InsereTexte Chr(Asc(oPolygoneRegulierForm.Model.TextBox4.Text) + iif(OOoGdmath_SensNommage=0,i,NombreCotes+1-i) - 1), xx, yy, Shapes, 0, 0, 0
                End If
            End If
        Next i
        UneCourbe = InserePolygone(secArray, i, Shapes, oPolygoneRegulierForm.Model.Image1)
        If oPolygoneRegulierForm.Model.CheckBox1.State Then
            If Not oPolygoneRegulierForm.Model.CheckBox2.State Then croix x0, y0, Shapes
            InsereTexte oPolygoneRegulierForm.Model.TextBox3.Text, x0, y0, Shapes, 0
        End If
        If oPolygoneRegulierForm.Model.CheckBox3.State Then
            leCercle = InsereCercle(x0, y0, rayon, Shapes)
            IOAttribut leCercle, oPolygoneRegulierForm.Model.Image2
        End If
        If oPolygoneRegulierForm.Model.CheckBox5.State Then
            leCercle = InsereCercle(x0, y0, rayon * Cos(Pi / NombreCotes), Shapes)
            IOAttribut leCercle, oPolygoneRegulierForm.Model.Image4
        End If
		Dim aPoint As New com.sun.star.awt.Point
	    Dim TheSize as new com.sun.star.awt.Size
	    Dim Group as Object
	    Dim Coeff
    
		aPoint.x=3000
		aPoint.y=3000
		Group = GroupeObjet(Shapes)
		Group.Position=aPoint
		TermineDessin()
    End If
End Sub
Private Sub CommandButton2_Click()
    oPolygoneRegulierForm.EndExecute()
End Sub
Private Sub Image1_Click()
    ChangeCouleur oPolygoneRegulierForm.Model.Image1
End Sub
Private Sub Image2_Click()
    ChangeCouleur oPolygoneRegulierForm.Model.Image2
End Sub
Private Sub Image3_Click()
    ChangeCouleur oPolygoneRegulierForm.Model.Image3
End Sub
Private Sub Image4_Click()
    ChangeCouleur oPolygoneRegulierForm.Model.Image4
End Sub
Private Sub Image5_Click()
    ChangeCouleur oPolygoneRegulierForm.Model.Image5
End Sub
Private Sub TextBox2_Change()
Dim tt, ri
    tt = oPolygoneRegulierForm.Model.TextBox2.Text
    RemplaceVirgulePoint tt
    ri = Val(tt) * Cos(Pi / Val(oPolygoneRegulierForm.Model.TextBox1.Text))
    If oPolygoneRegulierForm.Model.TextBox5.Text &lt;&gt; Trim(Str(ri)) Then oPolygoneRegulierForm.Model.TextBox5.Text = Trim(Str(ri))
End Sub
Private Sub TextBox5_Change()
Dim tt, rc
    tt = oPolygoneRegulierForm.Model.TextBox5.Text
    RemplaceVirgulePoint tt
    rc = Val(tt) / Cos(Pi / Val(oPolygoneRegulierForm.Model.TextBox1.Text))
    If oPolygoneRegulierForm.Model.TextBox2.Text &lt;&gt; Trim(Str(rc)) Then oPolygoneRegulierForm.Model.TextBox2.Text = Trim(Str(rc))
End Sub
Private Sub UserForm_Initialize()
Dim x, y
    StartUpPosition = 0
    x = Left
    y = Top
    ChangeSPForm x, y, Width, Height
    Left = x
    Top = y
    ChargeCouleurDefaut oPolygoneRegulierForm.Model.Image1
    ChargeCouleurDefaut oPolygoneRegulierForm.Model.Image2
    ChargeCouleurDefaut oPolygoneRegulierForm.Model.Image3
    ChargeCouleurDefaut oPolygoneRegulierForm.Model.Image4
    ChargeCouleurDefaut oPolygoneRegulierForm.Model.Image5
End Sub


</script:module>