2 سوال ساده برای حرفه ایها

سوال یک:میخوام یه textbox و یه command button تو فرم باشه و کاربر وقتی دکمه رو کلیک کرد در textbox اعداد 1 تا 100 رو با وقفه چند میلی ثانیه ای بنویسه (میدونم با timer باید انجام شه ولی طرز کارش رو بلد نیستم)
سوال 2:میخوام دو تا textbox و یک command button باشه در یکی تعداد نمراتی که باید وارد شود و در متغیری مثل n قرار بگیرد و سپس با حلقه ای مثل while یا for تا متغیر n که همون تعداد نمرات هست نمرات رو از textbox اولی بگیره با هم جمع کنه و سپس تقسیم بر n کنه(همون معدل خودمون)
اگه میشه کدها رو فوق ساده بنویسید

سوال اولتون این میشه که باید تو تایمر کد بنویسید و delay تایمر رو تنظیم کنید رو یه فاصله زمانی نسبتا کوتاه، حتما می دونید که این زمان بر حسب میلی ثانیه هستش
کد تایمر می تونه به این صورت باشه که مقدار textbox رو به علاوه یک کنه و البته باید در ابتدا مقدار اون رو صفر کنید
الان متوجه شدم که شما کد می خواین و من متاسفانه وی بی ندارم
اگه همین طوری به دردتون می خوره سوال 2 رو هم توضیح بدم
وگرنه فک کنم بقیه جواب بدن بهتر باشه

نقل قول:

---

نوشته شده توسط فاطـمه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سوال اولتون این میشه که باید تو تایمر کد بنویسید و delay تایمر رو تنظیم کنید رو یه فاصله زمانی نسبتا کوتاه، حتما می دونید که این زمان بر حسب میلی ثانیه هستش
کد تایمر می تونه به این صورت باشه که مقدار textbox رو به علاوه یک کنه و البته باید در ابتدا مقدار اون رو صفر کنید
الان متوجه شدم که شما کد می خواین و من متاسفانه وی بی ندارم
اگه همین طوری به دردتون می خوره سوال 2 رو هم توضیح بدم
وگرنه فک کنم بقیه جواب بدن بهتر باشه

---

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Val(Text1.Text) < 100 Then
Text1.Text = Val(Text1.Text) + 1
Else
End
End If
End Sub
سوال یک رو این طوری نوشتم سوال دو رو هم یه توضیحی بدید شاید همینطوری تونستم بنویسمش یه سری کد نوشتم اگه میشه ایراد اینها رو هم بگید
Dim n, i As Integer

Private Sub Command1_Click()
Dim sum, i As Integer
n = Val(Text2.Text)
If i < n Then
sum = sum + Val(Text1.Text)
i = i + 1
Else
Text3.Text = sum / n
End If
End Sub

Private Sub Form_Load()
i = 1
End Sub

نقل قول:

---

نوشته شده توسط sia0368 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

private sub command1_click()
timer1.enabled = true
end sub

private sub command2_click()
timer1.enabled = false
end sub

private sub timer1_timer()
if val(text1.text) < 100 then
text1.text = val(text1.text) + 1
else
end
end if
end sub
سوال یک رو این طوری نوشتم سوال دو رو هم یه توضیحی بدید شاید همینطوری تونستم بنویسمش یه سری کد نوشتم اگه میشه ایراد اینها رو هم بگید
dim n, i as integer

private sub command1_click()
dim sum, i as integer
n = val(text2.text)
if i < n then
sum = sum + val(text1.text)
i = i + 1
else
text3.text = sum / n
end if
end sub

private sub form_load()
i = 1
end sub

---

کسی نیست جواب بده؟همینطوری هم بگید شاید بفهمم

کد:

---

Dim sum As Integer
Dim n As Integer
Dim i As Integer
Private Sub Command1_Click()
If i = 1 Then
    n = Val(Text1.Text)
    sum = Val(Text2.Text)
    Text2.Text = ""
    i = i + 1
 ElseIf i <= n Then
    sum = Val(Text2.Text) + sum
    Text2.Text = " "
    i = i + 1
Else
    Text2.Text = Str(sum / n)
 End If
End Sub
Private Sub Form_Load()
i = 1

---

اینم سوال دو

نقل قول:

---

نوشته شده توسط sia0368 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سوال یک:میخوام یه textbox و یه command button تو فرم باشه و کاربر وقتی دکمه رو کلیک کرد در textbox اعداد 1 تا 100 رو با وقفه چند میلی ثانیه ای بنویسه (میدونم با timer باید انجام شه ولی طرز کارش رو بلد نیستم)
سوال 2:میخوام دو تا textbox و یک command button باشه در یکی تعداد نمراتی که باید وارد شود و در متغیری مثل n قرار بگیرد و سپس با حلقه ای مثل while یا for تا متغیر n که همون تعداد نمرات هست نمرات رو از textbox اولی بگیره با هم جمع کنه و سپس تقسیم بر n کنه(همون معدل خودمون)
اگه میشه کدها رو فوق ساده بنویسید

---

واسه سوال 2

Dim i As Integer
Dim j As Integer
Dim p As Integer
i=val(text1.text) ' hmin
For j = 1 To i
("p = p + InputBox("enter
Text2.Text = p / i
Next j