I.I.S. OSIMO CASTELFIDARDO - Polo Scientifico Tecnologico

 

  1. ISCRIZIONI

    É ancora possibile iscriversi al Polo Scientifico Tecnologico rivolgendosi direttamente alla segreteria della scuola

 

Libri di testo 2017-18

Albo online

Amministrazione trasparente

Amministrazione Trasparente

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

ITS Recanati

            

sito sviluppato in Joomla