Hlavní navigace

Názor k článku Small Basic: moderní reinkarnace BASICu určená pro výuku programování od Thalarctos - Docela zajimavy, z nostalgie jsem si s tim...

  • Článek je starý, nové názory již nelze přidávat.
  • 12. 10. 2021 16:00

    Thalarctos

    Docela zajimavy, z nostalgie jsem si s tim chvilku hral ale docela me stve/limituje nemoznost predavat prommenne do "subrutin". Ja snad tu holku zacnu ucit Ccko ;-)

    GraphicsWindow­.PenColor=Grap­hicsWindow.Get­ColorFromRGB(255,0,0)
    GraphicsWindow­.PenWidth=2
    Turtle.Show()
    Turtle.Speed=10

    For k=1 To 1024
    TurtleAngle=Mat­h.GetRandomNum­ber(360)
    PosX=60+Math.Get­RandomNumber(300)
    PosY=60+Math.Get­RandomNumber(300)
    KresliSrdicko()
    EndFor

    Sub KresliSrdicko
    GraphicsWindow­.PenColor = GraphicsWindow­.GetColorFrom­RGB(Math.GetRan­domNumber(255),Mat­h.GetRandomNum­ber(255),Math­.GetRandomNum­ber(255))
    Turtle.Angle=Tur­tleAngle
    Turtle.Hide()
    Turtle.PenUp()
    Turtle.MoveTo(Pos­X,PosY)
    Turtle.Show()
    Turtle.PenDown()
    For i=1 To 30
    Turtle.Turn(8)
    Turtle.Move(2)
    EndFor
    Turtle.Move(26)
    Turtle.PenUp()
    Turtle.MoveTo(Pos­X,PosY)
    Turtle.PenDown()
    For i=1 To 30
    Turtle.Turn(-8)
    Turtle.Move(2)
    EndFor
    Turtle.Move(26)
    Turtle.PenUp()
    EndSub