سلام می بخشید من پروژه الگوریتم زمانبندی پردازنده با زبان VB می خواستم که الگوریتمش SJF باشه متشکر.
Printable View
سلام می بخشید من پروژه الگوریتم زمانبندی پردازنده با زبان VB می خواستم که الگوریتمش SJF باشه متشکر.
با سلام!نقل قول:
دوست گرامي ضمن تبريك عضويت تون و عذرخواهي بابت تاخير در پاسخ گويي...
شما مي تونيد از متد GetPixel براي دريافت كد رنگ در يك موقعيت خاص و متد SetPixel براي اختصاص يه كد رنگ به يه پيكسل در موقعيت خاص ديگر استفاده كنيد. براي اطلاعات بيش تر مي تونيد از دو سورس زير كمك بگيريد:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
آرمين
با سلام!نقل قول:
دوست گرامي عضويت تون رو در شهر سخت افزار تبريك مي گم و عذر مي خوام كه پاسخ تون رو با تاخير ميدم...
سورسش رو مي تونيد از لينك زير دانلود كنيد:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
موفق باشيد
آرمين
سلام
خسته نباشید
من یک مبتدی برنامه سازی هستم که یک سوال فوری دارم.
میخوام فرمم را در حالت اجرا پرینت کنم و به برنامه ی adobe reader انتقال بدم چطور اینکار رو بکنم؟:1. (4):
ببخشید اگه میشه سریع جواب بدید خیلی عجله دارم...
سلام!
عضویت تون رو در شهر سخت افزار تبریک می گم.:party:
شما باید با دستوراتی نظیر PrintForm و یا ابزاری مثل Crystal Report شی چاپ خودتون رو ایجاد و برای پرینتر بفرستید.
برای آشنایی با فرمان PrintForm به سورس های زیر مراجعه کنید:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای آشنایی با کریستال ریپورت هم به پیوند های زیر مراجعه کنید:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
اگه قراره با Adobe Reader فرم رو پرینت و به شکل PDF دربیارید باید با روش های بالا شی رو آماده ی چاپ می کنید و با انتخاب چاپگر مجازی ادوبی دستور پرینت رو صادر کنید تا چاپ صورت بگیره.
موفق باشید
آرمین
ممنون از کمکتون یه سوال دیگهچطور میتونم از 5 تکست جوری میانگین بگیرم که فقط از تکست های پر میانگین بگیره؟معلوم نیست کدوم تکست ها خالی میمونه یا پرخیلی ممنون
ممکنه سوالتون رو واضح تر شرح بدید؟ متوجه منظورتون از میانگین گیری تکست باکس نشدم!نقل قول:
ببخشید که مبهم سوال کردمنقل قول:
من 5 تا تکست دارم که داخلشون قراره عدد قرار بگیره .
من میانگین این اعداد داخل تکست باکس رو میخوام
اما ممکنه بعضی از این تکست باکس ها در حالت اجرا فاقد عدد باشند
در فرمول نویسی من تمام تکست باکس ها رو جمع کردم و تقسیم بر 5 کردم
اما اگر تکستی فاقد عدد باشد باید تقسیم بر 4 شود
من میخوام محتوای تکست باکس ها رو جمع کنه و تقسیم بر تعداد تکست های پر کنه.
امیدوارم متوجه شده باشید.:1. (4)::oops:
خواهش می کنم؛ الآن متوجه شدم.نقل قول:
فرض کنیم ما 5 تا جعبه ی متنی به نام های Text1, Text2 تا Text5 داریم. کافیه قبل از میانگین گیری بررسی کنیم که چند تا جعبه ی متنی حاوی مقدار هستن و به ازای هر جعبه ی متنی دارای مقدار، مقدار یه شمارنده رو یکی افزایش میدیم:
اگر تعداد جعبه های متنی تون مقدار دلخواهی باشه (نه الزاما" 5 تا)، می تونید از کد زیر هم استفاده کنید (البته امتحانش نکردم):کد:
Dim sum As Double = 0
If Text1.Text <> vbNullString Then
counter += 1
sum += Val(Text1.Text)
End If
If Text2.Text <> vbNullString Then
counter += 1
sum += Val(Text2.Text)
End If
If Text3.Text <> vbNullString Then
counter += 1
sum += Val(Text3.Text)
End If
If Text4.Text <> vbNullString Then
counter += 1
sum += Val(Text4.Text)
End If
If Text5.Text <> vbNullString Then
counter += 1
sum += Val(Text5.Text)
End If
Dim midVal As Double = sum / counter
موفق باشیدکد:
Dim counter As Integer = 0
Dim midVal As Double = 0
For Each ctr In Me.Controls
If TypeOf ctr Is TextBox Then
If ctr.Text <> vbNullString Then
counter += 1
midVal += Val(ctr.Text)
End If
End If
Next ctr
midVal = midVal / counter
MsgBox Str(midVal)
آرمین
آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشید:1. (4):