تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة كتابة نص في text box kofa 3 33 منذ 2 ساعة مضت
آخر رد: kofa
  [VB.NET] مشكلة فى كود بيحمل ملف من على النت MOSTAFA.KAMEL 8 191 منذ 6 ساعة مضت
آخر رد: CLARO
  حل مشكلة الكود الاتي - سهل- CLARO 3 86 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 61 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 80 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 270 27-11-16, 10:30 AM
آخر رد: adel27
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 189 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 53 21-11-16, 11:48 PM
آخر رد: السرور
  ارجو المساعدة في كود VB.NET 7 112 16-11-16, 03:20 AM
آخر رد: أبو عمر
  [VB.NET] مشكلة في كود البحث khalid475 14 240 11-11-16, 07:52 PM
آخر رد: khalid475

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


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