Newsgroup: it.hobby.scacchi
Titolo: Teaching Chess: codice vb per programmi di alto profilo didattico

Vorrei sottoporvi due routine vb che avrebbero il fine di educare lo
scacchista in erba a:
1) aprire con e4;
2) strutturare una fattivissima mentalità agonistica.
Sentitevi liberi di utilizzare il codice come meglio crediate.
E' ovvio che il tutto è suscettibile di ulteriori miglioramenti.
Mi aspetto quindi una vagonata di apprezzabili suggerimenti e
implementazioni evolutive del codice sottoelencato. :-)
Un salutone,
Stolcius
P.S.
Abbiate pietà di me... :-)
(1)-------------------------------------------------
Private Sub Learning_Opening_Engine()
  Dim Mossa As String
 
  Do
    Mossa = InputBox("Immettere mossa d'apertura")
    If Mossa = "e4" Then
       MsgBox "Abbandono..."
       Exit Sub
    Else
       MsgBox "Mossa sconsigliata: ritenta"
    End If
  Loop
End Sub
(2)---------------------------------------------
Private Sub Learning_rules_Engine()
  Dim Response
 
  Do
    Response = MsgBox("Orologio in moto?", vbYesNo)
    If Response = vbYes Then
       MsgBox "Arbitro, al mio avversario è squillato il cellulare!!!"
       Exit Sub
    End If
  Loop
 
End Sub

 Abbiate pietà di me... :-)
Ricordatevi che la tolleranza è il primo - imprescindibile - passo per
conseguire il titolo di Grande Maestro. :-)
Ciao,
Stolcius
P.S.
Ci ho provato...

 End Sub
Vi è il rischio di aver infilato in 3 righe di codice almeno una ventina di 
errori....sinceramente non ho provato a farlo girare...comunque ottima idea 
fare un programma che possa aiutare i principianti a crescere nel vasto 
mondo degli scacchi.
Ciao
VInsanto 

 IF Lcase(Mossa)="e4" Then
CUT
Dimenticavo è meglio usare la "strCmp" invece di fare confronti con questa 
sintassi 

 In effetti alcuni aspetti da rivedere ci sarebbero
Eccezionale! penso che le migliorie da te apportate abbiano dato vita a una
vera e propria "killer application"! :-)
Non c'è che dire: un tocco di genialità toscana non guasta mai! :-)
Ciao e grazie K,
Stolcius
P.S.
Penso che sarebbe altresì interessante implementare una funzione che
proponga all'ingenuo principiante un modello di scusa da tirare in ballo
per ogni specifica cappellata fatta OTB.
Che ne dici?

"Stolcius Von Stolcenberg" <mutusliber...@fastwebnet.invalid> ha 
scritto nel messaggio news:1pnfb2lsbki3a$.r1u9yhifzhu4$.dlg@40tude.net...

Io non capisco niente di programmazione ma credo che con 8 righe di QBASIC 
la facciamo finita...
10 CLS
20 INPUT MOSSA$
30 IF MOSSA$ = "E4" THEN PRINT "ABBANDONO"
40 ELSE PRINT "PATTA?"
50 INPUT OFFERTA$
60 IF OFFERTA ="NO" THEN PRINT "ALLORA RIFAI LA MOSSA": GOTO 10
70 ELSE PRINT "OK, GRAZIE"
80 END
Si potrebbe migliorare, perchè mi pare di ricordare che si possa chiedere un 
input scrivendo già la domanda, ma non mi ricordo il comando (GETINKEYS$ 
(SN)... o una cosa simile, boh non mi ricordo)
A dire il vero, mi è venuto in mente un giochetto che si faceva su Commodore 
Gazette negli anni 80: scrivere in una sola riga di basic, il programma più 
lungo possibile.
Allora vorrei lanciare la sfida agli scacchisti programmatori (così anche 
noi poveri cristi impariamo qualcosa sulla programmazione, che non fa mai 
male...):
siete capaci di scrivere in una sola riga (non importa in quale linguaggio) 
un programma (anche umoristico) che faccia finta di giocare a scacchi (sulla 
falsa riga di quello proposto nel post)?
Se proprio non si riesce, è possibile creare con un minor numero di righe, 
un motore che giochi a scacchi, seguendo le regole, non importa se muove a 
casaccio?
A parità di righe, è migliore il programma scritto nei vecchi linguaggi 
(tipo QBASIC, TP, per fare un esempio), in modo tale che anche chi fosse a 
digiuno di programmazione (come me) possa provare a farlo girare sul PC.
Naturalmente, se il listato fosse commentato, per noi ignoranti sarebbe 
bello capire come funziona un motore di intelligenza artificiale grezzo.
Ho provato, tempo fa, a leggere il libro di Ciancarini, ma non ci ho capito 
una mazza sulle tabelle di bit per rappresentare
ogni posizione sulla scacchiera, i pezzi per ogni colore e le mosse 
legali....
Buon lavoro!
Massimo Paolini
-- 
_____________________________________________________________
Abbiamo soltanto l'età che avevamo quando abbiamo cominciato a giocare a 
scacchi, perchè dopo cessiamo d'invecchiare.
(J.R. Capablanca)

 un programma (anche umoristico) che faccia finta di giocare a scacchi
Allora....vediamo....mumble mumble...un programma di una sola riga che 
"faccia finta di giocare a scacchi"...
...mumble mumble...Eureka! Ci Sono! 
Et voilà!
...IL SOTTOSCRITTO! :OD
(un punto a favore della I.A. debole...debole di mente!) :-)
Naturalmente ho inteso "programma" in un'accezione, come dire, alla Julien
Offray de La Mettrie!
Un salutone,
Stolcius