Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 16 04:14:42

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Maths

> MACRO ÉQUATIONS DU SECOND DEGRÉ AVEC AUTOCAD 2004

MACRO ÉQUATIONS DU SECOND DEGRÉ AVEC AUTOCAD 2004

Information sur la source

Note :
Aucune note

Catégorie :Maths Niveau :Débutant Date de création :04/11/2004 Date de mise à jour :04/11/2004 07:33:31 Vu / téléchargé :4 182 / 270

Auteur : zhiaro

Ecrire un message privé

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

salut bon j'ai essayé de résoudre des équations du second degré avec autocad 2004 en support graphique...bon ca marche a vous de voir...avant de résoudre une équation faites un axes en 0,0,0 avec un espacement de grille de 0.5 (pour les autocadiens!) @+

Source

Private Sub CommandButton1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim DELTA As Integer
Dim RESUL1 As Single
Dim RESUL2 As Single
Dim RESUL3 As Single
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
DELTA = (B ^ 2) - 4 * (A * C)
If DELTA > 0 Then
RESUL1 = ((-B) - Sqr(DELTA)) / (2 * A)
RESUL2 = ((-B) + Sqr(DELTA)) / (2 * A)
Label1.Caption = "les deux solutions sont "
Label2.Caption = RESUL1
Label3.Caption = RESUL2
End If
If DELTA = 0 Then
RESUL3 = (-B) / (2 * A)
Label1.Caption = "la solution est"
Label2.Caption = RESUL3
Label3.Visible = False
End If
If DELTA < 0 Then
Label1.Caption = " pas de solution"
End If
End Sub
Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Single
Dim ya As Single
Dim yb As Single
Dim yc As Single
Dim yd As Single
Dim ye As Single
Dim yf As Single
Dim yg As Single
Dim yh As Single
Dim yi As Single
Dim yj As Single
Dim yk As Single
Dim yl As Single
Dim ym As Single
Dim yn As Single
Dim yo As Single
Dim yp As Single
Dim yq As Single
Dim yr As Single
Dim ys As Single
Dim yt As Single
Dim yu As Single
Dim yv As Single
Dim yw As Single
Dim yx As Single
Dim yy As Single
Dim yz As Single
Dim yza As Single
Dim yzb As Single
Dim yzc As Single
Dim yzd As Single
Dim yze As Single
Dim yzf As Single
Dim yzg As Single
Dim yzh As Single
Dim yzi As Single
Dim yzj As Single
Dim yzk As Single
Dim yzl As Single
Dim yzm As Single
Dim yzn As Single
Dim yzo As Single
Dim yzp As Single
Dim yzq As Single
Dim yzr As Single
Dim yzs As Single
Dim yzt As Single
Dim yzu As Single
Dim yzv As Single
Dim yzw As Single
Dim yzx As Single
Dim plineObj As AcadPolyline
Dim points(0 To 152) As Double
Dim A As Integer
Dim B As Integer
Dim C As Integer
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
y = (A * ((-3) ^ 2)) + (B * (-3)) + C
ya = (A * ((-2.9) ^ 2)) + (B * (-2.9)) + C
yb = (A * ((-2.8) ^ 2)) + (B * (-2.8)) + C
yc = (A * ((-2.7) ^ 2)) + (B * (-2.7)) + C
yd = (A * ((-2.6) ^ 2)) + (B * (-2.6)) + C
ye = (A * ((-2.5) ^ 2)) + (B * (-2.5)) + C
yf = (A * ((-2.4) ^ 2)) + (B * (-2.4)) + C
yg = (A * ((-2.3) ^ 2)) + (B * (-2.3)) + C
yh = (A * ((-2.2) ^ 2)) + (B * (-2.2)) + C
yi = (A * ((-2.1) ^ 2)) + (B * (-2.1)) + C
yj = (A * ((-2) ^ 2)) + (B * (-2)) + C
yk = (A * ((-1.9) ^ 2)) + (B * (-1.9)) + C
yl = (A * ((-1.8) ^ 2)) + (B * (-1.8)) + C
ym = (A * ((-1.7) ^ 2)) + (B * (-1.7)) + C
yn = (A * ((-1.6) ^ 2)) + (B * (-1.6)) + C
yo = (A * ((-1.5) ^ 2)) + (B * (-1.5)) + C
yp = (A * ((-1.4) ^ 2)) + (B * (-1.4)) + C
yq = (A * ((-1.3) ^ 2)) + (B * (-1.3)) + C
yr = (A * ((-1.2) ^ 2)) + (B * (-1.2)) + C
ys = (A * ((-1.1) ^ 2)) + (B * (-1.1)) + C
yt = (A * ((-1) ^ 2)) + (B * (-1)) + C
yu = (A * ((-0.9) ^ 2)) + (B * (-0.9)) + C
yv = (A * ((-0.8) ^ 2)) + (B * (-0.8)) + C
yw = (A * ((-0.7) ^ 2)) + (B * (-0.7)) + C
yx = (A * ((-0.6) ^ 2)) + (B * (-0.6)) + C
yy = (A * ((-0.5) ^ 2)) + (B * (-0.5)) + C
yz = (A * ((-0.4) ^ 2)) + (B * (-0.4)) + C
yza = (A * ((-0.3) ^ 2)) + (B * (-0.3)) + C
yzb = (A * ((-0.2) ^ 2)) + (B * (-0.2)) + C
yzc = (A * ((-0.1) ^ 2)) + (B * (-0.1)) + C
yzd = (A * ((0) ^ 2)) + (B * (0)) + C
yze = (A * ((0.1) ^ 2)) + (B * (0.1)) + C
yzf = (A * ((0.2) ^ 2)) + (B * (0.2)) + C
yzg = (A * ((0.3) ^ 2)) + (B * (0.3)) + C
yzh = (A * ((0.4) ^ 2)) + (B * (0.4)) + C
yzi = (A * ((0.5) ^ 2)) + (B * (0.5)) + C
yzj = (A * ((0.6) ^ 2)) + (B * (0.6)) + C
yzk = (A * ((0.7) ^ 2)) + (B * (0.7)) + C
yzl = (A * ((0.8) ^ 2)) + (B * (0.8)) + C
yzm = (A * ((0.9) ^ 2)) + (B * (0.9)) + C
yzn = (A * ((1) ^ 2)) + (B * (1)) + C
yzo = (A * ((1.1) ^ 2)) + (B * (1.1)) + C
yzp = (A * ((1.2) ^ 2)) + (B * (1.2)) + C
yzq = (A * ((1.3) ^ 2)) + (B * (1.3)) + C
yzr = (A * ((1.4) ^ 2)) + (B * (1.4)) + C
yzs = (A * ((1.5) ^ 2)) + (B * (1.5)) + C
yzt = (A * ((1.6) ^ 2)) + (B * (1.6)) + C
yzu = (A * ((1.7) ^ 2)) + (B * (1.7)) + C
yzv = (A * ((1.8) ^ 2)) + (B * (1.8)) + C
yzw = (A * ((1.9) ^ 2)) + (B * (1.9)) + C
yzx = (A * ((2) ^ 2)) + (B * (2)) + C
points(0) = -3: points(1) = y: points(2) = 0
points(3) = -2.9: points(4) = ya: points(5) = 0
points(6) = -2.8: points(7) = yb: points(8) = 0
points(9) = -2.7: points(10) = yc: points(11) = 0
points(12) = -2.6: points(13) = yd: points(14) = 0
points(15) = -2.5: points(16) = ye: points(17) = 0
points(18) = -2.4: points(19) = yf: points(20) = 0
points(21) = -2.3: points(22) = yg: points(23) = 0
points(24) = -2.2: points(25) = yh: points(26) = 0
points(27) = -2.1: points(28) = yi: points(29) = 0
points(30) = -2: points(31) = yj: points(32) = 0
points(33) = -1.9: points(34) = yk: points(35) = 0
points(36) = -1.8: points(37) = yl: points(38) = 0
points(39) = -1.7: points(40) = ym: points(41) = 0
points(42) = -1.6: points(43) = yn: points(44) = 0
points(45) = -1.5: points(46) = yo: points(47) = 0
points(48) = -1.4: points(49) = yp: points(50) = 0
points(51) = -1.3: points(52) = yq: points(53) = 0
points(54) = -1.2: points(55) = yr: points(56) = 0
points(57) = -1.1: points(58) = ys: points(59) = 0
points(60) = -1: points(61) = yt: points(62) = 0
points(63) = -0.9: points(64) = yu: points(65) = 0
points(66) = -0.8: points(67) = yv: points(68) = 0
points(69) = -0.7: points(70) = yw: points(71) = 0
points(72) = -0.6: points(73) = yx: points(74) = 0
points(75) = -0.5: points(76) = yy: points(77) = 0
points(78) = -0.4: points(79) = yz: points(80) = 0
points(81) = -0.3: points(82) = yza: points(83) = 0
points(84) = -0.2: points(85) = yzb: points(86) = 0
points(87) = -0.1: points(88) = yzc: points(89) = 0
points(90) = 0: points(91) = yzd: points(92) = 0
points(93) = 0.1: points(94) = yze: points(95) = 0
points(96) = 0.2: points(97) = yzf: points(98) = 0
points(99) = 0.3: points(100) = yzg: points(101) = 0
points(102) = 0.4: points(103) = yzh: points(104) = 0
points(105) = 0.5: points(106) = yzi: points(107) = 0
points(108) = 0.6: points(109) = yzj: points(110) = 0
points(111) = 0.7: points(112) = yzk: points(113) = 0
points(114) = 0.8: points(115) = yzl: points(116) = 0
points(117) = 0.9: points(118) = yzm: points(119) = 0
points(120) = 1: points(121) = yzn: points(122) = 0
points(123) = 1.1: points(124) = yzo: points(125) = 0
points(126) = 1.2: points(127) = yzp: points(128) = 0
points(129) = 1.3: points(130) = yzq: points(131) = 0
points(132) = 1.4: points(133) = yzr: points(134) = 0
points(135) = 1.5: points(136) = yzs: points(137) = 0
points(138) = 1.6: points(139) = yzt: points(140) = 0
points(141) = 1.7: points(142) = yzu: points(143) = 0
points(144) = 1.8: points(145) = yzv: points(146) = 0
points(147) = 1.9: points(148) = yzw: points(149) = 0
points(150) = 2: points(151) = yzx: points(152) = 0
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll
End Sub

