B4A Library [B4X] ? B4XTurtle - Library for teachers and parents

Library is available here:

🐢 B4XTurtle - Library for teachers and parents

B4XTurtle is a library inspired by classic Logo programming language and TKP project: http://teachingkidsprogramming.org/ It is a cross platform library. The purpose of B4XTurtle is to help with teaching programming. Drawing with the turtle is fun and it provides a simple visual feedback to the...

www.b4x.com

 

[amidgeha]

Draw a star on each of the five vertices of a star

Sub DrawStar(s As Double, m As Double)
    If s<m Then Return
    For i = 1 To 5
        Turtle.SetPenColor(Rnd(xui.Color_Black, xui.Color_White))
        Turtle.MoveForward(s)
        DrawStar(s*0.3,10)
        Turtle.TurnLeft(144)
    Next
End Sub

 

[AnandGupta]

In today Google doodle.

https://www.google.com/logos/2017/logo17/logo17.html?hl=en

May be we can expend our turtle tutorial logic in this direction, drag and drop action ; and showing the codes generated.

Regards,

Anand

 

[Erel]

B4XTurtle direction is different. It is not an alternative environment. It is a way to help teaching B4X programming.

 

[aeric]

In today Google doodle.

https://www.google.com/logos/2017/logo17/logo17.html?hl=en

View attachment 92717

May be we can expend our turtle tutorial logic in this direction, drag and drop action ; and showing the codes generated.

Regards,

Anand

Nice game. I completed the 6 levels. However I don’t like Scratch jigsaw puzzle like programming. I still prefer typing out the syntax.

 

[AnandGupta]

I still prefer typing out the syntax.

That's the difference between geek and users.
I also use text editor to complete my code in B4A faster than the ide due to in built macro and script.

A student is a user at best and code looks like class work but animation and images like playground.
Remember we loved linux but our users preferred windows.

So my suggestion was on that thinking for the students ; of showing the codes from the image template made.
Anyway Erel is best to decide the future course of turtle, it is just the beginning now.

Regards,

Anand

 

[LucaMs]

Crossword (I still have to perfect it, so that it doesn't create 1 cell long words).

 

[LucaMs]

I would add some methods, such as GetPenSize and others Gets (which I don't remember now), corresponding to the relative Sets.

Also, I thought that the GetX and GetY methods returned the current coordinates, but that's not the case (I think they return the initial location).

 

[Erel]

Working with the Get methods is a bit more tricky. I will prepare an example that explains it.

You can turn on RabbitMode as the very first command and it will work as you expect.

 

[LucaMs]

 

[goron]

What about:
Turtle.SetPenImg(any.img)
✍
TIA

 

[Erel]

? B4XTurtle - Examples for teachers and parents

The purpose of this thread is to build a collection of examples that will help you, the teacher or parent, learn how to use and teach with B4XTurtle library. If you have any question, feedback or request then please post it here...

www.b4x.com

 

[aeric]

23 May - Happy World Turtle Day ? https://en.wikipedia.org/wiki/World_Turtle_Day

 

[Johan Schoeman]

Drawing an ellipse:

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private turtle As B4XTurtle
    Dim a As Int                   'semi-major axis
    Dim b As Int                   'semi-minor axis
    Dim xui As XUI
    
    Dim xval, yval As Float
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("main") 'Load the layout file.
    MainForm.Show
    
    Dim zeroX As Float = turtle.Width/2
    Dim zeroY As Float = turtle.Height/2
    
    a = 200                       'semi-major axis
    b = 75                          'semi-minor axis
    
    turtle.SetPenColor(xui.Color_Red)
    
    turtle.SetX(zeroX + (a * Cos(0*2*cPI/360)))
    turtle.SetY(zeroY + (b * Sin(0*2*cPI/360)))
    
    For i = 0 To 360
        xval = zeroX + (a * Cos(i*2*cPI/360))
        yval = zeroY + (b * Sin(i*2*cPI/360))
        turtle.MoveTo(xval, yval)
    Next
    
    turtle.SetPenColor(xui.Color_Blue)
    
    a = a + 50
    b = b + 12
    
    turtle.SetX(zeroX + (a * Cos(0*2*cPI/360)))
    turtle.SetY(zeroY + (b * Sin(0*2*cPI/360)))
    
    For i = 0 To 360
        xval = zeroX + (a * Cos(i*2*cPI/360))
        yval = zeroY + (b * Sin(i*2*cPI/360))
        turtle.MoveTo(xval, yval)
    Next
    
    a = 250
    b = -250            'negative value = change direction of drawing
    
    turtle.SetPenColor(xui.Color_Green)
    
    turtle.SetX(zeroX + (a * Cos(0*2*cPI/360)))
    turtle.SetY(zeroY + (b * Sin(0*2*cPI/360)))
    
    For i = 0 To 360
        xval = zeroX + (a * Cos(i*2*cPI/360))
        yval = zeroY + (b * Sin(i*2*cPI/360))
        turtle.MoveTo(xval, yval)
    Next
    
    a = 125
    b = 250            'negative value = change direction of drawing
    
    turtle.SetPenColor(xui.Color_Magenta)
    
    turtle.SetX(zeroX + (a * Cos(0*2*cPI/360)))
    turtle.SetY(zeroY + (b * Sin(0*2*cPI/360)))
    
    For i = 0 To 360
        xval = zeroX + (a * Cos(i*2*cPI/360))
        yval = zeroY + (b * Sin(i*2*cPI/360))
        turtle.MoveTo(xval, yval)
    Next
    
    
    a = 75
    b = 250            'negative value = change direction of drawing
    
    turtle.SetPenColor(xui.Color_Cyan)
    
    turtle.SetX(zeroX + (a * Cos(0*2*cPI/360)))
    turtle.SetY(zeroY + (b * Sin(0*2*cPI/360)))
    
    For i = 0 To 360
        xval = zeroX + (a * Cos(i*2*cPI/360))
        yval = zeroY + (b * Sin(i*2*cPI/360))
        turtle.MoveTo(xval, yval)
    Next
    
    turtle.SetTurtleVisible(False)

End Sub

'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

a = semi-major axis
b = semi-minor axis

If a> b then ellipse major axis is in the x direction (longer in x direction)
if a < b then ellipse major axis is in the y direction (longer in y direction)
if a = b then it will be a circle

 

[Erel]

Better to create B4XTurtle projects with the B4XTurtle template (New - B4XTurtle).