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

Question

Continued from here due to thread length.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

Carlosfmur1948 , I studied geography after a long time.

I made a graphic version of yours.  LRD036 

Enjoy.

Answer 5

NaochanON,

Very nice interactive program.

Answer 6

Really, very nice

May I use it in my classes NaochanON ?

Course, giving the credit to you, the author.

---

Carlos Fernández Muriano

Answer 7

Yes . Please use .

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

Answer 8

Thanks NaochanON

---

Carlos Fernández Muriano

Answer 9

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

Answer 10

World famous river quiz.

JGN066-0  

 

Answer 11

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

Answer 12

Another great geography game - a bit tougher this one!

Answer 13

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

Answer 14

LJX996-0   added National Flag question.

Answer 15

I´ll tried it too, NaochanON

Many thanks

---

carlosfmur

Answer 16

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

Answer 17

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

Answer 18

FDX511    "Where is Santa Now?  Call NORAD"

Answer 19

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

Answer 20

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) 

Answer 21

Thanks, many thanks

---

carlosfmur - Buenos Aires

Answer 22

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

Answer 23

Smart Screen is filtering to run this program. Unsigned program.

---

carlosfmur - Buenos Aires

Answer 24

zjz899    New Year Greeting Program.

(Fireworks around Mt.Fuji) 

zjz899-0   End greeting is   renewed and added new fireworks.

Answer 25

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

Answer 26

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

 

Answer 27

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

Answer 28

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

Answer 29

I am sorry:

"el area es" means "the area is"

 "la long es" means "the circle is"

---

carlosfmur - Buenos Aires

Answer 30

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

Answer 31

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

Answer 32

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...) 

 

Answer 33

Thank you NaochanON

Excellent complement of the study material.

Very generous.

Best regards

---

carlosfmur - Buenos Aires

Answer 34

Hi NaochanON

The  FZV557-0  row 390.9  variable  LineText not defined

Thanks

 

---

carlosfmur - Buenos Aires

Answer 35

NaochanON

The PVV894 is an excellent summary of the functions of SB

Very useful for me

Best regards,

---

carlosfmur - Buenos Aires

Answer 36

 FZV557-1    added some code round 39  (usage of  LastText)  .

 

Answer 37

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

Answer 38

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

Answer 39

My name is Kyle and I am 10 years old. I wrote a program to practice times tables. My import code is GDR304

 

 

Answer 40

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

Answer 41

I made a fishing game.  HTW116  Enjoy!

Sorry  HTW116 .

Answer 42

Looks very colorful - can you get a new publish ID - I get an error importing with HYW116.

Answer 43

Sorry  HTW116 is correct.

Answer 44

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

Answer 45

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)

 

 

 

 

Answer 46

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

Answer 47

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.

Answer 48

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

Answer 49

CPW984-0 How about this?  In this program  , "Maid with the Flaxen Hair.mp3" is used.   

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

Answer 50

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

Answer 51

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

Answer 52

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

Answer 53

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

Answer 54

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

Answer 55

Mp3 Player : HHW942 (Data Extension Based)

---

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

Answer 56

Ah, cool playing cards. Very nice.

Answer 57

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?

Answer 58

 

 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

Answer 59

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) 

Answer 60

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.

Answer 61

 Just to not detach me from this friendly Forum, I added a simple exercise - HHZ312

---

carlosfmur - Buenos Aires

Answer 62

  This is one added to HHZ312

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

Best regards

---

carlosfmur - Buenos Aires

Answer 63

  

 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

Answer 64

 

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

Answer 65

 in the same program I added another drummer, Ringo Starr

so that alternate with Krupa

the rest is equal

               

---

carlosfmur - Buenos Aires

Answer 66

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

Answer 67

  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

Answer 68

Spirograph http://en.wikipedia.org/wiki/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...

Answer 69

A-HA  experience  LVF712   

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

If you find , click the part.

Answer 70

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.

      
 

Answer 71

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...

Answer 72

Yes I know that .  Litdev has already showed that way.

So, I chose this way. 

Answer 73

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.

Answer 74

Nice program really addictive and fun!

Answer 75

Excellent JKrüg! Fast paced retro game!   :D

Answer 76

Finally!!!

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

you cannot use firefox to post.

Answer 77

FireFox works fine for me.

Answer 78

Oh it must be the upgraded version.

Answer 79

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.

Answer 80

 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

Answer 81

  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

Answer 82

 

 VZF378 again

 

---

carlosfmur - Buenos Aires

Answer 83

Calculator - published as BQJ710-0.

---

Nonki Takahashi

Answer 84

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.

Answer 85

   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

Answer 86

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.

Answer 87

Please, where can i download these smallbasic programs?

Thanks...vm

Answer 88

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

Answer 89

Or you can simply put this into your url:  http://smallbasic.com/program/? Plus whatever the code is.

Answer 90

Ah yes, Thanks...vm

---

www.vmars316.com

Answer 91

How can i pause or stop program? 

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

Thanks...vm

---

www.vmars316.com

Answer 92

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.

Answer 93

 Hello vmar

perhap using ?

Program.Delay(1000)

Program.End()

Regards

---

carlosfmur - Buenos Aires

Answer 94

Flash Anzan program  (high speed mental arithmetic).

   DVW276   

Answer 95

NaochanOn - another great program.  Sorry I didn't catch this when I split this thread.

Answer 96

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

Answer 97

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

Answer 98

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.