Private Sub CommandButton1_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim DELTA As Integer
Dim RESUL1 As Single
Dim RESUL2 As Single
Dim RESUL3 As Single

A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text

DELTA = (B ^ 2) - 4 * (A * C)

If DELTA > 0 Then
RESUL1 = ((-B) - Sqr(DELTA)) / (2 * A)
RESUL2 = ((-B) + Sqr(DELTA)) / (2 * A)

Label1.Caption = "les deux solutions sont "
Label2.Caption = RESUL1
Label3.Caption = RESUL2
End If

If DELTA = 0 Then
RESUL3 = (-B) / (2 * A)
Label1.Caption = "la solution est"
Label2.Caption = RESUL3
Label3.Visible = False
End If

If DELTA < 0 Then
Label1.Caption = " pas de solution"
End If

End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Single
Dim ya As Single
Dim yb As Single
Dim yc As Single
Dim yd As Single
Dim ye As Single
Dim yf As Single
Dim yg As Single
Dim yh As Single
Dim yi As Single
Dim yj As Single

Dim yk As Single
Dim yl As Single
Dim ym As Single
Dim yn As Single
Dim yo As Single
Dim yp As Single
Dim yq As Single
Dim yr As Single
Dim ys As Single
Dim yt As Single

Dim yu As Single
Dim yv As Single
Dim yw As Single
Dim yx As Single
Dim yy As Single
Dim yz As Single
Dim yza As Single
Dim yzb As Single
Dim yzc As Single
Dim yzd As Single

