واضح آرشیو وب فارسی:سایت ریسک: Sabzgol01-09-2008, 07:22 PMتو اين بحث ميخوايم راه ساخت برخي از برنامه ها رو ياد بگيريم از دوستان خواهش مي كنم جواب ها رو طوري بدن كه براي ما مبتدي ها گيج كننده نباشه:31: = مي خوام برنامه اي بنويسم كه تصويري رو دريافت كرده و اونو به اندازه هاي مورد نظر كاربر تقسيم كنه (مثل A 4 ) و كاربر بتونه اون تصاوير تكه تكه رو ذخيره كنه. ممنون ميشم جوابو كامل بدين:46: KhepeleSibilo01-09-2008, 08:34 PMبرای نوشتن یک برنامه ، خیلی مهم تر از زبانی که انتخاب می کنین و باید یاد بگیرین، یادگیری اساس برنامه نویسی هست دید شما نسبت به اون کاری که باید انجام بدین مهمه اگر مایل باشین این برنامه رو با سوال و جواب بنویسیم دید شما نسبت به یک عکس چیه ؟ از چی تشکیل شده، دسترسی شما در یک عکس به چه چیز هایی هست ؟ وقتی میگین عکس تقسیم بندی بشه، یعنی می خواین چیکار کنین ؟ کدوم عکس ؟ اینهمه فرمت عکس هست ، کدوم یکی ؟ اینها رو پرسیدم تا با این موضوع شروع کنم که شما اولین کار توو برنامه نویسیتون، باید این باشه که سوای زبان و ... باید بفهمین : چیکار می خواین بکنین ؟ این سوال ها رو جواب بدین سعی می کنم برنامه کاملی با هم بنویسم شاید هم یک خیر خواه پیدا شد و این وسط برنامه رو توو چند خط به شما داد و کار رو تموم کرد _H2_01-09-2008, 10:25 PMسلام مي خوام برنامه اي بنويسم كه تصويري رو دريافت كرده و اونو به اندازه هاي مورد نظر كاربر تقسيم كنه یعنی فقط میخواهید یک تصویر بزرگ را خرد کنید؟ اینکه برنامه نمیخواهد! چهار خط کد میشود. من همین الآن و در مدت یک یا دو دقیقه کد زیر را نوشتم که کار هم کرد، شما میتوانید به نیاز خودتان کاملترش کنید. (برای دو دقیقه خوب است) !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! با تایپ دستورات فوق حالا با دادن فرمانی مثل این: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! فایل file.jpg از عرض و طول به 5 تکه تقسیم میشود و در پوشه VBImage نتیجه که 25 فایل تصویری باشد ریخته میشود. فرمت خروجی و ورودی قابل قبول هم میتواند jpg-jpeg-jpe-bmp-dib-rle-emf-exif-gif-png-tiff-tif-wmf باشد، با کمی تغییر میتوان ico-cur را هم اضافه کرد. ... که گيج كننده نباشه شرح کد هم ساده است. - چک میکنیم اگر پوشه مقصد اخرش "" ندارد، اضافه میکنیم. - اگر پوشه مقصد وجود ندارد آن را میسازیم - تصویر را در img بارگذاری میکنیم. - ابعاد تصاویر کوچک جدید را، از تقسیم ابعاد تصویر اصلی بر تعداد قطعات مورد نیاز به دست می آوریم و در rect میریزیم. - دو حلقه تو در تو تشکلی میدهیم تا به تعداد قطعات کار را تکرار کنید. - یک تصویر سفید و خالی با ابعاد کوچک جدید در RAM با نام newimg می سازیم. - از تصویر یک شی پرده رسم با نام g تهیه میکنیم - در شی پرده رسم، مختصات مورد نظر در تصویر بزرگ اصلی را به مختصات کل تصویر کوچک کپی میکنیم. - فایل جدید کوچک را از جمع "پوشه مقصد+سطر+خط تیره+ستون+پسوند png" میسازیم و در destinfile میریزیم. - تصویر در RAM را با متد Save به و فرمت png در فایل destinfile ذخیره میکنیم. در اخر یاداوری میکنم که دستور جدید Using خیلی شبیه Dim است با این تفاوت که در End Using شی مورد نظر را کلاً از RAM پاک میکند. هر کجایش را مشکل داشتید برای توضیح بیشتر و جواب در خدمت هستم. Sabzgol03-09-2008, 02:29 PMبرنامه اي كه مورد نظر من بود چند كد خالي نيست بلكه برنامه اي با كارايي زياديه كه بعد از جستجو پيداش كردم : Download RonyaSoft ProPoster v2.02.07 راه ساخت اين برنامه با ويژيوال بيسيك چيه؟ _H2_03-09-2008, 11:56 PMسلام من برنامه مد نظرتون را دیدم، مشکل خاصی وجود نداره، خوشبختانه +GDI امکانات خیلی خوبی برای کار روی تصاویر داره، امکاناتی که GDI اونها را نداشته. همانطور که در کد فوق دید، در چند چند تصویر را به چند تصویر کوچک تر شکستیم و ذخیره کردیم. حالا اینجا به جای ذخیره کردن در فایلها مجزا، بحث Print در صفحات مجزا است. اصولش چندان فرقی نمیکند. واسط گرافیکی برنامه مورد نظرتان هم که ساده است و مشکلی ندارد فقط یک بحث می ماند، شما میخواهید خودتان شروع به کار کنید و دیگران در ضمینه مشکلات کمکتان کنند یا اینکه دیگران بنویسند؟ (فکر کنم سوالی باشد که بقیه دوستان هم بخواهند بدانند) در مورد اول میتوانم کمک کنم ولی برای مورد دوم که بخواهم کلش را بنویسیم، متاسفانه من وقت کافی ندارم. شاید دوستان دیگر داشته باشند. اما اگر شروع کنید و جایی از آن را گیر کنید، میتوانید روی کمک من به شخصه حساب کنید. چیزی که من دیدم چندان پیچیده نبود با نسخه VB 6 الی VB 9 میتوان انجامش داد. من به شخصه از طرف خودم: با هر انتخابی از رنج VB 6,7,8,9 سعی میکنم کمک کنم. ولی فقط میتوانم روی بی پاسخ نماندن سوالات و مشکلات تحت VB 8,9 تضمین دهم. تا ببینیم نظر بقیه دوستان تالار VB چیست. و دوستان دیگر چقدر میتوانند کمک کنند. من به شخصه میتوان تضمین دهم، هیچ مشکلی و سوالی در مسیر VB 8,9 و این برنامه را بی پاسخ نگذارم. ولی نمیتوان تضمینی روی نسخه های دیگر دهم، البته دوستان دیگر هم هستند که بیشک میتوانند کمک کنند، من هم همچنان با هر انتخابی از رنج VB 6,7,8,9 سعی میکنم کمک کنم. Samba04-09-2008, 11:34 AMآموزش ساخت یک نوت پد با قابلیت find text رو می خواستم خودم بلدم نوت پد درست کنم ولی find text نداره اگه میشه راهنمایی کنین _H2_05-09-2008, 12:14 AMسلام آموزش ساخت یک نوت پد با قابلیت find text رو می خواستم خودم بلدم نوت پد درست کنم ولی find text نداره اگه میشه راهنمایی کنین خود Notapd هیچ مشکلی ندارد. ولی منظورتان را از FullText متوجه نشدم؟ RichText منظورتان بوده؟ یک کم توضیح دهید. Samba05-09-2008, 12:49 PMبا سلام خدمت شما دوست گرامي منظورم find text هست يعني قابليت جستجوي كلمه داشته باشه بعدشم ميخوام يه notepad ساخته شده توسط خودم تو ويندوز داشته باشم راستي چطوري ميشه دستور چاپ رو به برنامه اضافه كرد با visual component ميشه اگه ميشه لطف كنيد و دستورشو بذاريد _H2_05-09-2008, 01:46 PMسلام منظورم find text هست میبخشید فکر کنم چشم هایم چند شماره ضعیف تر شده! شاید هم از معایب Resolution بالا باشد. Find کجا Full کجا! اتفاقاً سالها قبل دقیقاً چیزی مثل Notapd را با VB 6 برای یک جوینده نمونه درست کردم. فقط Save->Encoding را نداشت، که انهم اصلاً برای VB 6 و Win98 چندان معنی نداشت. ========== Form ها نصبت به هم چهار وضعیت دارند وضعیت MDI و Child که در برنامه ای مثل Photoshop میبینید. (یکی داخل دیگری) وضعیت Modal که در MsgBox ها میبینید (ریسمان قفل شده برای رویی تا بسته شود.) وضعیت Owner که در همین Find میبنید (یکی روی دیگری) وضعیت ازاد (هیچ کدام با هم کاری ندارند.) ما باید یک فرم کوچک دومی را با حالت Owner نصبت به برنامه اصلی باز کنید. من یک سرچی در CD های قدیمی ام میکنم، اگر نمونه VB 6 ام را پیدا کردم که خیلی خوب میشود. وگرنه توضیح بیشتر و دقیق تری میدهم. Samba06-09-2008, 12:46 PMسلام میبخشید فکر کنم چشم هایم چند شماره ضعیف تر شده! شاید هم از معایب Resolution بالا باشد. Find کجا Full کجا! اتفاقاً سالها قبل دقیقاً چیزی مثل Notapd را با VB 6 برای یک جوینده نمونه درست کردم. فقط Save->Encoding را نداشت، که انهم اصلاً برای VB 6 و Win98 چندان معنی نداشت. ========== Form ها نصبت به هم چهار وضعیت دارند وضعیت MDI و Child که در برنامه ای مثل Photoshop میبینید. (یکی داخل دیگری) وضعیت Modal که در MsgBox ها میبینید (ریسمان قفل شده برای رویی تا بسته شود.) وضعیت Owner که در همین Find میبنید (یکی روی دیگری) وضعیت ازاد (هیچ کدام با هم کاری ندارند.) ما باید یک فرم کوچک دومی را با حالت Owner نصبت به برنامه اصلی باز کنید. من یک سرچی در CD های قدیمی ام میکنم، اگر نمونه VB 6 ام را پیدا کردم که خیلی خوب میشود. وگرنه توضیح بیشتر و دقیق تری میدهم. خيلي ممنون لطف مي كني يه كم سريع تر راستي اگه كسي خواست سورس برنامه نوت پد يا آموزش ساختش را بذارم البته بدون find text _H2_06-09-2008, 09:57 PMسلام یک سری از CD ها قدیم ا چک کردم ولی پیدا نشد. چون ساده است، اگر بخواهید میتوانم کد کاملش را تحت VB 9 بنویسم. ولی من VS6 ندارم. پس یک توضیح کلی برایتان میدهم. فرم frmSeach را با شمای ظاهری که میدانید درست کنید و کد زیر را برایش وارد کنید. کنترلر f_Text را برای متن (TextBox) کنترلر f_MatchCase هم که مشخص است. (CheckBox) f_SearchDown و f_SearchUp هم RadioButton هستند. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! کد زیر را هم به فرم frmMain تان اضافه کنید. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! حالا باید مشکلات نمایشی و ارتباط بین دو فرم حل شده باشد. فقط میماند خود ذات جستجو در فرم اصلی که باید در متد OnSearch داخل فرم اصلی تکمیل شود. Samba07-09-2008, 12:18 PMفرم frmSeach را با شمای ظاهری که میدانید درست کنید و کد زیر را برایش وارد کنید. راستش رو بخوای من تازه کارم بگو چطوری!:41: Samba07-09-2008, 12:22 PMبا سلام دوباره اگه میشه لطف کنید بگید چطوری میشه کاری کرد که کیبورد یا موس قفل بشه و مثلا با یه رمز باز بشه با تشکر سجاد:11: _H2_08-09-2008, 09:20 PMسلام راستش رو بخوای من تازه کارم بگو چطوری یعنی بیایید و یک فرم جدید اضافه کنید. یعنی Project->Add Form بعد هم این فرم را مثل فرم جستجوی Notepad کنید، کار حرفه ای پیچیده ای نیست! ( اگر واقعاً میخواهید برنامه نویسی یاد بگیرید، باید خودتان انجام دهید، و اگر بگویید سخت است و من نمیتوانم و.... نتیجه اش آن میشود که نمیتوانید!!!! مطمئن باشید اگر وقت بگذارید و بخواهید میتوانید. ) بعد که فرم را اضافه کردید، یک دکمه Find و Cancel و یک TextBox و... دقیقاً پنجره Find برنامه Notepad را باز کنید و همان را عیناً با کنترلرهای داخل Toolbar بسازید، خیلی ساده و روان. بعد کدهای پست 11 را هم اضافه کنید. اگر باز به مشکلی برخوردید، بپرسید. اگه میشه لطف کنید بگید چطوری میشه کاری کرد که کیبورد یا موس قفل بشه و مثلا با یه رمز باز بشه API هایی برای این کارها وجود دارند ولی من به شخصه در این خط ها نیستم. شاید دوستان دیگر جواب دهند. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 963]