[PHP] Function BackSpace(ByVal Input As String) As String
Dim Length As Integer
Length = Len(Input) [/PHP]
درضمن خط اول رو اگه میشه برام تفسیر کن
Byval Input as string یعنی چه?
String آخرخط اول یعنی چی?
کلا خط سوم به چه معناست?
ببخشید سوالات زیاد شد
Printable View
[PHP] Function BackSpace(ByVal Input As String) As String
Dim Length As Integer
Length = Len(Input) [/PHP]
درضمن خط اول رو اگه میشه برام تفسیر کن
Byval Input as string یعنی چه?
String آخرخط اول یعنی چی?
کلا خط سوم به چه معناست?
ببخشید سوالات زیاد شد
من منتظر کل کد هستم.
بعدش اگه کسی جواب نداده بود، خودم جواب می دم.
منظورت اینه که کل کدایی رو که برای ماشین حساب نوشتم قراربدم
بله؛ Ctrl+A و Ctrl+C. می تونید از [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] هم استفاده کنید.
پ.ن. دوستان ممنون می شم اگه سوال های asrema، بالای همین صفحه، مربوط به تابع، رو پاسخ بدید.
بالاخره تونستمback space رو درست کنم بادستور زیر:
[PHP]Private Sub bazgasht_Click()
a = lb.Caption
b = Len(a)
lb.Caption = Left(a, b - 1)
End Sub
[/PHP]
نظرت راجع به کد چیه؟
درضمن به این سوال من که در پست های قبل پرسیدم جواب ندادی سوال این بود که:
من اگه بخوام تو لیبل دنبال یک (حرف, عدد یا کلمه)بگردم و ببینم که آیا همچین چیزی تو لیبل موجوداست باید ازچه دستوری استفاده کنم؟(مثلا بگم اگه تو لیبل کلمه ali بود اون رو به hoseini تغییر بده یا اگه تو عدد ممیز بود دیگه ممیز رو ازکار بندازیعنی قفلش کن)
راستی یک سوال دیگه هم دارم گوشه ی راست بالای همین صفحه گزینه بستن داره(close) یکی ازدوستام برنامه notepad نوشته حالا میخواد بنویسه اگر اون دکمه(یعنی همون close) زده شد برنامه رو ذخیره کن
من الان برنامه ذخیره کردن رو میدونم چی هستش(منظورم همون دستورش هست)ولی توبیان همین اگه کلید close رو زد مشکل دارم(چجوری بنویسمش)
[PHP]if x then[/PHP]
فقط بگو که به جای X چه چیزی بنویسم بقیش رو خودم بلدم
باتشکر
درسته به غیر از این که اگه b = 0 باشه خطا می گیری.نقل قول:
برای این که ببینیم یه رشته توی یه رشته دیگه هست تابع InStrنقل قول:
برای این که زیر رشته های یه رشته رو با زیر رشته های دیگه عوض کنیم تابع Replace
مثلا
[PHP]MyString = "Ali Hossaini"
MyString = Replace("Ali Hossaini", "Ali", "Reza")
MsgBox MyString[/PHP]
Ali Hossaini رو به Reza Hossaini تبدیل می کنه و اونو نمایش می ده.
در مورد ممیز، گفتم این جا:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
توضیح بیشتر این که PointFlag خارج از توابع تعریف بشه و موقع شروع برنامه (داخل Form_Load) باید مقداردهی اولیه بشه.
برنامه ویژوال بیسیک رویداد محور هست. یعنی هر دکمه رو که می زنیم یه رویداد فراخونی می شه و کدی که داخلش نوشتیم اجرا می شه. همون کاری که تا الان انجام دادی.نقل قول:
بستن فرم هم از این قاعده مستثنی نیست. رویداد بستن فرم Unload هست.
یعنی کد زیر
[PHP]Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Are you sure you want to close?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Cancel = 0
Else
Cancel = 1
End If
End Sub[/PHP]
که موقع بسته شدن یه پیغام نشون می ده که اگه No رو بزنی برنامه بسته نمی شه.
تابعی با یک ورودی از جنس رشته و یک خروجی از جنس رشته.نقل قول:
اون که داخل پرانتز نوشته شده نوع و اسم (آرگومان) ورودی هست.
String آخر یعنی خروجی تابع از جنس رشته هست.
BackSpace هم اسم تابع هست.
اون ByVal هم به صورت پیش فرض باید در تعریف ورودی های تابع نوشته شه...
جواب این سوالم که تا الان پیدا کردی!نقل قول:
پ.ن. چون برنامه VB6 نصب ندارم و مدت زیادیه که باهاش کد نزدم، ممکنه اشتباهات جزئی داشته باشه کد ها.
معنی index as integer چی هست که وقتی پاک میکنی خطا میده؟
[PHP]Private Sub Picture_Click(Index As Integer)
lb.Caption = lb.Caption + "0"
End Sub[/PHP]
درضمن اگه یادتون باشه من گفتم که از دستور زیر برای هر عدد نوشتم یعنی 11 تا از این دستور نوشتم(برای اعداد 0 تا 9 ویکی هم برای ممیز)
[PHP]Private Sub Picture4_Click()
lb.Caption = lb.Caption + "4"
End Sub[/PHP]
اما این قسمت (index as integer) در زیر روال(ممیز 0 و 1و 2 و 3)تعریف شده واز عدد 4 به بعد این رواصلا تعریف نکرده
برای چی فقط برای (ممیز تا 3 تعریف شده)
کدی که نوشتی بدون شک کار نمی کنه!!! چون گفتی وقت نداری دیگه توضیح نمی دم که چرا این جوری شده.نقل قول:
دکمه های ممیز 0 و 1و 2 و 3 رو پاک کن و دوباره اضافه کن. (بدون کپی پیست کردن!)
من منظورم این بود که فقط تا فرداصبح مهلت دارم وباید به تک تک اجزا مسلط باشم چون معلممون گفته که من هرچیزی رو پاک کردم وبرنامه رو به شما دادم شما باید بتونید دوباره اون خط پاک شده رو بنویسید یا مثلا میپرسه اگه این خط پاک بشه چه اختلالی در برنامه ایجاد میشه؟نقل قول:
پس من امشب بادوستم تا آخرشب بیدار میمونیم تا باهم برنامه های همدیگه رو بررسی کنیم وبه برنامه هامون کاملا مسلط بشیم
درضمن دوستم گفت چند خط نوشتم ولی درست معنی اون چندخط رو نمیفهم میخواستم ببینم تاساعت چند بیدارهستی تا من بتونم آخرین سوالاتم رو از شما بپرسم چون فردا صبح باید پروژه روتحویل بدیم
بپرسید. منم جواب ندم یه استادی هست که جواب بده!نقل قول:
____
در مورد اون Index: شما اون 5 تا Picture رو تبدیل به آرایه 5 تایی کردی. برای همین Index رو بالای اون زیرروال نشون می ده که برای این که بفهمیم توی یه آرایه از دکمه ها کدوم دکمه فشار داده شده لازمه.