Printable View
تو اين بحث ميخوايم راه ساخت برخي از برنامه ها رو ياد بگيريم از دوستان خواهش مي كنم
جواب ها رو طوري بدن كه براي ما مبتدي ها گيج كننده نباشه:31:
= مي خوام برنامه اي بنويسم كه تصويري رو دريافت كرده و اونو به اندازه هاي مورد نظر كاربر تقسيم كنه (مثل A4 ) و كاربر بتونه اون تصاوير تكه تكه رو ذخيره كنه.
ممنون ميشم جوابو كامل بدين:46:
برای نوشتن یک برنامه ، خیلی مهم تر از زبانی که انتخاب می کنین و باید یاد بگیرین، یادگیری اساس برنامه نویسی هست
دید شما نسبت به اون کاری که باید انجام بدین مهمه
اگر مایل باشین این برنامه رو با سوال و جواب بنویسیم
دید شما نسبت به یک عکس چیه ؟ از چی تشکیل شده، دسترسی شما در یک عکس به چه چیز هایی هست ؟
وقتی میگین عکس تقسیم بندی بشه، یعنی می خواین چیکار کنین ؟
کدوم عکس ؟ اینهمه فرمت عکس هست ، کدوم یکی ؟
اینها رو پرسیدم تا با این موضوع شروع کنم که شما اولین کار توو برنامه نویسیتون، باید این باشه که سوای زبان و ... باید بفهمین :
چیکار می خواین بکنین ؟
این سوال ها رو جواب بدین سعی می کنم برنامه کاملی با هم بنویسم
شاید هم یک خیر خواه پیدا شد و این وسط برنامه رو توو چند خط به شما داد و کار رو تموم کرد
سلام
یعنی فقط میخواهید یک تصویر بزرگ را خرد کنید؟نقل قول:
مي خوام برنامه اي بنويسم كه تصويري رو دريافت كرده و اونو به اندازه هاي مورد نظر كاربر تقسيم كنه
اینکه برنامه نمیخواهد! چهار خط کد میشود.
من همین الآن و در مدت یک یا دو دقیقه کد زیر را نوشتم که کار هم کرد، شما میتوانید به نیاز خودتان کاملترش کنید.
(برای دو دقیقه خوب است)
کد:'VB9
Public Shared Sub FragImage(ByVal filesource As String, ByVal destinfolder As String, ByVal rows As Integer, ByVal columns As Integer)
If (Not destinfolder.EndsWith("\")) Then destinfolder &= "\"
If (Not System.IO.Directory.Exists(destinfolder)) Then
System.IO.Directory.CreateDirectory(destinfolder)
End If
'----------------------------------------------------------------------
Using img As System.Drawing.Image = System.Drawing.Image.FromFile(filesource)
Dim rect As New System.Drawing.Rectangle(0, 0, img.Width \ columns, img.Height \ rows)
'----------------------------------------------------------------------
rows -= 1
columns -= 1
Dim destinfile As String
For row As Integer = 0 To rows
For column As Integer = 0 To columns
Using _
newimg As New System.Drawing.Bitmap(rect.Width, rect.Height), _
g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(newimg)
g.DrawImage(img, rect, column * rect.Width, row * rect.Height, rect.Width, rect.Height, System.Drawing.GraphicsUnit.Pixel)
destinfile = destinfolder & CStr(row) & "-" & CStr(column) & ".png"
newimg.Save(destinfile, System.Drawing.Imaging.ImageFormat.Png)
End Using
Next
Next
End Using
End Sub
با تایپ دستورات فوق حالا با دادن فرمانی مثل این:
فایل file.jpg از عرض و طول به 5 تکه تقسیم میشود و در پوشه VBImage نتیجه که 25 فایل تصویری باشد ریخته میشود.کد:Me.FragImage("C:\file.jpg", "C:\VBImage\", 5, 5)
فرمت خروجی و ورودی قابل قبول هم میتواند 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 پاک میکند.
هر کجایش را مشکل داشتید برای توضیح بیشتر و جواب در خدمت هستم.
برنامه اي كه مورد نظر من بود چند كد خالي نيست
بلكه برنامه اي با كارايي زياديه كه بعد از جستجو پيداش كردم :
Download RonyaSoft ProPoster v2.02.07
راه ساخت اين برنامه با ويژيوال بيسيك چيه؟
سلام
من برنامه مد نظرتون را دیدم،
مشکل خاصی وجود نداره، خوشبختانه +GDI امکانات خیلی خوبی برای کار روی تصاویر داره، امکاناتی که GDI اونها را نداشته.
همانطور که در کد فوق دید، در چند چند تصویر را به چند تصویر کوچک تر شکستیم و ذخیره کردیم.
حالا اینجا به جای ذخیره کردن در فایلها مجزا، بحث Print در صفحات مجزا است.
اصولش چندان فرقی نمیکند.
واسط گرافیکی برنامه مورد نظرتان هم که ساده است و مشکلی ندارد
فقط یک بحث می ماند، شما میخواهید خودتان شروع به کار کنید و دیگران در ضمینه مشکلات کمکتان کنند یا اینکه دیگران بنویسند؟
(فکر کنم سوالی باشد که بقیه دوستان هم بخواهند بدانند)
در مورد اول میتوانم کمک کنم ولی برای مورد دوم که بخواهم کلش را بنویسیم، متاسفانه من وقت کافی ندارم. شاید دوستان دیگر داشته باشند.
اما اگر شروع کنید و جایی از آن را گیر کنید، میتوانید روی کمک من به شخصه حساب کنید.
چیزی که من دیدم چندان پیچیده نبود با نسخه VB6 الی VB9 میتوان انجامش داد.
من به شخصه از طرف خودم:
با هر انتخابی از رنج VB6,7,8,9 سعی میکنم کمک کنم. ولی فقط میتوانم روی بی پاسخ نماندن سوالات و مشکلات تحت VB8,9 تضمین دهم.
تا ببینیم نظر بقیه دوستان تالار VB چیست. و دوستان دیگر چقدر میتوانند کمک کنند.
من به شخصه میتوان تضمین دهم، هیچ مشکلی و سوالی در مسیر VB8,9 و این برنامه را بی پاسخ نگذارم.
ولی نمیتوان تضمینی روی نسخه های دیگر دهم، البته دوستان دیگر هم هستند که بیشک میتوانند کمک کنند، من هم همچنان با هر انتخابی از رنج VB6,7,8,9 سعی میکنم کمک کنم.
آموزش ساخت یک نوت پد با قابلیت find text رو می خواستم
خودم بلدم نوت پد درست کنم ولی find text نداره اگه میشه راهنمایی کنین
سلام
خود Notapd هیچ مشکلی ندارد.نقل قول:
آموزش ساخت یک نوت پد با قابلیت find text رو می خواستم
خودم بلدم نوت پد درست کنم ولی find text نداره اگه میشه راهنمایی کنین
ولی منظورتان را از FullText متوجه نشدم؟ RichText منظورتان بوده؟
یک کم توضیح دهید.
با سلام خدمت شما دوست گرامي
منظورم find text هست يعني قابليت جستجوي كلمه داشته باشه
بعدشم ميخوام يه notepad ساخته شده توسط خودم تو ويندوز داشته باشم
راستي چطوري ميشه دستور چاپ رو به برنامه اضافه كرد با visual component ميشه اگه ميشه لطف كنيد و دستورشو بذاريد
سلام
میبخشید فکر کنم چشم هایم چند شماره ضعیف تر شده! شاید هم از معایب Resolution بالا باشد.نقل قول:
منظورم find text هست
Find کجا Full کجا!
اتفاقاً سالها قبل دقیقاً چیزی مثل Notapd را با VB6 برای یک جوینده نمونه درست کردم.
فقط Save->Encoding را نداشت، که انهم اصلاً برای VB6 و Win98 چندان معنی نداشت.
==========
Form ها نصبت به هم چهار وضعیت دارند
وضعیت MDI و Child که در برنامه ای مثل Photoshop میبینید. (یکی داخل دیگری)
وضعیت Modal که در MsgBox ها میبینید (ریسمان قفل شده برای رویی تا بسته شود.)
وضعیت Owner که در همین Find میبنید (یکی روی دیگری)
وضعیت ازاد (هیچ کدام با هم کاری ندارند.)
ما باید یک فرم کوچک دومی را با حالت Owner نصبت به برنامه اصلی باز کنید.
من یک سرچی در CD های قدیمی ام میکنم، اگر نمونه VB6 ام را پیدا کردم که خیلی خوب میشود.
وگرنه توضیح بیشتر و دقیق تری میدهم.
خيلي ممنون لطف مي كني يه كم سريع ترنقل قول:
راستي اگه كسي خواست سورس برنامه نوت پد يا آموزش ساختش را بذارم البته بدون find text
سلام
یک سری از CD ها قدیم ا چک کردم ولی پیدا نشد.
چون ساده است، اگر بخواهید میتوانم کد کاملش را تحت VB9 بنویسم.
ولی من VS6 ندارم. پس یک توضیح کلی برایتان میدهم.
فرم frmSeach را با شمای ظاهری که میدانید درست کنید و کد زیر را برایش وارد کنید.
کنترلر f_Text را برای متن (TextBox)
کنترلر f_MatchCase هم که مشخص است. (CheckBox)
f_SearchDown و f_SearchUp هم RadioButton هستند.
کد زیر را هم به فرم frmMain تان اضافه کنید.کد:Option Explicit
Private m_frmMain As frmMain
'جهت نمایش به حالت شناوری و گرفتن اشاره گر فرم اصلی
Public Sub ShowFloat(owner As frmMain)
Set m_frmMain = owner
Call Me.Show(vbModeless, owner)
End Sub
'رویداد کلیک دکمه سرچ پنجره شناور
Private Sub btnSearch_Click()
'اجرای متد مورد نظر در فرم اصلی
Call m_frmMain.OnSearch(Me.f_Text.Text, Me.f_MatchCase.Value = vbChecked, Me.f_SearchDown.value)
End Sub
حالا باید مشکلات نمایشی و ارتباط بین دو فرم حل شده باشد.کد:Option Explicit
Private m_frmSearch As frmSearch
'رویداد کلیک منوی جستجو
Private Sub miFind_Click()
'اگر فرم تا خال ساخته نشده بود و موجود نبود، می سازیمش
If (m_frmSearch Is Nothing) Then
Set m_frmSearch = New frmSearch
End If
Call m_frmSearch.ShowFloat(Me)
End Sub
'مت اصلی جستجو
Friend Sub OnSearch(txt As String, matchcase As Boolean, down As Boolean)
'...
End Sub
'اختیاری - جهت از حافظه خارج کردن فرم شناور
Private Sub Form_QueryUnload(cancel As Integer, mode As Integer)
If Not (m_frmSearch Is Nothing) Then
Call Unload(m_frmSearch)
Set m_frmSearch = Nothing
End If
End Sub
فقط میماند خود ذات جستجو در فرم اصلی که باید در متد OnSearch داخل فرم اصلی تکمیل شود.
راستش رو بخوای من تازه کارم بگو چطوری!:41:نقل قول:
با سلام دوباره
اگه میشه لطف کنید بگید چطوری میشه کاری کرد که کیبورد یا موس قفل بشه و مثلا با یه رمز باز بشه
با تشکر
سجاد:11:
سلام
یعنی بیایید و یک فرم جدید اضافه کنید.نقل قول:
راستش رو بخوای من تازه کارم بگو چطوری
یعنی Project->Add Form
بعد هم این فرم را مثل فرم جستجوی Notepad کنید، کار حرفه ای پیچیده ای نیست!
(
اگر واقعاً میخواهید برنامه نویسی یاد بگیرید، باید خودتان انجام دهید، و اگر بگویید سخت است و من نمیتوانم و.... نتیجه اش آن میشود که نمیتوانید!!!!
مطمئن باشید اگر وقت بگذارید و بخواهید میتوانید.
)
بعد که فرم را اضافه کردید، یک دکمه Find و Cancel و یک TextBox و...
دقیقاً پنجره Find برنامه Notepad را باز کنید و همان را عیناً با کنترلرهای داخل Toolbar بسازید، خیلی ساده و روان.
بعد کدهای پست 11 را هم اضافه کنید.
اگر باز به مشکلی برخوردید، بپرسید.
API هایی برای این کارها وجود دارند ولی من به شخصه در این خط ها نیستم. شاید دوستان دیگر جواب دهند.نقل قول:
اگه میشه لطف کنید بگید چطوری میشه کاری کرد که کیبورد یا موس قفل بشه و مثلا با یه رمز باز بشه