تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] برنامج تغيـر صوره الخلفـيه كل 6 ثوانـي بصوره اخـرى
#1
الــسلام عليكم ... كيــفكم يا غـوالي ....
ان شاء الله انكم تــمام وفي صـحه وعـافيـه
طبعاً هذا اول مــشاركه لي كـكـاتب مــوضووع
وان شــاء نتعــاون جميعاً في بـناء هذا الـصرح العلمي ...
طبعاً عنـدي بـرنامج يـقوم بتغيـر خلـفيه سطح المــكتب كـل 6 ثوانـي وهذه فتره قصيره بامكانك زيادهتها ....
وسـاحول ان أشــرح الاكــواد بـلرغم انهـا سـهله
ولكـنني كـمبتدى في لغـه البيسك دوت نـت واجـهتني صعــوبه ومن اشـدها عمل راندم ع محتويات listbox وجلب قيــمه Item
ونحـتاج الى هذا الـكود الـمهم جداً وهـو :
PHP كود :
Private Declare Function systemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As IntegerByVal uParam As IntegerByVal lpvParam As StringByVal FuWinIni As Integer) As Integer
    
Private Const SETDESKWALLPAPER 20
    
Private Const UPDATEINIFILE = &H1 
ومن خلال هذه الفنكشن نغــير الصـوره


: سـابدأ :
في الاول : لديـنا زر ومن اهم اعمـال هذا الزر يـحدد الملف المـوجود بداخـله الـصور المـراد تغييرها خلـفيه لسطح المكـتب بشكل عشؤائي

PHP كود :
[align=left]FolderBrowserDialog1.ShowDialog()
        
Dim path As String
        path 
FolderBrowserDialog1.SelectedPath
        
For Each i In IO.Directory.GetFiles(path"*.jpg")
            
ListBox1.Items.Add(i)
        
Next
        Label1
.Text ListBox1.Items.Count 

في الاول يــجب اظـافه اداه FolderBrowserDialog الى الفـورم
وقم باضافه الادوات الــتالــيه :.
1 - command
2- 1 listbox
3- 1 timer

ثم اخــتر ما يــحلوو لك من label كتــوضيح للمــستخدم

نبــدا بشــرح الــكود :


PHP كود :
FolderBrowserDialog1.ShowDialog 
في هـذا
نقـوم بـعرض مربع تحديد الـملف

------------------------
قـمنا بتعريف عن متــغير من نوع string
Dim path As String

-------------------------

نقوم با اعطاءه قيمه للمتغير path
FolderBrowserDialog1.SelectedPath
وهي ما المسار الذي تم تحديده
------------------------
نقوم بعمل حلقه تـكرار كتــالي :
PHP كود :
For Each i In IO.Directory.GetFiles(path"*.jpg")
            
ListBox1.Items.Add(i)
        
Next 


في هذه الحلـقه استخدمنا داله
GetFiles

وارسلنا اليها المسار المعرف بــبـ path
وقم بتحديد نــوع الملفات المراد ارسالها الــ listbox
بــ "*jpg "
ثم امرنا الحلقه بـان كل ملف في مسـار path
قم بـاضافته الى اعضاء listbox
بهذا الــكود

PHP كود :
ListBox1.Items.Add(i


------------------------------


الــمرحـله الــثانيــه : .. في الحدث الــخاص Timer1_Tick
والاهم .. ::



تــابع الكـود الـتالي :
PHP كود :
If ListBox1.Items.Count 0 Then
            
Exit Sub
        End 
If
        
Dim rnd As New Random
        Dim file 
As String
        Dim ruslt 
As String
        file 
rnd.Next(0ListBox1.Items.Count)
        
ruslt ListBox1.Items.Item(file).ToString
        Label2
.Text ruslt
        
' Bin Hatheem Ali 
        ' 
A_almisery
        
'vb4arb.com
        systemParametersInfo(SETDESKWALLPAPER, 0, ruslt, UPDATEINIFILE) 

في الاول كتبـنا هذا الـكود لتـاكد من ان listbox يوجد به صـور
PHP كود :
If ListBox1.Items.Count 0 Then
            
Exit Sub
        End 
If 

وهذا الـكود لا يحتاج شــرح


---------------------------------------
ثم قمنا بتعريف عن متغير من نوع random
بـتالي
PHP كود :
Dim rnd As New Random 

---------------------------------------
ثم عرفنا عن متغيران من نوع string
كتــالي
PHP كود :
Dim file As String
        Dim ruslt 
As String 


-------------------------------------
ثم اسندنا قيمه للـمتغير file
كتـالي
rnd.Next(0, ListBox1.Items.Count)
وحـدنا كيف يتم اختيار القيم من item
ومن هذا الكود يقوم بتحديد رقم عشؤائي من بين 0 الى رقم جميع القيمَ

------------------------------------
ثم اسندنا قـيمه لمتغــير ruslt

PHP كود :
ruslt ListBox1.Items.Item(file).ToString 

وهذا اصعب كـود كان بنســبه لــي

وهو تـحويل مـوقع المـحدد من داله random الي نوع string
بداله tostring()
----------------------------------

وهنا ياتي الـكود المهم وهــو / اســتعداء داله systemParametersInfo

PHP كود :
systemParametersInfo(SETDESKWALLPAPER0rusltUPDATEINIFILE
[/align][align=center]
والحمد لله

بــلمـناسبــه لديــنا مـحرر متعب وليسـ مشجع للكتــابه
الــمثال في الـمرفقــات



الملفات المرفقة
.rar   Change Wallpaper.rar (الحجم : 74.31 ك ب / التحميلات : 210)



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة: abulayth
#2
عمل ممتاز اخي ان شاء الله نستفيد من هده الاكواد
الرد }}}}
تم الشكر بواسطة: a_almisery
#3
عفواً نســيت قــيمه الانترفيـو بتــاع التــايمر ومــنه يــتم تحديد مهــله لتــغيــر الـخلــفيــه



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:
#4
مشكور على جهدك المبذول جعله الله في ميزان حسناتك


يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
تم الشكر بواسطة: a_almisery
#5
إقتباس :مشكور على جهدك المبذول جعله الله في ميزان حسناتك


يعطيك العافية

الله يــعافــيك يــا بـو لــيث



[صورة مرفقة: g5qidgW.jpg]

ســبحــانك الـلهم بـحمدك , الـلهم لا عــلم لـنا الى مــأ علــمتــنا , الـلهـم علــمنـا ما جــهلـنا وانــفـعنــا بــما عــلمــتنـا انــك انـتَ الـسـميع الــعلــيم الـحكـيم ~~!I!

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سورس كود برنامج نقاط البيع linksys code3x 6 332 04-05-17, 04:34 PM
آخر رد: code3x
  [مشروع] برنامج الناشر التلقائي للفيس بوك قروبات + صفحات + اضافات اخرى Basil Abdallah 9 609 23-04-17, 11:26 PM
آخر رد: nabil.1710
  [VB.NET] برنامج كيفية حماية البرنامج من استخدامه اكثر من مرة shwehdi4pc 5 1,124 06-04-17, 09:57 PM
آخر رد: ashfa
Brick [مشروع] مشروع تخرج برنامج عن وحدة التدريب والتوظيف مبرمج أوتار 56 74,792 05-04-17, 10:30 PM
آخر رد: emadmohamed
  [VB.NET] برنامج مسابقة زكريا النابهي 5 591 02-04-17, 09:46 AM
آخر رد: المبرمج العبقري
  [مشروع] برنامج الجرس المدرسي الناطق سيد درويش 9 2,245 31-03-17, 03:26 AM
آخر رد: IBRA939
  كود سورس برنامج SekraniSOFT SQL Query Builder ndjakoub 3 328 21-03-17, 09:11 PM
آخر رد: m_nader
Information [مشروع] طريقة تصميم برنامج قواعد بيانات يحتوي على علاقات بين الجداول (باستخدام الكود فقط) Mohamad Anan 9 5,610 25-02-17, 11:23 PM
آخر رد: sendbad100
  سورس كود برنامج تسجيل الدخول للفيس بوك من صنعي Basil Abdallah 2 536 18-02-17, 06:13 PM
آخر رد: C0MNDS
  [مشروع] سورس كود برنامج إدارة كافية المبرمج العبقري 3 543 08-02-17, 10:51 PM
آخر رد: المبرمج العبقري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم