سلااام شباب ....
انا اعمل على مشروع shortest path يعني البرنامج فييه خريطة وو البرنامج يظهر اقرب مسار من البدايه مثلا من s1 الى النهايه مثلا F1 على حسب قيم المسارات الي يدخلهاا المستخدم ....
صورة الخريطة
انا عملت for loop علشاان يكتب جميع المسارات الموجودة في الخريطة وو كتابتهاا في textbox
مثال عن for loop
Dim i, j, p, o As Integer Dim temp(4) As String Dim sum As Integer sum = 0 For i = 0 To 1 If i = 0 Then sum += l1(i) temp(0) = "L" & i ElseIf i = 1 Then sum += l2(i) temp(0) = "L" & i End If For j = 0 To 3 If j = 0 Then sum += m1(j) temp(1) = "M" & j ElseIf j = 1 Then sum += m2(j) temp(1) = "M" & j ElseIf j = 2 Then sum += m3(j) temp(1) = "M" & j ElseIf j = 3 Then sum += m4(j) temp(1) = "M" & j End If For p = 0 To 2 If p = 0 Then sum += n1(p) temp(2) = "N" & p ElseIf p = 1 Then sum += n2(p) temp(2) = "N" & p ElseIf p = 2 Then sum += n3(p) temp(2) = "N" & p End If TextBox37.Text = temp(0) & " " & temp(1) & " " & temp(2) Next Next Next
المشكلة ان ال for loop يجب علييه كتابه من البدايه مثلا طباعة L1 - M1 - N1 وو طبعاا من S1 مثلا الى F1 بس المشكلة انه لايطبع من بدايع ال loop وو المشكلة الثانية كييف اخليي ال Loop يطبع كل المساراات الموجودة مثلا كييف اخلي for loop في text box
شباب ارجوا المساعدة العاجلة لان باقي يوماان على ان اسلم البروجكت plz
ملف المشروع في ارابطة