تبليغاتX
آموزش ويژوال بيسيك و برنامه های موبایل
پاسخ به سوالات آقا مجيد مهرتاش و آقا مجتبي

 

با سلام

 

چند روزي است كه بخش برنامه هاي موبايل را راه انداخته ام و ظاهرا استقبال خوبي از اين بخش نشده است .

بين انتخاب سه  گزينه زير به مشكل بر خورده ام :

 

1 – ادامه كار وبلاگ در زمينه ويژوال بيسيك و برنامه هاي موبايل

2 – ادامه كار وبلاگ فقط در زمينه ويژوال بيسيك و حذف بخش برنامه هاي موبايل

3 – تعطيلي كامل وبلاگ

 

از شما خواهش مي كنم كه نظر خود را در مورد يكي از سه گزينه بالا بفرماييد و من را در انتخاب يكي از گزينه ها ياري فرماييد . ( مخصوصا آقا بهزاد – آقا مجتبي – جناب همراه – آقا صادق – آقا يوسف – آقاي مجتبی غلامعلی زاده )

 

لطفا نظر خود را درمورد يكي از گزينه هاي بالا حتما بيان كنيد

 

و اما پاسخ به سوالات

 

آقاي مجيد مهرتاش

 

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

 

پاسخ » اصولا زبان ويژوال بيسيك قدرت چنداني در كار با شبكه ندارد و امكانات آن به استفاده از كنترل WinSock   و چند كنترل ساده ديگر محدود مي شود . براي انتقال تصاوير از طريق WinSock بهترين و سريع ترين سورس كدي را كه تابه حال تجربه كرده ام براي شما مي گذارم . اين برنامه داراي دوبرنامه كلاينت و سرور است.

 

دانلود سورس برنامه انتقال تصاوير در شبكه

 

 

آقا مجتبي

 

اگه میشه آموزش ارسال فکس از طریق vb را توضیح بدین یه کد خوب بزارین و چگونه می توان طوری کد نویسی کرد که به برنامه یک زمان بدیم و برنامه وقتی که به زمان های معین رسید خودش فکس ارسال کنه و یه کد در مورد ارسال ایمیلهای گروهی بزارید و در موردش توضیح دهید - لطفا در مورد کنترل پخش عکسهای گیف آموزش بدین.

 

پاسخ » دوست عزيز سورس كد برنامه هاي ارسال فكس و ارسال ايميل را مي توانيد از لينكهاي زير دريافت كنيد (هر كدام دو مورد):

 

دانلود سورس برنامه ارسال ايميل (سورس اول)

 

دانلود سورس برنامه ارسال ايميل (سورس دوم)

 

دانلود سورس برنامه ارسال فكس (سورس اول)

 

دانلود سورس برنامه ارسال فكس (سورس دوم)

 

 

اما كار با كنترل AnimatedGif.ocx كه در پست هاي قبل آن را براي دانلود قرارداده بودم بسيار ساده است

به اين صورت كه يك كنترل AnimatedGif  را به فرم اضافه مي كنيد و براي پخش فايل دستور زير را اجرا مي كنيد :

 

AniGif1.LoadFile "address", True

 

كه در دستور بالا  AniGif1 نام كنترل است و address آدرس فايل با پسوند Gif  و قسمت سوم يك آرگومان منطقي است كه اگر مقدار False به آن بدهيم در هنگام اجراي برنامه به طور خودكار فايل را پخش مي كند .

 

لطفا نظر خود را درمورد ادامه كار وبلاگ حتما بيان كنيد

 

/ نوشته شده در چهارشنبه پنجم دی 1386 و ساعت 10:6 در ارتباط با موضوع پاسخ به سوالات |
آموزش كار با فايلهاي Resource و برنامه Resource Editor

 

حتما براي شما هم پيش آمده است كه بخواهيد فايلي را كه برنامه شما از آن استفاده مي كند از چشم كاربر پنهان كنيد و فايلهاي مورد نياز برنامه را به فايل اجرايي برنامه بچسبانيد .

راه حل اين كار استفاده از فايلهاي Resource يا به اختصار Res است . اين نوع فايلها مي توانند فايلهاي شما را درون خود نگه داري كنند و در صورت نياز آنها را به شما تحويل دهند .

 

