+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعده في مشروع صغير (/showthread.php?tid=17700)
مساعده في مشروع صغير - dubai.eig - 18-10-16
يسعد الله اوقاتكم
لدي مشروع صغيره عباره عن
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]
وشكرا لكم
RE: مساعده في مشروع صغير - mhmd_911 - 18-10-16
السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
RE: مساعده في مشروع صغير - dubai.eig - 18-10-16
(18-10-16, 02:21 AM)mhmd_911 كتب : السبب انك قمت بتقسيم الخانة على اساس المسافة
والخانة تحتوي مسافات
من اجل هذا توزعت
بارك الله فيك
شكرا عليةالرد
بس كيف اعيد تضبيط الخانات بارك الله فيك
RE: مساعده في مشروع صغير - mhmd_911 - 18-10-16
اتضح ان الرسالة ليس فيها كل هذه الاعمدة اللي في الصورة
هي اشبه بهذه
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(5, message.IndexOf(":") - 5).Trim
Dim a2 As String = message.Substring(18, 8).Trim
Dim a3 As String = message.Substring(26, 8).Trim
Dim a4 As String = message.Substring(39, 11).Trim
DataGridView1.Rows.Add(a1, a2, a3, a4)
RE: مساعده في مشروع صغير - dubai.eig - 18-10-16
(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(5, message.IndexOf(":") - 5).Trim
Dim a2 As String = message.Substring(18, 8).Trim
Dim a3 As String = message.Substring(26, 8).Trim
Dim a4 As String = message.Substring(39, 11).Trim
DataGridView1.Rows.Add(a1, a2, a3, a4)
شكرا علي الرد
فعلا قمت بالتجربة الان واتضح بان الخانه الخامسه غير موجوده
اللي هيه الوقت
de PY2GG: 14076.0 S9YY JT65 73 RAMOS 2203Z
راح اجرب الكود الخاص بك بس يا ليت احصل حل لاضهار الخانه الخامسه
شكرا من جديد
RE: مساعده في مشروع صغير - dubai.eig - 18-10-16
(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(5, message.IndexOf(":") - 5).Trim
Dim a2 As String = message.Substring(18, 8).Trim
Dim a3 As String = message.Substring(26, 8).Trim
Dim a4 As String = message.Substring(39, 11).Trim
DataGridView1.Rows.Add(a1, a2, a3, a4)
استاذ mhmd_911
شكرا لك مع الكود الي كتبته ومع محاولات مني نجحت في اضهار وترتيب جميع الحقول
PHP كود :
Dim strData As String = ""
AxWinsock1.GetData(strData)
RichTextBox1.Text = RichTextBox1.Text & strData & vbCrLf
If Strings.Left(strData, 5) = "DX de" Then
Dim a1 As String = strData.Substring(6, strData.IndexOf(":") - 6).Trim
Dim a2 As String = strData.Substring(17, 8).Trim
Dim a3 As String = strData.Substring(26, 8).Trim
Dim a4 As String = strData.Substring(39, 25).Trim
Dim a5 As String = strData.Substring(60, 15).Trim
DataGridView1.Rows.Add(a1, a2, a3, a4, a5)
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(strData, 5) = "DX de" Then
Dim a1 As String = strData.Substring(6, strData.IndexOf(":") - 6).Trim
Dim a2 As String = strData.Substring(17, 8).Trim
Dim a3 As String = strData.Substring(26, 8).Trim
Dim a4 As String = strData.Substring(39, 25).Trim
Dim a5 As String = strData.Substring(60, 15).Trim
Dim timk As String
If a5.Length = 5 Then
timk = Strings.Left(a5, 2) & ":" & Strings.Right(a5, 3)
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(a1, a2, a3, a4, timk)
End If
RE: مساعده في مشروع صغير - dubai.eig - 19-10-16
السلام عليكم