تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة: أسامة السالمي , أسامة السالمي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار حول كود البحث المتعدد حسب الاصناف oman 4 64 منذ 4 ساعة مضت
آخر رد: Marwan9990
  [VB.NET] استفسار حول طباعة جزء من printdocument1 samiiiiii 7 128 أمس, 08:25 PM
آخر رد: samiiiiii
  استفسار حول الكومبو بوكس المتألق9 2 65 أمس, 06:04 PM
آخر رد: مساعدة
  طلب مساعدة في اضافة save & restore trakktour 8 139 أمس, 03:16 AM
آخر رد: trakktour
  استفسار عن كيف الغي عمل زر من الكيبور؟ samiiiiii 2 54 25-02-17, 09:57 PM
آخر رد: samiiiiii
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 154 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 131 20-02-17, 02:13 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 82 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 63 12-02-17, 08:06 PM
آخر رد: مساعدة
  استفسار ComboBox bidaya 2 78 12-02-17, 06:18 PM
آخر رد: مساعدة

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


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