Parsi Coders

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

به امید دیدار

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

(11-17-2011، 03:38 PM)Secret نوشته: [ -> ]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

به امید دیدار

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

ممنون

Amin_Mansouri

Ghoghnus

mohamadalikhany