[mohssan]

السلام عليكم

شباب شلون اخلي مثلاً اذا دخل البرنامج و كان يوم الاحد تطلع رسالة فيه يوم الاحد
و هاكذا مثل باقي الايام ؟

و ثاني سرال شلون اخلي البرنامج يشتغل مع الوندوز ؟

[تركي قرمزلي]

السلام عليكم و رحمة الله و بركاته

PHP كود :

Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(days(Now.DayOfWeek))
    End Sub 


السلام عليكم و رحمة الله و بركاته

[سعود]

اشترط رقم اليوم
اظن رقم الاحد هو صفر 0
وهذا كود الاخ المشرف تركي

كود :

Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}

        If Now.DayOfWeek = 0 Then
            MsgBox(days(Now.DayOfWeek))
        End If

---

الكود التالي لبدء التشغيل مع النظام مجرب على ويندوز 7

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath)

وهذا لحذفه من بدء التشغيل

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)

[mohssan]

(15-10-13, 01:27 AM)تركي قرمزلي كتب : السلام عليكم و رحمة الله و بركاته

PHP كود :

Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(days(Now.DayOfWeek))
    End Sub 


السلام عليكم و رحمة الله و بركاته

مشكور

---

(15-10-13, 01:40 AM)سعود كتب : اشترط رقم اليوم
اظن رقم الاحد هو صفر 0
وهذا كود الاخ المشرف تركي

كود :

Dim days() As String = {"الاحد", "الاثنين", "الثلاثاء", "الاربعاء", "الخميس", "الجمعة", "السبت"}

        If Now.DayOfWeek = 0 Then
            MsgBox(days(Now.DayOfWeek))
        End If

---

الكود التالي لبدء التشغيل مع النظام مجرب على ويندوز 7

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath)

وهذا لحذفه من بدء التشغيل

كود :

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue(Application.ProductName)

مشكووووووووووووووور افدتني واااجد مشكور