اطلاعیه

**apt** · 08-05-2013, 01:01 AM

نوشته اصلی توسط mohammad_iPad2 نمایش پست ها

زدم نشد ارور داد

http://www.i-phone.ir/forums/newuplo...fc50ab0cff.png
میخوام یه کاری کنم مثلا میخوام اکه عددی که تویtex1 هست اگه کوچکتر از 10 بود توی label2 بنویسه مردود و اگه بالاتر از 10 بود بنویسه قبول اینو باید چیکار کنم (منظورم وقتی هست که میخواسم گزینه average رو بزنم )
http://www.i-phone.ir/forums/newuplo...d9727bf93f.png

http://www.i-phone.ir/forums/newuplo...b7449fcdff.png

در کدی که نوشتید آمده:

کد:

Private Sub Label2_Click(Index As Integer)
If Val(Text1(10)) < 10 Then Print "Banned" Else Print "accept"
End If

که یعنی هروقت Label2 کلیک شد این مساله کنترل بشه در حالی که باید یک دکمه کلیک بشه و Label2 تغییر بکنه. پس اگر قرار باشه دکمه ای مثلا به نام Command7 فشرده بشه کد این طوری میشه:

کد:

Private Sub Command6_Click()
If cdbl(Text1(10).text) < 10 Then
	Label2.caption = "Banned"
Else
	Label2.caption = "Accept"
End If
End Sub

**mohammad_iPad2** · 08-05-2013, 01:11 AM

بله 8 هست
بابا پدرم در اومد بالاخره مجبور شدم از پرتابل استفاده کنم لینکشم گذاشتم تو پستای قبلی
اگه دنبالش نسخه نصبی هستی و نمیتونید نصب کنید توی یو*تیوب سرج کنید من چند پیشا این کارو کردم و اون کسی که فیلم گذاشته بود تونست روی ویندوز 8 نصب کنه

**apt** · 08-05-2013, 01:12 AM

پس منم همون پرتابل رو دانلود می کنم. ممنون

راستی کدها رو امتحان کردین؟

**mohammad_iPad2** · 08-05-2013, 01:22 AM

اساتید ممنون گره ها باز شد
یه سوال دیگه اگه خسته نشدید ؟
می خوام یه کاری کنم اگه طرف معدل کلش از 10 کمتر شد یه msgbox باز بشه و بنویشه شما مردودید و بالعکس یعنی اگه بالای 10 شد بزنه شما قبولید .
اینم ادرس label مورد نظر
http://www.i-phone.ir/forums/newuplo...51209c1c6a.png
آهان یه مشکل دیگه بود اینه که فرمول بدست اوردن معدل نوبت اول اینه : مجموع نمرات مستمر اول + دو برابر مجموع نمرات نوبت اول همش تقسیم بر 3 اینه هر کاری میکنم ایراد میگیره یک ساعت دیگیرم با این مسئله ساده

کد جدید بعد از تغییرات

کد:

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Command1_Click()
Label1(32) = (Val(Text1(10)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3)) + Val(Text1(4)) + Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) + Val(Text1(9))) / 10
Label1(30) = (Val(Text1(20)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) + Val(Text1(14)) + Val(Text1(15)) + Val(Text1(16)) + Val(Text1(17)) + Val(Text1(18)) + Val(Text1(19))) / 10
If CDbl(Text1(10).Text) < 10 Then
    Label2(1).Caption = "Banned"
Else
    Label2(1).Caption = "Accept"
End If

End Sub

Private Sub Command2_Click()

ms = MsgBox("Are you Sure?", vbYesNo)
If ms = vbYes Then
    End
End If


End Sub

Private Sub Command3_Click()
r = MsgBox("Hi My name is Mohammad Razmara. I create this program and spend about 4 hours for make it .I hope you'll like.", vbInformation, "About us")


End Sub

**apt** · 08-05-2013, 01:32 AM

نوشته اصلی توسط mohammad_iPad2 نمایش پست ها

اساتید ممنون گره ها باز شد
یه سوال دیگه اگه خسته نشدید ؟
می خوام یه کاری کنم اگه طرف معدل کلش از 10 کمتر شد یه msgbox باز بشه و بنویشه شما مردودید و بالعکس یعنی اگه بالای 10 شد بزنه شما قبولید .
اینم ادرس label مورد نظر
http://www.i-phone.ir/forums/newuplo...51209c1c6a.png
آهان یه مشکل دیگه بود اینه که فرمول بدست اوردن معدل نوبت اول اینه : مجموع نمرات مستمر اول + دو برابر مجموع نمرات نوبت اول همش تقسیم بر 3 اینه هر کاری میکنم ایراد میگیره یک ساعت دیگیرم با این مسئله ساده

کد جدید بعد از تغییرات

کد:

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Command1_Click()
Label1(32) = (Val(Text1(10)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3)) + Val(Text1(4)) + Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) + Val(Text1(9))) / 10
Label1(30) = (Val(Text1(20)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) + Val(Text1(14)) + Val(Text1(15)) + Val(Text1(16)) + Val(Text1(17)) + Val(Text1(18)) + Val(Text1(19))) / 10
If CDbl(Text1(10).Text) < 10 Then
    Label2(1).Caption = "Banned"
Else
    Label2(1).Caption = "Accept"
End If

End Sub

Private Sub Command2_Click()

ms = MsgBox("Are you Sure?", vbYesNo)
If ms = vbYes Then
    End
End If


End Sub

Private Sub Command3_Click()
r = MsgBox("Hi My name is Mohammad Razmara. I create this program and spend about 4 hours for make it .I hope you'll like.", vbInformation, "About us")


End Sub

کد:

