ورود

نسخه کامل مشاهده نسخه کامل : 2 سوال ساده برای حرفه ایها



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

فاطـمه
08-03-2009, 18:28
سوال اولتون این میشه که باید تو تایمر کد بنویسید و delay تایمر رو تنظیم کنید رو یه فاصله زمانی نسبتا کوتاه، حتما می دونید که این زمان بر حسب میلی ثانیه هستش
کد تایمر می تونه به این صورت باشه که مقدار textbox رو به علاوه یک کنه و البته باید در ابتدا مقدار اون رو صفر کنید
الان متوجه شدم که شما کد می خواین و من متاسفانه وی بی ندارم
اگه همین طوری به دردتون می خوره سوال 2 رو هم توضیح بدم
وگرنه فک کنم بقیه جواب بدن بهتر باشه

sia0368
08-03-2009, 19:45
سوال اولتون این میشه که باید تو تایمر کد بنویسید و 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
08-03-2009, 23:56
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
کسی نیست جواب بده؟همینطوری هم بگید شاید بفهمم

فاطـمه
09-03-2009, 09:27
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنیداینم سوال دو

samiblog
17-03-2009, 22:28
سوال یک:میخوام یه 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