تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استفسار حول اضافة
#1
السلام عليكم
-----------------------------
عندي اضافة جديد اريد اضافتها داخل مشروع وهي اني اريد توقيف البرنامج في بعض الاحيان
وكان لدي كود لكني لم اجد فاريد تطبيق هذه الطريقة فكود

نبدء اولا انا رفعت ملف علي استضافة في داخل هذه الاستضافة ساضع رقم اما 1 و 2

اريد البرنامج عندما يتم فتحه ان يره ماذا بداخل هذا الملف اذ كان


رقم 1 موجود يفتح البرنامج عادي

واذ كان رقم 2 موجود ياتي له برسالة " جاري عمل صيانة الان " ويتم اغلاق البرنامج

اريد الكود ضروري جدا شباب
الرد }}}
تم الشكر بواسطة:
#2
لا اعلم من أين سوف تقرأ الملف

لكن لو افترضنا ان لديك ملف علي الكمبيوتر فيه البيانات التي تحدثت عنها أي أن الملف سيكون به سطران السطر الأول به رقم 1 و السطر الثاني به رقم 2
أو ان الملف سيكون به سطرا واحدا فقط و هذا السطر به القيمة 1

يمكنك استخدام الكود بالشكل التالي

PHP كود :
 Friend Function GetLineText(ByRef LineText As StringvalueToRead As String) As String
        LineText 
valueToRead
        Return valueToRead
    End 
Function


 
       Dim linePosition As Integer 0
        Dim line 
As String CType(NothingString)
 
       Dim lines As List(Of String) = New List(Of String)

 
       Dim file As New System.IO.StreamReader("c:\RiverNile\values.txt")
 
       While (GetLineText(linefile.ReadLine())) IsNot Nothing
            lines
.Add(line)
 
           linePosition += 1
        End 
While
 
       file.Close()
 
       If lines.Count >= 2 Then
            MessageBox
.Show("info""under maintenance")
 
           Me.Close()
 
       Else
            
' do something  or do nothhing
        End If 
لا تنسي تغيير مكان الملف بملف علي جهازك انت

حل اخر
و هو انك بعد ان تحصل علي المصفوفة التي تحتوي علي كل سطر موجود بالملف ممكن تعمل Loop علي جميع الاسطر بالشكل التالي

PHP كود :
       For Each s As String In lines
            If s
.StartsWith("2"Then
                MessageBox
.Show("info""under maintenance")
 
               Me.Close()

 
           Else
                
' do something  or do nothhing
            End If
        Next 
الرد }}}
تم الشكر بواسطة:
#3
ما أعرف الطريقة اللي بتجلب فيها البيانات،،
لكن إذا كنت تستطيع أن توصل هذه القيمة الى (Label)
فيمكنك استخدام الكود التالي:


PHP كود :
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        If Label1
.Text "2" Then
            MsgBox
("البرنامج تحت الصيانة")
 
           Me.Close()
 
       End If
 
   End Sub 
الرد }}}
تم الشكر بواسطة:
#4
(23-08-16, 03:40 PM)أسامة السالمي كتب : ما أعرف الطريقة اللي بتجلب فيها البيانات،،
لكن إذا كنت تستطيع أن توصل هذه القيمة الى (Label)
فيمكنك استخدام الكود التالي:


PHP كود :
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        If Label1
.Text "2" Then
            MsgBox
("البرنامج تحت الصيانة")
 
           Me.Close()
 
       End If
 
   End Sub 

شكرا اخي وهذا الكود للافادة بعد التعديل
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label6.Text = New System.Net.WebClient().DownloadString("رابط الملف المرفوع")
        If Label6.Text = "2" Then
            MsgBox("يوجد مشكلة في البرنامج جاري حلها ")
            Me.Close()
        End If
    End Sub
الرد }}}
تم الشكر بواسطة: أسامة السالمي , أسامة السالمي



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


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