0

SmallBasicのコードは次のとおりです。

GraphicsWindow.CanResize = 0
GraphicsWindow.Width = 201
GraphicsWindow.Height = 300
X = 0
circumstance = 0

'Initialization
GraphicsWindow.SetPixel(100,0,"Black")
code = "01111111"


'Start
For i=1 To GraphicsWindow.Height
For X=0 To GraphicsWindow.Width
Program.Delay(1)

If X>0 Then
  If GraphicsWindow.GetPixel(X-1,i-1) = "Black" Then
    circumstance = circumstance + 1
  EndIf
EndIf  

If GraphicsWindow.GetPixel(X,i-1) = "Black" Then
  circumstance = circumstance + 10
EndIf

If X<GraphicsWindow.Width Then
  If GraphicsWindow.GetPixel(X+1,i-1) = "Black" Then
    circumstance = circumstance + 100
  EndIf
EndIf  

TextWindow.WriteLine(circumstance)
  EndFor
EndFor

グラフィックウィンドウをピクセルごとに表示します。変数「状況」はそれが見つけたものです。ターゲットピクセルの左上に黒いピクセルがある場合、最初の桁は1になります。ターゲットピクセルの左上に黒いピクセルがある場合、2番目の桁は1になります。ターゲットピクセルの右上では、3桁目は1になります。しかし、私が何を試しても、状況は常に000を出力します。

4

2 に答える 2

0

GetPixel は常に私のために働いていました。使用している sB のバージョンは何ですか? ところで、グラフィックウィンドウは何らかの色でペイントする必要がありますが、デフォルトでは白ですが、色がないように見えるため、白は返されません。

于 2013-05-30T14:03:59.143 に答える