Android Question add ... #include source code with B4X ide ?

[fgh3966]

Hello everybody

In order to properly organize my project, I would like to create several source files for the same project.
How can we do with B4A v12 ?

Should I use #include ?

Thanks in advance.
Regard

 

[zed]

Use B4XPages

[B4X] B4XPages - Cross platform and simple framework for managing multiple pages

B4XPages is a library that serves two purposes: 1. Make it simple to develop B4A apps by solving almost all of the challenges involved with Android complex activities life cycle. B4XPages makes B4A behave more similar to B4J and B4i where the new "B4XPage" element is a regular object that is...

www.b4x.com

[B4X] [B4XPages] What exactly does it solve?

B4XPages makes many things simple and even trivial. As Android developers, we are dealing with these challenges for many years now so it might take us a while to understand how simple things can be. As explained in B4XPages tutorial, there are two purposes for B4XPages: Provide a cross...

www-b4x-com.translate.goog

 

[Erel]

You can turn one or more source files to a b4xlib library by simply zipping them together and changing the extension to b4xlib.

 

[fgh3966]

Thank you for your answers but I don't understand.
Also B4XPages doesn't seem to work on my wine_OS.
My source code will get long and take several pages to write and it will be difficult to manage with a single page.
How can I simply fix this problem ?
Where can i find an example ?

Thanks in advance.

 

[MicroDrie]

My source code will get long and take several pages to write and it will be difficult to manage with a single page.
How can I simply fix this problem ?

How can we give you advice or examples if you don't indicate what exactly you want to program anyway?

And if you don't want to, or can't use B4XPages, then you will have to live with a long source file or you can try to split that long source file into classes and modules.
Both have there own limitation on the use of those classes and modules. Your best friend for classes and modules is the search option of the forum.

 

[Andrew (Digitwell)]

To break up your code, you can create several class modules or code modules to hold the code.

A class module will require you to create an instance of the class before calling any subs whilst a code module can be called directly.

Its been a while since I looked at the documentation, but I believe that this is fully described in there. code modules are more restrictive than classes.

Most of the larger sample projects on that you can download from the forum use one or both of these methods.

Hope that helps.

 

[fgh3966]

Thank for your answers ?
I'm going to learn B4X code module

 

[Andrew (Digitwell)]

Class modules are more flexible. I would recommend learning how to use both.

Here is a forum post about this:

Code Module vs Class Module

Hi Erel; Can I use set/get properties in "Code Module" as in "Class Module"? 'Code Module : MyModule Sub setMyProperty(Value As Object) m_MyProperty=Value End Sub Sub getMyProperty As Object Return m_MyProperty End Sub . . . 'Activity module MyModule.MyProperty = "value"...

www.b4x.com

The link is old, the correct link is :

Classes tutorial

Basic4android v2.00 adds support for classes modules. Classes definition from Wikipedia: In object-oriented programming, a class is a construct that is used to create instances of itself – referred to as class instances, class objects, instance objects or simply objects. A class defines...

www.b4x.com

 

[fgh3966]

very thank ! ?

link to basic4ppc are dead

 

[fgh3966]

Hello all


I admit that I did not expect these difficulties because i believing B4X would easily solve this problem.
Generally other IDEs resolve this problem simply, for example : in C, assembler etc ... this problem of multiple lines is solved with #<include>
I have to write about 80 times the lines below which take a lot of space and the code would be incomprehensible.
Also obviously I should expect to repeat many other lines.
So even if we concentrate the code below, the problem of many lines will come back.
And then the development IDEs: B4X, etc... with the communities of programmers are there to write lines of code, aren't we?

Should there be no explanation in French?
How do variables communicate between the source program and the modules?

Thank you for your understanding.

   If QRT1 = 4 Then
        '******************************** 1 *************************************
        ImageView1.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView2.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView3.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView4.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
    End If
        
    If QRT1 = 5 Then
        '******************************** 2 *************************************
        ImageView1.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView2.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView3.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView4.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
    End If
    
    If QRT1 = 6 Then
        '******************************** 2 *************************************
        ImageView1.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView2.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView3.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView4.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
    End If
    
    If QRT1 = 7 Then
        '******************************** 0 *************************************
        ImageView1.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView2.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView3.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView4.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
    End If

 

