سلام علیکم !
ببخشید فقط یه سوال ! مشکل این کد چیه ؟
کد:Private Sub Command1_Click()
Dim a, b, c As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
a , b, c = ""
then b/30 and a*b = c
End Sub
Printable View
سلام علیکم !
ببخشید فقط یه سوال ! مشکل این کد چیه ؟
کد:Private Sub Command1_Click()
Dim a, b, c As Integer
a = Text1.Text
b = Text2.Text
c = Text3.Text
a , b, c = ""
then b/30 and a*b = c
End Sub
سلام دوست عزيز بهتره كه بگي چه برنامه اي مي خواهيد ؟نقل قول:
در ضمن درست كد هم اينه
نقل قول:
private sub command1_click()
dim a, b, c as integer
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)
if b / 30 and a * b = c then
a = ""
b = ""
c = ""
end if
end sub
با توجه به گفته های aaaammmm87 باید اضافه کنم که:
با این روشی که شما متغیرهاتونو تعریف کردین فقط c از نوع integer تعریف میشه و دوتای دیگه همون variant میمونن. بهتر اینجوری تعریف کنین.نقل قول:
dim a, b, c as integer
نقل قول:
Dim a as Integer ,b as Integer ,c as Integer
ببینین برنامه ی مهمی نمی خوام !
می خوام این برنامه اولا b رو تقسیم بر 30 بکنه ! بعد a رو ضربدر b بکنه و توی c بنویسه !
قبلش هم هر سه تکست باکس رو سفید کنه !
قبلا خودم تا حدودی بلد بودم ! ولی الان با متغیر ها این مشکل رو پیدا کردم !
اینم اضافه کنم که
تا جایی که یادمه ! اول این کد ها برای متغیر ها یه کدی اضافه می کردیم که در مورد همه ی کد ها کار بکنه که در مورد متغیر ها به کار می ره !:20:کد:private sub command1_click()
dim a, b, c as integer
a = text1.text
b = text2.text
c = text3.text
a , b, c = ""
then b/30 and a*b = c
end sub
سلام
اگه منظورت در مورد نوع تعریف متغیر هاست که من تا الان همچین چیزی ندیدم.نقل قول:
تا جایی که یادمه ! اول این کد ها برای متغیر ها یه کدی اضافه می کردیم که در مورد همه ی کد ها کار بکنه که در مورد متغیر ها به کار می ره !
در مورد برنامه با توضیحاتی که خودت دادی اینجوری میشه:
نقل قول:
private sub command1_click()
dim a as integer, b as integer, c as integer
a = text1.text
b = text2.text
c = text3.text
text1="": Text2="": Text3=""
b=b\30
c=a*b
end sub
متاسفانه یکی از مشکلاتی که اکثر بچه ها و حتی معلم ها هم دارن این ه که متغیر ها رو به شکل زیر تعریف میکنن :
Dim a, b, c As Integer
در صورتی که اشتباهه ... و در نوشتن کد ممکنه خطا پیش بیاد.
دلیلش رو هم دوستمون توضیح داد دیگه لازم نیست من بگم.
ولی کد مشکل پیدا می کنه ! اینم برنامم !نقل قول:
کد:http://rapidshare.com/files/184162700/VB98.rar.html