اطلاعیه

**apt** · 08-05-2013, 11:20 PM

این دیگه در تخصص حمید آقاست

اگه میخوای آخرین فایلی که ساختی رو بفرست شاید تونستم بهش اضافه کنم

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

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

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

میخوام یه فایل exe ازش درست کنم ولی نمیشه اینطوری میشه

**E H S A N** · 08-05-2013, 11:52 PM

اول می new form از هر جنس یا Splash Screen به پروژه اضافه کنید و بعد برید داخل منوی Project > Properties و بعد از منوی Application اگر اشتباه نکنم startup را یک فرم جدید که ساختید بذارید!
و بعد یک timer باید به برنامه اضافه کنید و مثلا بعد از ۴ ثانیه فرم اصلی را load کنید.
(من ۲ تا vb6 دانلود کردم هیج کدام کار نداد، برای همین با شک و ابهام میگم، هرجا به بهد که نتونستید حلوتر برید، برام عکس اگر بذارید یادم میاد و کمکتون میکنم)

**E H S A N** · 08-05-2013, 11:54 PM

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

میخوام یه فایل exe ازش درست کنم ولی نمیشه اینطوری میشه

برای اینکه ۲ تا x تعریف شده!یکی بصورت پارامتر، یکی هم داخل تابع! اسم x که داخل تایع هست!شما باید dim هارو خارج از تابع بنویسید نه داخل! البته اگر بصورت سراسری بهش نیاز دارید!

**apt** · 08-05-2013, 11:54 PM

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

میخوام یه فایل exe ازش درست کنم ولی نمیشه اینطوری میشه

آخه کامپایلرت پرتابله! اولش که اجراش می کنهی دو تا گزینه بت میده. یکیش اینه:
Reg Key
که ادعا میکنه اگه اینو بزنی می تونی exe هم بسازی.

الان یک نکته در کدی که تو عکس هست دیدم. جایی که متغییر تعریف کردین اشتباه هست!! البته VB بدون تعریف متغییر هم کار می کنه ولی الان که تعریف کردین مکانش اشتباه هستش. یا این دوتا خطی که میگم رو پاک کنید:
Private Sub Frame1_DragDrop
و همچنین End Sub که بعدش اومده

یا اینکه تعریف متغیرها رو در اولین خط بعد از این بنویسید:
Private Sub Command1_Click

**mohammad_iPad2** · 09-05-2013, 12:13 AM

اینم از برنامه
راستی نمیشه یه کاری کرد که کاربر تو ستون Final چیزی ننویسه ؟
http://www.uploadtak.com/images/m8978_Project1.rar
دیگه چی بهش اضافه کنم ؟

**apt** · 09-05-2013, 12:28 AM

آنتی ویروسم فایلتو به عنوان ویروس گرفت

برای اینکه در ستون Final چیزی نتونند بنویسند، جعبه متنهای داخل ستون رو انتخاب کن، تو پنجره Properties (سمت راست صفحه) خاصیت Enabled رو به False تغییر بده

**E H S A N** · 09-05-2013, 12:30 AM

بلاخره یک vb6 دانلود کردم که کار داد! هر سوالی که داشتین دیگه میتونم جواب بدم! البته الان خیلی خستم! تا فردا صبح هرچی سوال و مشکل دارید جمع آوری کنید، ۹۹% حل میشه!
البته جناب apt هم هستن و بهتون کمک میکنن به خوبی!

اون که میخواهید اول یک فرم بیاد و بعد فرم اصلی کاری نداره! خیلی آسون هست! فردا براتون درستش میکنم! چون الان vb6 را دارم!

**mohammad_iPad2** · 09-05-2013, 12:55 AM

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

آنتی ویروسم فایلتو به عنوان ویروس گرفت

برای اینکه در ستون Final چیزی نتونند بنویسند، جعبه متنهای داخل ستون رو انتخاب کن، تو پنجره Properties (سمت راست صفحه) خاصیت Enabled رو به False تغییر بده

