ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > ماتريس, ليست بوكس و كامبو بوكس
نسخه‌ی کامل: ماتريس, ليست بوكس و كامبو بوكس
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

behnam 2007

۱۸-آبان-۱۳۸۵, ۱۸:۳۳:۲۰
-1 ماتريسي داريم به ابعاد 8*8 مي خواهيم در خانه شروع با انديس 0 و0 به خانه اي كه يك موش در ان وجود دارد ودر خانه اي كه يك تكه پنير در ان موجوداست -1
مي خواهيم كوتاهترين مسير رسيدن موش به تكه پنير را محاسبه و چاپ كنيم
(به صورت خانه هاي شطرنج)
استاندارد ارايه 0 و0
با استفاده از ارايه ها (سطح سوم كامپيوتر)



- 2 با استفده از يك ليست بوكس و يك كامبو بوكس و يك كامند مي خواهيم هر انچه كه در ليست بوكس است به داخل كامبو بوكس كپي شده و بالعكس ان -2
سطح سوم كامپيوتر
اگه بشه سورسه پروژه ماتريس رو  قرار بدي
ممنون ميشم
خيلي خيلي ممنون
منو از يه مرگ حتمي نجات دادي

arashrj

۱۸-آبان-۱۳۸۵, ۲۰:۰۹:۴۸
سلام

این پاسخ سوال 2

کد:
Private Sub ComboToList_Click()
For RJ = 0 To Combo1.ListCount
    List1.AddItem Combo1.List(RJ)
Next
End Sub

Private Sub ListToCombo_Click()
For RJ = 0 To List1.ListCount
    Combo1.AddItem List1.List(RJ)
Next
End Sub

موفق باشی
خدانگهدار

arashrj

۱۹-آبان-۱۳۸۵, ۰۱:۰۰:۳۴
سلام
این هم جواب سوال 1

برای تست کردن برنامه این عددد ها رو برای ورودی بده (متوجه میشی)
a2,2
a3,2
a0,8
...

کد:
Dim M, N0, M0
Dim M1()
Dim M2()
Dim Out
Out = ""
E1:
M = InputBox("cheese (A?,?)", "Input", "A3,2")
If Len(M) <> 4 Then GoTo E1
N0 = Mid(M, 2, 1)
M0 = Right(M, 1)
If M0 = N0 Then
    For RJ = 0 To M0
        Out = Out & "[A" & RJ & "," & RJ & "] -> "
    Next
    Out = Mid(Out, 1, Len(Out) - 3)
ElseIf M0 = 0 Or N0 = 0 Then
    If N0 = 0 Then
        For RJ2 = 0 To M0
            Out = Out & "[A" & 0 & "," & RJ2 & "] -> "
        Next
        Out = Mid(Out, 1, Len(Out) - 3)
    Else
        For RJ2 = 0 To N0
            Out = Out & "[A" & RJ2 & "," & 0 & "] -> "
        Next
        Out = Mid(Out, 1, Len(Out) - 3)
    End If
Else
        For RJ2 = 0 To M0
            Out = Out & "[A" & 0 & "," & RJ2 & "] -> "
        Next
        For RJ3 = 1 To N0
            Out = Out & "[A" & RJ3 & "," & M0 & "] -> "
        Next
        Out = Mid(Out, 1, Len(Out) - 3)
End If
MsgBox Out, , "OutPut"

موفق باشی
خدانگهدار
ايران ويج > برنامه نویسی > ويژوال بيسيك > ماتريس, ليست بوكس و كامبو بوكس