locked
Post your sample source code here and get featured on our blogs! (Part IV) RRS feed

  • General discussion

  • Continued from here due to thread length.
    Monday, November 21, 2011 11:15 PM
    Moderator

All replies

  • In a single account we put money for many periods with any interests 

    TextWindow.WriteLine(" Hola amigo, como se llama ") ' your name
    name = TextWindow.Read()
    TextWindow.WriteLine("calcularemos su ganancia " + name)
    TextWindow.WriteLine("ingrese capital inicial") ' investment
    CapIni=TextWindow.ReadNumber() ' Spanish language, example 100
    TextWindow.WriteLine("ingrese tasa de interés")' example 0.1= 10%
    int= TextWindow.ReadNumber()
    TextWindow.WriteLine("ingrese período en años")' example 5 is five years
    time= TextWindow.ReadNumber()
    Capfin = CapIni *  Math.Power((1+ int),time)
    TextWindow.WriteLine( name + " su capital al final de: "+ time + "años, es de")
    TextWindow.WriteLine(" $ " + Capfin)

     


    Carlos Fernández Muriano
    Monday, December 5, 2011 11:28 PM
  • Really is too fun SB programming

    Anybody can help me with following code ?...thanks in advance

    A man/ woman born in 12March (DDMM = 1203) will get his/ her age and zodiac signal (only if he' s  is Piscis)

    Well, I just need only the rest of 11 zodiac signal...too much ?...sorry

    Ah...my tongle language is spanish

    ______________________________________________________________

    TextWindow.Write("ingresa tu nombre ")


    nombre = TextWindow.Read()


    TextWindow.WriteLine(" en que año naciste ? " + nombre)


    año = TextWindow.ReadNumber()


    edad = Clock.Year - año

    TextWindow.WriteLine(" Tu edad " + nombre + " es : ")

    TextWindow.WriteLine(edad + " años ")

    TextWindow.WriteLine( " día y mes de tu nacimiento DDMM ")

    nacim = TextWindow.ReadNumber()

     

    If (nacim = 1203) Then

      TextWindow.WriteLine(" eres de piscis " + nombre + " . ")

    Else

      TextWindow.WriteLine(" no eres de Piscis ")

      EndIf
    _________________________________________________________________________

    Best regards,


    Carlos Fernández Muriano
    Tuesday, December 6, 2011 11:03 PM
  • I know that it is only an skeleton. But perhap it will be useful for my students.

    Regards,

    _______________________________________________________________________________

    TextWindow.WriteLine(" Name of Capital City of U.S.A. ? ")
    capital1 = TextWindow.Read()
    If capital1 = "Washington" Then
      TextWindow.WriteLine(" Right ! " + capital1)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Washington ")
      EndIf
     
    TextWindow.WriteLine(" Name of the Capital City of France ?.")
    capital2 = TextWindow.Read()
    If capital2 = "Paris" Then
      TextWindow.WriteLine(" Right ! " + capital2)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Paris ")
      EndIf
     
      TextWindow.WriteLine(" Name of the Capital City of Brazil ? ")
    capital3 = TextWindow.Read()
    If capital3 = "Brasilia" Then
      TextWindow.WriteLine(" Right ! " + capital3)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Brasilia")
    EndIf

    TextWindow.WriteLine(" Last-Name of the President of U.S.A. ")
    president1= TextWindow.Read()
    If president1 = "Obama" Then
      TextWindow.WriteLine(" Right ! " + president1)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Obama ")
      EndIf
     
      TextWindow.WriteLine(" Last-Name of the President of France ")
    president2= TextWindow.Read()
    If president2 = "Sarkozy" Then
      TextWindow.WriteLine(" Right ! " + president2)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Sarkozy ")
      EndIf
     
       TextWindow.WriteLine(" Last-Name of the President of Brazil ")
    president3= TextWindow.Read()
    If president3 = "Rousseff" Then
      TextWindow.WriteLine(" Right ! " + president3)
    Else
      TextWindow.WriteLine(" Wrong ! Right name is Rousseff ")
      EndIf


    Carlos Fernández Muriano
    Wednesday, December 7, 2011 3:02 AM
  • Carlosfmur1948 , I studied geography after a long time.

    I made a graphic version of yours.  LRD036 

    Enjoy.

    Saturday, December 10, 2011 3:48 AM
    Answerer
  • NaochanON,

    Very nice interactive program.

    Sunday, December 11, 2011 11:40 AM
    Moderator
  • Really, very nice

    May I use it in my classes NaochanON ?

    Course, giving the credit to you, the author.


    Carlos Fernández Muriano
    Sunday, December 11, 2011 12:36 PM
  • Yes . Please use .

     Since I think that it is applicable to other fields, make freely and change.

    Sunday, December 11, 2011 11:20 PM
    Answerer
  • Thanks NaochanON
    Carlos Fernández Muriano
    Monday, December 12, 2011 1:01 AM
  • Posting Sample Source Code

    A class-room exercise, made by students in groups of three people each one

    An easy program (65 code lines) that let choose the operation that user wants: adding, subtracting, product, power and root.

    Published as  FQD869 


    Carlos Fernández Muriano
    Wednesday, December 14, 2011 9:13 PM
  • World famous river quiz.

    JGN066-0  

     


    Friday, December 16, 2011 2:02 PM
    Answerer
  • NaochanON

    Wow !...JGN066-0  is a great program, indeed. Really interactive.

     I copy, paste and execute it in mi enviroment. It run ok but (sorry) I don´t know how to use. I see the question and the mark in the map. But ..where I must put the river name ?.

    I mean: When I click at any place, show me "no good, study more" (well may be is true...I wasn´t a good student of geography). 

    Woud you send me instructions for use it ?

    Thanks in advance,


    Carlos Fernández Muriano
    Friday, December 16, 2011 3:47 PM
  • Another great geography game - a bit tougher this one!
    Friday, December 16, 2011 3:50 PM
    Moderator
  • OK NaochanON

    I´m sorry. I could´t see the text (below) by my toolbar.

    All is Okay, now

    I´m so sorry. Thanks


    carlosfmur
    Friday, December 16, 2011 10:27 PM
  • LJX996-0   added National Flag question.



    Sunday, December 18, 2011 3:40 AM
    Answerer
  • I´ll tried it too, NaochanON

    Many thanks


    carlosfmur
    Sunday, December 18, 2011 1:00 PM
  • Dear litdev

    May be it was posted yet but I can´t found it. Draw the equation of the straight line plot showing the X axes and Y ( like MS Excel). Of course I´ll try to use for any equation.

    Thanks in advance,

    ____________________________________________________________________________

    ' y = ax
    TextWindow.Write("Enter the parameter a /integer/: ")
    a = TextWindow.ReadNumber()
    TextWindow.Write(" Enter the value of x /integer/: ")
    x1 =TextWindow.ReadNumber()
    y1 = a * x1
    TextWindow.WriteLine("the value of y1 is: " + y1 )

    ' for any value of a and x  y= a*x
    TextWindow.Write(" Enter another value of x /integer/: ")
    x2 = TextWindow.ReadNumber()
    y2 = a * x1
    TextWindow.WriteLine("the value of y2 is: " + y1 )
    GraphicsWindow.Show()
    GraphicsWindow.DrawLine(x1 *100, Y1 * 100, x2 * 100, y2 * 100)

    __________________________________________________________________________

     


    carlosfmur
    Monday, December 19, 2011 12:51 PM
  • Well, now I want to plot the triangle (whether or not a rectangle).

    But I don't know how. Graphicwindow.DrawTriangle function asks for the coordinates.

    Thanks,

    ____________________________________________________________________________

     ' Pythagorean theorem
    ' a=hypotenuse
    ' b = adjacent cathetus
    ' c = opposite cathetus
    TextWindow.Write("Enter the value of a /hypotenuse/ :")
    hyp = TextWindow.Read()
    TextWindow.Write("Enter the value of b /adjacent cathetus/ :")
    catb = TextWindow.ReadNumber()
    TextWindow.Write("Enter the value of c /opposite cathetus/ :")
    catc = TextWindow.ReadNumber()
    cuad1 = Math.Power(hyp, 2)
    cuad2 = Math.Power(catb, 2)
    cuad3 = Math.Power(catc, 2)
    suma = cuad2 + cuad3
    If cuad1= suma Then
      TextWindow.WriteLine("the triangle is rectangle")
    Else
      TextWindow.WriteLine( "the triangle is not rectangle")
    EndIf


    carlosfmur
    Monday, December 19, 2011 6:25 PM
  • FDX511    "Where is Santa Now?  Call NORAD"
    Sunday, December 25, 2011 2:16 AM
    Answerer
  • Great, NaochanOn
    I do not think that I will achieve as excellent level of coding
    You know, I had begun with MS SB introduction to programming that does not show all the features of the language. With a little help of litdev I printed in .pdf format, SB Curriculum which is much more complete.
    It would be good to be able to disseminate SB in Argentina' s schools. Far as I know my school is the only that teachs it to their students. If young people can learn it well, they will have learned to program very well. Go to onother languages only be a matter of syntax. If in addition will develop SB access to MS Excel and MS Access it will be an extremely full language.
    In my humble opinion, of course.
    Congratulations, many thanks and happy Christmas for everybody

    carlosfmur - Buenos Aires
    Sunday, December 25, 2011 1:56 PM
  • Carlosfmur1948

    There is an extension that can access to EXCEL.

    http://excel4smallbasic.codeplex.com/

    It says ,"You need EXCEL 2007 or higher, .NET Programming Support option."

    (I don't have EXCEL2007 , so I've never tried it yet.  XD) 

    Sunday, December 25, 2011 11:34 PM
    Answerer
  • Thanks, many thanks
    carlosfmur - Buenos Aires
    Monday, December 26, 2011 1:17 AM
  • NaochanON
    I downloaded this software for Small Basic with Excel
    If good to accept a public license from Microsoft, wanting to run this, Windows tells me that this software can be harmful to my computer. I mean, Windows don´t let me run this program. Only "delete" or "Don´t run"
    I' ve Excel 2010 starter, running under Windows 7

    carlosfmur - Buenos Aires
    Monday, December 26, 2011 6:39 PM
  • Smart Screen is filtering to run this program. Unsigned program.
    carlosfmur - Buenos Aires
    Monday, December 26, 2011 6:53 PM
  • zjz899    New Year Greeting Program.

    (Fireworks around Mt.Fuji) 


    zjz899-0   End greeting is   renewed and added new fireworks.
    Wednesday, December 28, 2011 1:35 PM
    Answerer
  • Hello NaochanON
    I have imported your program and it seemed very nice, very artistic
    I'll follow it line by line, to learn.
    I hope that between now and March, in starting classes, I can somewhat improve my skill.
    I'm a beginner but older, that seek to excite beginners very young.
    Best regards

    carlosfmur - Buenos Aires
    Wednesday, December 28, 2011 3:28 PM
  • I hope ......   I can somewhat improve my skill.
    I'm a beginner but older, that seek to excite beginners very young.

          Maybe I am younger than you 8 years.

          I 'm also a beginner.  I also started SB this year.  (from SB0.9)

          Now I can program easily than you(maybe) . 

          SB is very easy program language.(I think)

          I'm now plannning to make a program that uses all commands.

          If someone use this program ,  it will be helpful to recognize SB well. 

          I  hope you improve your skill more and more next year.  

          NaochanON-1956

     

    Thursday, December 29, 2011 1:25 PM
    Answerer
  • Thank you very much NaochanON
    Be assured that I will apply.
    Your plan: a program that uses all commands will be spectacular.
    With your permission I will use with the students, and it will be an indicator of knowing absolutely all the capabilities of the language.
    For all Forum, I wish you a good 2012. And this time in a year,  I hope to provide a good quality program, in Small Basic.

    carlosfmur - Buenos Aires
    Saturday, December 31, 2011 3:38 PM
  • Hello
    This exercise seeks to enter the diameter of a circle and then calculates the value of the circumference and the area
    Later the graphic. It is easy because the width and height are the diameter of the circle.
    After cleaning the screen, called the base and the height of an equilateral triangle.
    Calculates the perimeter and the area.
    Then the graphic (tried that coordinates follow the steps of the triangle base and height).
    I appreciate the corrections that you make me.
    Thanks and greetings
    _____________________________________________________________________________
    TextWindow.WriteLine("Enter the value of the diameter")
    diameter = TextWindow.ReadNumber()
    radio = diameter / 2
    area = (Math.Pi) * radio * radio
    circumference= (Math.Pi) * radio
    TextWindow.WriteLine("el area es: " + area)
    TextWindow.WriteLine("la long es: " + circumference)
    GraphicsWindow.BackgroundColor = "Yellow"
    GraphicsWindow.DrawEllipse(100, 100, diameter, diameter)
    GraphicsWindow.BrushColor = "LightBlue"
    GraphicsWindow.FillEllipse(200, 200, diameter, diameter)
    TextWindow.Clear()
    TextWindow.WriteLine("Enter the base of the triangle equilateral")
    base = TextWindow.ReadNumber()
    TextWindow.WriteLine("Enter the height of the triangle")
    height = TextWindow.ReadNumber()
    perimeter= base * 3
    area =(base * height) / 2
    TextWindow.WriteLine("the perimeter of the triangle is: " + perimeter)
    TextWindow.WriteLine("the area of the triangle is: " + area)
    x1 = 200
    y1 = 200
    x2 = 200 + base
    y2 = 200
    x3 = 200
    y3 = 200 + height
    GraphicsWindow.BrushColor = "LightBlue"
    GraphicsWindow.DrawTriangle(x1, y1, x2, y2, x3, y3)

    carlosfmur - Buenos Aires
    Tuesday, January 10, 2012 7:48 PM
  • I am sorry:
    "el area es" means "the area is"
     "la long es" means "the circle is"

    carlosfmur - Buenos Aires
    Tuesday, January 10, 2012 8:01 PM
  • Hello
    This is a very simple exercise that operates (writes and retrieves) data in text format in an Excel file (sample.xls) as opposed to a text file (e.g. sample.txt).
    Does not seem very useful, but perhaps others move to work with numerical data, and that a programme can send data input to the spreadsheet and retrieve results.
    I hope so.
    Welcome corrections and comments
    Best regards
    ____________________________________________________________________________
    TextWindow.Title = "write in .xls file"
    ' defines the path to the file
    pathfile = "C:\Users\carlos\Documents\sample.xls"
    '  writes in the first row of the file
    TextWindow.WriteLine(" Write: " + File.WriteLine(pathfile, 1, " First line"))
    '  writes in the second row of the file
    TextWindow.WriteLine(" Write 2: " + File.WriteLine(pathfile, 2, "Pi * r * r "))
    ' Appends content to the end of the file
    TextWindow.WriteLine(" Add contents: " + File.AppendContents(pathfile, "Excel let you solve logics functions"))
    ' skip a line in the window
    TextWindow.WriteLine(" ")
    ' read the entire contents of the file and displays it in the window
    TextWindow.WriteLine(" Read contents: " + File.ReadContents(pathfile))

    carlosfmur - Buenos Aires
    Wednesday, January 11, 2012 2:17 PM
  • Hello gentlemen
    I repeated the exercise write and retrieve data, from Small Basic, with a Word file instead of Excel file.
    The results were similar. You can write and retrieve data with:  .txt, .xls  and .doc files
    Now transcribe you the same exercise using an Access database file: sample.msdb.
    Both using the extension such as .exe (application)or  .msdb, results are the same.
    The program is running correctly(write and recovery) but when I go to open the database previously created, does not allow me due to format issues.
    But I have no doubt that Small Basic can access all these type of files.
    Many, many thanks for your comments,
    _____________________________________________________________________________
    TextWindow.Title = "write in Access sample.msdb file. Type= .exe"
    ' defines the path to the file
    pathfile = "C:\Users\carlos\Documents\sample.exe"
    '  writes in the first row of the file
    TextWindow.WriteLine(" Write: " + File.WriteLine(pathfile, 1, " First line"))
    '  writes in the second row of the file
    TextWindow.WriteLine(" Write 2: " + File.WriteLine(pathfile, 2, " Customer Name: "))
    ' Appends content to the end of the file
    TextWindow.WriteLine(" Add contents: " + File.AppendContents(pathfile, "Access let you store and recovery data "))
    ' skip a line in the window
    TextWindow.WriteLine(" ")
    ' read the entire contents of the file and displays it in the window
    TextWindow.WriteLine(" Read contents: " + File.ReadContents(pathfile))

    carlosfmur - Buenos Aires
    Wednesday, January 11, 2012 7:50 PM
  • Your plan: a program that uses all commands will be spectacular.
    With your permission I will use with the students, and it will be an indicator of knowing absolutely all the capabilities of the language.

      Now I made  part(1).  FZV557-0  (part(2) will be upped soon.)

     Command list : see PVV894

     It became too big file.  so it is separated as  part(1) and part(2).

     ' This is a Small Basic(SB) Commands introducing  program.        Part(1)          by  NaoChanON
    '            There are 218 commands in SB.          This program uses mainly these commands.
    '             Clock(11), Controls(16), DeskTop(3), Dictionary(2), File(15), Flickr(2),
    '            GraphicsWindow(43), ImageList(3), Mouse(6), Network(2), Program(5),
    '            Shapes(18), Sound(13), Timer(4)
    '     except 
    '          File   LastError         (  I don't  know how to use.    no error occurs. ) 
    '          Program.getargument , .ArgumentCount     (  I don't  know how to use)
    '          GraphicsWindow. MouseMove  .MouseUp    .KeyDown .KeyUp .LastKey
    '        (If add GraphicsWindow. MouseMove,  this program stops.   I don't know why? )
    '   and
    '       Array(8) , Math(21),Stack(3),  TextWindow(18), Turtle(13)  are hardly used here. 
    '         ( They are introduced by another program. )
    '
    '   Note : If  you want to use file access commands (such as  Createdirectory, Deletedirectory,  Writecontents,  Writeline, Insertline ),
    '               remove ' marks.  (LineNo   74,76,78,80,82 )         When using them, you must be carefully. 
    '   No125  etc.   are command list number.      see    PVV894         
    '

     Introducing document will be made later( some day). 

     Please use freely and enjoy. 

    *Function......
    Flickr(gets a photo ) ,  Dictionary(meaning), Graphics drawing(mouse, polygon), Sound (playMML, file,chime....), Show Files (Text, photo), File explorer(Makedirectory,Deldirectory,Save as,delfile,Readline,insertline...) 

     


    • Edited by NaochanONEditor Thursday, January 12, 2012 4:01 AM add comments
    Thursday, January 12, 2012 3:24 AM
    Answerer
  • Thank you NaochanON
    Excellent complement of the study material.
    Very generous.
    Best regards

    carlosfmur - Buenos Aires
    Thursday, January 12, 2012 12:46 PM
  • Hi NaochanON

    The  FZV557-0  row 390.9  variable  LineText not defined

    Thanks

     


    carlosfmur - Buenos Aires
    Thursday, January 12, 2012 3:41 PM
  • NaochanON
    The PVV894 is an excellent summary of the functions of SB
    Very useful for me
    Best regards,

    carlosfmur - Buenos Aires
    Thursday, January 12, 2012 7:29 PM
  •  FZV557-1    added some code round 39  (usage of  LastText)  .

     

    Friday, January 13, 2012 12:29 AM
    Answerer
  • So I was trying to see if I could just make a square and animate it to rotate.  I succeeded, but is this an okay way to appoach this project?

     

    ttq917

     

    Thanks


    Allen
    Friday, January 13, 2012 4:17 AM
  • Your method works well, here is another using Shapes - less flicker sometimes.

    GraphicsWindow.Show()
    GraphicsWindow.Width = 800
    GraphicsWindow.Height = 450
    GraphicsWindow.BackgroundColor = "#994099"
    GraphicsWindow.PenColor = "#ffff09"
    GraphicsWindow.BrushColor = "#00000000" 'Transparent
    GraphicsWindow.KeyDown = myKey
    
    xc = 200
    yc = 200
    rad = 50
    angle = 0
    
    square = Shapes.AddRectangle(2*rad,2*rad)
    Shapes.Move(square, xc-rad,yc-rad)
    
    While ("True")
      angle = angle+1 '1 degree per timestep
      Shapes.Rotate(square,angle)
      Program.Delay(20)
    EndWhile
    
    Sub myKey
      If GraphicsWindow.LastKey = "Escape" Then
        Program.End()
      EndIf
    EndSub


    Friday, January 13, 2012 7:26 PM
    Moderator
  • My name is Kyle and I am 10 years old. I wrote a program to practice times tables. My import code is GDR304

     

     

    • Edited by mr. kkyle Saturday, January 14, 2012 12:14 AM
    Saturday, January 14, 2012 12:13 AM
  • Well done Kyle!

    Importing GDR304 gave the code for two seperate programs that do the same thing (more or less).  The first one ending at line 320 was done the hard way with much repeated code (and the odd bug).  Then the second one starting at line 321 did same thing without any bugs and in less than 20 lines of code, which is a good demonstration of the power of Loops. Maybe you included both to show the difference?  My suggestion is to reduce the program to start at line 321.

    Once again, well done!

    Happy coding.

    Bert

    Saturday, January 14, 2012 2:38 AM
  • I made a fishing game.  HTW116  Enjoy!

    Sorry  HTW116 .
    Sunday, January 15, 2012 10:44 AM
    Answerer
  • Looks very colorful - can you get a new publish ID - I get an error importing with HYW116.
    Sunday, January 15, 2012 11:58 AM
    Moderator
  • Sorry  HTW116 is correct.
    Sunday, January 15, 2012 12:04 PM
    Answerer
  • A program that uses all small basic(SB) commands , part(2) has now completed.

      part(1)=    FZV557-1 

      part(2)=    NZM750   

    Command list was renewed : see PVV894-0

    Monday, January 16, 2012 12:32 PM
    Answerer
  • FTF570    Data extension required. Chose movie directory.

     If some key is pressed or movie ends , randomly  movie is selected and played . 

     and bubbles , fishes move.(like HTW116)

     

     

     

     

    Saturday, January 28, 2012 2:45 PM
    Answerer
  • Hello NaochanOn
    Thank you for the code and thank you for the beatles.
    They are my favorites since I was a teenage.
    Just last year Paul McCartney gave a stunning concert here in Argentina.
    His first song was in tribute to "my friend John".
    Good, but I'm going out the thread... sorry
    I downloaded your program and it gives me errors of "cannot find object".
    I suppose that it is because I did not introduce Data Extensions.
    I guess it's time to start using them. I never used them so far.
    I'm going to try it and if I have some difficulty, I´ll comment on it.
    My best regards

    carlosfmur - Buenos Aires
    Sunday, January 29, 2012 2:46 PM
  • Here's something I have been working on today: FRF971

     

    It's a polar clock, which shows the current time as a series of concentric circles. Going from outside, they are measuring: the current minute, the current hour, the current day, the current month and the current year.

    • Edited by Steve Paget Wednesday, February 1, 2012 9:40 PM
    Wednesday, February 1, 2012 9:39 PM
  • This program is very, very simple. CPW984

    An Exercise for high school students.
    A triangle fly (rotate) 360 degrees
    with the music of "Maid with the Flaxen Hair.mp3 "
    Appears the "chimes.wav" sound, but is covered.
    Then a ball moves to position itself just at the apex of the triangle with the end of "Kalimba.mp3".
    I can't handle a tune cut before starting another.
    Perhaps someone can correct it.
    Thanks

    carlosfmur - Buenos Aires
    Saturday, February 4, 2012 1:35 AM
  • CPW984-0 How about this?  In this program  , "Maid with the Flaxen Hair.mp3" is used.   

     ("Kalimba.mp3" takes more than 5min.    XD)      

    Saturday, February 4, 2012 1:47 PM
    Answerer
  • Hi NaochanON
    The CPW984 program is fast and agile.
    The ball is going towards the triangle in seconds and stop stays in its vertex.
    and ends with Kalinba.MP3
    The program CPW984-0 (??) is horribly slow.
    Is there any way to erase what one's self published?
    I would need your help to stop program at the end (no more than 5 seconds)
    Something like stop.sound or an end program (of this: CPW984).
    Once again, many thanks for your attention

    carlosfmur - Buenos Aires
    Saturday, February 4, 2012 3:11 PM
  • 1)CPW984 still remains.

    2)I may mistake.

     Then a ball moves to position itself just at the apex of the triangle with the end of "Kalimba.mp3".

     Do you mean  stop sounds?

     ( "Maid with the Flaxen Hair.mp3" is alredy running.  and "Kalimba.mp3"   starts running.)

     If so, add sound.stop().   PLZ see CPW984-1

    Sunday, February 5, 2012 1:47 AM
    Answerer
  • Hello NaochanON
    I have imported your CPW984-1
    It is exactly what I was looking for. Thanks a lot.
    So I have saved it  as Naoch12
    Perhaps it should be shared with you my professor's salary.
    Or invite you to you see Boca Juniors to play soccer.
    Precisely yesterday withdrew from the soccer our dear Martin Palermo, with a friendly match with large figures, many retreats.
    And we have filled their huge Stadium.
    Best regards,

    carlosfmur - Buenos Aires
    Sunday, February 5, 2012 1:32 PM
  • MDF997 :  A simple class-room exercise using:

    Sound.Play - Shapes.AddImage - Shapes.Move- Shapes.Animate - Shapes.HideShape - Sound.Stop -
    GraphicsWindow.Clear() - Flickr.GetPictureOfMoment() - GraphicsWindow.DrawResizedImage - and

    Program.End()


    carlosfmur - Buenos Aires
    Monday, February 6, 2012 3:59 PM
  • RML443
    A producing olive oil company orders his employee rent barrels for their monthly production.
    Gives him information of litres of oil produced for a given month.
    Employee must calculate the total volume in cm3 of every barrel bearing as data diameter and height of each barrel.
    Shall detract  the 10 cm from the top of the barrel to the surface of oil as indicated by the law ( net volume).
    Him must convert the net volume of each barrel, cm3 to liters.
    And will calculate the amount of barrels that must be rented to store the monthly production.
    Must round all amounts ( Math.Round)

    carlosfmur - Buenos Aires
    Monday, February 6, 2012 5:28 PM
  • Mp3 Player : HHW942 (Data Extension Based)

    Music Player


    They say working hard is good but i say working smart is best...

    Wednesday, February 8, 2012 8:32 AM
  • Ah, cool playing cards. Very nice.
    Wednesday, February 8, 2012 5:26 PM
  • Lovely. I like the way you have made it adaptable with the Scale option. Look forward to seeing the rest of it!

    I'd like to read the article you mentioned. Is it available online?

    • Edited by Steve Paget Sunday, February 19, 2012 1:11 PM
    Sunday, February 19, 2012 1:10 PM
  •  

     It is an exercise for class at secondary school (15 / 16 years old)

      FZB323
    Unfortunately, I am afraid that Microsoft Argentina it is not aware of Small Basic

    Boost fundamentally to C#.NET, but teenagers find it arid.


    carlosfmur - Buenos Aires

    Tuesday, February 21, 2012 12:07 PM
  • I made   " Jigsaw puzzle " RWJ900.  

    Data Extension required.

    A photo (Flickr ) is divided and cropped. and scattered.

    you must rearrange photos correctly.  (shortest time is 60sec now) 

    Tuesday, February 21, 2012 1:50 PM
    Answerer
  • Thanks, Steve

    Actually it's not really an article - more like a site dedicated to Pacman. It's called "Pacman Dossier". If you do a Google search "Pacman Dossier", the site should show up as one of the first. It has a whole section dedicated just to the logic of the Pacman maze that I found really interesting. It doesn't provide any source code for anything, however the explainations are very eye opening.

    Here is my new and improved maze drawing program - CWQ839

    idk how to send a new message so, i will quote the thanks steve one, but i made an operating system based on MS-DOS it has a few programs that other people made but the word processor in it is what i made myself. It is a large file of up to 2,506 statements. 

    Here is the import#: BDT021

    It is cool but a large file.


    • Edited by Taranoshi Wednesday, February 22, 2012 5:32 PM spelling error
    Wednesday, February 22, 2012 5:31 PM
  •  Just to not detach me from this friendly Forum, I added a simple exercise - HHZ312


    carlosfmur - Buenos Aires

    Wednesday, March 28, 2012 10:47 PM
  •   This is one added to HHZ312

    Simple exercise for high school (16 years old) - HHZ312-0
    Best regards



    carlosfmur - Buenos Aires

    Thursday, March 29, 2012 5:22 PM
  •   

     Fall color DarkSalmon rays at random and  dynamically, from a vertex until that completes a triangle.

    Simultaneously appear small Yellow ellipses that are doing small
    spots also on random and dynamically
    The entire exercise is in movement
     PZM699

    carlosfmur - Buenos Aires

    Thursday, March 29, 2012 6:22 PM
  •  

    This exercise WVS286 alternate 5 times two photos of the famous drummer Gene

    KrupaOnce this sequence ends (5 times) this process ends

    Then appears a photo of the time of  Flickr

    and then successively shown 5 photos at random from Flickr

    was very fun to do this exercise.

                 


    carlosfmur - Buenos Aires

    Thursday, March 29, 2012 9:13 PM
  •  in the same program I added another drummer, Ringo Starr
    so that alternate with Krupa
    the rest is equal

                   



    carlosfmur - Buenos Aires

    Thursday, March 29, 2012 10:01 PM
  • Edit 1:

    Import Code: QHB979 Needs Data Extension Pack!

    GraphicsWindow.Height = 1000 GraphicsWindow.Width = 1000 GraphicsWindow.BackgroundColor = "Black" GraphicsWindow.PenColor = "White" AFK = Controls.AddButton("Custon Color", 10, 10) GraphicsWindow.BrushColor = "Red" Red = Controls.AddButton("Red", 150 ,10) GraphicsWindow.BrushColor = "Orange" Orange = Controls.AddButton("Orange", 200 ,10) GraphicsWindow.BrushColor = "yellow" Yellow = Controls.AddButton("Yellow", 300 ,10) GraphicsWindow.BrushColor = "green" Green = Controls.AddButton("Green", 400 ,10) GraphicsWindow.BrushColor = "Blue" Blue = Controls.AddButton("Blue", 500 ,10) GraphicsWindow.BrushColor = "Magenta" Magenta = Controls.AddButton("Magenta", 600 ,10) GraphicsWindow.BrushColor = "White" White = Controls.AddButton("White", 700 ,10) GraphicsWindow.BrushColor = "Teal" Teal = Controls.AddButton("Teal", 800 ,10) GraphicsWindow.BrushColor = "Cyan" Cyan = Controls.AddButton("Cyan", 900 ,10) GraphicsWindow.MouseDown = OnMouseDown GraphicsWindow.MouseMove = OnMouseMove Controls.ButtonClicked = OnButtonClick Sub OnButtonClick If Controls.LastClickedButton = AFK Then Input = Dialogs.AskForColor() GraphicsWindow.PenColor = Input EndIf If Controls.LastClickedButton = Red Then GraphicsWindow.PenColor = "Red" EndIf If Controls.LastClickedButton = Orange Then GraphicsWindow.PenColor = "Orange" EndIf If Controls.LastClickedButton = Yellow Then GraphicsWindow.PenColor = "Yellow" EndIf If Controls.LastClickedButton = Green Then GraphicsWindow.PenColor = "Green" EndIf If Controls.LastClickedButton = Blue Then GraphicsWindow.PenColor = "Blue" EndIf If Controls.LastClickedButton = Magenta Then GraphicsWindow.PenColor = "Magenta" EndIf If Controls.LastClickedButton = Teal Then GraphicsWindow.PenColor = "Teal" EndIf If Controls.LastClickedButton = Cyan Then GraphicsWindow.PenColor = "Cyan" EndIf If Controls.LastClickedButton = White Then GraphicsWindow.PenColor = "White" EndIf EndSub Sub OnMouseDown prevx = GraphicsWindow.MouseX prevy = GraphicsWindow.MouseY EndSub Sub OnMouseMove x = GraphicsWindow.MouseX y = GraphicsWindow.MouseY If (Mouse.IsLeftButtonDown) Then GraphicsWindow.DrawLine(prevx, prevy, x, y) EndIf prevx = x prevy = y EndSub


    Friday, March 30, 2012 12:07 AM
  •   Hi  CodingLikeCrazy

    I´ll analize it and I´ll give my feedback, of course

    But since to now,it  is very useful for me

    Many thanks


    carlosfmur - Buenos Aires

    Friday, March 30, 2012 1:05 AM
  • Spirograph http://en.wikipedia.org/wiki/Spirograph

    SpiroGraph

    Import Code : JCM082

    And a very nice tutorial too : on SkyDrive Word App


    They say working hard is good but i say working smart is best...


    Edit-1 : I need suggestions to improve this program, any advice and feedback is always welcome...

    • Edited by 4mir '- Sunday, April 1, 2012 8:17 PM
    Sunday, April 1, 2012 7:32 PM
  • A-HA  experience  LVF712   

    Gets a photo by Flickr, some part is changed its color gradually.

    If you find , click the part.

    Tuesday, April 10, 2012 12:23 PM
    Answerer
  • A  paint program .  BVT539   requires Data Extension.

    Can get a photo by Flickr or from your photo album.

    can save cropped view. 

    can change pen size and eraser size.

    can change color,  as  "#F49FFF" ,  by clicking buttons.

     * version up  BVT539-1    Added textbox for Flickr (search word) , changed image.
     * version up  BVT539-2    Added Message Shape ,Message color changes , Message shape can be removed on the garbage can.

          
     

    Thursday, April 12, 2012 7:38 AM
    Answerer
  • A  paint program .  BVT539   requires Data Extension.

    Can get a photo by Flickr or from your photo album.

    can save cropped view. 

    can change pen size and eraser size.

    can change color,  as  "#F49FFF" ,  by clicking buttons.

     * version up  BVT539-1    Added textbox for Flickr (search word) , changed image.
     * version up  BVT539-2    Added Message Shape ,Message color changes , Message shape can be removed on the garbage can.

          
     

    A better color selector FFT798

    They say working hard is good but i say working smart is best...

    Saturday, April 14, 2012 7:38 AM
  • Yes I know that .  Litdev has already showed that way.

    So, I chose this way. 

    Saturday, April 14, 2012 9:39 AM
    Answerer
  • Invaders! ID XLF706

    Well, I havn't coded since high school (20 years ago). Tried Small Basic a month ago and here is the game I came up with.

    Works online too, http://smallbasic.com/program/?XLF706

    Too long to list, use the links above. Let me know what you guys think.

    Next? I think I'll try a race car game like the old pole position.

    Monday, April 16, 2012 12:37 AM
  • Nice program really addictive and fun!
    Monday, April 16, 2012 2:27 AM
  • Excellent JKrüg! Fast paced retro game!   :D
    Monday, April 16, 2012 2:49 AM
    Answerer
  • Finally!!!

    I Could not post my replys and I just figured it out.

    you cannot use firefox to post.



    Tuesday, April 24, 2012 6:22 PM
    Answerer
  • FireFox works fine for me.
    Tuesday, April 24, 2012 7:54 PM
    Moderator
  • Oh it must be the upgraded version.
    Tuesday, April 24, 2012 8:12 PM
    Answerer
  • I just wrote a neat sample At TLL357

    it simulates a ball being shot from a cannon while taking in account  gravity, power and angle.

    public domain. Anyone can use this.

    Tuesday, April 24, 2012 8:14 PM
    Answerer
  •  Hello

    This is a modest variation of an exercise of the text
    It are drawing circles (DrawEllipse around a central point
    and then it filling in its one to one (FillEllipse)
    After square drawn around the same center point, without FillRectangle
    I had fun and the students liked.
    Sorry, my level is still not enough for more complex things.
    But I am applying  Small Basic's proposal (I think)
    Fun and easy
    My best regards                                           MXJ453    

                                                                                                                                                         


    carlosfmur - Buenos Aires

    Wednesday, April 25, 2012 11:51 PM
  •   Drawing regular polygon (input number and size of sides) using objetct turtle

      VZF378


    carlosfmur - Buenos Aires

    The user enters the number of sides of regular polygon
    Then enter the size of sides
    Find the perimeter(triangle,pentagon, hexagon)
    and displays
    With these data the turtle draws the figure



    Thursday, April 26, 2012 2:25 AM
  •  

     VZF378 again

     


    carlosfmur - Buenos Aires

    Thursday, April 26, 2012 2:22 PM
  • Calculator - published as BQJ710-0.


    Nonki Takahashi

    Friday, April 27, 2012 1:47 AM
    Moderator
  • Gun Slinger -- BHV757

    Aim with your mouse. Fire with left mouse click. Reload with right mouse click.

    Better to import this one, you can't reload with the right mouse click on the web.

    All comments are welcome, good or bad!

    I need a new idea for a game, any thoughts??

    Catch you all later.

    Saturday, April 28, 2012 2:27 PM
  •    QCD342  

    I think that now yes

    The user enters the number and lenght of sides of a regular polygon.
    The pgm calculates the perimeter and then the area
    and finally graphics the figure with the turtle object

    It entertained me a lot

    Rgards and many thanks

     


    carlosfmur - Buenos Aires

    Wednesday, May 2, 2012 4:17 PM
  • Hello,

    Check out this new game at: http://sean.alyrica.net/Games/Artillery wars.Zip    (The username controls don't work yet)

    Any suggustions would be helpful.






    Friday, May 11, 2012 12:11 AM
    Answerer
  • Please, where can i download these smallbasic programs?

    Thanks...vm

    Monday, May 14, 2012 11:53 PM
  • Copy the import code then open up small basic and click import then paste the import code and then hit F5 when the code comes up1

    Tuesday, May 15, 2012 12:11 AM
  • Or you can simply put this into your url:  http://smallbasic.com/program/? Plus whatever the code is.
    Tuesday, May 15, 2012 12:19 AM
    Answerer
  • Ah yes, Thanks...vm

    www.vmars316.com

    Tuesday, May 15, 2012 4:35 PM
  • How can i pause or stop program? 

    What is it that enables smallBasic program to execute in browser?

    Thanks...vm


    www.vmars316.com

    Tuesday, May 15, 2012 4:47 PM
  • You cannot stop a program in smallbasic.com unless the program itself tells it to stop. however if you are running it in the smallbasic program then you can just click the "End program" button on the bottom right of the small basic program.
    Tuesday, May 15, 2012 11:27 PM
    Answerer
  •  Hello vmar

    perhap using ?

    Program.Delay(1000)

    Program.End()

    Regards


    carlosfmur - Buenos Aires

    Wednesday, May 16, 2012 12:34 PM
  • Flash Anzan program  (high speed mental arithmetic).

       DVW276   

    Saturday, June 2, 2012 10:08 AM
    Answerer
  • NaochanOn - another great program.  Sorry I didn't catch this when I split this thread.
    Saturday, June 2, 2012 12:25 PM
    Moderator
  • Finally, the ultimate version of the breaker game is out! download it from here and play. It has 6 distinct levels and I also added cheat codes to the game for more fun.  You will get the cheat codes once you finish the game (And please don't cheat to find the cheat codes! Play the game thoroughly!). Follow this link to download:    Breaker V 2.0 Ultimate

    I also added it to microsoft technet gallery. Here is the link:

    Breaker Game on Technet Gallery

    And here is a screen shot of the game:

    https://www.dropbox.com/s/u8nthph10umtjeb/breakerV2screenshot.png

    Also please note that some of the sounds and pictures used in the game are not mine. I downloaded the sound used in the main menu from here:

    http://www.newgrounds.com/audio/listen/199965





    Tuesday, December 18, 2012 3:15 AM
  • Here is another game that I made using small basic. I named it Tanks game. It is a 2-player game you can play with one of you friends.

    I am so thankful to Litdev for his awesome extensions. I used his extension to use an animated image (the explosion of the tanks) in my game.

    Here is the link you can download the game: Tanks Game

    Ane here is the link to the game on Technet gallery:   Tanks Game on Technet Gallery


    Tuesday, December 18, 2012 6:46 AM
  • Really cool games Behnam - a lot of work went into these.  The graphics are very impressive.  If you feel you can also give the source code that would be great for people to see how you did it.

    This thread is quite old and very long and takes several minutes to load on my PC.  Try using the sticky thread at the top of this forum - its quite long and I will split it again some-time.  I will lock this thread to stop it growing even longer.

    If there is a reason you chose this thread rather than the sticky one or starting a new post then please say.

    Tuesday, December 18, 2012 6:49 PM
    Moderator