سلام یک برنامه ی جالب نوشته ام
به برنامه عددی می دهید و برنامه مشخص می کند که این عدد، عدد اول است یا خیر
دانلود
کد:http://salehforum.parsaspace.com/prime%20number.exe
Printable View
سلام یک برنامه ی جالب نوشته ام
به برنامه عددی می دهید و برنامه مشخص می کند که این عدد، عدد اول است یا خیر
دانلود
کد:http://salehforum.parsaspace.com/prime%20number.exe
سلام
خسته نباشید
درباره اون برنامه که نوشتید خواستم بگم که من سال دو راهنمایی اونو نوشتم البته ببخشید که این حرفو میزنم
راستی اگه برنامه های بهتر داشتی خبرم کن
مرسی id ramin_3711
دارم یه برنامه واسه حل معادله درجه 2 می نویسم
راستی کسی نمیدونه مشکل این کد چیه؟
Private Sub Command1_Click()
Dim a, b As Variant
a = Text1.Text
Sqr(a) = b
Label.Caption = b
End Sub
سلام دوست من
برنامه حل معادله درجه دو رو هم بلدم
مشکل برنامت هم تو انتسابش هست
درستش اینه
private sub command1_click()
dim a,b as variant
a=text1.text
b=sqr(a) injash ghalat bood
label1.caption=b
end sub
راستی یه چیز دیگه بهت پیشنهاد میکنم اینکه زیاد دنبال ویژوال نرو اگه تونستی c یا c++ کار کن چون هم به روز تره و هم امکاناتش بیشتره
موفق باشی
خیلی ممنون
مشکل حل شد
ببخشید که می گه همچین فایلی وجود نداره اون جایی که لینک کردی.
بعد از چهار سال لینک ها خراب میشه دیگه!نقل قول:
برنامه خیلی خیلی سادس اگه خواستی برات میذارم.
برای اینکه لینک ها خراب نشه توی سایتنقل قول:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اپلود کنید تا فایل ها تاریخ انقضا نداشته باشند
شرمنده اینو میگم ولی این برنامه شما جواب معادله درجه دو را بهتون نمیده (معادله درجه دوم یعنی ax2+bc+c )نقل قول:
که کدش اینه
کد:
dim a as integer,b as integer,c as integer, d as integer,x1 as integer,x2 as integer
a =val(inputbox("a") 'daryaft a
b =val(inputbox("b") 'daryaft b
c =val(inputbox("c") 'daryaft c
d=b^2-4*a*c 'mohasebe delta
if d<0 then print "javab nadarad"
if d=0 then
x1=(-2*b)/(2*a)
print x1
end if
if d>0 then
x1=(-b+(sqr(d))/(2*a)
x2=(-b-(sqr(d))/(2*a)
print x1,x2
end if