رفتن به مطلب

AtAgAmEr

کاربر ویژه
  • پست

    3343
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    14
  • بازخورد

    100%

تمامی مطالب نوشته شده توسط AtAgAmEr

  1. یه نگاه به این عکس بندازین ؟؟ شماهه هم این مشکل رو دارین ؟؟ به عیر از این نسخه ؛ نسخه دیگه نیست بدون مشکل باشه
  2. راستی چطوری میشه اون پنجره ای رو که روی صفحات وب نشون میداد رو فعال کنم ؟؟
  3. خبری از این کارها نیستش بعضی وقتها سیستم رو از وین ریست میکنم مانیتور خاموش میشه ولی سیستم روشنه باید دستی ریست کنمش یا همون مشکلی که بالا گفتم / همیشه هم نیست / نمیدونم مشکل از چیه / الانم بایوس رو به F8 آپدیت کردم
  4. اقا زنگ زدم از دوستم پرسیدم که ازش گرفته بودم گفت یه جلسه ای زده بودن با بیت دیفندر از اون جلسه به بعد زبان شده فارسی/ یعنی اگه اینجوری پیش بره کلاً قیدش رو میزنم مگر اینکه بیان یه راهنما براش بزارن آخه این یعنی چی؟؟؟؟؟؟
  5. مگه این برا تست رم هستش ؟؟ من برا پردازنده میدونم
  6. سلام آرمین گل آرمین قبلاً که اینجوری نبود !! 2 روز نیست این ایکس پی رو زدم و آنتی ویروس رو زدم که چند ماه پیش هم زده بودمش با همین سریال / انگلیسی بودش
  7. من موقع نصب هم انگلیسی انتخاب میکنم ولی باز میره رو مد فارسی ؟؟؟؟ !!!! ؟؟؟؟ گزینه ای هم برا انگلیسیش ندارم /
  8. سلام این باید بوت بشه / از رو دی وی دی که نشد ( زدم بوت رایت کنه نتونستم ، گفت باید سی دی باشه !! ) رو دی وی دی چطوری بوت راین کنم ؟؟ رو فلش هم زدم خودش نصب بوت داشت ولی موقع بالا اومدن سیستم گزینه ای برات بوت فلش نداره
  9. سلام میشه راهنمایی کنین دوستان ؟ ! مشخصات توی امضاء هستش رم ها 6 تا 2 گیگ هستن / اول اونایی که تو اسلان سفید هستن رو در آوردم و آبی ها موندن که سیستم موق بالا اومدن یه بوقی کشید در حد 3 ثانیه و ریست شد/ سفید ها رو انداختم 3 تا رم و آب هارو در آوردم سیستم بالا اومد و رفت ویندوز بعد تک تک اون یکی رم ها رو اسلات آب انداختم / سیستم بوق رم رو نزد ولی بالا اومد رفت ویندوز اون یکی رم انداختم رو اسلات آبی 2 سیستم بوق نزد و ویندوز در لوگوی خودش فریز شد اون یکی رو رو دوباره رو همون اسلات انداختم و مشابه بالا فریز شد ( گفتم از اسلات مشکل داره ) رفتم سراغ اسلات سوم رم ها رو چک کردم سیستم بود شد و اومد بالا و رفت ویندوز ولی بدون بوق شناسایی رم رم رو درآوردم و اون یکی رم رو انداختم رو سیستم بالا اومد رفت ویندوز ولی با چند ثانیه تاخیر ولی بازم بوق شناسایی رم رو نزد خلاصه خسته شدم همه رم هارو انداختم رو سیستم / سیستم بوق شناسایی رم رو زد بالا اومد و رفت ویندوز ولی قبل این Clear Cmos رو از رو مین برد زدم و موقع بالا اومدن cmos error داد و یه پنجره باز کرد با چند تا گزینه اولی : دیفالت بود دومی : آخرین باری که سیستم بدون مشکل بالا اومده سوم تا پنجم هم تعداد بودت های موفق آمیز بودن که من دومی رو زدم مشکل حالا از چیه ؟؟ ( ویندوز رو تازه نصب کردم 2 روزه - روی ویندوز 7 هم این مشکل بودش ولی کمتر از ایکس پی که برا همین ویندوز جدید نصب کردم - اول ایکس پی اینجوری شد بعد از چند هفته ویندوز 7 که مجبور شدم ویندوز جدید بزنم )
  10. سلام دوستان اینترپرایز رو نصب کردم / آپدیت هم کردم / دمای قطعات خیلی پایین تر از ویندوز 7 هستش شاید باور نکنین ولی میتونم به جرات بگم 15 تا 25 درجه خنک تر از ویندوز 7 شده
  11. معین جان پرایز رو زدم رفت / ولی باز نگاه میکنم
  12. معین موندم / برادرم اینترپرایز رو نصب کرده / منم دیگه می خوام برم اینو نصب کنم بازم از دوستان ممنون
  13. ممنون نسخه Ultimate نداره ؟
  14. سلام راهنمایی می کنین :wub:
  15. به به عید میریم قم برا تبریک به معین عزیزم :wub: انشاالله که همیشه سلامت و موفق پیش خانوادت باشی آمین
  16. سلام ای کاش اینم انجام بدن / نوشتم دادم بهش بازم کارها کند پیش میره - میگم باز مشکل چیه ؟؟؟ میگه کاش میشد حرف زد این می نوشت ( ربطی به دفتر حقوقی نداره ) گفتم : بله حتماً
  17. برا منم ایجنوری بودش که طبق گفته محمود عمل کردم و مشکل حل شد بتیل فیلد بود اشتباه نکنم
  18. لطف داری محمود جان ( زیادم جالب نیستن بابا هندونه نده دستمون هرچی میاد به ذهنم می نویسم :wub: ) استاد خیلی مهم هستش توی یادگیری منم آماتورم و بیشتر دنبال برنامه هایی رفتم که نیاز داشتم ( هستن از بچه ها که به گرد پاشونم نمی رسم )
  19. سلام دفتر حقوقی محل کارم گفت که کلافه میشیم متن های تکراری رو تایپ کنیم میشه کاری کرد که فقط اطلاعات مورد نیاز رو داد و پرینت گرفت !! ( یه چیزایی درست کردم دادم توی WORD ولی نتونستن کار کنن باهاش ) و راهی بهتر خواستن اولش گفتم نمی دونم باید ببینم هم چین چیزی هستش که بعد از گشت و گذار و پرس جو به این نتیجه رسیدم که در ادامه می بینید توی محل کلرتون شده که از تایپ کردن متن های تکراری و جابجا کردن اونا بین چندین صفحه و یا حتی پیدا کردن فایل مربوطه کلافه بشین یا اینکه مثل من حوصله نداشته باشین برین سراغش/ خوب توسط یه همچین برنامه ای میشه از این کارا دوری کرد و خودمون رو راحت کنیم چندین راه هستش که من از طریق BookMark این کارو انجام دادم ( برنامه های مشابهی هم هستش ) اول در محیط MS-Word 2010 ( یا هر نسخه ای که دوست دارین ) - فرم خودتون رو طراحی کنین - مثل همین فرم زیر بعد جلوی هر یک از نوشته هایی که نوشتین کلیک کنید و پنجره BooKMark رو باز کنید و یک اسم به اون نوشته خود بدین و بعد OK- شکل زیر که در شکل بالا shsh رو من به شماره شناسنامه نسبت دادم - به همین روال عملیات رو تکرار کنین/ فایل رو در حالت Template ذخیره کنین حال نوبت به برنامه میرسه در برنامه مطابق شکل زیر آبجکت MS Word رو فراخوانی کنین فیلدهای موردنظر خود رو بر روی فرم ایجاد کنین و بعد یک فایل ار نوع Module به پروژه برنامه اضافه کنین/ چون سورس برنامه رو هم براتون آپ میکنم فقط چند خط توضیح میدم در مورد برنامه Word.Application.Quit wdDoNotSaveChanges خط بالا برنامه MSWord رو بدون ذخیره کردن عملیات می بندد Call Printen(name, tel, pedar, ln, fn, tta, sh) فراخوانی فاکتورهای برنامه از فایل مدول Set Myw = GetObject("", "Word.Application") ایجاد یه برنامه از MSWord به برنامه خود Myw.Documents.Add "c:/lioncomputer.dot" باز کردن فایل مورد نظر توسط برنامه ایحاد شده در سطر بالا Set Range = Myw.ActiveDocument.Bookmarks("nam").Range تعریف محدوده کاری برای برنامه که در اینجا nam هستش ( اسم BookMark ای که در عکس دوم نشون دادم ) Range.InsertAfter name و بالاخره بعد از پیدا کردن محدوده کاری از سطر بالا ، مقدار name رو که از کاربر گرفته جایگذاری میکنه Myw.ActiveDocument.PrintOut اطلاعات جایگذاری شده رو به چاپگر ارسال میکنه Set Myw = Nothing حافظه سیستم رو از برنامه MSWord آزاد میکنه ( یعنی از حافظه خالی میکنه ) اینم عکسی از نتیجه کار با برنامه دانلود برنامه به صورت دمو دانلود سورس برنامه از دوستان کسی خواست برنامه رو برا کاربرد خودش ، میتونه بهم بگه تا براش ایجاد کنم ( فرم طراحی شده رو بهم ارسال کنین فقط ) فایل lioncomputer.dot رو حتماً در درایو C کپی کنین برای اجرای برنامه
  20. سلام من رشته لیسانسم عمران هستش و ارشد هم برنامه ریزی محیطی کسانیکه از این رشته اطلاعات دارن میدونن که 90% کارمون با داده های آماری هستش ، توی کلاس می دیدم که خیلی از دانشجوها برا کار با اکسل و ماشین حساب دچار مشکل میشدند ( البته بچه های آمار و فنی مشکلی نبود براشون ) - دیشب زد سرم یه برنامه برا اینکار بزنم - قبلاً توی اکسل درست کرده بودم ولی بازم ندانسته میزدن خراب می کردن توضیحات : میانیابی خطی : با نگاه به شکل زیر ، میشه گفت که منظور ما از این روش ساده پیدا کردن مقدار Y هستش ولی زمانی که X ما دارای یک مقدار مشخص باشه خوب و اما می ریم برا کد نویسی ( توجه : در کد نویسی خبری از رعایت RAD - RUP - MVC - XP و از این چیزا نیستش - یعنی هر مدلی خواستم نوشتم و نتیجه داده :wub: ) بر روی فرم خود 6 تا Text.box ایجاد می کنیم به همراه 2 عدد دکمه که یکی برای محاسبه و دیگری برای پاک کردن فیلدها هستش و برای هر Text.box هم یک Label ایجاد میکنیم و مطابق شکل زیر عنوان دهی می کنیم برای اینکه بعد از نوشتن در Text.box بتونیم با زدن کلید Enter به Text.box بعدی بریم ، بر روی تک تک Text.Box ها دبل کلیک کرده و در قسمت کد نویسی برنامه Event مربوطه را انتخاب می کنیم که اونم KeyPress هستش ( در اینجا بر روی Text1.text این عمل انجام گرفته ) و بعد این کد رو می نویسیم (Private Sub Text1_KeyPress(KeyAscii As Integer If KeyAscii = "13" Then If Len(RTrim(Text1.Text)) = 0 Or Len(LTrim(Text1.Text)) = 0 Then GoTo azaval: End If Text4.Enabled = True Text4.SetFocus End If :azaval End Sub خوب این عدد 13 چیه ؟؟؟ این به برنامه میگه هر موقع در فیلد مربوط به Text1.Box کلیدی زده شده کنترل کن ببین که آیا این کلید زده شده کاید Enter هستش یا نه - اگه بود این کارها رو انجام بده : 1- کنتزل کن اگر کاراکتری نوشته نشده باشه به مرحله 2 ( که در زیر نوشتم ) نرو ( حتی اگر فضای خالی وجود داشته باشه ) 2- فیلد مربوط به Text4.Box رو در حالت فعال قرار بده ( برای اینکه کاربر نتونه همون ابتدای برنامه بدون اینکه عددی وارد کنه و بیاد سروقت Text.Box بعدی ، غیرفعالش میکنیم تا کاربر با وارد کردن عدد و زدند کلید Enter بتونه به فیلد بعدی بره ) 3- علامت چشمک زن ( cursor ) به فیلد بعدی که در اینجا Text4.text هستش منتقل کن خوب کار ((Len(RTrim(Text1.Text چیه ؟ میاد طول کاراکترها رو می خونه و فضای خالی از سمت راست رو حذف میکنه - یعنی اینکه شما یه چیزی نوشتین بعد اومدین کلید SpaceBar رو زدین ، این دستور اون Space های زده شده شما رو حذف میکنه و LTrim هم برای سمت چپ همین کارو رو انجام میده ================================================================================================ این کد نویسی رو برای همه Text.Box ها انجام میدیم ================================================================================================ محاسبه میانیابی : با توجه به شکل اول ، در قسمت کد نویسی دکمه مربوطه خواهیم داشت Private Sub Command1_Click() Text5.Text = ((Text2.Text - Text1.Text) * (Text6.Text - Text4.Text) / (Text3.Text - Text1.Text)) + Text4.Text End Sub که در اینجا X همان Text2.Text و Y همان Text6.Text هستش فکر نکنم ابهامی در این قسمت برنامه مونده باشه &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& رگرسیون خطی : واژه رگرسیون به معنای برگشت هستش و نشان می دهد که مقدار یک متغییر به متغیر دیگری برمیگردد . این واژه توسط فرانسیس گالتن در سال 1877 به کار برده شد . هدف از رگرسیون خطی ساده : با محاسبه عامل های مربوطه ، مدل خطی ساده ای به داده های برازش اختصاص داده شود . روشی که برای برازش کردن داده ها به کار میره ، روش کمترین مربعات هستش. فرض می کنیم که دوسری داده داریم که مقدار داده های X شامل : 1026.9 1021.8 1019.4 1016.8 1012.8 1006.3 و مقدار داده های Y شامل : 1017.3 1013.7 1009.5 1007.2 1004.1 997.9 خوب برای اینکه بتونیم رگرسیون رو انجام بدیم باید این مراحل رو پیش بریم ( برا اینکه نتونستم برخی کاراکترها رو تایپ کنیم عکس زدم ) پیدا کردن مجموع X ها و Y ها - توان 2 مجموع آنها - مجموع حاصل ضرب آنها - ( n تعداد داده ها هستش که در این مثال 6 هستش ) Σx - Σy- Σx2- Σy2-Σxy Sxx = Σx2 − (Σx)2/n Sxy = Σxy − (Σx)(Σy)/n Syy = Σy2 − (Σy)2/n تا اینجا که ساده هستش می دونیم که فرمول خطی رگرسیون ساده برابر y=a+bx هستش خوب حالا باید a و مقدار b رو حساب کنیم b = Sxy/Sxx (a = (Σy/n) − b (Σx/n حال نوبت محاسبه R2 هستش : فرمولش برابر : R2 = SSR/SST پس باید مقدار SSR و SST رو بدست بیاریم ( مجموع مربعات کل و رگرسیون ) SSE = Syy – bSxy SSR = SST – SSE SST = (y − Σy)2 = Syy به همین شکل اینم بدست میاد / در برنامه هم برای وارد کردن مقادیر X ها و Y ها ، 2 عدد ListBox قرار داده شده که ListBox اولی از سمت چپ برای X ها و ListBox بعدی ( اولی از سمت راست ) برای مقادیر Y ها هستش که کاربر با وارد کردن عدد در Text.Box های 8 و 7 در برنامه و زدن کلید Enter عدد وارد لیست مربوطه میشه کد مربوطه : Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = "13" Then List1.AddItem Text8.Text Text8.Text = Empty Text8.SetFocus End If End Sub عدد 13 رو که فهمیدیم کارش چیه و اما خط بعدی ، مقدار Text8.Text رو وارد لیست 1 میکنه که همون مقادیر X ها هستش و بعد Text.Box رو خالی میکنه و دستور Text8.SetFocus چشمک زن ماوس رو دوباره به Text.Box منتقل میکنه برای دریافت مقدار بعدی **** کد برای مقادیر Y ها هم مشابه بالاست **** برای اینکه کاربر بتونه مقادیر وارد شده در لیست ها رو در صورت اشتباه بودن پاک کنه از دستور زیر استفاده کردم Private Sub List1_Click() List1.RemoveItem List1.ListIndex End Sub یعنی وقتی کاربر روی اعداد موجود در لیست کلیک کنه اون عدد پاک میشه توی کد های برنامه ممکن هستش بگین List1.ListCount چه کاری انجام میده ؟؟ تعداد داده های موجود در لیست 1 رو برامون نشون میده **** در قسمت کد کار خاصی انجام داده نشده هرچی در بالا برای محاسبه نوشتم در کد هم عین اون اومده **** امیدوارم که کمکی کرده باشم با این سواد کم و مختصری که دارم عکسی از رگرسیون توسط برنامه و مقایسه اون در اکسل برنامه اجرایی سورس برنامه به زبان ویژوال بیسیک 6
  21. شده تابحال به اين فكر بكنين كه چطوري ميشه محتويات فايلهاي با پسوند msi رو ديد بدون اينكه نصبشون كرد ؟؟؟ خوب اينجا مي تونين ببينين چه بايد كرد ؟ msiexec /a c:\ata\vga.msi /qb TARGETDIR=c:\ataata اين خط مياد فايل vga.msi رو كه در پوشه ata در درايو C هستش ؛ محتوياتش رو Extract ميكنه به پوشه ataata دردرايو C برا اطلاعات كلي تر به اينجا مراجعه نماييد MSIEXEC
  22. به به عجب صفحه اي هستش / سلام يه سري اطلاعات در مورد رزوليشن هاي موجود در صفحه ها اينجا هستش/ انشاالله كه بدردتون مي خورن List of common resolutions
×
×
  • اضافه کردن...