چرا ؟ ویروسی نبود من eset دارم مشکلی پیدا نکرد
این مشکل هم حل شد در رابطه با ظاهر برنامه نکته ای اگه مد نظرتون هست بگید خوشحال میشم
هم شما و هم احسان عزیز

**mohammad_iPad2** · 09-05-2013, 12:58 AM

دوستان یه سوال داشتم (البته تو این پروژه به کارم نمیاد)
دیدید تو بعضی سایتا در جایی که برای لاگین تهیه دیدن نوشته پسورد ولی روش کلیک میکنه پاک میشه
میخواستم ببینم با vb میشه یه همچین کاری کرد ؟

**mohammad_iPad2** · 09-05-2013, 01:10 AM

دیگه سوالای آخرم :
1)میتونم یه کاری بکنم که کاربر نتونه بیشتر از عدد 20 رو وارد کنه ؟
2)این msgbox میخواستم اگه کاربر قبول میشه بنویسه قبول شدید و اگه مردود شد بنویسه مردود شدید
3)شما گفتی که میشه یه صفحه جدید باز کرد ، من میخوام برای کلید about us یه صفحه باز کنم که اطلاعاتم رو توش بنویسم که توش آدرس وبلاگ هم باشه که کاربر کلیک میکنه وارد وبلاگ بشه
4)نمیشه فونت بعضی از command ها رو عوش کرد ؟

ممنون
آخرین تغییرات :

