منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة ارجو حلها :( مهم جدا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة ارجو حلها :( مهم جدا (/showthread.php?tid=15776)

مشكلة ارجو حلها :( مهم جدا - KSAm3lm - 12-05-16

السلام عليكم
انا صممت برنامج
وسويت كومبو بوكس
واخترت فيه احجام الرام يعني 
512 MB
1 GB
...الخ
وسويت متغير اسمه
G
وكتبت الكود الآتي :
كود :
       If ComboBox2.Text = "512 MB" Then
           Dim G As Integer
           G = 268435456
       ElseIf ComboBox2.Text = "1 GB" Then
           Dim G As Integer
           G = 536870912
       ElseIf ComboBox2.Text = "2 GB" Then
           Dim G As Integer
           G = 1073741824
       ElseIf ComboBox2.Text = "4 GB" Then
           Dim G As Long
           G = 2147483648
       ElseIf ComboBox2.Text = "6 GB" Then
           Dim G As Long
           G = 3221225472
       ElseIf ComboBox2.Text = "8 GB" Then
           Dim G As Long
           G = 4294967296
       ElseIf ComboBox2.Text = "16 GB" Then
           Dim G As Long
           G = 8589934592
       ElseIf ComboBox2.Text = "32 GB" Then
           Dim G As Long
           G = 17179869184
       ElseIf ComboBox2.Text = "64 GB" Then
           Dim G As Long
           G = 34359738368
       ElseIf ComboBox2.Text = "120 GB" Then
           Dim G As Long
           G = 64424509440

       End If
بس لما اكتب تحته كذا :
كود :
       Dim Filewriter As New System.IO.StreamWriter(B & "\Desktop\Space.TXT")

       Filewriter.WriteLine("FreeMem=Space(" & G & ")")
       Filewriter.Close()
       Process.Start(B & "\Desktop\Space.TXT")
يقول في خطا , اللي هو
كود :
Filewriter.WriteLine("FreeMem=Space(" & G & ")")
("FreeMem=Space(" & G & ")")
وفوق هذا كله لمااحفظ المتغير 
G
لحاله 
كود :
Filewriter.WriteLine(G)
يطلع كذا 

اللي ابغاه انا انه يطلع
FreeMem=Space()
وبين القوسين المتغير
G
اللي هو الارقام اللي كاتبها في الشرط 
اتمنى المساعدة لأني تعبت وحاولت وما لقيت
 حل والمشروع هذا قعدت عليه اكثر من 5 ساعات الين طلعلتي ذي المشكلة
... وشكرا


RE: مشكلة ارجو حلها :( مهم جدا - KSAm3lm - 12-05-16

ارجو الحل Smile

RE: مشكلة ارجو حلها :( مهم جدا - سعود - 12-05-16

اخي الكريم ارفع الصورة على موقع آخر لان هذا محظور بواسطة kaspersky
phishing link

RE: مشكلة ارجو حلها :( مهم جدا - KSAm3lm - 12-05-16

(12-05-16, 03:17 PM)سعود كتب : اخي الكريم ارفع الصورة على موقع آخر لان هذا محظور بواسطة kaspersky
phishing link

غيرت الرابط حق الصورة .

RE: مشكلة ارجو حلها :( مهم جدا - Adrees - 12-05-16

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

PHP كود :
   Dim G As Long

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "512 MB" Then
            G = 268435456
        ElseIf ComboBox2.Text = "1 GB" Then
            G = 536870912
        ElseIf ComboBox2.Text = "2 GB" Then
            G = 1073741824
        ElseIf ComboBox2.Text = "4 GB" Then
            G = 2147483648
        ElseIf ComboBox2.Text = "6 GB" Then
            G = 3221225472
        ElseIf ComboBox2.Text = "8 GB" Then
            G = 4294967296
        ElseIf ComboBox2.Text = "16 GB" Then
            G = 8589934592
        ElseIf ComboBox2.Text = "32 GB" Then
            G = 17179869184
        ElseIf ComboBox2.Text = "64 GB" Then
            G = 34359738368
        ElseIf ComboBox2.Text = "120 GB" Then
            G = 64424509440

        End If

        Dim Filewriter As New System.IO.StreamWriter("Space.TXT")

        Filewriter.WriteLine("FreeMem=Space(" & G & ")")
        Filewriter.Close()
        Process.Start("Space.TXT")

    End Sub 
   


RE: مشكلة ارجو حلها :( مهم جدا - KSAm3lm - 12-05-16

(12-05-16, 07:59 PM)Adrees كتب : السلام عليكم 
اخي الكريم جرب الكود بهذه الطريقة
 المتغير G يكفي ان تعرفه مرة واحدة فقط ثم تسند اليه القيم حسب الاختيار من الكمبوبوكس

PHP كود :
   Dim G As Long

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        If ComboBox2.Text = "512 MB" Then
            G = 268435456
        ElseIf ComboBox2.Text = "1 GB" Then
            G = 536870912
        ElseIf ComboBox2.Text = "2 GB" Then
            G = 1073741824
        ElseIf ComboBox2.Text = "4 GB" Then
            G = 2147483648
        ElseIf ComboBox2.Text = "6 GB" Then
            G = 3221225472
        ElseIf ComboBox2.Text = "8 GB" Then
            G = 4294967296
        ElseIf ComboBox2.Text = "16 GB" Then
            G = 8589934592
        ElseIf ComboBox2.Text = "32 GB" Then
            G = 17179869184
        ElseIf ComboBox2.Text = "64 GB" Then
            G = 34359738368
        ElseIf ComboBox2.Text = "120 GB" Then
            G = 64424509440

        End If

        Dim Filewriter As New System.IO.StreamWriter("Space.TXT")

        Filewriter.WriteLine("FreeMem=Space(" & G & ")")
        Filewriter.Close()
        Process.Start("Space.TXT")

    End Sub 
   
شكرا اخي الكريم تم حل المشكلة بنجاح Smile الله يجعلها في ميزان حسناتك