Visual Basic小弟Small Basic

tseyik

免費軟件(無需任何註册)
現在版本: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

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