网络

下载文件

TextWindow.WriteLine(“开始下载……”)

path=Network.DownloadFile(“https://smallbasic-publicwebsite.azurewebsites.net/assets/tutorial-downloads/CodingClub_Practice01.pdf”)

TextWindow.WriteLine(path)

TextWindow.WriteLine(“下载完成!”)

 

这里下载的是个PDF文件,找到下载的文件,修改文件名为pdf即可打开。

 

下载网页文件

TextWindow.WriteLine(“开始下载……”)

path=Network.GetWebPageContents(“https://www.baidu.com”)

TextWindow.WriteLine(path)

TextWindow.WriteLine(“下载完成!”)

 

 

海龟绘图

这是引进的Logo语言的模式。

 

显示乌龟

Turtle.Show()

乌龟移动100个像素

Turtle.Show()

Turtle.Move(100)

 

绘制正方形

Turtle.Show()

Turtle.Move(100)

Turtle.TurnLeft()

Turtle.Move(100)

Turtle.TurnLeft()

Turtle.Move(100)

Turtle.TurnLeft()

Turtle.Move(100)

我们把程序简化一下

Turtle.Show()

For i=1 To 4

Turtle.Move(100)

Turtle.TurnLeft()

EndFor

把直线随机修改一下颜色

Turtle.Show()

For i=1 To 4

GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor()

Turtle.Move(100)

Turtle.TurnLeft()

EndFor

 

 

图形

图形界面

GraphicsWindow.Show()

 

 

设置一下窗体的外观

GraphicsWindow.BackgroundColor=”Pink”

GraphicsWindow.Title=”画板”

GraphicsWindow.Width=400

GraphicsWindow.Height=400

GraphicsWindow.Show()

 

 

画直线

GraphicsWindow.Title=”画板”

GraphicsWindow.BackgroundColor=”LightGray”

GraphicsWindow.Width=400

GraphicsWindow.Height=400

GraphicsWindow.Show()

GraphicsWindow.DrawLine(0,0,400,400)

GraphicsWindow.DrawLine(0,400,400,0)

 

 

 

修改笔的属性

GraphicsWindow.Title=”画板”

GraphicsWindow.BackgroundColor=”LightGray”

GraphicsWindow.Width=400

GraphicsWindow.Height=400

GraphicsWindow.Show()

GraphicsWindow.PenColor=”Red”

GraphicsWindow.PenWidth=5

GraphicsWindow.DrawLine(0,0,400,400)

GraphicsWindow.PenColor=”Blue”

GraphicsWindow.PenWidth=10

GraphicsWindow.DrawLine(0,400,400,0)

 

 

 

画图和填充图形

GraphicsWindow.Title=”画板”

GraphicsWindow.BackgroundColor=”LightGray”

GraphicsWindow.Width=600

GraphicsWindow.Height=600

GraphicsWindow.Show()

GraphicsWindow.PenColor=”Red”

GraphicsWindow.DrawRectangle(20,20,200,100)

GraphicsWindow.BrushColor=”Blue”

GraphicsWindow.FillRectangle(20,300,200,100)

 

 

循环

循环有两种语句,For和While

For实现的循环输出1到10

For i=1 To 10

TextWindow.WriteLine(i)

EndFor

 

 

 

While实现的循环输出1到10

i=1

While i<11

TextWindow.WriteLine(i)

i=i+1

EndWhile

 

 

 

 

条件与分支

不同时间的问候

If Clock.Hour<12 Then

TextWindow.WriteLine(“早上好!”)

EndIf

If Clock.Hour>=12 Then

TextWindow.WriteLine(“下午好!”)

EndIf

 

 

 

换种思路,再把程序实现一遍

If Clock.Hour<12 Then

TextWindow.WriteLine(“早上好!”)

Else

TextWindow.WriteLine(“下午好!”)

EndIf

 

 

早上好,下午好,晚上好

If Clock.Hour<12 Then

TextWindow.WriteLine(“早上好!”)

ElseIf Clock.Hour >=12 and Clock.Hour<18 then

TextWindow.WriteLine(“下午好”)

Else

TextWindow.WriteLine(“晚上好”)

EndIf

 

 

 

还有一种分支结构,不推荐使用,等我们学到微机原理与接口的课程中会发现,所有的循环本质上就是分支结构。

这里我们实现分支循环输出1到10

i=1

start:

TextWindow.WriteLine(i)

i=i+1

If i<11 Then

Goto start

EndIf

 

 

 

变量

程序中使用变量

TextWindow.Write(“your name:”)

name= TextWindow.Read()

TextWindow.WriteLine(name + “你好!”)

 

 

 

程序中使用数字

number1=12

number2=13

number3=number1*number2

TextWindow.WriteLine(“number3=”+number3)

 

 

 

入门

Small Basic 和编程

Small Basic应该是最简单的文本编程语言了,微软为孩子准备的。

Small Basic 编程环境

我们的第一个程序

我们不能免俗的第一个程序

TextWindow.WriteLine(“Hello World!”)

 

 

我们的第二个程序

TextWindow.ForegroundColor=”yellow”

TextWindow.WriteLine(“Hello World!”)