Dim yze As Single
Dim yzf As Single
Dim yzg As Single
Dim yzh As Single
Dim yzi As Single
Dim yzj As Single
Dim yzk As Single
Dim yzl As Single
Dim yzm As Single
Dim yzn As Single

Dim yzo As Single
Dim yzp As Single
Dim yzq As Single
Dim yzr As Single
Dim yzs As Single
Dim yzt As Single
Dim yzu As Single
Dim yzv As Single
Dim yzw As Single
Dim yzx As Single

Dim plineObj As AcadPolyline
Dim points(0 To 152) As Double
Dim A As Integer
Dim B As Integer
Dim C As Integer


A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text

y = (A * ((-3) ^ 2)) + (B * (-3)) + C
ya = (A * ((-2.9) ^ 2)) + (B * (-2.9)) + C
yb = (A * ((-2.8) ^ 2)) + (B * (-2.8)) + C
yc = (A * ((-2.7) ^ 2)) + (B * (-2.7)) + C
yd = (A * ((-2.6) ^ 2)) + (B * (-2.6)) + C
ye = (A * ((-2.5) ^ 2)) + (B * (-2.5)) + C
yf = (A * ((-2.4) ^ 2)) + (B * (-2.4)) + C
yg = (A * ((-2.3) ^ 2)) + (B * (-2.3)) + C
yh = (A * ((-2.2) ^ 2)) + (B * (-2.2)) + C
yi = (A * ((-2.1) ^ 2)) + (B * (-2.1)) + C
yj = (A * ((-2) ^ 2)) + (B * (-2)) + C

