منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعده في مشروع صغير
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
يسعد الله اوقاتكم

لدي مشروع صغيره عباره عن
Client/Server

اقوم بالاتصال في احد السيرفرات لاستلم مسج

المسج عباره عن عدة خانات
de PY2GG:     14076.0  S9YY         JT65 73 RAMOS                  2203Z

الخانه الاوله  de PY2GG

الثانيه 14076.0

والثالثه S9YY 

والرابعه  JT65 73 RAMOS

والخامسه    2203Z





عندما يتم العرض في DataGridView1

الخانة الاولى والثانيه والثالثه تنزل تمام بس الرابعه تتوزع علي عدة خانات والخانه الخامسه ما تطلع
مثال
[attachment=12025]

[attachment=12026]


ممكن مساعدتي في ضبط ال DataGridView1

الكود اللي احاول في هو

[attachment=12028]


المشروع مرفق
[attachment=12027]

وشكرا لكم
السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
(18-10-16, 02:21 AM)mhmd_911 كتب : [ -> ]السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت

بارك الله فيك 

شكرا عليةالرد 

بس كيف اعيد تضبيط الخانات بارك الله فيك
اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR:    24900.0  S9YY         pse 12m 10m Asia Japan   
DX de UA0ZV
:     14030.4  9J2BO        cq lp                    
DX de W3LPL
:     10118.1  S9YY         Heard in MD              
DX de UA3SCE
:    14070.4  SV1NZR       tnx QSO                  
DX de OK2ZV
:      7020.0  ZL2AIM       tnx ian 73               
DX de SV2RJO
:    10111.0  EK4JJ        tnx                      
DX de I2IFT
:     14001.0  RADAR        +20db                    
DX de UY2UQ
:     10118.0  S9YY         tnx up-2.5               
DX de HA1KED
:     7020.0  ZL2AIM       Tnx qso Ian 

يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String message.Length " : " message.Substring(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4
(18-10-16, 10:45 AM)mhmd_911 كتب : [ -> ]اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR   24900.0  S9YY         pse 12m 10m Asia Japan   
DX de UA0ZV
    14030.4  9J2BO        cq lp                    
DX de W3LPL
    10118.1  S9YY         Heard in MD              
DX de UA3SCE
   14070.4  SV1NZR       tnx QSO                  
DX de OK2ZV
     7020.0  ZL2AIM       tnx ian 73               
DX de SV2RJO
   10111.0  EK4JJ        tnx                      
DX de I2IFT
    14001.0  RADAR        +20db                    
DX de UY2UQ
    10118.0  S9YY         tnx up-2.5               
DX de HA1KED
    7020.0  ZL2AIM       Tnx qso Ian             

يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String message.Length " : " message.Substring(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4


شكرا علي الرد 

فعلا قمت بالتجربة الان واتضح بان الخانه الخامسه غير موجوده

اللي هيه الوقت

de PY2GG:     14076.0  S9YY         JT65 73 RAMOS                  2203Z

راح اجرب الكود الخاص بك بس يا ليت احصل حل لاضهار الخانه الخامسه


شكرا من جديد
(18-10-16, 10:45 AM)mhmd_911 كتب : [ -> ]اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
PHP كود :
DX de JR3IIR   24900.0  S9YY         pse 12m 10m Asia Japan   
DX de UA0ZV
    14030.4  9J2BO        cq lp                    
DX de W3LPL
    10118.1  S9YY         Heard in MD              
DX de UA3SCE
   14070.4  SV1NZR       tnx QSO                  
DX de OK2ZV
     7020.0  ZL2AIM       tnx ian 73               
DX de SV2RJO
   10111.0  EK4JJ        tnx                      
DX de I2IFT
    14001.0  RADAR        +20db                    
DX de UY2UQ
    10118.0  S9YY         tnx up-2.5               
DX de HA1KED
    7020.0  ZL2AIM       Tnx qso Ian             

يعني كلها اربع اعمدة وتقدر تستفيد من هذه الطريقة في التقسيم
PHP كود :
Dim a1 As String message.Length " : " message.Substring(5message.IndexOf(":") - 5).Trim
Dim a2 
As String message.Substring(188).Trim
Dim a3 
As String message.Substring(268).Trim
Dim a4 
As String message.Substring(3911).Trim
DataGridView1
.Rows.Add(a1a2a3a4

استاذ mhmd_911

شكرا لك مع الكود الي كتبته ومع محاولات مني نجحت في اضهار وترتيب جميع الحقول

PHP كود :
     Dim strData As String ""

 
       AxWinsock1.GetData(strData)
 
       RichTextBox1.Text RichTextBox1.Text strData vbCrLf

        If Strings
.Left(strData5) = "DX de" Then

            Dim a1 
As String strData.Substring(6strData.IndexOf(":") - 6).Trim
            Dim a2 
As String strData.Substring(178).Trim
            Dim a3 
As String strData.Substring(268).Trim
            Dim a4 
As String strData.Substring(3925).Trim
            Dim a5 
As String strData.Substring(6015).Trim
            DataGridView1
.Rows.Add(a1a2a3a4a5)
 
       End If 

[attachment=12040]

شكرا لك

سؤالي حاليا كيف اعمل Sort

للخانة الخامسه a5

هيه خانة الوقت 1719Z


PHP كود :
DataGridView1.Sort(DataGridView1.Columns(1), System.ComponentModel.ListSortDirection.Descending


ومن جديد شكرا لك

قمت بتعديل الخانه الخامسه لتوضح الوقت
[attachment=12041]

الان كيف اعمل 
Sort


PHP كود :
     Dim strData As String ""

 
       AxWinsock1.GetData(strData)
 
       RichTextBox1.Text RichTextBox1.Text strData vbCrLf

        If Strings
.Left(strData5) = "DX de" Then

            Dim a1 
As String strData.Substring(6strData.IndexOf(":") - 6).Trim
            Dim a2 
As String strData.Substring(178).Trim
            Dim a3 
As String strData.Substring(268).Trim
            Dim a4 
As String strData.Substring(3925).Trim
            Dim a5 
As String strData.Substring(6015).Trim

            Dim timk 
As String

            If a5
.Length 5 Then

                timk 
Strings.Left(a52) & ":" Strings.Right(a53)


 
           Else
                timk 
Nothing
            End 
If

 
           timk System.Text.RegularExpressions.Regex.Replace(timk"Z""")
 
           DataGridView1.Sort(DataGridView1.Columns(timk), System.ComponentModel.ListSortDirection.Descending)
 
           DataGridView1.Rows.Add(a1a2a3a4timk)
 
       End If 
السلام عليكم