Jump to content


 


Register a free account to unlock additional features at BleepingComputer.com
Welcome to BleepingComputer, a free community where people like yourself come together to discuss and learn how to use their computers. Using the site is easy and fun. As a guest, you can browse and view the various discussions in the forums, but can not create a new topic or reply to an existing one unless you are logged in. Other benefits of registering an account are subscribing to topics and forums, creating a blog, and having no ads shown anywhere on the site.


Click here to Register a free account now! or read our Welcome Guide to learn how to use this site.

Photo

Take a look: SmallBasicm, i'ts great!


  • Please log in to reply
1 reply to this topic

#1 Wolfy87

Wolfy87

  • Members
  • 414 posts
  • OFFLINE
  •  
  • Gender:Male
  • Location:England
  • Local time:05:28 PM

Posted 30 March 2009 - 02:03 PM

SmallBasic (SB) is a new IDE released by DevLabs, it is great for begginers being a simpler language with a great interface, i usually use vb but this is very interesting.

You can download it here from MSDN and this also contains the forums.
Heres the code of what i have just made:

'My first SB app, not my first VB one though;)
'Learnt all of this syntax from all of you =D thankyou!
'By Oliver Caldwell, 15, VB and SB rule!
'And this runs off my memory stick...code in school =)

posx = GraphicsWindow.Width / 2
posy = GraphicsWindow.Height / 2
Switch1 = False
GraphicsWindow.Show()
GraphicsWindow.Title = "Etch a scetch!"
GraphicsWindow.Width = 1000
GraphicsWindow.Height = 700
GraphicsWindow.Left = 20
GraphicsWindow.Top = 20
GraphicsWindow.BackgroundColor = "Red"
GraphicsWindow.BrushColor = "Gray"
GraphicsWindow.FillRectangle(20, 20, 960, 660)
GraphicsWindow.BrushColor = "White"
GraphicsWindow.FillEllipse(10, 650, 100, 100)
GraphicsWindow.FillEllipse(890, 650, 100, 100)
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.MouseDown = MouseDown
GraphicsWindow.MouseUp = MouseUp
GraphicsWindow.MouseMove = OnMouseMove

 Sub MouseDown
  Switch1 = "True"
 EndSub

 Sub MouseUp
  Switch1 = "False"
 EndSub

 Sub OnMouseMove
  If Mouse.MouseX > posx And Switch1 = "True" Then
	posx = posx + 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  ElseIf Mouse.MouseX < posx And Switch1 = "True" Then
	posx = posx - 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  EndIf
  If Mouse.MouseY > posy And Switch1 = "True" Then
	posy = posy + 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)
  ElseIf Mouse.MouseY < posy And Switch1 = "True" Then
	posy = posy - 1
	GraphicsWindow.FillRectangle(posx, posy, 1, 1)  
  Endif
 EndSub

Only that much and i have made a nice little etch a scetch program =D

Have fun, Wolfy87.

BC AdBot (Login to Remove)

 


#2 Romeo29

Romeo29

    Learning To Bleep


  • Members
  • 3,194 posts
  • OFFLINE
  •  
  • Gender:Not Telling
  • Location:127.0.0.1
  • Local time:12:28 PM

Posted 30 March 2009 - 09:31 PM

SmallBasic requires .NET 3.5




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users