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

Erel · Apr 22, 2020

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 · Apr 22, 2020

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

Recursive draw of stars:

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 · Apr 27, 2020

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 · Apr 27, 2020

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

aeric · Apr 27, 2020

AnandGupta said:
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 · Apr 27, 2020

aeric said:
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 · Apr 29, 2020

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

LucaMs · Apr 29, 2020

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 · Apr 29, 2020

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 · Apr 29, 2020

goron · May 4, 2020

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

Erel · May 5, 2020

? 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 · May 23, 2020

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

Johan Schoeman · Jan 9, 2021

Drawing an ellipse:

B4X:

#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 · Jan 10, 2021

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

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

🐢 B4XTurtle - Library for teachers and parents

amidgeha

Active Member

AnandGupta

Expert

Erel

B4X founder

aeric

Expert

AnandGupta

Expert

LucaMs

Expert

LucaMs

Expert

Erel

B4X founder

LucaMs

Expert

goron

Member

Attachments

Erel

B4X founder

? B4XTurtle - Examples for teachers and parents

aeric

Expert

Johan Schoeman

Expert

Attachments

Erel

B4X founder

Similar Threads

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

Active Member

Expert

B4X founder

Expert

Expert

Expert

Expert

B4X founder

Expert

Member

Attachments

B4X founder

Expert

Expert

Attachments

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency