[Amin_Mansouri]

siamand
جدول ضرب
به: Secret
--------------------------------------------------------------------------------

سلام دوست عزیز خواهشا کمکم کنید من سور جدول ضرب رو با استفاده از تابع function و آرایه رو می خوام
مثلا روی فرم دو تا تیکست و یک کامند داشته باشیم
بعد اگه در تیکست 1 یک عدد مثلا 7 رو وارد کردیم جدول ضرب 7*7 رو در تیکست 2 نشون بده و با تابع function و آرایه نوشته شده باشه
خیلی ممنون میشم اگه کمکم کنید به خدا چند هفته هست دارم دنبالش میگردم و لی پیدا نکردم و تازه با سایت شما آشنا شدم ممنون میشم که کمکم کنید
جواب :
خواهشا در پیغام خصوصی سوال نپرسید
با یه تابع function برات نوشتم فقط textbox1 و textbox2 به همراه یه باتن بزار روی فرم
اگر درست فهمیده باشم باید این جوابت باشه :

کد:

Private Sub Command1_Click()
Text1.Text = Hesab(Text2.Text)
End Sub

Private Function Hesab(inputNumber As Integer) As Integer
Hesab = Val(inputNumber) * Val(inputNumber)
End Function

جدول ضربشو خودت کامل تر کن

اینم یه سورس دیگه برای ساخت جدول ضرب با استفاده از حلقه
نوشتن جدول ضرب n*n در vb6 با حلقه while wend

کد:

Option Explicit

Private Sub Form_Load()
    Dim x As Long, y As Long, n As Long
    AutoRedraw = True
    n = 10
    y = 1
    While y <= n
        x = 1
        While x <= n
            CurrentX = x * 270
            CurrentY = y * 270
            Print x * y;
            x = x + 1
        Wend
        y = y + 1
    Wend
End Sub

به امید دیدار

[Ghoghnus]

روشت جالب بود امین جون
ممنون

[mohamadalikhany]

siamand
جدول ضرب
به: Secret
--------------------------------------------------------------------------------

سلام دوست عزیز خواهشا کمکم کنید من سور جدول ضرب رو با استفاده از تابع function و آرایه رو می خوام
مثلا روی فرم دو تا تیکست و یک کامند داشته باشیم
بعد اگه در تیکست 1 یک عدد مثلا 7 رو وارد کردیم جدول ضرب 7*7 رو در تیکست 2 نشون بده و با تابع function و آرایه نوشته شده باشه
خیلی ممنون میشم اگه کمکم کنید به خدا چند هفته هست دارم دنبالش میگردم و لی پیدا نکردم و تازه با سایت شما آشنا شدم ممنون میشم که کمکم کنید
جواب :
خواهشا در پیغام خصوصی سوال نپرسید
با یه تابع function برات نوشتم فقط textbox1 و textbox2 به همراه یه باتن بزار روی فرم
اگر درست فهمیده باشم باید این جوابت باشه :

کد:

Private Sub Command1_Click()
Text1.Text = Hesab(Text2.Text)
End Sub

Private Function Hesab(inputNumber As Integer) As Integer
Hesab = Val(inputNumber) * Val(inputNumber)
End Function

جدول ضربشو خودت کامل تر کن

اینم یه سورس دیگه برای ساخت جدول ضرب با استفاده از حلقه
نوشتن جدول ضرب n*n در vb6 با حلقه while wend

کد:

Option Explicit

Private Sub Form_Load()
    Dim x As Long, y As Long, n As Long
    AutoRedraw = True
    n = 10
    y = 1
    While y <= n
        x = 1
        While x <= n
            CurrentX = x * 270
            CurrentY = y * 270
            Print x * y;
            x = x + 1
        Wend
        y = y + 1
    Wend
End Sub

به امید دیدار

ممنونم داداش واقعا ای سایتو باید جایزه داد اینو جدی میگم ممنونم

---

ممنون