[Amin_Mansouri]

سورس کد دوربین در داخل فایل های دانلودی هست

[smfazel]

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

[Amin_Mansouri]

یک تایمر بزار

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

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

کد:

sub test
'code shoma
end sub

راحت میتونی تابع هر وقت دوست داشتی فراخوانیکی واسه فراخوانی فقط اسم تابع بنویس

[smfazel]

این هم آدرس نرم افزار رکعت شمار که با بیسیک فور اندروید نوشتم:
http://cafebazaar.ir/panel/edit/com.smf.rakat/?l=fa

[saidgta]

میشه لطف کنید و تصاویر پست اول رو درست کنید؟تصاویر لود نمیشن.
ممنون

[smfazel]

یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟

[saidgta]

کسی نیست اینجا جواب بده؟
من می خوام یه webview بذارم که 100 درصد صفحه ی گوشی رو بگیره. یعنی کل صفحه رو پر کنه و محتویات داخل وب رو از نظر عرضی 100 درصد کنه. ولی برای عمودی اسکرول داشته باشه و رزولیشن صفحه ی گوشی هم مهم نباشه.
میشه یکی کمک کنه؟

[Amin_Mansouri]

میشه لطف کنید و تصاویر پست اول رو درست کنید؟تصاویر لود نمیشن.
ممنون

درود
با عرض پوزش سرور ایران بلاگ از کار افتاده و به عکس ها دسترسی نیست.

[Amin_Mansouri]

یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟

یه سمپل میزارم :

  ScrollImage(www.pxr.ir).zip (اندازه 142.42 KB / تعداد دانلود: 91)


میتونی یه کار بهتر کنی عکس روبخون بد ریساز کن (یه سمپل میزارم )چون امکان داره سایز عکس خیلی بزرگ باشه
عکس رو بخون بارگزاری کن و به صورت موقت یه جا دیگه ریسایز کن .
این نمونه کد هم کمکت میکنه :

کد:

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

[Amin_Mansouri]

کسی نیست اینجا جواب بده؟
من می خوام یه 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