امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
hایجاد ماتریس
نویسنده پیام
akbar1033 آفلاین
تازه وارد

ارسال‌ها: 19
موضوع‌ها: 3
تاریخ عضویت: مهر ۱۳۹۱

تشکرها : 4
( 7 تشکر در 4 ارسال )
ارسال: #1
hایجاد ماتریس
با سلام خدمت دوستان
کسی میتونه به من بگه چجوری میشه یک متن رو به پیکسل تبدیل کرد تو پیکچر باکس نشون داد
۱۷-آبان-۱۳۹۱, ۱۵:۵۴:۰۵
ارسال‌ها
پاسخ
babyy آفلاین
بازنشسته
*****

ارسال‌ها: 3,095
موضوع‌ها: 141
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 35081
( 26090 تشکر در 9068 ارسال )
ارسال: #2
RE: hایجاد ماتریس
متن ؟
پیکسل کلا یه سری عدده که رنگ تصویر رو مشخص میکنه،
متن هم که متنه! منظورتون چیه؟ دقیقا میخوایین چکاری انجام بدین ؟
۱۷-آبان-۱۳۹۱, ۱۶:۴۱:۱۵
وب سایت ارسال‌ها
پاسخ
akbar1033 آفلاین
تازه وارد

ارسال‌ها: 19
موضوع‌ها: 3
تاریخ عضویت: مهر ۱۳۹۱

تشکرها : 4
( 7 تشکر در 4 ارسال )
ارسال: #3
RE: hایجاد ماتریس
(۱۷-آبان-۱۳۹۱, ۱۶:۴۱:۱۵)babyy نوشته است: متن ؟
پیکسل کلا یه سری عدده که رنگ تصویر رو مشخص میکنه،
متن هم که متنه! منظورتون چیه؟ دقیقا میخوایین چکاری انجام بدین ؟
میخوام متن رو به صورت پیکسل رنگی تبدیل کنم یعنی متن رو مثلا در یک ماریس 8*8
به صورت پیکسل سیاهوسفید تبدیل کنم
۱۷-آبان-۱۳۹۱, ۱۶:۵۱:۰۹
ارسال‌ها
پاسخ
babyy آفلاین
بازنشسته
*****

ارسال‌ها: 3,095
موضوع‌ها: 141
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 35081
( 26090 تشکر در 9068 ارسال )
ارسال: #4
RE: hایجاد ماتریس
یک نمونه از متن رو بزار که میخوایی تبدیلش کنی
۱۷-آبان-۱۳۹۱, ۱۷:۱۰:۵۷
وب سایت ارسال‌ها
پاسخ
akbar1033 آفلاین
تازه وارد

ارسال‌ها: 19
موضوع‌ها: 3
تاریخ عضویت: مهر ۱۳۹۱

تشکرها : 4
( 7 تشکر در 4 ارسال )
ارسال: #5
RE: hایجاد ماتریس
(۱۷-آبان-۱۳۹۱, ۱۷:۱۰:۵۷)babyy نوشته است: یک نمونه از متن رو بزار که میخوایی تبدیلش کنی
اقا میخوام توی تکست باکس هر متنی رو که مینویسم مانند تابلو روان توی پیکجر باکس شبیه سازی حالت تابلوروان بشه حالا شاید من توی انجام عملیات اشتباه میکنم یا توی طرح سوالم . چیزی که می خوام یک متن تو تکست باکس بنویسم به صورت فونت تابلو روان دربیاد

البته ازاینکه جوابم رو میدین ممنونم
۱۷-آبان-۱۳۹۱, ۱۷:۳۹:۲۷
ارسال‌ها
پاسخ
babyy آفلاین
بازنشسته
*****

ارسال‌ها: 3,095
موضوع‌ها: 141
تاریخ عضویت: مرداد ۱۳۸۷

تشکرها : 35081
( 26090 تشکر در 9068 ارسال )
ارسال: #6
RE: hایجاد ماتریس
پس اون چیزی که میخوایین با چیزی که سوالشو اول پرسیدین خیلی فرق میکنه Biggrin

واسه اینار یه پروژه تو سایت بود ! سادم نیست اسمش چی بود ! یکم تاپیک ویژاول بیسیک رو بگرد شاید پیداش کنی
۱۷-آبان-۱۳۹۱, ۱۷:۵۱:۳۸
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : akbar1033
akbar1033 آفلاین
تازه وارد

ارسال‌ها: 19
موضوع‌ها: 3
تاریخ عضویت: مهر ۱۳۹۱

تشکرها : 4
( 7 تشکر در 4 ارسال )
ارسال: #7
RE: hایجاد ماتریس
(۱۷-آبان-۱۳۹۱, ۱۷:۵۱:۳۸)babyy نوشته است: پس اون چیزی که میخوایین با چیزی که سوالشو اول پرسیدین خیلی فرق میکنه Biggrin

