Istituto di Istruzione Superiore "Laeng Meucci"

Completare il programma perché termini il gioco alla 9 mossa o sia accorda di una vittoria

 

inviare il programma a Questo indirizzo email è protetto dagli spambots. È necessario abilitare JavaScript per vederlo.

per scaricare small basic

https://www.microsoft.com/it-IT/download/details.aspx?id=46392

 

 

esercizio small basic per 2 alsa e 4 alsa

 

 

GraphicsWindow.Height=600
GraphicsWindow.Width=600
'linee orizzontali
GraphicsWindow.DrawLine(200,0,200,600)
GraphicsWindow.DrawLine(400,0,400,600)
'linee verticali
GraphicsWindow.DrawLine(0,200,600,200)
GraphicsWindow.DrawLine(0,400,600,400)

GraphicsWindow.MouseUp=mouseup

contatore=0

For i=1 to 3
For j=1 To 3
gioco[i][j]=0
EndFor
Endfor

Sub mouseup

'calcola le coordinate della casella
x=math.Ceiling((Mouse.MouseX-GraphicsWindow.Left-8)/200)
y=math.Ceiling((Mouse.MouseY-GraphicsWindow.Top-30)/200)
'TextWindow.WriteLine(x+","+y+","+contatore)
Textwindow.WriteLine("")


If gioco[x][y]<1 then 'cliccata valida

contatore=contatore+1
if Math.Remainder(contatore,2)=0 Then
'cerchietto
GraphicsWindow.DrawEllipse(x*200-150,y*200-150,100,100)
gioco[x][y]=1
Else
'crocetta
GraphicsWindow.DrawLine(x*200-150,y*200-150,x*200-50,y*200-50)
GraphicsWindow.DrawLine(x*200-150,y*200-50,x*200-50,y*200-150)
gioco[x][y]=10
EndIf
'verifica la diagonale maggiore
test=gioco[1][1]+gioco[2][2]+gioco[3][3]
If (test=3) or (test=30) Then
TextWindow.WriteLine("hai vinto")
Program.end()
EndIf




For i=1 to 3
For j=1 To 3
Textwindow.Write(gioco[j][i]+" ")
EndFor
Textwindow.WriteLine("")
Endfor

EndIf
EndSub

 


Programmi

  • interfacciare cellulare con android ad arduino per utilizzarne i sensori: Amarino
microsoft small basic

Accesso Utenti

Albo docenti

Risultati immagini per albo docenti

Ricerca nel sito

Amministrazione trasparente

Amministrazione Trasparente

Albo online

Codice di comportamento dei dipendenti pubblici

Scuola Amica

ITS Recanati

            

H&T Lab

sito sviluppato in Joomla