منها کردن و ایجاد دستور شرطی

[hr0694]

سلام
کد این برنامه ها را باید چگونه بنویسم

برنامه اول
اعداد کوچکتر منهای اعداد بزرگتر شوند و در Text3 نمایش داده شوند و اعدادی هم که برابر یکدیگرند با هم جمع شوند
مثلاً در Text1 اعداد (5 19 5 17 7) نوشته شده و در Text2 اعداد (8 11 10 5 7) نوشته شده و در نتیجه Text3 میشود (3 8 5 12 14)

برنامه دوم
اگر Text1 شد فلان حرف یا عدد و Text2 هم شد فلان حرف یا عدد در Text3 نوشته شود فلان حرف یا عدد

[ramzdar]

بفرما دوست عزیز
برنامه اول رو از طریق دکمه نوشتم. مطابق با نیازتون تغییرش بدین.

Private Function TedaadAdad(Text As String)
On Error GoTo er1
er1:
If Err.Number = 9 Then FLG = 1
For i = 0 To Len(Text)
If FLG <> 0 Then Exit For
p = Split(Text, " ")(i)
t = t + 1
Next
TedaadAdad = t
End Function

Private Sub Command1_Click()
Dim a
Dim b

tA = TedaadAdad(Text1) - 1
ReDim a(0 To tA) As Integer
For i = 0 To tA
a(i) = Split(Text1, " ")(i)
Next

tB = TedaadAdad(Text2) - 1
ReDim b(0 To tB) As Integer
For i = 0 To tB
b(i) = Split(Text2, " ")(i)
Next

If tA <> tB Then
MsgBox "تعداد اعداد در تکست باکس ها، برابر نیست"
Exit Sub
Else
t = tA
End If
For i = 0 To t
If a(i) <> b(i) Then hasel = a(i) - b(i) Else hasel = a(i) + b(i)
Text3 = Text3 & Abs(hasel) & " "
Next
End Sub

در مورد برنامه دومتون هم چیزی نفهمیدم. بیشتر توضیح بدین

[ramzdar]

با اجازه از مدیران تالار!
دوست عزیز همه این سوالاتی که امروز صبح براشون تاپیک زدی میتونستی توی یه تاپیک مطرح کنی
چون همشون به هم مرتبط هستن و مطمئناً به همشون پاسخ داده میشد. این کاری که شما انجام میدی فقط و فقط باعث شلوغ شدن فروم و تالار میشه.
شما میتونستی همشون رو با استفاده از یه شیوه بپرسی. مثلاً میگفتی
برنامه اول: ...........
برنامه دوم: ..........
برنامه سوم: عکس برنامه اول
.
.
.

موفق باشی دوست عزیز.