Parsi Coders

نسخه‌ی کامل: اموزش برنامه نویسی اندروید به همراه تمامی ابزارها
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
سورس کد دوربین در داخل فایل های دانلودی هست
یه سوال
چطور میتونم دفعات اجرای فرمان رو محدود به یک تایمر کنم؟
مثلا یک دکمه رو در نظر بگیرید، میخوام وقتی دکمه زده شد و فرمانی اجرا شد، تا 10 ثانیه دیگه اون دکمه غیر فعال بشه و هیچ فرمانی رو اجرا نکنه، اما بعد از 10 ثانیه دوباره بتونه فرمان اصلی خودش رو مجددا اجرا کنه
ممنون میشم اگه دقیق راهنمایی کنید
یک تایمر بزار

بهش مدتزمان بده خاصیت enable باتن رو غیر فعال کنی دیگه کاربر میتونه کلیک کنه تا دستوری انتخاب بشه

پیشنهاد میکنم کدهاتو اینجوری بزار توی تابع

کد:
sub test
'code shoma
end sub

راحت میتونی تابع هر وقت دوست داشتی فراخوانیکی واسه فراخوانی فقط اسم تابع بنویس
این هم آدرس نرم افزار رکعت شمار که با بیسیک فور اندروید نوشتم:
http://cafebazaar.ir/panel/edit/com.smf.rakat/?l=fa
میشه لطف کنید و تصاویر پست اول رو درست کنید؟تصاویر لود نمیشن.
ممنون
یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟
کسی نیست اینجا جواب بده؟
من می خوام یه webview بذارم که 100 درصد صفحه ی گوشی رو بگیره. یعنی کل صفحه رو پر کنه و محتویات داخل وب رو از نظر عرضی 100 درصد کنه. ولی برای عمودی اسکرول داشته باشه و رزولیشن صفحه ی گوشی هم مهم نباشه.
میشه یکی کمک کنه؟
(07-07-2012، 12:44 PM)saidgta نوشته: [ -> ]میشه لطف کنید و تصاویر پست اول رو درست کنید؟تصاویر لود نمیشن.
ممنون

درود
با عرض پوزش سرور ایران بلاگ از کار افتاده و به عکس ها دسترسی نیست.
(07-07-2012، 01:02 PM)smfazel نوشته: [ -> ]یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟
یه سمپل میزارم :
[attachment=251]


میتونی یه کار بهتر کنی عکس روبخون بد ریساز کن (یه سمپل میزارم )چون امکان داره سایز عکس خیلی بزرگ باشه
عکس رو بخون بارگزاری کن و به صورت موقت یه جا دیگه ریسایز کن .
این نمونه کد هم کمکت میکنه :
کد:
Sub Activity_Create(FirstTime As Boolean)
    Dim b As Bitmap
    b = ResizeBitmap(LoadBitmap(File.DirAssets, "image1.jpg"), 20, 20)
    Dim out As OutputStream
    out = File.OpenOutput(File.DirRootExternal, "1.jpg", False)
    b.WriteToStream(out, 100, "JPEG")
    out.Close
End Sub

Sub ResizeBitmap(original As Bitmap, width As Int, height As Int) As Bitmap
    Dim new As Bitmap
    new.InitializeMutable(width, height)
    Dim c As Canvas
    c.Initialize2(new)
    Dim destRect As Rect
    destRect.Initialize(0, 0, width, height)
    c.DrawBitmap(original, Null, destRect)
    Return new
End Sub
(07-08-2012، 01:33 PM)saidgta نوشته: [ -> ]کسی نیست اینجا جواب بده؟
من می خوام یه webview بذارم که 100 درصد صفحه ی گوشی رو بگیره. یعنی کل صفحه رو پر کنه و محتویات داخل وب رو از نظر عرضی 100 درصد کنه. ولی برای عمودی اسکرول داشته باشه و رزولیشن صفحه ی گوشی هم مهم نباشه.
میشه یکی کمک کنه؟


درود

بله کسی هست.

ببین این کد به کارت میاد ؟ (بحث ریسایز هم بحث گسترده ای که انشالا سر فرصت اموزشش رو میدک)

کد:
Sub Activity_Create(FirstTime As Boolean)
    Dim wv As WebView
    wv.Initialize("wv")
    Activity.AddView(wv, 0, 0, 200dip, 200dip)
    wv.LoadUrl("http://www.basic4ppc.com")
End Sub