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 2010 03 20 22:53:20

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é :3 316 / 246

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

COMPILATION A LA VOLÉE, INTERPRÉTER UNE FONCTION MATHÉMATIQU... par sergeb44

PISH2010-VB2008 par SaintMaur

PI-SH-2010-VB6 par SaintMaur

CHIFFRAGE ET DECHIFFRAGE FONCTION AFFINE par tresorsdevie

ALGORITHME DE NIVEAU POUR LA RÉSOLUTION DU MÉTHODE POTENTIEL... par sagessekaye

Toutes les sources de la catégorie Maths

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

NOUVEAU SYSTèME D'AIDE POUR VISUAL STUDIO 2010 : POUR CEUX QUI N'APPRéCIENT PAS TROP L'ABSENCE D'INDEX... par coq

L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit

COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL

SQL SERVER : QUERY NOTIFICATION OU COMMENT êTRE NOTIFIé DE MODIFICATIONS DE DONNéES CôTé APPLICATION (SQLDEPENDENCY) par christian

[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson

Forum

RE : GROUPE DE CONTRôLES ET OBJET par NHenry

RE : SAVER UN PICTUREBOX par cocodet

UNE MACRO POUR AFFECTER UNE AUTRE MACRO A UN DESSIN SOUS EXCEL 2007 par domimeca

RE : INSERTION D'UNE LIGNE DANS UNE LISTBOX par Adn56

RE : GESTION DES QUOTAS D'IMPRESSION par ikram1988

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

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

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods