سورس کد دوربین در داخل فایل های دانلودی هست
یه سوال
چطور میتونم دفعات اجرای فرمان رو محدود به یک تایمر کنم؟
مثلا یک دکمه رو در نظر بگیرید، میخوام وقتی دکمه زده شد و فرمانی اجرا شد، تا 10 ثانیه دیگه اون دکمه غیر فعال بشه و هیچ فرمانی رو اجرا نکنه، اما بعد از 10 ثانیه دوباره بتونه فرمان اصلی خودش رو مجددا اجرا کنه
ممنون میشم اگه دقیق راهنمایی کنید
یک تایمر بزار
بهش مدتزمان بده خاصیت enable باتن رو غیر فعال کنی دیگه کاربر میتونه کلیک کنه تا دستوری انتخاب بشه
پیشنهاد میکنم کدهاتو اینجوری بزار توی تابع
کد:
sub test
'code shoma
end sub
راحت میتونی تابع هر وقت دوست داشتی فراخوانیکی واسه فراخوانی فقط اسم تابع بنویس
میشه لطف کنید و تصاویر پست اول رو درست کنید؟تصاویر لود نمیشن.
ممنون
یه سوال
من یه ایمیج ویو دارم که عکسی که براش گذاستم از لحاظ طولی بزرگ هست
حالا چطوری میتونم به عکس قابلیت اسکرول عمودی فقط اضافه کنم؟
کسی نیست اینجا جواب بده؟
من می خوام یه 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