Private Sub Command4_Click()
If Label1(43).Caption <> "" Then
  If CDbl(Label1(43).Caption) < 10 Then
    MsgBox "You are Not accepted!"
  Else
    MsgBox "You are accepted!"
  End If
End If
End Sub

فرض کن میانگین توی Label1000000(500000) قراره نشون داده بشه:

کد:

Private Sub Command1_Click()
a = (Val(Text1(10)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3)) + Val(Text1(4)) + Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) + Val(Text1(9))) 
b = (Val(Text1(20)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) + Val(Text1(14)) + Val(Text1(15)) + Val(Text1(16)) + Val(Text1(17)) + Val(Text1(18)) + Val(Text1(19))) 
Label1000000(500000) = (a + 2 * b) / 3
End Sub

البته فرمول های جلوی a و b را از روی کد خودتون کپی کردم.

**apt** · 08-05-2013, 01:35 AM

تقسیم بر 10 آخرش رو حذف کردم! برش گردون

**erikonem** · 08-05-2013, 01:48 AM

الان تاپیکتو دیدم!
منم یه زمانی همچین چیزی درست می کردم!

اگه باز سوال داشتی منم کمک می کنم، فعلا که دوستان به همه ی سوالاتت جواب دادند... ؛)

Sent from my iPhone using Tapatalk 2

**mohammad_iPad2** · 08-05-2013, 02:10 AM

نوشته اصلی توسط apt نمایش پست ها

تقسیم بر 10 آخرش رو حذف کردم! برش گردون

تقسیم بر 10 کجا رو ؟

**mohammad_iPad2** · 08-05-2013, 02:15 AM

آخرین تغییرات

کد:

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Command1_Click()
Label1(32) = (Val(Text1(10)) + Val(Text1(1)) + Val(Text1(2)) + Val(Text1(3)) + Val(Text1(4)) + Val(Text1(5)) + Val(Text1(6)) + Val(Text1(7)) + Val(Text1(8)) + Val(Text1(9))) / 10
Label1(30) = (Val(Text1(20)) + Val(Text1(11)) + Val(Text1(12)) + Val(Text1(13)) + Val(Text1(14)) + Val(Text1(15)) + Val(Text1(16)) + Val(Text1(17)) + Val(Text1(18)) + Val(Text1(19))) / 10
If CDbl(Text1(31).Text) < 10 Then
    Label2(1).Caption = "Banned"
Else
    Label2(1).Caption = "Accept"
End If
If CDbl(Text1(49).Text) < 10 Then
    Label1(42).Caption = "Banned"
Else
    Label1(42).Caption = "Accept"
End If
If CDbl(Text1(48).Text) < 10 Then
    Label1(40).Caption = "Banned"
Else
    Label1(40).Caption = "Accept"
End If
If CDbl(Text1(47).Text) < 10 Then
    Label1(37).Caption = "Banned"
Else
    Label1(37).Caption = "Accept"
End If
If CDbl(Text1(46).Text) < 10 Then
    Label1(41).Caption = "Banned"
Else
    Label1(41).Caption = "Accept"
End If
If CDbl(Text1(45).Text) < 10 Then
    Label1(34).Caption = "Banned"
Else
    Label1(34).Caption = "Accept"
End If
If CDbl(Text1(44).Text) < 10 Then
    Label1(36).Caption = "Banned"
Else
    Label1(36).Caption = "Accept"
End If
If CDbl(Text1(43).Text) < 10 Then
    Label1(35).Caption = "Banned"
Else
    Label1(35).Caption = "Accept"
End If
If CDbl(Text1(42).Text) < 10 Then
    Label1(38).Caption = "Banned"
Else
    Label1(38).Caption = "Accept"
End If
If CDbl(Text1(41).Text) < 10 Then
    Label1(39).Caption = "Banned"
Else
    Label1(39).Caption = "Accept"
End If




End Sub

Private Sub Command3_Click()
r = MsgBox("Hi My name is Mohammad Razmara. I create this program and spend about 4 hours for make it .I hope you'll like.", vbInformation, "About us")

End Sub

اون کدی که برای جمع نوبت اول دادید درست کار نکرد

**apt** · 08-05-2013, 12:12 PM

اگه Text Box ها خالی باشند معمولا ارور میده.
پیشنهاد می کنم به طور موقت خاصیت text این text box ها رو مقدار دهی کنید تا وقتی نرم افزار اجرا میشه لازم نباشه بهشون مقدار بدین و بعد روی دکمه کلیک کنید.
The first continuous و First time چی هستند؟

**mohammad_iPad2** · 08-05-2013, 03:10 PM

به ترتيب :مستمراول و مستمر دوم
يعني جي؟ چجور مقدار دهي كنم ؟

**E H S A N** · 08-05-2013, 04:29 PM

میتونی بالای کدهات بنویسی

on error resume next

**mohammad_iPad2** · 08-05-2013, 10:03 PM

ميخوام يه كليد بزارم وقتي كه روش كيك ميكنن تمام فرم پاك شود و اماده ثبت نمرات ديگه بشه ؟

**apt** · 08-05-2013, 10:52 PM

نوشته اصلی توسط mohammad_iPad2 نمایش پست ها

ميخوام يه كليد بزارم وقتي كه روش كيك ميكنن تمام فرم پاك شود و اماده ثبت نمرات ديگه بشه ؟

کد:

Private Sub Command4_Click()
For i = 1 To 49
  Text1(i).Text = ""
Next i
End Sub

**mohammad_iPad2** · 08-05-2013, 11:12 PM

برنامه 90 درصد کامل شده میتونم یه کاری کنم قبل از این که برنامه باز بشه یه عکس یا یه متنی بیاد ؟
بازم ممنون از اساتید بویژه apt و احسان عزیز

اطلاعیه

راهنمایی در Visual Basic 6.0

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر