ایجاد چند شیی در Runtime

splinter cell

Well-Known Member
سلام
من میخوام چند تا تکست رو در رانتایم برنامه ایجاد کنم و کدی شبیه این رو نوشتم
کد:
For(#i=1,5)
  #x = #i*5
  #y = #i*2
  $letter = "hello"+ #i
  Create("TEXT" ,$letter)
  Obj("TEXT","Form1").Move(#x,#y)
End

ولی پیام خطا میده


توی راهنمای آپادانا این کد رو پیدا کردم
کد:
For (#i=1,100)
  
  $name="mytext"+#i
  
  Create("TEXT",$name)
  
  Obj($name).Color("FF0000")
  
End
ولی وقتی این کد رو با زدن یک دکمه اجرا میکنم فقط یک تکست ایجاد میشه که رنگ اونم سیاهه نه قرمز:shock:

اگر میشه یک کم راجع به مقوله ایجاد اشیا و دسترسی به خصوصیات اونها در رانتایم توضیح بدین.
 

nevercom

کاربر متخصص انجمن مولتی مدیا بیلدر
محسن جان گمان میکنم پارامتر دوم دستور Create نام انتخابی برای شئ هست (با توجه به نمونه کد دوم)
و باید به این شکل به شئ اشاره بشه:
کد:
Obj($letter,"Form1").Move(#x,#y)
البته مطمئن نیستم چون آپادانا در دسترسم نیست، با توجه به نمونه کد دوم عرض کردم.
 

splinter cell

Well-Known Member
ممنون محمد جان
منظور من اینه همین دستوری که توی راهنمای آپادانا هم هست کار نمیکنه
نمیدونم اشکال از کد هست یا از سیستم من؟
اروری که برای کد اولی میده رو میذارم تا ببینید
 

پیوست ها

  • error.GIF
    error.GIF
    7.5 کیلوبایت · بازدیدها: 5

JavidX

Apadana Developer
سلام
من میخوام چند تا تکست رو در رانتایم برنامه ایجاد کنم و کدی شبیه این رو نوشتم
کد:
For(#i=1,5)
  #x = #i*5
  #y = #i*2
  $letter = "hello"+ #i
  Create("TEXT" ,$letter)
  Obj("TEXT","Form1").Move(#x,#y)
End
ولی پیام خطا میده


توی راهنمای آپادانا این کد رو پیدا کردم
کد:
For (#i=1,100)
  
  $name="mytext"+#i
  
  Create("TEXT",$name)
  
  Obj($name).Color("FF0000")
  
End
ولی وقتی این کد رو با زدن یک دکمه اجرا میکنم فقط یک تکست ایجاد میشه که رنگ اونم سیاهه نه قرمز:shock:

اگر میشه یک کم راجع به مقوله ایجاد اشیا و دسترسی به خصوصیات اونها در رانتایم توضیح بدین.
کد دوم ایراد داره چون باید به جای Color از FontColor استفاده میشده!! ایراد دیگه ای نداره.

کد شما هم به این شکل اصلاح میشه:
کد:
For(#i=1,5)
  #x = #i*5
  #y = #i*2
  $letter = "hello"+ #i
  Create("TEXT",$letter)
  Obj("TEXT","Form1").Move(#x,#y)
End
فاصله ی اضافه باعث میشه مفسر قاطی کنه این قبیل ایرادها به هیچ وجه توی آپادانا 2 وجود نداره تضمین 100%. چون کل متد تفسیر کد آپادانا 2 فرق میکنه.
موفق باشید
 

splinter cell

Well-Known Member
ممنونم
مشکل اون ارور با برداشتن اون فاصله برطرف شد.ولی من میخواستم چند تا شیی تکست با فاصله از هم ایجاد بشه.برای همین از حلقه استفاده کردم ولی ظاهراً فقط یکی ایجاد میشد و اونم در نقطه 0و0
و بعد فهمیدم باید کد به این شکل تغییر کنه

کد:
For(#i=1,5)
  #x = #i*5
  #y = #i*2
  $letter="hello"+ #i
  Create("TEXT",$letter)
  Obj($letter,"Form1").Move(#x,#y)
End
بهرحال تا قلق کد نویسی آپادانا هم مثل بیلدر دستم بیاد از این قبیل مزاحمتها از این حقیر خواهید دید.

ضمناً خیلی مشتاق دیدن این نسخه 2 هستیم.:rose:
 

JavidX

Apadana Developer
ممنونم
مشکل اون ارور با برداشتن اون فاصله برطرف شد.ولی من میخواستم چند تا شیی تکست با فاصله از هم ایجاد بشه.برای همین از حلقه استفاده کردم ولی ظاهراً فقط یکی ایجاد میشد و اونم در نقطه 0و0
و بعد فهمیدم باید کد به این شکل تغییر کنه

کد:
For(#i=1,5)
  #x = #i*5
  #y = #i*2
  $letter="hello"+ #i
  Create("TEXT",$letter)
  Obj($letter,"Form1").Move(#x,#y)
End
بهرحال تا قلق کد نویسی آپادانا هم مثل بیلدر دستم بیاد از این قبیل مزاحمتها از این حقیر خواهید دید.

ضمناً خیلی مشتاق دیدن این نسخه 2 هستیم.:rose:
خواهش میکنم. خوشحال شدم که مشکل برطرف شد.
البته آپادانا 2 کد نویسیش خیلی ساده تر از آپادانا 1 ه. مطمئناً کد نویسی آپادانا 1 رو یاد بگیرید آ2 براتون راحت خواهد بود.

موفق و پیروز باشید :rose:
 

جدیدترین ارسال ها

بالا