شما به عنوان مهمان از سایت دیدن می فرمایید.برای دسترسی به دیگر امکانات لطفا وارد سایت شوید!
من براي يادگيري يك زبان برنامه ن?يسي بارها در كلاسهاي آم?زشي شركت كردم ?لي هيچ?قت نت?نستم ادامه بدم. علت هم اين ب?د كه هميشه در تعريفات بيت ? بايت ? Single ? Double ? ... 5 -6 جلسه ا?ل گم ميشدم ? از كليت م?ض?ع فراري!!! يكي ني?مد به ما بگه كه بن?يس
"Msgbox"Hello
تا يه box ببيني كه ت?ش ن?شته Hello . ?اسه همين اينجا نه تعريفي داريم ? نه بيت ? بايتي . فقط يه سري راهنمايي براي كدن?يسي در محيط ات?كد تا به سريعترين شكل ممكن نتايج را به شكل ملم?س ببينيد. ضمنا يادت?ن باشه از نم?نه كد هاي خ?د ات?كد غافل نش?يد. خيلي كمكت?ن خ?اهد كرد.
درس ا?ل – ترسيم يك نقطه در مختصات دلخ?اه :
براي دسترسي به محيط برنامه ن?يسي Alt+F11 را بزنيد يا از من?ي Tools\Macro\Visual Basic Editor به آن برسيد!
يك سابر?تين دلخ?اه بسازيد يعني بن?يسيد :
Sub Example_AddPoint()
End Sub
End Sub
اگه نميد?نيد سابر?تين چيه مهم نيست. فقط اين? يادت?ن باشه كه كد شما بايد در?ن سابر?تين باشه تا اجرا بشه. اسم سابر?تين هرچيزي ميت?نه باشه جز دست?رات زبان برنامه ن?يسي . مثلا بجاي Example_AddPoint ميت?نيد بن?يسيد PP ? يا هرچيز ديگه. حالا ادامه كد را بص?رت زير در?ن سابر?تين بن?يسيد :
Sub Example_AddPoint()
Dim pointObj As AcadPoint
Dim location(0 To 2) As Double
location(0) = 5
location(1) = 5
location(2) = 0
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
End Sub
Dim pointObj As AcadPoint
Dim location(0 To 2) As Double
location(0) = 5
location(1) = 5
location(2) = 0
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
End Sub
در خط س?م آبجكتي بنام PointObj با خص?صيت نقطه ايجاد ميش?د. اين خط به ات?كد ميفهماند كه از اين به بعد با PointObj به عن?ان يك نقطه برخ?رد كند. نقطه با سه مشخصه معرفي ميش?د. خط چهارم آرايه اي بنام Location تعريف ميكند كه بت?انيم مشخصات نقطه را در?ن آن بريزيم. در خط?ط ششم تا هشتم مختصات نقطه در?ن آرايه Location ريخته ميش?د ? خط دهم به ات?كد فرمان ترسيم نقطه را ميدهد. حالا F5 را بزنيد تا برنامه اجرا ش?د ? نقطه ر ابرايتان ترسيم كند. به همين سادگي.
در درس بعدي نح?ه ترسيم مجم?عه اي از نقاط كه در?ن يك فايل متني قرار دارند آم?زش داده ميش?ند.
س?الات خ?دت?ن را در كامنتها مطرح كنيد تا همه ببينند ? اگه اينجا نن?شتيد ايميل بزنيد.
مطالب مرتبط
شما به عنوان مهمان از سایت دیدن می فرمایید.برای دسترسی به دیگر امکانات لطفا وارد سایت شوید!
#2 توسط: هم?ن جلیل?ند
28 مهر 1386 20:07
عالیه
یه عمری ب?د دنبالش ب?دم ادامه بده...
یه عمری ب?د دنبالش ب?دم ادامه بده...
#3 توسط: محمد
5 آبان 1386 15:01
PERFECT
#4 توسط: مازیار سیدن?اد
8 آبان 1386 03:39
سلام
ای?ل
من هم پارسال یه مدت کلاس ?ی??ال بیسک رفتم تا بت?نم در محیط ات?دسک ، برنامه ن?یسی کنم . اما ....
D:
ای?ل
من هم پارسال یه مدت کلاس ?ی??ال بیسک رفتم تا بت?نم در محیط ات?دسک ، برنامه ن?یسی کنم . اما ....
D:
#5 توسط: سيد سعيد طباطبايي
14 آبان 1386 16:53
علاقه دارم در سايت شما عض? ش?م
#6 توسط: raoof
4 آذر 1386 17:56
خ?شحال هستم که این کار? شر?ع کردی من هم 3 سال هستش که با vba ات?کد کار میکنم .
اطلاعات
اگر شما عضو باشيد، فقط مي توانيد نظر ارسال کنيد
تبلیغات
جستجو
منوي اصلي
فيدخوان
ورود به سيستم
برترین مطالب
سايت هاي مرتبط
فیدبرنر
اطلاعات سایت
بازدید های امروز : 294 مرتبه
بازدید های دیروز : 1084 مرتبه
مجموع بازدید ها : 1637704 مرتبه
کاربران حاضر : 5 نفر
بیشترین بازدید همزمان : 9 نفر
بازدید های دیروز : 1084 مرتبه
مجموع بازدید ها : 1637704 مرتبه
کاربران حاضر : 5 نفر
بیشترین بازدید همزمان : 9 نفر
| برترین نویسندگان: | |||
| 1 | admin | 190 | |
| 2 | samaee | 23 | |
| 3 | khosravi | 15 | |
| 4 | zaman | 13 | |
| 5 | Gabriel | 10 | |
| 6 | nasab | 8 | |
| 7 | mahdinet | 7 | |
| 8 | marahimi | 4 | |
| 9 | snekooei | 4 | |
| 10 | sadegh98 | 3 | |
مطالب سایت: |
| امروز: 0 |
| این ماه: 0 |
| در کل: 288 |
| کاربران: |
| عضویت های امروز: 0 |
| این ماه: 0 |
| کل کاربران: 1600 |
پیشنهاد ما
#1 توسط: پيمان
28 مهر 1386 14:44