.persianblog'" >


جادوي ويژوال بيسيك

لينك سايتها IranDevelopers
Barnamenevis
CodeProject
DirectX4VB
abstractVb
CodeGuru
MaxCode
Mentalis
VbCode
DevX
Tur2
mrizvandi


برنامه نويسي
Palize Programming
Viusal Basic World
Visual C++ 6
iDevCenter
Clickonline
Sheidaian
VbWorm
Java4U
Sahere
mvb
CSharpBlog


متفرقه
DeldadehCrack
PersiaCrackers
PersianYahoo
Weblogs List
Macromedia
SadegHack
doostan82
banderas
iman-prs
Azemat
art7



جادوي ويژوال بيسيك


جمعه ٢ خرداد ،۱۳۸٢

سياه سفيد كردن يك تصوير رنگي

من نديدم دو صنوبر را باهم دشمن
من نديدم بيدي، سايه اش را بفروشد به زمين
رايگان مي بخشد، نارون شاخه خود را به كلاغ
سهراب سپهري

كد زير تصوير رنگي ذخيره شده در يك PictureBox را بصورت سياه و سفيد درآورده و در يك PictureBox ديگر رسم مي كند
فرمول تبديل يك تصوير رنگي به سياه و سفيد بسيار ساده است. براي اين كار ابتدا رنگ نقاط را در يك ارايه ذخيره مي كنيم و سپس رنگ هر نقطه را به R و G و B تفكيك مي كنيم (تفكيك يك رنگ به مولفه هاي RGB ان را در يك موضوع جداگانه قبلاً مورد بررسي قرار داده ايم). ميانگين اين سه رنگ را بدست مي آوريم و تمام نقطه هاي تصوير را با اين رنگ جديد رسم مي كنيم. حالا تصوير شما سياه وسفيد شده است
اين برنامه نياز به دو PictureBox يكي به نام picGray و يكي ديگر picColor دارد. يك CommandButton را هم بايد روي فرم قرار دهيد و نام آن را cmdGrayscale بگذاريد. ابعاد تصوير مورد نظر ما 132×132 است ولي شما مي توانيد از تصاوير ديگري استفاده كنيد و بايد كمي تغييرات بدين منظور در كد انجام دهيد


Option Explicit
Dim Pix(1 To 132, 1 To 132) As Long

Private Sub cmdGrayscale_Click() ‘Click Event
Dim x As Integer, y As Integer
Dim bRed As Integer, bGreen As Integer, bBlue As Integer, bAverage As Integer

For x = 1 To 132
For y = 1 To 132
Pix(x, y) = picColor.Point(x, y) ‘Nothing
Next y
Next x
For x = 1 To 132
For y = 1 To 132
bRed = Pix(x, y) Mod &H100
bGreen = (Pix(x, y) \ &H100) Mod &H100
bBlue = Pix(x, y) \ &H10000
bAverage = (bRed + bGreen + bBlue) / 3
Pix(x, y) = RGB(bAverage, bAverage, bAverage) ‘Nothing
Next y
Next x
For x = 1 To 132
For y = 1 To 132
picGray.PSet (x, y), Pix(x, y) ‘Nothing
Next y
Next x
End Sub

جادوگر ويژوال بيسيك درساعت۳:٥٠ ‎ب.ظ




 

خانه

آرشيو 

پست الكترونيك

به ما بلينكيد


ليست مقاله ها 
ADO
Image In DB
ListView
WinSock
Treeview
ImageList
Picture Manipulation
Advance Forms
Show Long Text
Intro to Wise
Database Structure
VB6ToVB.NET
Class & Opjects(VB.NET)
Prpperty(VB.NET)
Namespace(VB.NET)
Modifier Keys(VB.NET)
Win Ver(VB.NET)
Create MDB(VB.NET)
Registry(VB.NET)
WMI(VB.NET)
Delegates(VB.NET)


:تعداد بازديد كننده

online