كود ايام الاسبوع بالفجيوال بيسك

بسم الله الرحمن الرحيم

الصلاة والسلام على رسول الله النبي محمد صلى الله عليه وسلم

اما بعد

اخواني واخواتي

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

وهذا هو البرنامج البسيط



وهذا الكود


والى تغير المنطقه الزمنيه الي تحتها الخطوط الذهاب الى قوقل وكتابه الامر الي بالصوره والدخول الى الموقع واختيار رمز المنطقه


رموز المناطق


طبعا المطلوب هو انك تفتح مشروع جديد ويندوز فورم ابليكيشن ويظهر لك الفورم وفقط تختار 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