واسه اینار یه پروژه تو سایت بود ! سادم نیست اسمش چی بود ! یکم تاپیک ویژاول بیسیک رو بگرد شاید پیداش کنی
lممنونم پیداش کردم
۱۷-آبان-۱۳۹۱, ۱۸:۱۷:۵۲
ارسال‌ها
پاسخ
akbar1033 آفلاین
تازه وارد

ارسال‌ها: 19
موضوع‌ها: 3
تاریخ عضویت: مهر ۱۳۹۱

تشکرها : 4
( 7 تشکر در 4 ارسال )
ارسال: #8
RE: hایجاد ماتریس
(۱۷-آبان-۱۳۹۱, ۱۷:۵۱:۳۸)babyy نوشته است: پس اون چیزی که میخوایین با چیزی که سوالشو اول پرسیدین خیلی فرق میکنه Biggrin

واسه اینار یه پروژه تو سایت بود ! سادم نیست اسمش چی بود ! یکم تاپیک ویژاول بیسیک رو بگرد شاید پیداش کنی
با سلام دوباره مزاحم شدم اون برنامه رو پیدا کردم ویک مشکل دارم
زمانی که برنامه رو اجرا میکنم مشکل ندام ولی با فرمی که خودم ساختم وهمین برنامه رو توشکپی کردم یک مشکل تو فرم دارم واون اینه که متنی که توسط shapeها باید به دایره های رنگی تبدیل بشه انجام نمیشه البته وقتی از shapeفرم اصلی کپی میگیرم وتو فرمم میزارم مشکل حل میشه ایا امکان داره
که shapeبرنامه من با فرم فرق بکنه ویا بایدیکcomponentجدید بسازم لطفا کمک کنید برنامه تو صفحه 4 ویزوابیسیک به نام برنامه تبدیل متن به پیکسل تابلوروان اینم برنامه بیسیک

Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_Click()
Dim X As Integer, Y As Integer, Index As Integer
Dim Blank As Long
Picture1.Cls
Blank = GetPixel(Picture1.hdc, 0, 0)
Picture1.CurrentX = (Picture1.ScaleWidth - Picture1.TextWidth(Text1)) \ 2
Picture1.CurrentY = (Picture1.ScaleHeight - Picture1.TextHeight(Text1)) \ 2
Picture1.Print Text1
For Index = 1 To Shp.UBound
X = Shp(Index).Left + Shp(Index).Width \ 2
Y = Shp(Index).Top + Shp(Index).Height \ 2
If GetPixel(Picture1.hdc, X, Y) <> Blank Then
Shp(Index).FillColor = vbRed
Else
Shp(Index).FillColor = Blank
End If
Next

End Sub

Private Sub Form_Load()
Dim Row As Long, Col As Long
Dim vLeft As Integer, vTop As Integer
Dim Cols As Long, Rows As Long
Dim Index As Long
Const W = 7
Const H = 7
Picture1.ScaleMode = vbPixels
Picture1.AutoRedraw = True
Rows = Picture1.ScaleHeight \ (H - 1)
Cols = Picture1.ScaleWidth \ (W - 1)
Shp(0).Visible = False
Shp(0).FillStyle = 0
vLeft = 0
vTop = 0
For Row = 1 To Rows
For Col = 1 To Cols
Index = (Row - 1) * Cols + Col
Load Shp(Index)
Shp(Index).Move vLeft, vTop, W, H
Shp(Index).Visible = True
vLeft = vLeft + W - 1
Next
vLeft = 0
vTop = vTop + H - 1
Next
End Sub
۱۸-آبان-۱۳۹۱, ۱۹:۴۴:۳۷
ارسال‌ها
پاسخ


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  نوشتن انواع ماتریس به صورت شی گرا bluestorm 10 9,630 ۱۲-دى-۱۳۸۸, ۱۰:۰۵:۲۲
آخرین ارسال: Payman62
  محاسبه وارون یک ماتریس davoodx 1 4,812 ۱۶-دى-۱۳۸۷, ۰۸:۲۸:۰۰
آخرین ارسال: mojtabamalaekeh
  برنامه ماتریس ها megatron 5 6,203 ۱۹-اردیبهشت-۱۳۸۷, ۲۱:۰۰:۰۱
آخرین ارسال: بهنام چینی
  ترسیم یه ماتریس ajlajlajl 4 3,352 ۱۹-مهر-۱۳۸۶, ۱۶:۰۴:۲۷
آخرین ارسال: ajlajlajl
  نمایش ضرب ماتریس 3*4 bahareh_toto 0 2,780 ۱۴-آذر-۱۳۸۵, ۲۳:۱۲:۲۹
آخرین ارسال: bahareh_toto

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 3 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS