Test

David Aubert · 29 Juin 2016

VB:

Private Sub Solve_Click()
Dim a, b, c, d, m, n As Integer
Dim x, y As Double

a = Val(Txt_a.Text)
b = Val(Txt_b.Text)
m = Val(Txt_m.Text)
c = Val(Txt_c.Text)
d = Val(Txt_d.Text)
n = Val(Txt_n.Text)
x = (b * n - d * m) / (b * c - a * d)
y = (a * n - c * m) / (a * d - b * c)
Lbl_x.Caption = Round(x, 2)
Lbl_y.Caption = Round(y, 2)

End Sub

' To get new equations

Private Sub New_Click()
Txt_a.Text = ""
Txt_b.Text = ""
Txt_m.Text = ""
Txt_c.Text = ""
Txt_d.Text = ""
Txt_n.Text = ""
Lbl_x.Caption = ""
Lbl_y.Caption = ""

End Sub

David Aubert · 30 Juin 2016

Code:

Dim a, b, c, d As Integer
Dim x As Double

Private Function f(x As Variant)
' Need to make some transformation as the left coordinates in VB start from left
' our graph starts from center
f = a * (5 - x) ^ 3 + b * (5 - x) ^ 2 + c * (5 - x) + d

End Function

Private Sub cmd_Clear_Click()
pic_graph.Cls
txt_a.Text = ""
txt_b.Text = ""
txt_c.Text = ""
txt_d.Text = ""
End Sub

Private Sub cmd_draw_Click()
Dim y As Double
Dim w As Double

a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
d = Val(txt_d.Text)
'Using a scale of 0.5 cm to represent i unit to draw the graph
' Need to make some transformation as the coordinates in VB start from top left
For w = 0 To 10 Step 0.0001
y = f(w)
pic_graph.PSet (w, 5 - y)

Next w

End Sub

David Aubert · 30 Juin 2016

Code:

Dim a, b, c, d As Integer
Dim x As Double

Private Function f(x As Variant)
' Need to make some transformation as the left coordinates in VB start from left
' our graph starts from center
f = a * (5 - x) ^ 3 + b * (5 - x) ^ 2 + c * (5 - x) + d

End Function

Private Sub cmd_Clear_Click()
pic_graph.Cls
txt_a.Text = ""
txt_b.Text = ""
txt_c.Text = ""
txt_d.Text = ""
End Sub

Private Sub cmd_draw_Click()
Dim y As Double
Dim w As Double

a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
d = Val(txt_d.Text)
'Using a scale of 0.5 cm to represent i unit to draw the graph
' Need to make some transformation as the coordinates in VB start from top left
For w = 0 To 10 Step 0.0001
y = f(w)
pic_graph.PSet (w, 5 - y)

Next w

End Sub

David Aubert · 30 Juin 2016

[vb]Dim a, b, c, d As Integer
Dim x As Double

Private Function f(x As Variant)
' Need to make some transformation as the left coordinates in VB start from left
' our graph starts from center
f = a * (5 - x) ^ 3 + b * (5 - x) ^ 2 + c * (5 - x) + d

End Function

Private Sub cmd_Clear_Click()
pic_graph.Cls
txt_a.Text = ""
txt_b.Text = ""
txt_c.Text = ""
txt_d.Text = ""
End Sub

Private Sub cmd_draw_Click()
Dim y As Double
Dim w As Double

a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
d = Val(txt_d.Text)
'Using a scale of 0.5 cm to represent i unit to draw the graph
' Need to make some transformation as the coordinates in VB start from top left
For w = 0 To 10 Step 0.0001
y = f(w)
pic_graph.PSet (w, 5 - y)

Next w

End Sub[/vb]

David Aubert · 30 Juin 2016

JavaScript:

asdfasdfa

David Aubert · 30 Juin 2016

VB:

asdfasdf

VB:

fgdgdfg

David Aubert · 30 Juin 2016

VB:

Dim a, b, c, d As Integer
Dim x As Double

Private Function f(x As Variant)
' Need to make some transformation as the left coordinates in VB start from left
' our graph starts from center
f = a * (5 - x) ^ 3 + b * (5 - x) ^ 2 + c * (5 - x) + d

End Function

Private Sub cmd_Clear_Click()
pic_graph.Cls
txt_a.Text = ""
txt_b.Text = ""
txt_c.Text = ""
txt_d.Text = ""
End Sub

Private Sub cmd_draw_Click()
Dim y As Double
Dim w As Double

a = Val(txt_a.Text)
b = Val(txt_b.Text)
c = Val(txt_c.Text)
d = Val(txt_d.Text)
'Using a scale of 0.5 cm to represent i unit to draw the graph
' Need to make some transformation as the coordinates in VB start from top left
For w = 0 To 10 Step 0.0001
y = f(w)
pic_graph.PSet (w, 5 - y)

Next w

End Sub

Prashanth · 3 Juillet 2016

Testing

Test

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

David Aubert

XLDnaute Barbatruc

Prashanth

XLDnaute Nouveau

Discussions similaires