PDA

View Full Version : سوال: هر چه در تكست نوشته شده عمل بشه ؟



sinashahab
پنج شنبه 12 دی 1387, 17:36 عصر
سلام
يعني يك تكست باكس مي زارم و مي خواهم هر چي توي اون بود اجرا بشه .
مثلا من برنامه رو اجرا مي كنم و در تكست مي نويسم : end
حالا برنامه بسته شه .
در كل هر چي در تكست نوشتم اجرا بشه . :گیج:
ممنون

r_oscar2007
پنج شنبه 12 دی 1387, 18:28 عصر
Private Sub Text1_Change()
If Text1.Text = "end" Then End
End Sub

syntiberium
پنج شنبه 12 دی 1387, 18:57 عصر
با سلام . دوست عزیز شما اصلا میدونین ویژوال بیسیک چه جوری برنامه هاشو می سازه ؟ ویژوال بیسیک میاد به مقدار دستوراتی که ما به صورت متنوع نوشتیم به حجم فایلمون اضافه می کنه پس اگر ما یک برنامه بنویسیم که از یک سری دستورات استفاده نشده باشه و به کامپیوتر شخص دیگری آن را منتقل کنیم نمی توانیم از آن text بخواهیم که آن دستور را اجرا کنه . پس اگر شما می خواهید چنین کاری انجام دهید باید تمام دستوراتی که در help برنامه تان از آن مثال زدید یا می خواهید بزنید باید مثل یک کامپایلر دستوراتی را که داخل text نوشته شده را دونه به دونه پردازش کنید . پس باید برای اجرا شدن هر دستور برنامه بنویسید تا ویژوال بیسیک بتواند آن را به حجم فایل شما اضافه کند . خلاصه کنم اینکه اگر نمی خواهید برنامه درست و حسابی بنویسید از خیر این کار بگذرید :لبخند: . با تشکر .

behzad_gh
جمعه 13 دی 1387, 05:07 صبح
متاسفانه این کار در وی بی ۶ امکانپذیر نیست . و اما دلیل: چون وقتی شما برنامه رو اجرا میکنید قبل از اجرا کامپایلر کدها رو به زبان ماشین تبدیل میکه و بعد اون کدهای تولید شده اجرا میشن. خب حالا وقتی شما برنامتون رو اجرا میکنید دیگه کامپایلری در کار نیست که کدها رو برای سیستم ترجمه کنه.
اما من همین قدر اطلاع دارم که در .net به دلیل ساختار متفاوت اجرای نرم افزار این کار عملی هست.

mpmsoft
جمعه 13 دی 1387, 09:17 صبح
دوستان چرا از چیزی که اطلاع ندارید دیگران رو گمراه می کنید

دوست عزیز این کار شدنی هست
به نمونه کدی که برات ضمیمه کردم دقت کن
با این کد حتی می تونی فرمول محسباتی برای کنترلهای فرمت بنویسی

منابع بسیار مفیدی برای این منظور هست می تونی در گوگل سرچ کنی

.:KeihanCPU:.
جمعه 13 دی 1387, 11:12 صبح
آیا میشه لیستی از آبجکتها و کدها رو که خود Vb تعریف کرده بهش داد.
مثلا یه فایل که همراه Vb6 نصب میشه و حاوی مجموعه ای از این کدهاست

mpmsoft
جمعه 13 دی 1387, 16:26 عصر
بله امکانش هست
شما می تونید تمامی آبجکتهای فرمتون رو کنترل کنید


من از این روش برای طراحی یک سیستم آمار گیری و فرم ساز استفاده کردم و مشکلی نداشتم

syntiberium
جمعه 13 دی 1387, 18:12 عصر
با سلام . دستتون درد نکنه که این برنامه را گذاشتین فقط اگر می شه یکمی بیشتر راجع بهش توضیح بدین . مثلا چطوری error یابی کنیم یا از error دادن جلو گیری کنیم و ..... . خیلی ممنون می شم اگه بیشتر توضیح بدین یا لینک توضیح فارسی معرفی کنید :کف: . با تشکر .

sinashahab
شنبه 14 دی 1387, 10:45 صبح
سلام
خيلي ممنون من مي خواستم vb فارسي با قابليت كد فارسي بسازم .
حالا با اين ميشه ساخت .

Private Sub Command3_Click()
txtScript = Replace(txtScript, "ÊßÓÊ", "Text")
txtScript = Replace(txtScript, "ÚäæÇä", "Caption")
txtScript = Replace(txtScript, "Þáã", "Font")
txtScript = Replace(txtScript, "ÇäÏÇÒå", "Size")
txtScript = Replace(txtScript, "Ïßãå", "Command")

sinashahab
شنبه 14 دی 1387, 10:49 صبح
يعني تو txtscript مي نويسه :
تكست1.تكست = "sina"
بعد تو پشت برنامه تكست به text تبديل و بعد اجرا ميشه .

mpmsoft
شنبه 14 دی 1387, 14:07 عصر
يعني تو txtscript مي نويسه :
تكست1.تكست = "sina"
بعد تو پشت برنامه تكست به text تبديل و بعد اجرا ميشه

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


SC.AddObject "تکست 1", Text1, True