begin process at 2010 02 09 22:19:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > RÉSOLUTEUR DE SYSTÈME DE 2 ÉQUATIONS À 2 INCONNUES

RÉSOLUTEUR DE SYSTÈME DE 2 ÉQUATIONS À 2 INCONNUES


 Information sur la source

Note :
1,5 / 10 - par 2 personnes
1,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Niveau :Débutant Date de création :18/06/2002 Date de mise à jour :18/06/2002 16:45:30 Vu / téléchargé :2 767 / 163

Auteur : mehdibou

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note


 Description

Bah, ça résoud un système d'équations à 2 inconnues avec la méthode apprise en classe de 3è !
Source en VB 3 mais compatible VB 6.
Le ZIP contient :
- la feuille (présentée ci-dessous)
- le module (idem)
- le fichier FRX (l'icone)
- l'icone
- l'EXE
- le projet .MAK
taille : 6,32 Ko (2 sec max)

Source

  • MODULE :
  • Option Explicit
  • Sub CenterForm (x As Form)
  • centerformtop x
  • centerformleft x
  • End Sub
  • Sub centerformleft (x As Form)
  • x.Left = screen.Width / 2 - x.Width / 2
  • End Sub
  • Sub centerformtop (x As Form)
  • x.Top = (screen.Height * .9) / 2 - x.Height / 2
  • End Sub
  • Fichier FRM :
  • VERSION 2.00
  • Begin Form Feuille1
  • BackColor = &H8000000F&
  • BorderStyle = 3 'Trait double fixe
  • Caption = "Résoluteur de système de deux équations à deux inconnues"
  • ClientHeight = 3555
  • ClientLeft = 2070
  • ClientTop = 1875
  • ClientWidth = 5970
  • Height = 3960
  • Icon = FE1_1.FRX:0000
  • Left = 2010
  • LinkTopic = "Feuille1"
  • ScaleHeight = 237
  • ScaleMode = 3 'Pixel
  • ScaleWidth = 398
  • Top = 1530
  • Width = 6090
  • Begin Frame CadreSol
  • BackColor = &H8000000F&
  • Caption = "Solutions"
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 1545
  • Left = 90
  • TabIndex = 0
  • Top = 1890
  • Width = 5775
  • Begin Label lblfraz
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 195
  • Left = 180
  • TabIndex = 1
  • Top = 990
  • Width = 5415
  • WordWrap = -1 'True
  • End
  • Begin Label lbly
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 195
  • Left = 180
  • TabIndex = 2
  • Top = 630
  • Width = 45
  • End
  • Begin Label lblx
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 195
  • Left = 180
  • TabIndex = 3
  • Top = 360
  • Width = 45
  • End
  • End
  • Begin Frame CadreCmd
  • BackColor = &H8000000F&
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 1545
  • Left = 4140
  • TabIndex = 14
  • Top = 90
  • Width = 1725
  • Begin CommandButton CmdGraph
  • Caption = "&Tracer"
  • Enabled = 0 'False
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 375
  • Left = 270
  • TabIndex = 16
  • Top = 900
  • Width = 1185
  • End
  • Begin CommandButton CmdRes
  • Caption = "&Résoudre"
  • Default = -1 'True
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 375
  • Left = 270
  • TabIndex = 15
  • Top = 270
  • Width = 1185
  • End
  • End
  • Begin Frame CadreSys
  • BackColor = &H8000000F&
  • Caption = "Système"
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 1545
  • Left = 90
  • TabIndex = 4
  • Top = 90
  • Width = 3705
  • Begin TextBox txtc
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 1
  • Left = 2610
  • TabIndex = 12
  • Top = 990
  • Width = 555
  • End
  • Begin TextBox txtb
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 1
  • Left = 1710
  • TabIndex = 11
  • Top = 990
  • Width = 555
  • End
  • Begin TextBox txta
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 1
  • Left = 720
  • TabIndex = 10
  • Top = 990
  • Width = 555
  • End
  • Begin TextBox txtc
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 0
  • Left = 2610
  • TabIndex = 8
  • Top = 360
  • Width = 555
  • End
  • Begin TextBox txtb
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 0
  • Left = 1710
  • TabIndex = 7
  • Top = 360
  • Width = 555
  • End
  • Begin TextBox txta
  • Alignment = 1 'Justifié à droite
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 8.25
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 285
  • Index = 0
  • Left = 720
  • TabIndex = 6
  • Top = 360
  • Width = 555
  • End
  • Begin Label lblfnd
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • Caption = "x + y ="
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 9.75
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 240
  • Index = 1
  • Left = 1350
  • TabIndex = 13
  • Top = 1020
  • Width = 1215
  • End
  • Begin Label lblfnd
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • Caption = "x + y ="
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "MS Sans Serif"
  • FontSize = 9.75
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 240
  • Index = 0
  • Left = 1350
  • TabIndex = 9
  • Top = 390
  • Width = 1215
  • End
  • Begin Label lbl
  • AutoSize = -1 'True
  • BackStyle = 0 'Transparent
  • Caption = "{"
  • FontBold = 0 'False
  • FontItalic = 0 'False
  • FontName = "Times New Roman"
  • FontSize = 48
  • FontStrikethru = 0 'False
  • FontUnderline = 0 'False
  • Height = 1095
  • Index = 0
  • Left = 180
  • TabIndex = 5
  • Top = 180
  • Width = 465
  • End
  • End
  • End
  • Option Explicit
  • Sub BonneValeur (TB As TextBox)
  • TB = IIf(TB = "", 1, Val(TB))
  • End Sub
  • Sub CmdRes_Click ()
  • On Error GoTo Err_CmdRes_Click
  • Dim i%
  • For i = 0 To 1
  • BonneValeur Txta(i)
  • BonneValeur Txtb(i)
  • BonneValeur Txtc(i)
  • Next
  • Dim valx#, valy#, tmp%, mul0#, mul1#
  • mul0 = Val(Txtb(1))
  • mul1 = Val(Txtb(0))
  • mul0 = IIf(mul0 < 0 Eqv mul1 < 0, -mul0, mul0)
  • valx = (Val(Txtc(0)) * mul0 + Val(Txtc(1)) * mul1) / (Val(Txta(0)) * mul0 + Val(Txta(1)) * mul1)
  • valy = (Val(Txtc(0)) - Val(Txta(0)) * valx) / Val(Txtb(0))
  • lblx = "x = " & valx
  • lbly = "y = " & valy
  • lblfraz = "Le couple (" & valx & ";" & valy & ") est solution du système."
  • Exit Sub
  • Err_CmdRes_Click:
  • lblx = ""
  • lbly = ""
  • lblfraz = "Erreur n° " & Err
  • Select Case Err
  • Case 6
  • lblfraz = lblfraz & " : dépassement de capacités"
  • Case 11
  • lblfraz = lblfraz & " : impossible de résoudre"
  • End Select
  • Exit Sub
  • End Sub
  • Sub Form_Load ()
  • CenterForm Me
  • End Sub
MODULE :

Option Explicit

Sub CenterForm (x As Form)
    centerformtop x
    centerformleft x
End Sub

Sub centerformleft (x As Form)
    x.Left = screen.Width / 2 - x.Width / 2
End Sub

Sub centerformtop (x As Form)
    x.Top = (screen.Height * .9) / 2 - x.Height / 2
End Sub


Fichier FRM :

VERSION 2.00
Begin Form Feuille1 
   BackColor       =   &H8000000F&
   BorderStyle     =   3  'Trait double fixe
   Caption         =   "Résoluteur de système de deux équations à deux inconnues"
   ClientHeight    =   3555
   ClientLeft      =   2070
   ClientTop       =   1875
   ClientWidth     =   5970
   Height          =   3960
   Icon            =   FE1_1.FRX:0000
   Left            =   2010
   LinkTopic       =   "Feuille1"
   ScaleHeight     =   237
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   398
   Top             =   1530
   Width           =   6090
   Begin Frame CadreSol 
      BackColor       =   &H8000000F&
      Caption         =   "Solutions"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1545
      Left            =   90
      TabIndex        =   0
      Top             =   1890
      Width           =   5775
      Begin Label lblfraz 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   180
         TabIndex        =   1
         Top             =   990
         Width           =   5415
         WordWrap        =   -1  'True
      End
      Begin Label lbly 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   180
         TabIndex        =   2
         Top             =   630
         Width           =   45
      End
      Begin Label lblx 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Left            =   180
         TabIndex        =   3
         Top             =   360
         Width           =   45
      End
   End
   Begin Frame CadreCmd 
      BackColor       =   &H8000000F&
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1545
      Left            =   4140
      TabIndex        =   14
      Top             =   90
      Width           =   1725
      Begin CommandButton CmdGraph 
         Caption         =   "&Tracer"
         Enabled         =   0   'False
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Left            =   270
         TabIndex        =   16
         Top             =   900
         Width           =   1185
      End
      Begin CommandButton CmdRes 
         Caption         =   "&Résoudre"
         Default         =   -1  'True
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   375
         Left            =   270
         TabIndex        =   15
         Top             =   270
         Width           =   1185
      End
   End
   Begin Frame CadreSys 
      BackColor       =   &H8000000F&
      Caption         =   "Système"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   1545
      Left            =   90
      TabIndex        =   4
      Top             =   90
      Width           =   3705
      Begin TextBox txtc 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   1
         Left            =   2610
         TabIndex        =   12
         Top             =   990
         Width           =   555
      End
      Begin TextBox txtb 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   1
         Left            =   1710
         TabIndex        =   11
         Top             =   990
         Width           =   555
      End
      Begin TextBox txta 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   1
         Left            =   720
         TabIndex        =   10
         Top             =   990
         Width           =   555
      End
      Begin TextBox txtc 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   0
         Left            =   2610
         TabIndex        =   8
         Top             =   360
         Width           =   555
      End
      Begin TextBox txtb 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   0
         Left            =   1710
         TabIndex        =   7
         Top             =   360
         Width           =   555
      End
      Begin TextBox txta 
         Alignment       =   1  'Justifié à droite
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Index           =   0
         Left            =   720
         TabIndex        =   6
         Top             =   360
         Width           =   555
      End
      Begin Label lblfnd 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "x  +               y ="
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   1
         Left            =   1350
         TabIndex        =   13
         Top             =   1020
         Width           =   1215
      End
      Begin Label lblfnd 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "x  +               y ="
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Index           =   0
         Left            =   1350
         TabIndex        =   9
         Top             =   390
         Width           =   1215
      End
      Begin Label lbl 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "{"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "Times New Roman"
         FontSize        =   48
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1095
         Index           =   0
         Left            =   180
         TabIndex        =   5
         Top             =   180
         Width           =   465
      End
   End
End
Option Explicit

Sub BonneValeur (TB As TextBox)
TB = IIf(TB = "", 1, Val(TB))
End Sub

Sub CmdRes_Click ()

On Error GoTo Err_CmdRes_Click

Dim i%
For i = 0 To 1
    BonneValeur Txta(i)
    BonneValeur Txtb(i)
    BonneValeur Txtc(i)
Next

Dim valx#, valy#, tmp%, mul0#, mul1#

mul0 = Val(Txtb(1))
mul1 = Val(Txtb(0))
mul0 = IIf(mul0 < 0 Eqv mul1 < 0, -mul0, mul0)

valx = (Val(Txtc(0)) * mul0 + Val(Txtc(1)) * mul1) / (Val(Txta(0)) * mul0 + Val(Txta(1)) * mul1)
valy = (Val(Txtc(0)) - Val(Txta(0)) * valx) / Val(Txtb(0))

lblx = "x = " & valx
lbly = "y = " & valy
lblfraz = "Le couple (" & valx & ";" & valy & ") est solution du système."

Exit Sub
Err_CmdRes_Click:
lblx = ""
lbly = ""
lblfraz = "Erreur n° " & Err
Select Case Err
  Case 6
    lblfraz = lblfraz & " : dépassement de capacités"
  Case 11
    lblfraz = lblfraz & " : impossible de résoudre"
End Select
Exit Sub
End Sub

Sub Form_Load ()
CenterForm Me
End Sub

 Conclusion

Ben, il ne reste plus qu'à tracer la droite !

 Fichier Zip

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

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture CONTROLEZ LE REDIMENTIONNEMENT ET LE DÉPLACEMENT DE VOS FENÊ...
Source avec Zip Source avec une capture CRÉER UN ANI + EXTRACTION D'ICONES : EXICO 3.1
Source avec Zip EXTRACTEUR D'ICONES V2 (+CRÉATION D'ICONES AVEC TRANSPARENCE...
Source avec Zip CRÉER UN VRAI ICÔNE (+EXTRACTEUR)
Source avec Zip COURBES EN TOUT GENRE

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) PISH2010-VB2008 par SaintMaur
Source avec Zip Source avec une capture PI-SH-2010-VB6 par SaintMaur
ET... PI... par us_30
Source avec Zip Source avec une capture CHIFFRAGE ET DECHIFFRAGE FONCTION AFFINE par tresorsdevie
NB PREMIER : TEST DE FERMAT ET DE MILLER-RABIN par us_30

Commentaires et avis

Commentaire de Lightness1024! le 19/06/2002 18:41:18

résoluteur....

Commentaire de mehdibou le 20/06/2002 17:43:01

c'est koi ces pts de suspension,
ça résoud pas ???
Faut m'le dire dans ce cas

Commentaire de squalyl le 21/06/2002 11:15:28

c un solveur je crois...
Et puis à la limite on fait ça de tête...

Commentaire de mehdibou le 22/06/2002 15:49:48

Ouais, je sais que c'est un solveur, mais je trouvais que "résoluteur", ça sonnait mieux !
Et puis, essaies de me résoudre de tête en moins de 10 secondes (c'est le temps qu'il faut pourrentrer les nombres) :
/ 45672x+3y=-181917
12876x+666y=119658
solution : (-4;257)
Alors, t'as réussi ?

Commentaire de Xaderlane le 06/07/2005 13:50:57

code pas tres commente.

essai avec le systeme :
3x + 2y = 6
4x - 3y = 7

ton resolutationateur (moi je trouve que ca sonne mieux comme ca...) me trouve le couple (4;-3), il y a encore des progres a faire ;)

Commentaire de mehdibou le 06/07/2005 16:30:46

Ca fait plus de trois ans que cette source aurait dû être supprimée..
Que de temps a passé depuis

Désolé mais je n'assure plus le support sur les produits de plus de 2 ans n'ayant pas été mis à jour ;)

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,515 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales