اَحمد
10-20-2017, 02:47 PM
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله النبي محمد صلى الله عليه وسلم
اما بعد
اخواني واخواتي
واجهتني مشكله الي هيا تتعلق بمعرفة ايام الاسبوع ولقيت حل لهذي المشكله الحمدلله ثم اني توصلت الى عمل برنامج
وهذا هو البرنامج البسيط
http://s01.arab.sh/i/00119/2pkqwvr2msvc.png
وهذا الكود
http://s01.arab.sh/i/00119/nmb18xszsjuv.png
والى تغير المنطقه الزمنيه الي تحتها الخطوط الذهاب الى قوقل وكتابه الامر الي بالصوره والدخول الى الموقع واختيار رمز المنطقه
http://s01.arab.sh/i/00119/2l47o34cgdn6.png
رموز المناطق
http://s02.arab.sh/i/00119/djx51xp2r9e8.png
طبعا المطلوب هو انك تفتح مشروع جديد ويندوز فورم ابليكيشن ويظهر لك الفورم وفقط تختار ComboBox وتضغط ضغطتين على كلمة form1 وتضع الاكواد
الكود كتابه
Imports System.Globalization
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim days As DateTime = Date.Now
Dim lst As New List(Of String)
For i As Integer = 1 To 7
lst.Add(days.ToString("dddd", CultureInfo.CreateSpecificCulture("ar-sa")))
days = Today.AddDays(i)
Next
ComboBox1.DataSource = lst
End Sub
End Class
الصلاة والسلام على رسول الله النبي محمد صلى الله عليه وسلم
اما بعد
اخواني واخواتي
واجهتني مشكله الي هيا تتعلق بمعرفة ايام الاسبوع ولقيت حل لهذي المشكله الحمدلله ثم اني توصلت الى عمل برنامج
وهذا هو البرنامج البسيط
http://s01.arab.sh/i/00119/2pkqwvr2msvc.png
وهذا الكود
http://s01.arab.sh/i/00119/nmb18xszsjuv.png
والى تغير المنطقه الزمنيه الي تحتها الخطوط الذهاب الى قوقل وكتابه الامر الي بالصوره والدخول الى الموقع واختيار رمز المنطقه
http://s01.arab.sh/i/00119/2l47o34cgdn6.png
رموز المناطق
http://s02.arab.sh/i/00119/djx51xp2r9e8.png
طبعا المطلوب هو انك تفتح مشروع جديد ويندوز فورم ابليكيشن ويظهر لك الفورم وفقط تختار ComboBox وتضغط ضغطتين على كلمة form1 وتضع الاكواد
الكود كتابه
Imports System.Globalization
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim days As DateTime = Date.Now
Dim lst As New List(Of String)
For i As Integer = 1 To 7
lst.Add(days.ToString("dddd", CultureInfo.CreateSpecificCulture("ar-sa")))
days = Today.AddDays(i)
Next
ComboBox1.DataSource = lst
End Sub
End Class