پیش نیاز اندروید برای آموزش اینترنت اشیاء (جلسه هشتم)

محسن صادقی مقدم
سلام. فایل این جلسه خرابه و extractش به مشکل میخوره

علی ناصری
سلام چند وقت پیش توی یکی از سایت های خارجی پروژه ساخت دستگاه cncرو دیدم خیلی جالب بود تازه رایگان هم بود . اگه امکانش هست اموزش ساخت شو به اموزش های تکمیلی دوره اضافه کنید. فکرکنم خیلی طرفدار داشته باشه. http://www.instructables.comاینم سایتش

علی ناصری
سلام لطفا پروژه ساخت ساعت با سون سگمنت وتنظیم اون از طریق اندروید رو اموزش بدین. با تشکر

علی ناصری
سلام لطفا اموزش طراهی وب را هم مثل اموزش اندروید سیر تا پیاز شو اموزس دهید. حتی اگر نیاز به پرداخت هزینه اضافی هست.

علی ناصری
سلام لطفا اموزش ساخت کامل تابلوروان به خصوص تابلو روان 7رنگ ونمایش متن وتصویر و فیلم دلخواه روی ان از طریق سیم وبلوتوس و وای فای واینترنت را به دوره اضافه کنید.

علی ناصری
سلام لطفا یه کم از زمان فیلم اموزشی رو صرف برنامه های ساده ای مثل ماشین خساب و.....کنید با تشکر

محمد رضایی
تمرین های مربوط به جلسات قبلی : http://upload.wle.ir/up/guest/rar/Exercise-calculator.rar http://upload.wle.ir/up/guest/rar/Ex-RGB.rar ممنون از آموزشهای بسیار خوبتون خداقوت

مجتبی کمالی اردکانی
این هم ادرس فایل برنامه http://upload.wle.ir/up/m.k74/rar/testw.rar

مجتبی کمالی اردکانی
با سلام این کد مربوط به تمرین که شما دادید است به این صورت رنگ کلید با سه seekbar قابل تنطیم هست اولین seekbar برای مقدار R دومی برای G وسومی برای B است . #Region Project Attributes #ApplicationLabel: B4A Example #VersionCode: 1 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private Button1 As Button Private SeekBar1 As SeekBar Private SeekBar2 As SeekBar Private SeekBar3 As SeekBar Dim a As Int =0xFF000000 Dim s1 As Int Dim s2 As Int Dim s3 As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("test") SeekBar1.Max =0xFF SeekBar2.Max =0xff SeekBar3.Max =0xff End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean) Dim r As Int=0 r=Value*0x10000 Button1.Color=a+r+s3+s2 s1=a+r End Sub Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean) Dim g As Int=0 g=Value*0x100 Button1.Color=a+g+s1+s3 s2=a+g End Sub Sub SeekBar3_ValueChanged (Value As Int, UserChanged As Boolean) Dim b As Int=0 b=Value*0x1 Button1.Color=a+b+s1+s2 s3=a+b End Sub