منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الايام : الاحد الاثنين
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

و ثاني سرال شلون اخلي البرنامج يشتغل مع الوندوز ؟
السلام عليكم و رحمة الله و بركاته
PHP كود :
Dim days() As String = {"الاحد""الاثنين""الثلاثاء""الاربعاء""الخميس""الجمعة""السبت"}
    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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)
(15-10-13, 01:27 AM)تركي قرمزلي كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
PHP كود :
Dim days() As String = {"الاحد""الاثنين""الثلاثاء""الاربعاء""الخميس""الجمعة""السبت"}
    Private 
Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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)

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