درخواست سورس

[alireza1375]

کسی سورس برنامه های زیر نداره.
محاسبه ریشه سوم و ریشه انم
محاسبه کسر(جمع و ضرب و تفریق و تقسیم)
محاسبه معادله های یک مجهولی و دو مجهولی
اگر یک دونه از سورس ها را داشتید بگذارید.ممنون.جبران می کنم اساسی.

[m.4.r.m]

محاسبه ریشه n ام یک عدد (http://geomorteza.blogfa.com/post-1.aspx)

یک کامند باتون و یک تکست باکس روی فرم قرار دهید و کد زیر را وارد کنید. بدین ترتیب ریشه سوم عدد داخل تکست محاسبه می شود.
Private Sub Command1_Click()
Text1.Text = CDbl(Val(Text1.Text) ^ (1 / 3))
End Sub

محاسبه معادله درجه دوم :

Dim A, B, C
Dim Delta As Long
Private Sub Command1_Click()
A = Val(Text1)
B = Val(Text2)
C = Val(Text3)
Delta = (B ^ 2) - 4 * (A * C)
MsgBox Delta
End Sub
Private Sub Command2_Click()
A = Val(Text1)
B = Val(Text2)
C = Val(Text3)
' Check Errors
If A = 0 Then
MsgBox "A=0"
Exit Sub
End If
Delta = (B ^ 2) - 4 * (A * C)
' B = -B
If B > 0 Then
B = "-" & B
ElseIf B < 0 Then
B = Abs(B)
End If
' Delta < 0
If Delta < 0 Then
MsgBox "Delta < 0 and connot calculate X"
' Delta = 0
ElseIf Delta = 0 Then
MsgBox "X= " & B / (2 * A)
' Delta > 0
ElseIf Delta > 0 Then
Dim X1, X2
X1 = "X1= " & (B - Sqr(Delta)) / (2 * A)
X2 = "X2= " & (B + Sqr(Delta)) / (2 * A)
MsgBox X1 & " , " & X2
End If
End Sub
Private Sub Form_Load()
' Form(Me)
Me.Width = 4575
Me.Height = 1335
Me.BorderStyle = 1
Me.Caption = "VBHome AX^2+BX+C"
' Text1
Text1.Width = 975
Text1.Height = 285
Text1.Top = 120
Text1.Left = 120
Text1.Alignment = 2
Text1 = "A X^2"
' Text2
Text2.Width = 975
Text2.Height = 285
Text2.Top = 120
Text2.Left = 1200
Text2.Alignment = 2
Text2 = "B X"
' Text3
Text3.Width = 975
Text3.Height = 285
Text3.Top = 120
Text3.Left = 2280
Text3.Alignment = 2
Text3 = "C"
' Text4
Text4.Width = 975
Text4.Height = 285
Text4.Top = 120
Text4.Left = 3360
Text4.Alignment = 2
Text4 = "=0"
' Command1
Command1.Width = 2055
Command1.Height = 240
Command1.Top = 480
Command1.Left = 120
Command1.Caption = "Calculate Delta"
' Command2
Command2.Width = 2055
Command2.Height = 240
Command2.Top = 480
Command2.Left = 2280
Command2.Caption = "Calculate X(s)"
End Sub

[alireza1375]

از m.4.r.m خیلی ممنون.فقط می میونه معادله یک مجهولی و کسرها ممنون می شوم کسی پاسخ این دوتا را هم بدهد

[m.4.r.m]

به اینم نگاه کن معادله درجه 1 و 2 و 3 رو حل کرده .

http://www.prozhe.com/%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%AD%D9%84-%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D8%A7%D8%AA-%D8%AF%D8%B1%D8%AC%D9%87-1-%D9%88-2-%D9%88-3

[m.4.r.m]

اینم برای جمع کسر که تفریق هم شبیه اینه آخرش مقدار Js-Jm میشه :

Private Sub Command1_Click()
Dim Js%, Jm%
If CInt(T2.Text) = CInt(T4.Text) Then
T5.Text = Int(T1.Text) + CInt(T3.Text)
T6.Text = CInt(T4.Text)
ElseIf CInt(T2.Text) <> CInt(T4.Text) Then
T6.Text = CInt(T2.Text) * CInt(T4.Text)
Js = (CInt(T6.Text) / CInt(T2.Text)) * CInt(T1.Text)
Jm = (CInt(T6.Text) / CInt(T4.Text)) * CInt(T3.Text)
T5.Text =abs( Js + Jm)
End If

End Sub


تو ضرب خیلی راحتی مقدار T1*T3=T5 و T2*T4=T6 همین .