B4i (iOS) - Updates thread

Erel

B4X founder
Staff member
Licensed User
Longtime User

Erel

B4X founder
Staff member
Licensed User
Longtime User
Now we have a Canvas object:


upload_2014-8-14_18-1-39.png
 
D

Deleted member 103

Guest
Supeeeer
now only a few objects and the first versione is ready.:)
 

sorex

Expert
Licensed User
Longtime User
nice job there Erel.

how much of the core libs are (partly) working already?
 

Beja

Expert
Licensed User
Longtime User
Great achievement.. congratulations with the first object..
I am camping right here!
 

Erel

B4X founder
Staff member
Licensed User
Longtime User
A large part of the core library is already implemented.

If you like to see the core library progress you can check the attached xml file. It is the same format as B4A / B4J libraries so you should be able to browse it with one of the libraries browsers.
Note that it is not documented (and is of course not final).
 

Attachments

  • iCore.zip
    6.3 KB · Views: 252

Beja

Expert
Licensed User
Longtime User
Erel,
Do you think it is a good idea to open a forum for wishes to be included in the first version.
 

Erel

B4X founder
Staff member
Licensed User
Longtime User
It is too early now for feature requests. Also remember that the first version is just the first version :)

As I see it the most important thing is to create a working version with the core features (in the world of iOS it is not a simple task at all) and release it. Many new versions will follow the first version and will add the requested features.
 

LWGShane

Well-Known Member
Licensed User
Longtime User
@wimpie3 :

90% of iOS users are on iOS 7, don't know how many of those are forced. ("Forced", meaning the FaceTime stuff.)
 

socialnetis

Active Member
Licensed User
Longtime User
Is there going to be a way for us to create wrappers for libraries?
If the answer is yes, is it going to be neccesary to have a Mac to create the wrapper?
 

Beja

Expert
Licensed User
Longtime User
One question
To install B4i, do we need to go through all the steps like b4a? installing SDKs of everybody and configure? or just
the b4i IDE is enough?
 

Erel

B4X founder
Staff member
Licensed User
Longtime User
Smiley example :)
Make sure to see it in HD.
The device in the right side is a real device mirrored with a nice tool named reflector. The app is first run in "no compilation" debug mode. In this mode remote compilation is not required (it is similar to the rapid debugger that was available in B4A before v3.50). The second time it is run in Release mode. In this mode you need to first install it through the device browser. I'm using a bookmark to make it easier. This is called over the air installation.


The code is simple:
B4X:
Sub Process_Globals
   Public NavControl As NavigationController
   Private Page1 As Page
   Private panel1 As Panel
   Private cvs As Canvas
   Private timer1 As Timer
   Private bmp As Bitmap
   Private currentX, currentY, vx = 10, vy = 10 As Float
   Private smileySize As Float = 50
End Sub

Private Sub Application_Start (Nav As NavigationController)
   NavControl = Nav
   Page1.Initialize("Page1")
   Page1.Title = "Smiley Example"
   NavControl.ShowPage(Page1)
   panel1.Initialize("panel1")
   Page1.RootPanel.AddView(panel1, 0, 0, 100%x, 100%y)
   bmp.Initialize(File.DirAssets, "smiley.png")
   timer1.Initialize("timer1", 30)
   timer1.Enabled = True
End Sub

Private Sub Page1_Resize(Width As Int, Height As Int)
   CreateBackground
   panel1.SetLayoutAnimated(0, 0, 0, 100%x, 100%y)
   cvs.Release
   cvs.Initialize(panel1)
   cvs.DrawColor(Colors.Transparent)
   cvs.Refresh
End Sub

Sub CreateBackground
   'create the gradient background
   Dim c As Canvas
   c.Initialize(Page1.RootPanel)
   c.FillGradient(0, 0, 100%x, 100%y, Array(Colors.LightGray, Colors.DarkGray))
   c.Refresh
   c.Release
End Sub

Sub Panel1_Touch(Action As Int, X As Float, Y As Float)
   If Action = panel1.ACTION_DOWN Then
     cvs.DrawCircle(X, Y, 10, 0xAFFF0000, True, 0)
     If X >= currentX AND X <= currentX + smileySize AND Y >= currentY AND Y <= currentY + smileySize Then
       vx = -vx
       vy = -vy
     End If
     cvs.Refresh
   End If
End Sub

Sub Timer1_Tick
   Dim r As Rect
   r.Initialize(currentX, currentY, currentX + smileySize, currentY + smileySize)
   cvs.DrawRect(r, Colors.Transparent, True, 0)
   If currentX + smileySize > cvs.View.Width Then
     vx = -Abs(vx)
   Else If currentX < 0 Then
     vx = Abs(vx)
   End If
   If currentY + smileySize > cvs.View.Height Then
     vy = -Abs(vy)
   Else If currentY < 0 Then
     vy = Abs(vy)
   End If
   currentX = currentX + vx
   currentY = currentY + vy
   r.Initialize(currentX, currentY, currentX + smileySize, currentY + smileySize)
   cvs.DrawBitmap(bmp, r)
   cvs.Refresh
End Sub
 

Jmu5667

Well-Known Member
Licensed User
Longtime User
Hi Erel

This is great news. What serial services will be available in the first/beta release. We have a product www.ursosbutton.com that we have developed and the device has a bluetooth chip to provide the serial i/o, will it be possible to communicate with b4i apps ?

Also will there some support for SQLlite ?

Regards

John.
 
Top