کد:

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
x = (Val(Text1(0)) + Val(Text1(40)) + Val(Text1(39)) + Val(Text1(38)) + Val(Text1(37)) + Val(Text1(36)) + Val(Text1(35)) + Val(Text1(34)) + Val(Text1(33)) + Val(Text1(32))) / 10
y = (Val(Text1(30)) + Val(Text1(21)) + Val(Text1(22)) + Val(Text1(23)) + Val(Text1(24)) + Val(Text1(25)) + Val(Text1(26)) + Val(Text1(27)) + Val(Text1(28)) + Val(Text1(29))) / 10
z = (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
q = (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
Label1(31) = x
Text1(31) = (Val(Text1(10)) + 2 * (Val(Text1(0))) + Val(Text1(20)) + 6 * Val(Text1(30))) / 10
Text1(49) = (Val(Text1(1)) + 2 * (Val(Text1(40))) + Val(Text1(11)) + 6 * Val(Text1(21))) / 10
Text1(48) = (Val(Text1(2)) + 2 * (Val(Text1(39))) + Val(Text1(12)) + 6 * Val(Text1(22))) / 10
Text1(47) = (Val(Text1(3)) + 2 * (Val(Text1(38))) + Val(Text1(13)) + 6 * Val(Text1(23))) / 10
Text1(46) = (Val(Text1(4)) + 2 * (Val(Text1(37))) + Val(Text1(14)) + 6 * Val(Text1(24))) / 10
Text1(45) = (Val(Text1(5)) + 2 * (Val(Text1(36))) + Val(Text1(15)) + 6 * Val(Text1(25))) / 10
Text1(44) = (Val(Text1(6)) + 2 * (Val(Text1(35))) + Val(Text1(16)) + 6 * Val(Text1(26))) / 10
Text1(43) = (Val(Text1(7)) + 2 * (Val(Text1(34))) + Val(Text1(17)) + 6 * Val(Text1(27))) / 10
Text1(42) = (Val(Text1(8)) + 2 * (Val(Text1(33))) + Val(Text1(18)) + 6 * Val(Text1(28))) / 10
Text1(41) = (Val(Text1(9)) + 2 * (Val(Text1(32))) + Val(Text1(19)) + 6 * Val(Text1(29))) / 10
Label1(28) = (z + 2 * x + q + 6 * y) / 10
Label1(29) = y

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
If CDbl(Label1(28).Caption) < 10 Then
    Label1(43).Caption = "Banned"
Else
    Label1(43).Caption = "Accept"
End If


End Sub

Private Sub Command2_Click()
ms = MsgBox("Are you Sure?", vbYesNo, "Exit")
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()
For i = 1 To 49
  Text1(i).Text = ""
Next i

End Sub

**E H S A N** · 09-05-2013, 10:22 AM

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

دوستان یه سوال داشتم (البته تو این پروژه به کارم نمیاد)
دیدید تو بعضی سایتا در جایی که برای لاگین تهیه دیدن نوشته پسورد ولی روش کلیک میکنه پاک میشه
میخواستم ببینم با vb میشه یه همچین کاری کرد ؟

توی رویداد gotFocus بنویسید مثلا text1.text = ""

**E H S A N** · 09-05-2013, 10:42 AM

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

دوستان یه سوال داشتم (البته تو این پروژه به کارم نمیاد)
دیدید تو بعضی سایتا در جایی که برای لاگین تهیه دیدن نوشته پسورد ولی روش کلیک میکنه پاک میشه
میخواستم ببینم با vb میشه یه همچین کاری کرد ؟

توی رویداد gotFocus بنویسید مثلا text1.text = ""

برای اینکه نذارید بیشتر از ۲۰ عدد وارد کنه! توی قسمت Properties هر textbox یک گزینه هست به نام MaxLenght اون را مثلا بذارید ۲۰.

برای اضافه کرده کردن فرم هم به روش زیر add کنید!

و بعد روی form بزنید و از لیست ظاهر شده یدونه Splash Screen یا فرم معمولی add کنید و توی رویداد command_click اضافه کنید.
مثلا اگر اسم فرمتون باشه frmSplash میشه : frmSpash.show

برای عوض کردن فونت command ها باید اول command را انتخاب کتید بعد گزینه Style را بکنید Graphical و بعد فونتش را عوض کنید.

- - - - - - - - - -

پست بالا آپدیت شد!

**apt** · 09-05-2013, 05:51 PM

نوشته اصلی توسط E H S A N نمایش پست ها

برای اینکه نذارید بیشتر از ۲۰ عدد وارد کنه! توی قسمت Properties هر textbox یک گزینه هست به نام MaxLenght اون را مثلا بذارید ۲۰.

فکر کنم MaxLenght تعداد حروفش باشه. یعنی یک عدد 20 رقمی.

محمد جان برای msgbox هم مثل باقی msgbox هایی که تا الان نوشتین عمل کنید دیگه! مثلا:

کد:

If a < 10 then
	msgbox "Accepted"
else
	msgbox "Failed"
End If

درضمن فرموده بودین اگه پیشنهادی داریم بگیم که با اجازه من پیشنهاد میدم.
1- به جای Banned بنویسید Failed.
2- به جای About us بنویسید About me یا About .
3- پیشنهاد می کنم جمله زیر:
Hi My name is Mohammad Razmara. I create this program and spend about 4 hours for make it
به این صورت تغییر پیدا کنه:
My name is Mohammad Razmara. I've created this program and spent hours to make it
4- هنگامی که شخصی قبول می شود رنگ نوشته سبز بشه و وقتی رد می شود رنگ نوشته قرمز بشه:
برای این کار تمام کدهایی که به این شکل هست:

کد:

If CDbl(Text1(31).Text) < 10 Then
    Label2(1).Caption = "Banned"
Else
    Label2(1).Caption = "Accept"
End If

به این شکل در میاد

کد:

If CDbl(Text1(31).Text) < 10 Then
    Label2(1).Caption = "Failed"
    Label2(1).ForeColor = vbRed
Else
    Label2(1).Caption = "Accept"
    Label2(1).ForeColor = vbGreen
End If

در آخر هم یک سوال. چرا معدل ستون دوم شده 26؟ مگه میشه!!؟

اطلاعیه

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

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر

نظر