yk = (A * ((-1.9) ^ 2)) + (B * (-1.9)) + C
yl = (A * ((-1.8) ^ 2)) + (B * (-1.8)) + C
ym = (A * ((-1.7) ^ 2)) + (B * (-1.7)) + C
yn = (A * ((-1.6) ^ 2)) + (B * (-1.6)) + C
yo = (A * ((-1.5) ^ 2)) + (B * (-1.5)) + C
yp = (A * ((-1.4) ^ 2)) + (B * (-1.4)) + C
yq = (A * ((-1.3) ^ 2)) + (B * (-1.3)) + C
yr = (A * ((-1.2) ^ 2)) + (B * (-1.2)) + C
ys = (A * ((-1.1) ^ 2)) + (B * (-1.1)) + C
yt = (A * ((-1) ^ 2)) + (B * (-1)) + C

yu = (A * ((-0.9) ^ 2)) + (B * (-0.9)) + C
yv = (A * ((-0.8) ^ 2)) + (B * (-0.8)) + C
yw = (A * ((-0.7) ^ 2)) + (B * (-0.7)) + C
yx = (A * ((-0.6) ^ 2)) + (B * (-0.6)) + C
yy = (A * ((-0.5) ^ 2)) + (B * (-0.5)) + C
yz = (A * ((-0.4) ^ 2)) + (B * (-0.4)) + C
yza = (A * ((-0.3) ^ 2)) + (B * (-0.3)) + C
yzb = (A * ((-0.2) ^ 2)) + (B * (-0.2)) + C
yzc = (A * ((-0.1) ^ 2)) + (B * (-0.1)) + C

yzd = (A * ((0) ^ 2)) + (B * (0)) + C

yze = (A * ((0.1) ^ 2)) + (B * (0.1)) + C
yzf = (A * ((0.2) ^ 2)) + (B * (0.2)) + C
yzg = (A * ((0.3) ^ 2)) + (B * (0.3)) + C
yzh = (A * ((0.4) ^ 2)) + (B * (0.4)) + C
yzi = (A * ((0.5) ^ 2)) + (B * (0.5)) + C
yzj = (A * ((0.6) ^ 2)) + (B * (0.6)) + C
yzk = (A * ((0.7) ^ 2)) + (B * (0.7)) + C
yzl = (A * ((0.8) ^ 2)) + (B * (0.8)) + C
yzm = (A * ((0.9) ^ 2)) + (B * (0.9)) + C
yzn = (A * ((1) ^ 2)) + (B * (1)) + C

yzo = (A * ((1.1) ^ 2)) + (B * (1.1)) + C
yzp = (A * ((1.2) ^ 2)) + (B * (1.2)) + C
yzq = (A * ((1.3) ^ 2)) + (B * (1.3)) + C
yzr = (A * ((1.4) ^ 2)) + (B * (1.4)) + C
yzs = (A * ((1.5) ^ 2)) + (B * (1.5)) + C
yzt = (A * ((1.6) ^ 2)) + (B * (1.6)) + C
yzu = (A * ((1.7) ^ 2)) + (B * (1.7)) + C
yzv = (A * ((1.8) ^ 2)) + (B * (1.8)) + C
yzw = (A * ((1.9) ^ 2)) + (B * (1.9)) + C
yzx = (A * ((2) ^ 2)) + (B * (2)) + C




