Ahmadte1

الموضوع كالتالي أريد أن أصمم برنامج يصور سطح المكتب فيديو وعليه بدورة أن يعرض هذا الفيديو العرض بحاجة لتحميل الصورة من ملف ولما كان الملف نفسه يحوي أكثر من صورة لزمت تحميل صورة من مصفوفة التصوير بحاجة لتحميل مصفوفة بالصور أنا وجدت هذا التابع ربما يفيد ولكني لم…

طيب ممكن سؤال ثاني كيف ممكن تحميل مصفوفة بصورة من ال picturebox

سلمت يداك أخي Pharaonic_Guy

السلام عليكم يا شباب ما الحل تحميل مصفوفة من البايتات ل picturebox

:D هذا ما أريده بالضبط ولكن هذا الموضوع الذي في الرابط لا يوجد به أي جواب وكنت أحاول في نفس الموضوع ووصلت لبعض النتائج وإن استطعت تحميل عنوان المصفوفة في المتحول IPictureDisp قد أنجح فكيف أعمل ذلك (أو إذا كان لديك طريقة فأسعفني بها) ;)

طيب كيف ممكن إعطاء هذا العنوان لمؤشر من النمط IPictureDisp :wacko:

السلام عليكم أولا ابتسامة :D :D :D :D :D :D ::D :D :D :D :D عريضة شوي ;) ثانيا أخي Unlimated destroye تابع موضوعك و لكن اقتصر على الجديد وبما أن رابط موضوع الأخ Pharaonic_Guy موجود و في نفس الموضوع يمكن للكل الوصول للقديم و الجديد ثالثا أخي Pharaonic_Guy موضوع…

السلام عليكم كيف يمكن أخذ عنوان أول حجرة في مصفوفة مثلا dim data(100)as byte أريد أن أسجل عنوان الذاكرة الذي تبدأ عنده المصفوفة يعني مثلا البايت رقم 500 هو الذي تبدا به المصفوف أريد الحصول على 500

لحظة هو قال خانتين ولم يحدد إذا كانتا بعد الفاصة أي أظن أن يريد التالي 4.2565::4.2 44.56::44 0.25::0.2 في حين أن التعليمة Me.Caption = Format(4.122546843, "#.##") ستعطي في هذة الأرقام التالي 4.2565::4.25 44.56::44.56 0.25::0.25 على كل يرجع الموضوع لطبيعة السؤا…

جزاك الله خيرا :D

السلام عليكم ما رأيك أن نجيب على السؤال الأول هذا الكود هو مثل الخوارزمية وهي خاصة بحالتك (أعداد مو جبة و التقريب لخانتين) أنا جاهز للأسئلة Private Function aa(y As Single) As Single Dim x As Single x = Int(y) Do While x > 99 x = Int(x / 10) Loop If x <= 9 And…

وعليكم السلام جرب هذا Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal bscan As Byte, ByVal awflags As Long, ByVal dwextrainfo As Long) Private Const VK_SNAPSHOT = &H2C Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Su…

السلام عليكم HANDL: الويندز يسجل كل نا فذة في الذاكرة و للوضول إلى هه النافذة لا بد أن يعرف عنوانها و hwnd يمثل عنوانها

السلام عليكم أخي ans_adil هذا رائع حتى أن الملفات تحوي أمثلة (مع الكود) ولكافة لغات البرمجة :D أشكرك أخي ;)

السلام عليكم استخدم redim قد تفي بالغرض الملف المرفق reDIM.rar

السلام عليكم بصراحة ذكرتني بطموحي حين بدأت :rolleyes: وكنت متحمسا مستعجلا فأخطأت كثيرا (ومازلت) انظر الرابط وسترى بداية بداية نظام التشغيل /index.php?showtopic=97990 ملاحظة لا تقرأ البداية :huh: ففيها من غبائي الكثير :lol: ونصيحة لا تستعجل من شان ما تخطئ كهذه …

موضوع رائع :lol:

:rolleyes: -_- :D

شكرا أخي Qousay وبصراحة هذا ما أردته Private Sub Command1_Click() Dim ahmad As Byte ahmad = 255 'ff Open "d:\ahmad.txt" For Binary As 1 Put #1, , ahmad Close (1) End Sub والحمد لله حصلت عليه طبعا كان لجوابك أثر كبير ;)

السلام عليكم أريد أن أنشئ ملف و أكتب فيه مثلا ff بالست عشري أي أن ff هي بايت واحد وستقابل بالثنائي 11111111