براي كار كردن با فايلهاي Res در ويژوال بيسيك بايد از برنامه VB Resource Editor استفاده كنيد براي فراخواني اين برنامه وارد منوي Add-Ins شده و گزينه Add-Ins Manager را برگزيند تا كادر محاوره اي به شكل زير باز شود :

 

 

                 

 

از اين كادر براي افزودن برنامه هاي كاربردي ارائه شده همراه ويژوال بيسيك در زمينه برنامه نويسي استفاده نماييد . طبق شكل گزينه VB 6 Resource Editor را انتخاب كنيد و از قسمت Load Behavior  تيك گزينه Loaded/Unloaded را بگذاريد و در پايان بر روي OK كليك كنيد . حال اگر وارد منوي Tools شويد مشاهده مي كنيد كه گزينه اي به نام Resource Editor به آن اضافه  شده است بر روي آن كليك كنيد تا برنامه

 VB Resource Editor به شكل زير اجرا شود :

 

                      

 

 همانطور كه در شكل نشان داده شده است با استفاده از گزينه آخر CUSTOM مي توانيد هر فايلي را كه مايليد به فايل Res خود اضافه نماييد . اگر فايلي را اضافه نماييد مشاهده خواهيد كرد كه به جاي نام فايل شماره اي نمايش داده مي شود كه فايل شما با اين شماره شناسايي مي شود و براي دسترسي به فابلها بايد شماره آنها را بدانيد . پس از اضافه كردن فايلهاي مورد نظر خود با استفاده از گزينه Save فايل Res ايجاد شده را در محلي

( ترجيحا كنار فايلهاي پروژه ) ذخيره كنيد اين فايل پس از كامپايل برنامه به فايل اجرايي مي چسبد و ديگر اثري از آن كنار فايلهاي برنامه نخواهيد يافت .

 

براي استخراج فالهاي درون Res روشهاي زيادي وجود دارد اما ساده ترين روش نوشتن فايل به صورت باينري است كه با يك مثال آن را انجام مي دهيم:

 

برنامه زير يك فايل با شماره شناسايي 101 را از درون فايل Res مي خواند و درون ريشه درايو  C  قرار مي دهد :

 

Dim file() As Byte

file = LoadResData(101, "CUSTOM")

Open "c:\1.pdf" For Binary As #1

Put #1, 1, file()

Close #1

 

حال مي توانيد از فايل خود به هر نحوي كه مايليد استفاده كنيد . براي اينكه از چشم كاربر فايلهايتان را مخفي نگه داريد مي توانيد آنها را درون پوشه  Temp ويندوز قرار دهيد و پس از تمام كارتان فايلها را پاك كنيد .

 

/ نوشته شده در دوشنبه سوم دی 1386 و ساعت 18:56 در ارتباط با موضوع ویژوال بیسیک |
برنامه NotePad ويندوز براي گوشي هاي نوكيا

 

نام برنامه : برنامه NotePad ويندوز (نسخه موبايل)

نوع برنامه : سيمبين

موضوع برنامه : كابردي

ناشر : Prokofiev

 

قابل اجرا در تمام گوشي هاي نوكيا سري 60

 

 

تصويري از محيط برنامه

 

 

 

 

  

دانلود برنامه (چهل و چهار كيلو بايت)

 
/ نوشته شده در دوشنبه سوم دی 1386 و ساعت 18:52 در ارتباط با موضوع برنامه هاي موبايل |
سه فلش جالب براي سرگرمي شما

 

فلش اول »  روي اسب ها كليك كنيد تا براي شما بخوانند .

 

 

                   

 

                                         دانلود ( 160 كيلو بايت )

 

فلش دوم » پنالتي زدن را تجربه كنيد .(بازي)

 

 

                   

 

 

                                              دانلود ( 116 كيلو بايت )

 

فلش سوم » با جا به جايي لوله ها آب را انتقال دهيد .(بازي)

 

 

 

                  

 

 

 

                                              دانلود ( 64 كيلو بايت )

 

/ نوشته شده در دوشنبه سوم دی 1386 و ساعت 18:50 در ارتباط با موضوع متفرقه |