points(0) = -3: points(1) = y: points(2) = 0
points(3) = -2.9: points(4) = ya: points(5) = 0
points(6) = -2.8: points(7) = yb: points(8) = 0
points(9) = -2.7: points(10) = yc: points(11) = 0
points(12) = -2.6: points(13) = yd: points(14) = 0
points(15) = -2.5: points(16) = ye: points(17) = 0
points(18) = -2.4: points(19) = yf: points(20) = 0
points(21) = -2.3: points(22) = yg: points(23) = 0
points(24) = -2.2: points(25) = yh: points(26) = 0
points(27) = -2.1: points(28) = yi: points(29) = 0
points(30) = -2: points(31) = yj: points(32) = 0

points(33) = -1.9: points(34) = yk: points(35) = 0
points(36) = -1.8: points(37) = yl: points(38) = 0
points(39) = -1.7: points(40) = ym: points(41) = 0
points(42) = -1.6: points(43) = yn: points(44) = 0
points(45) = -1.5: points(46) = yo: points(47) = 0
points(48) = -1.4: points(49) = yp: points(50) = 0
points(51) = -1.3: points(52) = yq: points(53) = 0
points(54) = -1.2: points(55) = yr: points(56) = 0
points(57) = -1.1: points(58) = ys: points(59) = 0
points(60) = -1: points(61) = yt: points(62) = 0

points(63) = -0.9: points(64) = yu: points(65) = 0
points(66) = -0.8: points(67) = yv: points(68) = 0
points(69) = -0.7: points(70) = yw: points(71) = 0
points(72) = -0.6: points(73) = yx: points(74) = 0
points(75) = -0.5: points(76) = yy: points(77) = 0
points(78) = -0.4: points(79) = yz: points(80) = 0
points(81) = -0.3: points(82) = yza: points(83) = 0
points(84) = -0.2: points(85) = yzb: points(86) = 0
points(87) = -0.1: points(88) = yzc: points(89) = 0

points(90) = 0: points(91) = yzd: points(92) = 0

points(93) = 0.1: points(94) = yze: points(95) = 0
points(96) = 0.2: points(97) = yzf: points(98) = 0
points(99) = 0.3: points(100) = yzg: points(101) = 0
points(102) = 0.4: points(103) = yzh: points(104) = 0
points(105) = 0.5: points(106) = yzi: points(107) = 0
points(108) = 0.6: points(109) = yzj: points(110) = 0
points(111) = 0.7: points(112) = yzk: points(113) = 0
points(114) = 0.8: points(115) = yzl: points(116) = 0
points(117) = 0.9: points(118) = yzm: points(119) = 0
points(120) = 1: points(121) = yzn: points(122) = 0

points(123) = 1.1: points(124) = yzo: points(125) = 0
points(126) = 1.2: points(127) = yzp: points(128) = 0
points(129) = 1.3: points(130) = yzq: points(131) = 0
points(132) = 1.4: points(133) = yzr: points(134) = 0
points(135) = 1.5: points(136) = yzs: points(137) = 0
points(138) = 1.6: points(139) = yzt: points(140) = 0
points(141) = 1.7: points(142) = yzu: points(143) = 0
points(144) = 1.8: points(145) = yzv: points(146) = 0
points(147) = 1.9: points(148) = yzw: points(149) = 0
points(150) = 2: points(151) = yzx: points(152) = 0

  
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll


      



End Sub

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

2°degrébydenis.dvb98 304 octets

Télécharger le zip

Historique

04 novembre 2004 05:13:56 :: ajout de la source (2°degrébydenis)
04 novembre 2004 07:33:31 :: AJOUT CAPTURE D ECRAN

Sources de la même categorie

CONVERTISSEUR HEXAVIGÉSIMAL par shaeks

CRYPTOGRAPHIE AFFINE par Tigrou66

SCANNER FLEX par lajouad

EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge

SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5

Toutes les sources de la catégorie Maths

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par LeFoureur

RE : BLOCAGE DE MON PROGRAMME par ucfoutu

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par NHenry

RE : OUVRIR PLUSIEURS FICHIERS EXCEL EN MêME AVEC VB par ossama261988

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System