Room Arranger نرم افزاری عالی برای طراحی سه بعدی اتاق،آپارتمان و طبقه با ظاهر کاربری بسیار ساده می باشد. کافی است ابتدا با ابزارهای نرم افزار آشنا شوید و بعد از دقایقی به راحتی نسبت به طراحی خود اقدام نمایید. از نکات مهم این نرم افزار که مسلماً برای معماران حائز اهمیت است،رعایت مقیاس در طراحی و وجود اندازه در طرح ها می باشد از این رو طراحی ایجاد شده کاملاً قابل استفاده استفاده و ارائه به کارفرما و مشتری است. نرم افزار با دارا بودن کتابخانه ای کامل از انواع مبلمان،طرح دیوارها،طرح سقف،نور پردازی،اشیاء،گیاهان،رنگ،بافت ها و… هیچ کمبودی در طراحی ظاهری از خود ندارد. لازم به ذکر است نرم افزار از استاندارد VRML پشتیبانی میکند. طرح ساخته شده قابل پرینت و یا ارائه به صورت تصویری در دنیای وب نیز می باشد. نرم افزاری دارای بخشی به نام Wall Editor می باشد که بسیار کاربردی است. در این بخش پلان خودتان را به نرم افزار ارائه میدهید و کار دیوار گذاری توسط خود نرم افزار به صورت اتوماتیک انجام خواهد شد و شما کافی است نسبت به طراحی داخلی آنها اقدام نمایید. برای مشاهده طرح خودتان میتوانید هرلحظه طرح را در زاویه ای مختلف مشاهده نمایید. برای پرینت و خروجی گرفتن نیز همینطور خواهد بود و از هر زاویه ای میتوانید خروجی تهیه کنید. رمز فایل: www.downloadha.com لینک دانلود – 8.88 مگابایت | لینک کمکی
Public Sub Window_OnLoad() 'Set LoadChar = AgentControl.Characters.Load ("Merlin", _ ' "C:Windowsmsagentcharsmerlin.acs") 'Change to proper root depending on OS. Set LoadChar = AgentControl.Characters.Load ("Merlin") On Error Resume Next Set Merlin = AgentControl.Characters ("Merlin") Merlin.Show Merlin.Speak ("jomleye shoma") Merlin.MoveTo 100,500 Merlin.GestureRight Merlin.Speak ("jomleye shoma") Merlin.MoveTo 500,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,10 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 300,300 Merlin.Speak ("jomleye shoma") Merlin.MoveTo 200,450 Merlin.Speak ("adrese maile shoma") Merlin.MoveTo 500,10 Merlin.Speak ("adrese webloge shoma") End Sub Sub AgentControl_DragStart (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("Alert") Merlin.Speak ("Pau=800vol=65535darde eshgh hamishe marashekast dad ") End Sub Sub AgentControl_DragCOmplete (ByVal ID, ByVal Button, ByVal Shift,ByVal x, ByVal y) Merlin.Play ("RestPose") End Sub