[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 رو بالای اون زیرروال نشون می ده که برای این که بفهمیم توی یه آرایه از دکمه ها کدوم دکمه فشار داده شده لازمه.
آیا میشه با اون روشی که گفتین این آرایه هارو از بین برد؟نقل قول:
اگه جواب نه هستش پس لطفا یک توضیح مفصل بدهید تا فردا گیر نکنم
راستی یک سوال دیگه دارم معنی این چیزهایی که مینویسم چیست؟
1-as string
2-text.seltextچه کاری درtextbox انجام میده؟
3-vbmsgboxresult چیست وجه کاری انجام میده؟واین دستور چیست؟ dim ret as vbmsgboxresult وچه کاری انجام میده؟
4-cm.file name چه کاری انجام میده؟(درضمنcmمخفف کامند دیالوگ هست)
5- این دستور به چه معناست وچه کاری انجام میده؟ ( input(lof(f),#f
6-دراین دستور " if vbmsgboxresult=vbCancel then cancel="0
دراین دستور "cancel="0 چه کاری انجام میده؟
خواهشا به طورکامل توضیح دهید چون فردا احتمال پرسش هریک از این سوال ها است؟
باتشکر
100%. اگر کار می کنه که اصلا نیاز نیست!نقل قول:
"از نوع رشته": متغیری که تعریف کردیم از جنس رشته است و برای نگه داری متن استفاده می شه.نقل قول:
SelText صفتی (Property) در TextBox هست که معرف مکان کرسر (اون چشمک زنه) در TextBox است. قابلیت خوندن و نوشتن هم داره. (قبلا در مورد صفت ها توضیح داده بودم)نقل قول:
vbmsgboxresult یک نوع شمارشی هست که در ویژوال بیسیک از قبل تعریف شده.نقل قول:
این مثال رو اگر دقت کنی:
[PHP]Enum EggSizeEnumما یک نوع شمارشی تعریف کردیم که اندازه (مدیوم، لارج و...) رو نگه می داره. حالا هر متغیری از نوع EggSizeEnum تعریف بشه می تونه یکی از مقادیر EggSizeEnum.Small تا EggSizeEnum.Jumbo رو اختیار کنه. مثل متغیر های نوع Integer که می تونن یکی از مقادیر -32768 تا 32767 رو اختیار کنن.
Jumbo
ExtraLarge
Large
Medium
SmallEnd Enum[/PHP]
CM هم مثل TextBox صفت داره. یکی از صفت هاش FileName هست که آدرس + اسم فایل باز شده رو نگه می داره و هر وقت بخوایم می تونیم ازش استفاده کنیم.نقل قول:
محتویات فایل رو از رو هارددیسک می خونه. دقیقش یادم نیست.نقل قول:
وقتی پنجره رو می خوایم ببندیم، ویژوال بیسیک رویداد Unload رو اجرا می کنه. بلافاصله بعد از اتمام اجرای رویداد، ویژوال بیسیک چک می کنه که Cancel برابر چه مقداری هست. اگر 0 شده بود پنجره رو نمی بنده.نقل قول:
خواهش می کنم!نقل قول:
همونطورکه گفتم دوستم یک برنامه notpad نوشته و فقط مونده که دستورپرینت رو بنویسه
توی قسمت prin کد زیر رو نوشته(cm مخفف کامان دیالوگ هستش)
[PHP]cm.showprint[/PHP]
حالا برای اینکه وقتی صفحه پرینت باز شد ودکمه print رو زد محتویات داخل textbox رو چاپ کنه باید از چه دستوری استفاده کند؟