1-كمبو بوكس يقراء العمود صفر
وهذا الكود
Public Class Form1
Dim Lines As String()
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Lines = File.ReadAllLines("c:\" + ComboBox1.SelectedItem.ToString() + ".txt")
Dim list As New List(Of String)
Dim notcable As Boolean = False
For Each line As String In Lines
Dim SplitString As String() = line.Split(","c)
If SplitString.Length > 1 Then
If Not (list.Contains(SplitString(0))) Then
If notcable Then
list.Add(SplitString(0))
ComboBox2.Items.Add(SplitString(0))
Else
notcable = True
End If
End If
End If
Next
End Sub
2-كمبو بوكس يظهر عناصر العمود صفر
بعد اختيار العنصر تظهر النتائج للبرمجه فى التكست بوكس من 1 الى 14 على الحصر
textbox1.txt= اعلى تاريخ فى الحالتين اذا كان التكست فايل تصاعدي او تنازلى
وهذا الكود
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim comboText As String = ComboBox2.SelectedItem.ToString()
Dim strDate As Integer = 0
For Each line In Lines
Dim arrayForTheLine = line.Split(","c)
Try
If arrayForTheLine(1) > strDate Then
strDate = Integer.Parse(arrayForTheLine(1))
TextBox1.Text = strDate.ToString
End If
Catch
End Try
Next
End Sub
وهذا يعطى التاريخ ولكن بصيغه رقميه وليست بصيغة تاريخ
وجربت هذا الكود ولكن يعمل فى الاتجاه التنازلى فقط
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
Dim comboText As String = ComboBox2.SelectedItem.ToString()
Dim strDate As Date
Dim stDate As Double = 0
For Each line In Lines
Dim arrayForTheLine = line.Split(","c)
Try
If Double.Parse(arrayForTheLine(1)) > stDate Then
strDate = If(Date.TryParse(arrayForTheLine(1), Nothing), _
CDate(arrayForTheLine(1)), CDate(New Date(Val(arrayForTheLine(1).Substring(0, 4)), Val(arrayForTheLine(1).Substring(4, 2)), Val(arrayForTheLine(1).Substring(6, 2))).ToShortDateString))
TextBox1.Text = strDate
End If
Catch
End Try
Next
احتاج المساعده فيمايلي
textbox1= اعلى تاريخ فى القائمه
textbox2= اعلى قيمه بالاسطر فى 24 سطر ( بمعنى نشوف احدث تاريخ او اعلى تاريخ ونطرح منه 24 سطر) وللتوضيح اكثر نحسب 24 سطر من بدايه اعلى تاريخ ونشوف اعلى قيمه فى 24 سطر للعمود(4)
textbox3= تاريخ السطر الذى حدث فيه اعلى قيمه للـ 24 سطر
textbox5 + textbox4 اقل قيمه بالاسطر فى 24 سطر ( بمعنى نشوف احدث تاريخ او اعلى تاريخ ونطرح منه 24 سطر) وللتوضيح اكثر نحسب 24 سطر من بدايه اعلى تاريخ ونشوف اقل قيمه فى 24 سطر للعمود(4
textbx6= متوسط قيم الـ24 سطر للعمود 3
textbox7= مجموع القيم الايجابيه فى 24 سطر مقسومه على 24 للعمود رقم 2 بمعنى اذا قيمه السطرالاول(اعلى تاريخ) بالتاريخ اعلى من قيمه السطر الثانى فهذا ايجابى
textbox8= مجموع القيم االسلبيه فى 24 سطر مقسومه على 24 للعمود رقم 2 بمعنى اذا قيمه السطرالاول(اعلى تاريخ) بالتاريخ اقل من قيمه السطر الثانى فهذا سلبى
textbox9= قيمه العمود 3 فى السطر رقم 11 من سطر اعلى تاريخ
ولكم جزيل الشكر
مرفق ملفات التكست مع صورة توضحيه
