الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Ascii Code

بدأه طفلة القمر في 13 يناير 2010 · 3 رد · 1,512 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

لي طلب صغير جزاكم الله عني خيرا

هو السؤال كالآتي

(اكتب كود لاظهار جدول الاسكي كود في قائمة بحيث كل 3 حروف في سطر)

انا إلي الآن توصلت لمعرفة كود الأسكي كود بهذا الشكل


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Char
Dim i As Integer

For i = 0 To 255
a = Chr(i)
ListBox1.Items.Add( i & " = " & a )
Next
End Sub
End Class
ولكني بحثت كثيرا عن طريقة لنسخ كل 3 حروف في سطر واحد
انتظر منكم فضلا الاجابة
جزاكم الله عني الف خير

      
تم تعديل هذه المشاركة بواسطة Xacker في 13 يناير 2010 في 23:45

      

      
 U R The Air I Breathe...Mo0n ChilD 
alfarisnet1230761151nl7.jpg

    

  

    
    

      
#2
        
        

      
وعليكم السلام ورحمة الله وبركاته
الحمد لله

      
تم تعديل هذه المشاركة بواسطة محمدvb في 14 يناير 2010 في 00:27

      

      
    

  

    
    

      
#3
        
        

      
محمدvb كتب:
عذرا على الخلل
يا أخي جزاك الله الف خير علي سرعة التلبية
انا حليته كدا وطلع معي وجزاك الله خيرا علي الحل
Public Class Form1
    Dim i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 0 To 255 Step 3
            ListBox1.Items.Add(i & " = " & Chr(i) & "  " & i + 1 & " = " & Chr(i + 1) & "  " & i + 2 & " = " & Chr(i + 2))
        Next i
    End Sub
End Class
جزاكم الله عنا مليون خير

      
      

      
 U R The Air I Breathe...Mo0n ChilD 
alfarisnet1230761151nl7.jpg

    

  

    
    

      
#4
        
        

      
a = Chr(i)
 ListBox1.Items.Add( i & " = " & a & "////" & i + 1 & " = " & a & "////" & i + 2 & " = " & a  )
في السطر الثاني
هيكون ثابت i 
يعني لن يتغير مع زيادة الواحد داخل دالة chr()
اعتقد انه ماله لزوم تعريف متغير لنضع فيه قيمة الدالة chr()
اقصد اللي في ذا السطر
dim a as char
وايضا ذا السطر
a = Chr(i)
يعني تكون هكذا
ListBox1.Items.Add(i & " = " & Chr(i) & " " & i + 1 & " = " & Chr(i + 1) & " " & i + 2 & " = " & Chr(i + 2))
انتظر افادتك لي اخي الكريم
جزاك الله خيرا

      
      

      
 U R The Air I Breathe...Mo0n ChilD 
alfarisnet1230761151nl7.jpg

    

  

    
    
    
 مواضيع مشابهة