• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

1 ارسال در این موضوع قرار دارد

post-1-0-65683700-1464164892_thumb.png


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


برنامه نویسی ای او اس با Basic4IOS


لینک دانلود :


http://www.visualnet.inf.br/download/b4x/iPOP.zip


 


سورس کد پیوست شد:


iPOPSample.zip

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری

  • مطالب مشابه

    • توسط H@mid.RS

      مک سرور برنامه ای برای اجرا می باشد فعلا نسخه یک ارائه شده است

    • توسط bakhtiaran
      با سلام بنده اومدم یک باتن گذاشتم و برای اون باتن هم از طریق soundpool یک اهنگ گذاشتم اما وقتی که کلیک کردم و اهنگ پخش شد اگه بخوام همونجور که در حال پخشه دوباره رو باتن کلیک کنم اهنگ قطع نمیشه و دوباره اهنگ شروع میشه که که با اهنگ قبلی قاطی میشه و صدا به هم میریزه کدم هم کد زیره
      Sub Globals Dim sp As SoundPool Dim hu As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") sp.Initialize(1) hu = sp.Load(File.DirAssets,"re.ogg") End sub Sub Button8_Down sp.Play(hu,1,1,2,-1,1) End Sub ممنون میشم راهنمایی کنید
    • توسط H@mid.RS
      چند چیز رو می تونید بگیرید که در زیر کد هاشونو اوردم،

      مدل دستگاه، اسمش و ...


      Sub GetDeviceSystemName As String
      ' get the system name of the device
      Dim device As NativeObject
      device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
      Dim name As Object = device.GetField("systemName").AsString
      Return name
      End Sub

      Sub GetDeviceModel As String
      ' get the device model
      Dim device As NativeObject
      device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
      Dim name As Object = device.GetField("model").AsString
      Return name
      End Sub

      Sub GetDeviceName As String
      ' get the device name
      Dim device As NativeObject
      device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
      Dim name As Object = device.GetField("name").AsString
      Return name
      End Sub

      Sub GetIMEI As String
      ' get device unique identifier
      Dim device As NativeObject
      device = device.Initialize("UIDevice").RunMethod("currentDevice", Null)
      Dim name As String = device.GetField("identifierForVendor").AsString
      Return name
      End Sub

      Sub GetPackageName As String
      ' get your app package name
      Dim no As NativeObject
      no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
      Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleIdentifier"))
      Return name
      End Sub

      Sub GetAppName As String
      ' get app name
      Dim no As NativeObject
      no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
      Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleDisplayName"))
      Return name
      End Sub

      Sub GetVersion As String
      Dim no As NativeObject
      no = no.Initialize("NSBundle").RunMethod("mainBundle", Null)
      Dim name As Object = no.RunMethod("objectForInfoDictionaryKey:", Array("CFBundleShortVersionString"))
      Return name
      End Sub

      در پناه حق