Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

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

      در پناه حق