[zed]

We still don't know what you want to do.

How can we give you advice or examples if you don't indicate what exactly you want to program anyway?

It may not be necessary to write all the "imageview.bitmap=" lines.
There is a recursive system.

For example to select all imagesview in a same panel.

For Each iv As view In panelImageView.GetAllViewsRecursive
    if iv as imageview then
     'your code here
    end if
Next

 

[josejad]

My source code will get long and take several pages to write and it will be difficult to manage with a single page.
How can I simply fix this problem ?
Where can i find an example ?

As you've been told: classes

Examples (as you can see in the small piece of code from Erel, the 53 lines in the code, are divided into main (lines 1 to 19) and a class (from line 20 on)

Classes are soon coming...

Basic4android v2.00 will include support for classes. Classes are like templates which you can use to instantiate many objects. Users who are used to object oriented programming will sure find it easier to develop and maintain large projects using classes. Classes are also useful for creating...

www.b4x.com

We still don't know what you want to do, can your code be written with something like:

    If QRT1 = 4 or QRT1 = 5  OR .... Then (or even if QRT1 >= 4 AND QRT1 <= 8)
        '******************************** 2 *************************************
        ImageView1.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView2.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
        ImageView3.Bitmap = LoadBitmap(File.DirAssets, "led_off.png")
        ImageView4.Bitmap = LoadBitmap(File.DirAssets, "led_vert.png")
    End If

 

[Andrew (Digitwell)]

If I understand you correctly, there is no need to use #include you can use a class or code module instead.

I have written this code directly into the comment, so it might not be completely correct, but it will give you an idea.

private codem as mycodeclass
codem.initilize

select QTR1
   case 4
       codem.setButtons(false,true,false,false)

   case 5
     codem.setButtons(false,true,false,true)
end Select

... In the class mycodeclass

private sub setButtons(img1show as boolean, img2show as boolean, img3 as boolean, img4as boolean)

   iif(img1show,setImage(imageView1,"led_off.png"),setImage(imageView1,"led_vert.png"))
   iif(img2show,setImage(imageView2,"led_off.png"),setImage(imageView2,"led_vert.png"))
   iif(img3show,setImage(imageView3,"led_off.png"),setImage(imageView3,"led_vert.png"))
   iif(img4show,setImage(imageView4,"led_off.png"),setImage(imageView4,"led_vert.png"))
end sub

private sub setImage(imgv as imageview, img as string)
    imgv.bitmap = LoadBitmap(File.dirAssets,img)
end sub

 

[Andrew (Digitwell)]

BTW, I have classes and code modules that have several hundred lines of code. Both in B4X and PHP.
HTML is worse some of the pages can get really large

 

[fgh3966]

Thanks

I look and learn your answers.

 

[fgh3966]

Thank you Digitwell and other.
Just Digitwell for your previous post at 10H55 PM (yesterday)
Can i try to compile tour code as a library ?

 

[fgh3966]

Hello

I think I found the solution.
just create a module linked to the project and include a function in it. Module are named modulM in example.
into modulM i create function calctoto
Then you have to call the function in the "file" main >>> result = modulM.calctoto(1)
Here are the sources, warning there is an error for the display of the variable result.

#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.
    Private xui As XUI
    Private xui2 As XUI
    Public toto As Byte
    Public var As Byte
    Public result As Byte
    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout")
    var = 1
    result = modulM.calctoto(1)
    
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello world!", "B4X")
    xui2.MsgboxAsync ("result", "B4X" )
End Sub

'Code module
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    'Public toto As Byte
    
End Sub


Public Sub calctoto(var As Byte)
Dim toto As Byte

toto = toto + var

Return toto

End Sub

if it can help someone
very thanl all !

 

[klaus]

In your routine you are missing the return object type.

Public Sub calctoto(var As Byte) As Byte
Dim toto As Byte
toto = toto + var
Return toto
End Sub

What is the purpose of variable toto ?

 

[fgh3966]

it was to put something in the function, otherwise toto is useless.

 

[fgh3966]

I can't declare and use an imageview in a module

yet I declared it in public mode