تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة ارجو حلها :( مهم جدا
#1
Star 
السلام عليكم
انا صممت برنامج
وسويت كومبو بوكس
واخترت فيه احجام الرام يعني 
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 ساعات الين طلعلتي ذي المشكلة
... وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
ارجو الحل Smile
الرد }}}}
تم الشكر بواسطة:
#3
اخي الكريم ارفع الصورة على موقع آخر لان هذا محظور بواسطة kaspersky
phishing link
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#4
(12-05-16, 03:17 PM)سعود كتب : اخي الكريم ارفع الصورة على موقع آخر لان هذا محظور بواسطة kaspersky
phishing link

غيرت الرابط حق الصورة .
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم 
اخي الكريم جرب الكود بهذه الطريقة
 المتغير G يكفي ان تعرفه مرة واحدة فقط ثم تسند اليه القيم حسب الاختيار من الكمبوبوكس

PHP كود :
   Dim G As Long

    Private Sub ComboBox2_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles 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(" ")")
 
       Filewriter.Close()
 
       Process.Start("Space.TXT")

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

PHP كود :
   Dim G As Long

    Private Sub ComboBox2_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles 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(" ")")
 
       Filewriter.Close()
 
       Process.Start("Space.TXT")

 
   End Sub 
   
شكرا اخي الكريم تم حل المشكلة بنجاح Smile الله يجعلها في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة: سعود , Adrees , CLARO


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جعل label شفاف بعد استخدام label1.BringToFront الماجيك مسعد 0 16 أمس, 06:14 PM
آخر رد: الماجيك مسعد
  [VB.NET] تصحيح مشكلة في المشروع dubai.eig 2 31 أمس, 12:41 PM
آخر رد: dubai.eig
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 51 16-10-17, 07:41 AM
آخر رد: khaled12345
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 264 13-10-17, 07:30 PM
آخر رد: سعود الشامان
Wink [VB.NET] مشكلة الكرستال ريبورت 13 مصمم الدوادمي 1 67 07-10-17, 09:07 PM
آخر رد: أحمد النجار
  [سؤال] مشكلة عدم حفظ التعديلات في vb.net Salih Mohammad 8 104 07-10-17, 05:19 PM
آخر رد: Salih Mohammad
  [VB.NET] ارجو المساعده اخواني ابوبكر العربي 2 55 07-10-17, 02:01 AM
آخر رد: ابوبكر العربي
  [سؤال] ارجو مساعدتي في الكريستال ريبورت :( كود برمجي 0 52 03-10-17, 10:45 AM
آخر رد: كود برمجي
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 128 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  [سؤال] مشكلة فيه البرنامج مافهمتها vbb6 3 82 29-09-17, 07:47 PM
آخر رد: vbb6

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


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