Printable View
سلام [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
من میخوام با Visual Basic یه برنامه Paint بسازم ولی چیز زیادی از Visual Basic بلد نیستم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
کسی میتونه در این زمینه بهم کمک کنه ؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام به شما دوست عزیز :biggrin:
خوب شما باید حداقل 6 ماه کار کرده باشی تا بتونی یک Paint نسبتا کامل و قابل قبول بنویسی!
خوب من اگه تونستم برات یه سری کد میزارم!
:cool: :happy:
ممنون از لطفتون :blush:نقل قول:
نوشته شده توسط Amin Uljay
اگر بتونید برای شروع ساخت یه برنامه Paint با Visual Basic هم راهنمائیم کنید ممنون میشم :rolleye:
بسیار عالی :biggrin: !
قسمت اول!
__________________
اولین چیزی که تو زبان های برنامه نویسی مهم هست قالب اون هست! مثلا در VB برای نوشتن یک برنامه شما باید یک سری مراحل رو طی کنی.مثل مقدار دهی و ...!
من به شما پیشنهاد میکنم به این قسمت یه سرکی بزنی! که اموزش vb رو توضیح دادن .خیلی جالب هست! دیگه وارد جزئیات بیشتر نمیشم!
در این قسمت:[ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ]
__________________
قسمت دوم:
شما این مراحل رو انجام بده!!
1-- یک عدد PictureBox در صفحه قرار بده و اسم اونرو P1 بذار. (برای رسم خطوط و سایر موارد) بعد در قسمت Option--Appearance اون رو روی حالت Flat-0 قرار میدین!
2-- یک عدد Label با اندازه 255.255 قرار میدی و اسم اونرو lblc قرار میدی .از اون به تعداد رنگ ها (16) کپی
میکنی!!
درصورتی که دستگاه پیغام داد شما اون رو YES میکنی تا تمام اونها با هم Array بشن!
3-- یک label دیگه با نام lblc1 قرار میدی.برای نمایش رنگ فعلی!
4-- بعد شما باید یک Common Dialog قرار بدی و اسم اونو cmdl1 بذاری.
5-- 4 تا Option هم میذاری.
__________________
قسمت سوم: قرار دادن کد ها
Dim oldx, oldy, cl
Private Sub Form_Load()
cl = 0: lblc1.BackColor = QBColor(cl)
For i = 0 To 15
lblc(i).BackColor = QBColor(i)
Next i
End Sub
Private Sub lblc_Click(Index As Integer)
cl = Index
lblc1.BackColor = QBColor(cl)
End Sub
Private Sub lblc1_Click()
p1.Line = QBColor(i)
End Sub
Private Sub Option1_Click()
p1.DrawWidth = 1
End Sub
Private Sub Option2_Click()
p1.DrawWidth = 2
End Sub
Private Sub Option3_Click()
p1.DrawWidth = 3
End Sub
Private Sub Option4_Click()
p1.DrawWidth = 5
End Sub
Private Sub p1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldx = X
oldy = Y
End Sub
Private Sub p1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
n = 400
For i = 1 To 10
t = Rnd * 2 * 3.14
r = Int(Rnd * n)
X1 = r * Sin(t)
Y1 = r * Cos(t)
p1.PSet (X + X1, Y + Y1), lblc1.BackColor
Next i
End If
If Button = 1 Then
p1.Line (oldx, oldy)-(X, Y), lblc1.BackColor
oldx = X
oldy = Y
End If
End Sub
:happy: :happy:
اگه مایل باشی میتونم یه سری برنامه جالب تو همین تیریپ باست بفرستم!
ممنون از لطفتون :happy:نقل قول:
نوشته شده توسط Amin Uljay
اگر اون برنامه ها رو هم بفرستید که دیگه عالی میشه :rolleye:
البته اگر لطف کنید و به همراه برنامه ها درباره هر کدومشون یه توضیح هم بدید ممنون میشم :blush:
سورس كامل همچين برنامه اي توي سايت ما هست [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام دوست عزیز شما اگر یه سرچ می کردی یا مطالب قبلی را می دیدین حتما پیدا می کردین .
سلام تکنیک برتر جان :happy:نقل قول:
نوشته شده توسط تکنیک برتر
خوبی ؟ :blush:
من در مورد برنامه Paint در انجمن ویژال بیسیک پی سی ورلد جستجو کردم ولی چیز بدرد بخوری برای یه مبتدی پیدا نکردم :sad:
اگر شما تایپیکی سراغ دارید که در این زمینه توش بحث شده باشه و لینک اون رو اینجا بگذارید ممنون میشم :rolleye:
سلام و ببخشید که دیر شد.
شما فایل RAR رو دان کن!
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
برنامه هایی که من در اختیارتون گذاشتم بیشتر جنبه آموزشی داره نه کاربردی!
1 Amin peyravi Animation یک برنامه حرکتی که جالب هست که فکر کنم به این راحتی ها نشه نوشتش!!!
2 Browser یک برنامه برایکار با cdrom و Explorer
3 Clock نقش پاندول یک ساعت رو ایفا میکنه که امیدوارم تو دستگاتون قاطی نکنه!
4 Driver مثلا یه چیزی تو مایه های ماشین و جاده(منتظر بازیش باشید.)
5 Ball یک برنامه توپ ساده(فرم را تغیر اندازه دهید)
6 Paint نقاشی ساده که هنوز کامل نیست(اسپری هم کار میکنه< راست کلیک>)
7 Thank you همانند گزینه اول
8 A1 فرم را بزرگ کرده و سعی کنید اثر خلق کنید!
9 A2 یک نقاشی خیلی ساده(برای دوستمون که درخواست کرده بود)
10 Cd Browser فایل EXE همون گزینه دوم.
11 Clock فایل EXE همون گزینه سوم.
12 Driver فایل EXE همون گزینه چهارم.
13 Final Work فایل EXE همون گزینه اول به صورت کامل.
14 Ball فایل EXE همون گزینه پنجم.
15 Puzzle یک بازی ساده پازل که هنوز کار داره.
16 Thank you فایل EXE همون گزینه آخر.
17 Ul paint اسمش روشه!
خیلی ممنون از توجه تون
اگه ممکنه نظرتون رو درباره این برنامه بگید.
یه مبتدی نوشته
اقا من برنامه کاملش را با فیلتر و ... دارم !
بی زحمت آپلود کنید!
تا دان کنیم. ممنون
سلام. من یه برنامه نویس تازه کارم. میخواستم ببینم محتویات یک picturebox رو چجوری میشه فرستاد به چاپگر و پرینتش کرد.