مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[ravegoat]

با سلام!

یک برنامه با زبان ویژوال بیسیک 6 می خواستم که ضرایب یک معادله ی درجه ی 2 را بگیرد و ریشه های معادله را نشان دهد.

من یک سورس نوشتم اما کامپایلر ندارم:

Dim a, b, c, d, xone, xtwo As Long

Command1_Click:

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If a = 0 Or b = 0 Or c = 0 Then
MsgBox "The value can't be 0"
Exit Sub
End If
d = (b ^ 2) - 4 * (a * c)
If d < 0 Then
MsgBox "No answer"
Exit Sub
End If
If d = 0 Then
xone = (-1 * b) / (2 * a)
MsgBox "The answer is " + Str(xone)
Exit Sub
End If
xone = ((-1 * b) + (d ^ 1/2)) / (2 * a)
xtwo = ((-1 * b) - (d ^ 1/2)) / (2 * a)
MsgBox "The answers are" + Str(xone) + " and "+ Str(xtwo)

لطفا با استفاده از این سورس یک برنامه ی کامپایل شده ی .EXE برایم تهیه کنید.

شکل ظاهری برنامه:

برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

یک نمونه برنامه با VB.net

فکر کنم نوشتن این برنامه تو vb6 آسون باشه ! نیاز فوری به این برنامه دارم !

با سپاس
آرمینبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید