محبوبترینها
آشنایی با سایت قو ایران بهترین سایت آگهی و تبلیغات در کشور
بهترین شرکت‌های مهندسی در آلمان
صفر تا صد حق بیمه 1403! فرمول محاسبه حق بیمه
نقش هدایای سازمانی در افزایش انگیزه و تعهد کارکنان
کلینیک پروتز و ساخت اندام مصنوعی دکتر اجرائی
چگونه می‌توانیم با ترانسفر وایز پول جابجا کنیم؟
بهترین مدل‌های [صندلی گیمینگ] براساس نقد و بررسی کاربران
مشاوره حقوقی تلفنی با کمترین هزینه
مشاوره حقوقی تلفنی با کمترین هزینه
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1803927792
مسائل مربوط به رشته ها در ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: مسائل مربوط به رشته ها در ویژوال بیسیک AliHSlc 22 دي 1385, 11:33سلام بچه ها... توی وی-بی 6 یه جایی گیر کردم که خودم وقتی فکرش رو می کنم خندم میگیره... چطور میشه آخرین کاراکتر یک استرینگ رو حذف کرد.... با توابع Left و Right و mid کلی سرو کله زدم... ولی دیگه مخم قفل کرد... کار به جایی نبردم... لطفا کمک کنید saalek110 22 دي 1385, 13:16یک تابع فکر کنم داریم به نام len . طول را حساب کن . بعد فکر کنم باید منهای یک کنی تا برسی به ... کدش یادم نیست. ولی فکر کنم با همین حل بشه. mosyhey 22 دي 1385, 13:53پیرو سخنان جناب saalek Left$(text_str, Len(text_str) - 1) AliHSlc 22 دي 1385, 14:20دست گلتون در نکنه.... والا قبل از اینکه جناب سالک بگن ،این Len رو فراموش کرده بودم.... از یه راه دیگه کارم رو راه انداختم... ولی فکر کنم نتیجش همینه intlen = (len(var)) Mid(sqlstr, 1, IntLen - 1) به قول معروف ... تاپیک قفل شد... ولی ما که نمیتونیم قفل کنیم...کار از ما بهترونه :wink: saalek110 22 دي 1385, 14:29اتفاقا من هم روزی که داشتم مسئله مشابه همین رو حل می کردم همین روند را طی کردم. یعنی کلی با مید و رایت و لفت ور رفتم تا یکی لن را گفت. ---------------------------------------------------- مطالبی که در ادامه این پست می آید ماهها بعد اضافه شده. 2 String Manipulation 2.1 Asc 2.2 Chr 2.3 Len 2.4 Left 2.5 Right 2.6 Mid (Function) 2.7 Mid (Statement) 2.8 Trim 2.9 LCase 2.10 UCase 2.11 String 2.12 Space 2.13 StrConv Len Returns the length of a given string or 0 for Empty. Usage Len(expression) expression = a string or Empty Example mystring = InputBox(“Enter a string to test”) length = Len(mystring) MsgBox “Length of the string is “ + length e.g. where mystring is “Hello”, length will be 5. Left Returns a given number of characters from the left hand side of a string Usage Left(string,x) string = string to use x = number of characters Example mystring = InputBox(“Enter a string”) mystring = Left(mystring, 4) MsgBox “First four characters of your input are “ + mystring e.g. where the input mystring is “Hello”, the output mystring will be “Hell” Right Returns a given number of characters from the right hand side of a string Usage Right(string, x) string = string to use x = number of characters Example mystring = InputBox(“Enter a string”) mystring = Right(mystring, 4) MsgBox “Last four characters of your input are “ + mystring e.g. where the input mystring is “Hello”, the output mystring will be “ello” Mid (Function) Returns a given number of characters from the middle of a string Usage Mid(string, start, length) string = string to use start = character to start at (1 is the first character) length = number of characters Example mystring = InputBox(“Enter a string”) mystring = Mid(mystring, 2, 3) MsgBox “The second, third, and fourth characters of your input are “ + mystring e.g. where the input mystring is “Hello”, the output mystring will be “ell” Mid (Statement) Sets a given number of characters in the middle of a string equal to the same number of characters from the beginning of another string Usage Mid(mystring, start, length) mystring = the string to take characters from start = character to start at (1 is the first character) length = number of characters Example mystring = InputBox(“Enter a string”) Mid(mystring, 2, 3) = "abcd" MsgBox “Your string with abc as the second, third, and fourth characters of your input are “ + mystring e.g. where the input mystring is “Hello”, the output mystring will be “Habco” Trim Removes leading and trailing spaces from a string Usage Trim(string) string = string to use Example mystring = Trim(mystring) e.g. where the original value of mystring was “ Hello “, the new value of mystring will be “Hello”. LCase Converts a string to lowercase Usage LCase(string) string = string to use Example mystring = LCase(mystring) e.g. where the original value of mystring was “HELLO”, the new value of mystring will be “hello”. UCase Converts a string to uppercase Usage UCase(string) string = string to use Example mystring = UCase(mystring) e.g. where the original value of mystring was “Hello”, the new value of mystring will be “HELLO”. String Creates a string with the specified length of the specified character Usage String(length, character) length = length of string character = character to fill string with Example mystring = String(5,"a") e.g. the new value of mystring will be “aaaaa”. Space Creates a string with the specified length of spaces Usage Space(length) length = length of string Example mystring = Space(5) e.g. the new value of mystring will be “ ”. StrConv Returns a converted string as specified. Usage StrConv(string, conversion,LCID) string = string to use conversion = case to convert the sting to (lowercase: vbLowerCase, uppercase: vbUpperCase, proper case (first letter in caps): vbProperCase) LCID = optional. The LocaleID, if different than the system LocaleID. Example mystring = StrConv(mystring, vbProperCase) e.g. where the original value of mystring was “HELLO”, the new value of mystring will be “Hello”. pa_darya 04 مرداد 1386, 14:08میشه در مورد این تابع واسم توضیح دهید cstr(time)یعنی چه؟ MDP 04 مرداد 1386, 14:43این تابع cast به String هستش! یعنی هرچی بگیره تبدیل به رشته میکنه! .:مسعود:. uu99 15 بهمن 1386, 01:05سلام خدمت تمامی دوستان عزیز. بابت زحمات شما بینهایت سپاسگزارم. از وقتی عضو این انجمن شدم، خیلی از مطالب شما استفاده کردم و یاد گرفتم . خسته نباشید. اما سوال : داخل یک جعبه متن Text Box کاربر باید 16 کاراکتر وارد کنه .این 16 کاراکتر هم میتونه عدد داشته باشه و هم حرف. سوال اول: کاراکتر های حرفی محدود هستند.یعنی کاربر فقط باید از این حروف استفاده کنه: A,B,C,D,E,F . چطور میتونم کاربر رو محدود کنم تا کاراکتری نادرست وارد نکنه؟ سوال دوم : میخوام با زدن یک دکمه کاراکترهای 7و8 ،نیز کاراکترهای 15 و 16 حذف شوند و مابقی در یک جعبه متن دیگه نمایش داده بشوند. مثال: از دوستان عزیز، درخواست راهنمایی دارم. با تشکر فراوان i_lover3000 17 بهمن 1386, 00:40سلام خدمت تمامی دوستان عزيز بابت زحمات شما بينهايت سپاسگزارم از وقتی عضو اين انجمن شدم، خيلی از مطالب شما استفاده کردم و ياد گرفتم خسته نباشيد اما سوال: داخل يک جعبه متن Text Box . کاربر بايد 16 کاراکتر وارد کنه .اين 16 کاراکتر هم ميتونه عدد داشته باشه و هم حرف سوال اول: کاراکتر های حرفی محدود هستند.يعنی کاربر فقط بايد از اين حروف استفاده کنه : A,B,C,D,E,F . چطور ميتونم کاربر رو محدود کنم تا کاراکتری نادرست وارد نکنه؟ سوال دوم : ميخوام با زدن يک دکمه کاراکترهای 7و 8 ،نيز کاراکترهای 15 و 16 حذف شوند و مابقی در يک جعبه متن ديگه نمايش داده بشوند. مثال : مثل اینکه یه پست پاک شده ؟؟؟ یه نفر پست بالا رو زده بود و دو تا سوال کرده بود اما حالا مثل اینکه پستش پاک شده حالا به هر حال من سوالاشو جواب دادم و جوابو دو پیوست براش گذاشتم saalek110 17 بهمن 1386, 13:40با سلام. سعی کنید سئوالات را در تاپیکهای جدا مطرح کنید. برای سئوال یک خود: پاسخ سئوال این تاپیک را ببینید: محدود کردن کاربر به وارد کردن عدد ( نه حروف) در TextBox در ویژوال بیسیک () ببینید می توانید چیزی را که می خواهید را با آن کد بسازید. بحث سئوال یک خود را یا آنجا یا در تاپیک جدیدی مطرح کنید. برای سئوال دوم هم از کد زیر کمک بگیرید: Private Sub Command 1_Click() Text2.Text = Mid(Text1.Text, 6, 2) End Sub کد بالا 2 حرف از رشته اول را با شروع از نقطه 6 در رشته دوم قرار می دهد. توابع دیگر: Left Val Right Len در تاپیک : آموزش ویژوال بیسیک توسط حمید احمدی () همه اینها بحث شده. uu99 17 بهمن 1386, 15:38سلام. saalek110 ، ()دوست بزرگوار و مدیر محترم ، ()خسته نباشید . حقیقت این است که تا حالا در هر انجمنی رفتم، از کاربران درخواست میکردند که تاپیک اضافی باز نکنند و سوالات در یک تاپیک مجزا پرسیده میشود. از اینکه باعث بی نظمی در انجمن شدم، عذر میخوام بابت راهنمایی کامل و جامع ،بینهایت ممنون . دست شما درد نکنه! ___________________________________________ دوست عزیزم، i_lover3000 از محبت شما هم سپاسگزارم . دستتون درد نکنه موفق باشید با تشکر uu99 29 بهمن 1386, 20:15سلام در ویژوال بیسیک باید رشته را داخل دوتا علامت "" قرار بدهیم . حالا اگه بخواهیم همین علامت ، اونم به همین شکل (یعنی 2تا باهم) داخل خود رشته حضور داشته باشند . یعنی این علامت جزئی از رشته ما باشه . اینو چجوری باید به ویژوال بیسیک بگیم ؟ با تشکر saalek110 30 بهمن 1386, 02:42اگر منظور شما را درست متوجه شده باشم فکر کنم کد زیر مشکل را حل کند: Print " "" text "" " Text1.Text = " "" text "" " uu99 30 بهمن 1386, 21:00اگر منظور شما را درست متوجه شده باشم فکر کنم کد زیر مشکل را حل کند: Print " "" text "" " Text1.Text = " "" text "" " سلام ممنونم جناب saalek110 . درست شد. باید یک فضای خالی قرار داشته باشه تا خطا نگیره . the_king 01 اسفند 1386, 02:43باید یک فضای خالی قرار داشته باشه تا خطا نگیره . (در این متن من از نام Quot برای کاراکتر " (Quotation) استفاده کردم که در فارسی به عنوان علامت نقل قول بکار می رود.) نه جانم، منظور saalek110 عزیز رو اشتباه متوجه شدید، اون فاصله ها را درج کردند تا بخوبی نحوه درج Quot مشخص بشه وگرنه اصلا نیازی به فاصله نیست. اصل کار ساده است، در داخل رشته های String به جای هر Quot یعنی " دو Quot درج میشه یعنی "". این دقیقا همانند همان حالتی که برای درج کاراکتر در زبان سی داریم و درون رشته های زبان سی به صورت درج می شود. مثلا من می خواهم یک رشته ای بسازم که داخل فقط یک کاراکتر " باشد، پس کد من اینچنین خواهد بود : MyString = """" دو Quot سمت چپ و راست که به هر حال وجود دارند، دو Quot وسط هم معادل یک کاراکتر " است، یعنی در کل در این عبارت چهار Quot وارد کرده ام تا خروجی مورد نظر حاصل شود. در مثالی دیگر من می خواهم عبارت Test را در میان دو Quot قرار دهم یعنی بصورت "Test" ، پس کد من اینچنین خواهد بود : MyString = """Test""" در هر دو سر رشته سه Quot وجود دارد که یکی همان مشخص کننده محدوده رشته است که همیشه وجود دارد و دو Quot دیگر به یک کاراکتر " تبدیل می شوند. در مثال سوم من فرض می کنم که رشته ای به نام MyString دارم که عبارتی در آن وجود دارد، حالا می خواهیم به دو سر آن Quot را اضافه کنیم : MyString = """" & MyString & """" کد ASCII کاراکتر " برابر 34 است پس می توانیم این کد را به این شکل هم بنویسیم : MyString = Chr(34) & MyString & Chr(34) uu99 01 اسفند 1386, 10:52سلام نه جانم، منظور saalek110 عزیز رو اشتباه متوجه شدید، اون فاصله ها را درج کردند تا بخوبی نحوه درج Quot مشخص بشه وگرنه اصلا نیازی به فاصله نیست. با تشکر از شما MyString = """Test""" ولی به این شکلی که شما نوشتین خطا میگیره:razz: saalek110 01 اسفند 1386, 13:59کد زیر بدون خطا اجرا می شود: Private Sub Command 1_Click() MyString = """Test""" Text1.Text = """Test""" End Sub و در تکست باکس عبارت : "Test" چاپ می شود. Majid 3D 01 اسفند 1386, 19:26lbltranslate.Caption = Replace(txtinput, "hello", "salam") lbltranslate.Caption = Replace(txtinput, "father", "pedar") کد بالا چه مشکلی داره ؟ سلام رو به جای hello جایگزین میکنه ولی پدر رو جایگزین father نمیکنه ! saalek110 01 اسفند 1386, 19:50من که این جوری امتحان کردم مشکلی نبود: Private Sub Command 1_Click() Label1.Caption = Replace(Text1.Text, "hello", "salam") End Sub یعنی وقتی در تکست باکس کلمه hello موجود بود در لیبل به جای آن کلمه salam را جایگزین می کرد. Majid 3D 01 اسفند 1386, 21:59این رو که خودمم میدونستم ... ولی نگا کن، فرض کن میخوای چندین دستور ریپلیس بدی ... اگه روی دکمه ی کامند کلیک شد مثلا سه تا کلمه رو پیدا کنه و با سه تای دیگه جایگزین کنه. pilevar 01 اسفند 1386, 22:24خودت تابعشو بنویس. کاری نداره. اول باید بگی رشته رو پیدا کنه به جای اون پارامتر دوم رو بزاره. من تا نیم ساعت دیگه مینوسم برات میزارم. پیروز باشید saalek110 01 اسفند 1386, 22:35من این طوری نوشتم تا هر دو کلمه جایگزین شود: Private Sub Command 1_Click() mystring = Replace(Text1.Text, "hello", "salam") Label1.Caption = Replace(mystring, "father", "pedar") End Sub pilevar 01 اسفند 1386, 22:55خدمت شما: ببین خوب جواب میده: Function rep(stname As String, st1 As String, strep As String) As String k = stname For i = 1 To Len(k) w = Mid(k, i, Len(st1)) If st1 = w Then m = Left(k, i - 1) n = Right(k, (Len(k) - Len(st1)) - i + 1) k = m & strep & n End If Next rep = k End Function آرگومان اول اسم متغییر مادر هست(رشته) آرگومان دوم کلمه ای که جستجو کند آرگومان سوم کلمه ای که میخواهید جایگزین شود. اسم تابع هم rep فراخوانی: a=rep(Text1.Text, "hello", "salam") هرچی hello هست در text1.text مزاره salam موفق و پیروز باشید HASHEMMOMEN 04 اسفند 1386, 01:09سلام خسته نباشید چه جوری میتونم یک عدد رو از یک تکست گرفت و اونو وارو نه نشون داد ممنون میشم the_king 04 اسفند 1386, 02:16Text.Text = StrReverse(Text1.Text) saalek110 04 اسفند 1386, 02:52من داشتم دنبال جواب سئوال دوستمان می گشتم این سایت را پیدا کردم. به نظرم خیلی مفیده. HASHEMMOMEN 05 اسفند 1386, 01:32ممنون دوست عزیز از راهنمایی خوب شما فقط فکر کنم 1 رو جا مونده بود نه؟ ua 741 19 اسفند 1386, 07:41باسلام آیا در vb تابعی هست که با استفاده از اون یک رشته رو در یک رشته دیگه جستجو کنیم؟ یا اگه وجود نداره اگه کسی سورسی در این مورد بذاره ممنون میشم the_king 19 اسفند 1386, 13:26تابع InStr برای جستجوی موقعیت یک رشته در رشته دیگری بکار می رود : InStr([start, ]string1, string2[, compare]) start موقعیت ای را مشخص می کند که جستجو از آن آغاز می شود، مثلا مقدار 1 مشخص کننده جستجو از اول رشته است. این پارامتر اختیاری است و اگر جستجو از اول رشته انجام می شود می توان آنرا وارد نکرد. string1 رشته ای است که جستجو باید در درون آن آغاز شود. string2 رشته ای است که باید دنبال آن بگردد. compare مشخص کننده نوع جستجو است، اگر مقدار آن 0 (معادل vbBinaryCompare) باشد، جستجو بصورت باینری انجام می شود. مثلا در جستجوی باینری کاراکتر a از کاراکتر A بزرگتر است و رشته "ALI" با رشته "ali" یکسان نیستند. اگر مقدار compare برابر 1 (معادل vbTextCompare) باشد، جستجو بصورت متنی انجام می شود. مثلا در جستجوی متنی کاراکتر a با کاراکتر "A" معادل است و رشته "ALI" با رشته "ali" یکسان هستند. compare یک پارامتر اختیاری است و اگر وارد نشود مقدار پیشفرض آن 0 (معادل با vbBinaryCompare) است. اگر تابع رشته مورد نظر را پیدا کند شماره اولین کاراکتر آنرا در رشته مقصد بر می گرداند و اگر پیدا نکند مقدار صفر را بر می گرداند. مثلا اگر بخواهیم در رشته "This is a test" رشته "is" را از اولین کاراکتر به بعد جستجو کنیم می نویسیم : Pos = InStr(1, "This is a test", "is") یا بصورت خلاصه تر می نویسیم : Pos = InStr("This is a test", "is") مقدار Pos بعد از اجرای این دستور برابر 3 خواهد بود. اگر بخواهیم در رشته "This is a test" رشته "is" را از چهارمین کاراکتر به بعد جستجو کنیم می نویسیم : Pos = InStr(4, "This is a test", "is") مقدار Pos بعد از اجرای این دستور برابر 6 خواهد بود. تابع InStrRev جستجو را برخلاف جهت InStr از آخر رشته به اول آن انجام می دهد : InstrRev(string1, string2[, start[, compare]]) پارامتر های آن مشابه همنام آنها در InStr هستند با این تفاوت که مقدار پیشفرض start برابر منفی یک (1-) است و در اینصورت جستجو از آخرین کاراکتر رشته string1 شروع می شود. اگر بخواهیم در رشته "This is a test" رشته "is" را از آخر رشته به سمت اول آن جستجو کنیم می نویسیم : Pos = InStrRev("This is a test", "is") مقدار Pos بعد از اجرای این دستور برابر 6 خواهد بود. اگر بخواهیم در رشته "This is a test" رشته "is" را از چهارمین کاراکتر رشته به سمت اول آن جستجو کنیم می نویسیم : Pos = InStrRev("This is a test", "is", 4) مقدار Pos بعد از اجرای این دستور برابر 3 خواهد بود. mohammad_mfs 25 اسفند 1386, 15:34("kandid 1 = InputBox("kandid 1:", "kandidha saalek110 25 اسفند 1386, 15:46اگر منظورتان را درست متوجه شده باشم این طور: kandid 1 = UCase(InputBox("kandid 1:", "kandidha")) kemiaonline 26 اسفند 1386, 15:32سلام تورو خدا جوابمو بدید من میخوام بدونم کار str چیه اگه لطف کنین و در باره تابع str تعریف کنین خیلی ممنون میشم مثلا" text1.text=text1.text+str(I) خیلی جاها اینو دیدم اما هنوز نمیدونم str چیه و چیکار میکنه اصلا" معنیش چیه saalek110 26 اسفند 1386, 15:52نقل از : CStr and Str$. These slow functions are used to convert other data types to a string. You typically use them to convert a numeric value into a string. CStr is much faster than Str$. (Tested for integer input value 32.) You can save time by replacing calls to Str$ with CStr. This is not a straightforward task, though, because CStr and Str$ return different values. CStr returns a localized string, while Str$ returns a non-localized one. What is more, Str$ prefixes positive values with a space. As an example, CStr(1.2) returns "1,2" in several European locales. Str$(1.2) always returns " 1.2". Thus, you can trust that Str$ always works the same way, while CStr works differently in different locales. If you simply replace calls to Str$ with CStr, your program may fail later if it fails to interpret the resulting localized string. The following table compares Str and CStr in the Finnish locale. The results will look similar in several non-English locales. یک برنامه با دو باتون و یک تکست باکس بسازید و با کد زیر مطابق کنید: Option Explicit Dim I As Integer Private Sub Command 1_Click() I = 25 Text1.Text = Text1.Text + Str(I) End Sub Private Sub Command 2_Click() I = 25 Text1.Text = Text1.Text + I End Sub در باتون 2 خطای Type mismatch را دریافت می کنید. زیرا دارید یک عدد را با رشته جمع می کنید و در یک رشته می ریزید. و ممکن نیست. پس باید اول عدد به رشته تبدیل شود. saalek110 26 اسفند 1386, 19:17تبدیل عدد کسری به اعشاری من می خواهم از خودم این برنامه را بنویسم. یا کمک گیری از سایت: ابتدا یک باتون و دو تکست باکس اضافه کنید به فرم. کد زیر: Private Sub Command 1_Click() Text2.Text = Text1.Text End Sub باعث میشه هر چی در تکست باکس 1 باشه بره تو تکست باکس دوم. کد زیر: Private Sub Command 1_Click() Text2.Text = InStr(Text1.Text, "/") End Sub وقتی که در تکست باکس اول 12377/34 باشد در تکست باکس دوم عدد 6 را می نویسه یعتی ششمی ممیز است. کد زیر : Option Explicit Dim mahale_momayez As Integer Private Sub Command 1_Click() mahale_momayez = InStr(Text1.Text, "/") Text2.Text = Left(Text1.Text, mahale_momayez - 1) End Sub وقتی در تکست 1 مقدار 3456/265 را داشته باشیم در تکست باکس دومی عدد 3456 را می نویسد. برنامه نهایی: Option Explicit Dim mahale_momayez As Integer Dim samte_chape_momayez As Integer Dim samte_raste_momayez As Integer Dim toole_reshteh As Integer Private Sub Command 1_Click() mahale_momayez = InStr(Text1.Text, "/") samte_chape_momayez = Val(Left(Text1.Text, mahale_momayez - 1)) toole_reshteh = Len(Text1.Text) samte_raste_momayez = Val(Right(Text1.Text, toole_reshteh - mahale_momayez)) Text2.Text = samte_chape_momayez / samte_raste_momayez End Sub نتیجه اجرا: با دادن یک چهارم در تکس باکس دوم بیست و 5 صدم را دریافت می کنیم. اشکالات برنامه: اگر عدد ممیز نداشته باشد خطا میده. اگر به جای عدد حروف باشه خطا میده. میشد راحت اینها را با توابع و یا شرط اصلاح کرد که من نکردم. فقط خواستم تمرینی باشه اینجا و دوستان خودشان تغییرات لازم را بدهند. شایدم بشه خیلی ساده تر این برنامه را نوشت. من فقط خواستم تمرینی با این توابع بکنم. تابع val : Val(S) returns the numeric value contained in S (non-localized). در خط : Text2.Text = samte_chape_momayez / samte_raste_momayez شاید باید می نوشتیم: Text2.Text = str ( samte_chape_momayez / samte_raste_momayez ) یعنی عدد را باز به رشته تبدیل کنیم. تابع str : Str$(x) returns the string representation of x (not localized). ولی انگار وی بی خودش اتوماتیک تبدیل را انجام می دهد. kemiaonline 26 اسفند 1386, 23:03سلام خواهشن کمکم کنید من میخوام یه نفر برام در مورد کد های اسکی تعریف کنه و کاربرد اونها رو برام بگه و نحوه ی استفاده از اون ها کلا" میگم از این کد های اسکی هیچی نمیدونم و دوست دارم هرچیزی در مورد کدهای اسکی وجود داره بدونم بگید چه کار هایی انجام میده و چه جوری **************** در ضمن من همه چیز برنامه نویسی رو قاطی کردم چون برنامه نویسی رو نامظنم خوندم الان سر از پا نمیشناسم و نمیدونم با برنامه نویسی باید چیکار کرد یعنی همین که چشمم به یه کد جدید میخوره وحشت میکنم kemiaonline 26 اسفند 1386, 23:05لطــــــــــــــــــــفا" خواهش میکنم هرکی میخواد توضیح بده به زبون ساده و البته صحیح همراه با مثال بگه دیگه عرضی ندارم ممننون میشم kemiaonline 27 اسفند 1386, 00:29سلام جناب سالک همونطور که فرموده بودید تایپیک جداگانه ای زدم تا همه استفاده کنن :D در باره ی تابع str داشتم میگفتم شما گفتید عدد رو به رشته تبدیل میکنه میخواستم بدونم در خصوص دستورایجاد حلقه هم همینکارو میکنه مثلا" for i = 0 to 100 step 5 text1.text=text1.text+str(I) k اون k بالا رو همینجوری نوشتم تا پرانز I درست شه next i کار str در کد بالا چیه؟ و جالبه اگه تابع satr رو ننویسیم برنامه خطا میده یعنی در بالا str عدد ها رو به رشته تبدیل میکنه و بعد در تکست یک قرار میده ؟ saalek110 27 اسفند 1386, 01:26سلام. کدها را در تگ کد قرار بدهید. [ code ] کدها را اینجا پیست کنید. البته من بین کاراکترها فاصله گذاشتم تا عمل نکنه. ولی شما همه کاراکترها را چسبان بنویسید. [ / code] در ادیتور کامل علامت # را که بزنید خودش این تگ باز و بسته را ایجاد می کنه و نیازی به تایپ نیست. ------------------------------ اما راجع به سئوال شما: تمرین اول: یک باتون و یک تکست باکس به فرم بیافزایید و کد زیر را وارد کنید: Option Explicit Dim I As Integer Private Sub Command 1_Click() For I = 0 To 100 Step 5 Text1.Text = Text1.Text + Str(I) Next I End Sub نتیجه اجرا: تمرین دوم: Option Explicit Dim I As Integer Private Sub Command 1_Click() For I = 0 To 100 Step 5 Text1.Text = I Next I End Sub نتیجه اجرا: عدد 100 را خواهیم داشت در تکست باکس . بدون خطا. تفاوت تمرین اول و دوم اینه که در دومی تبدیلات اتوماتیک انجام میشه. یعنی شاید فرض میشه تکست باکس عددی است. ولی در تمرین اول نمیشه رشته را با عدد جمع کرد. پس اول باید هر دو رشته بشوند. kemiaonline 27 اسفند 1386, 02:34ممنون جالبه Option Explicit Dim I As Integer Private Sub Command 1_Click() For I = 0 To 100 Step 5 Text1.Text = text1.text+I Next I End Sub این برنامه خطا میده ولی علتش چیه؟
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1371]
-
گوناگون
پربازدیدترینها