幻想森林

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 3843|回复: 0

[其他] Visual Basic小弟Small Basic

[复制链接]

14

主题

194

帖子

1256

积分

⑥精研

积分
1256
发表于 2011-3-21 15:27:30 | 显示全部楼层 |阅读模式
免費軟件(無需任何註册)
現在版本:0.91
下載頁(多語言介面)5.7M
簡介:自選語言(有英、簡、繁、……)
http://www.microsoft.com/downloa ... 8-A777-8F3644406787
  
  

与Visual Basic比較、程式碼較短
Visual Basic
Public Class Form1
  Dim x, y As Integer
 &#160rivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    x = 0
    y = 0
    Timer1.Interval = 100
    Timer1.Enabled = True
  End Sub
 &#160rivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Dim g As Graphics
    g = CreateGraphics()
    g.Clear(Color.White)
    x = x + 1
    y = y + 1
    g.FillEllipse(Brushes.Aquamarine, x, y, 30, 30)
    If (x + 60 > Me.Width) Then
      Timer1.Enabled = False
    End If
  End Sub
End Class

画面の上を円が左上から右下へと移動する処理を「Visual Basic」で記述したコード


Small Basic
x=0
y=0
ball = Shapes.AddEllipse(30,30)
For x=0 To GraphicsWindow.Width
  Shapes.Move(ball, x, y )
  y=y+1
 &#160rogram.Delay(10)
EndFor

画面の上を円が左上から右下へと移動する処理を「Small Basic」で記述したコード

.NET Framework 3.5 SP1.Windows XP以降利用
Small Basic本体、簡介PDF/Doc、入門PPT(全22個、有一括下載)
http://msdn.microsoft.com/ja-jp/beginner/ff384126.aspx

只要輸入文字是命令(関鍵字、物件、右辺就有功能簡介、命令格式
物件也大副簡化、是一個極容易的編寫程式入門軟件、

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
我的小窩(115) http://wo.115.com/1460467
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|幻想森林

GMT+8, 2024-3-29 06:45 , Processed in 0.023478 second(s), 21 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表