Esercizi VISUAL BASIC

[matpez]

Nemmeno lo scarico....

Il forum non è fatot per gettarsi alla prima difficoltà!! Io qundo ero alle prime armi non conoscevo il forum e cmq anche se lo avessi saputo nn avrei chiesto nulla....

...voglio che ci arrivi da solo!!! Se proprio sei in difficoltà ma dico difficoltà e nn sai dove sbattere la testa allora intervengo io

PS: perchè non iniziamo con un gioco + facile da creare.... un bel 7 e mezzo a 4 giocatori, ti va ?

Qui ci sono le regole!

[matpez]

Prima nn volevo offenderti , ma era solo per farti capire che nell'informatica devi ragionare il + possibile da solo....ti assicuro che è l'unico modo per arrivare al fine che ti sei proprosto

[leadergl]

si però quel gioco li non si gioca mica con le carte francesci......eheh...........mi servirebbe......beh......un OCX con le carte napoletane.....magari ce l'hai già.....

[matpez]

Originariamente inviato da leadergl
si però quel gioco li non si gioca mica con le carte francesci......eheh...........mi servirebbe......beh......un OCX con le carte napoletane.....magari ce l'hai già.....

Ma mica è vero.... io ho sempre giocato con le carte francesi e vanno benissimo! Tanto conta il numero non il simbolo!

Eccetto il re di quadri che è la matta!


Allora ti piace come idea?

[leadergl]

ok, è più semplice così per iniziare!!!

Bene allora devo:

1 - Mischiare le carte
2 - Dare una carta ad ogni giocatore
3 - Procedere uno per volta vedendo se vuole altre carte

se fa 7 e 1/2, il gioco si ferma o va avanti?
in caso che il banco faccia 7 e 1/2 vince i banco

DEVO effettuare questi CONTROLLI:

1 - ad ogni carta estratta che non siano finite le carte, ed in tal caso......boh cosa prevede il gioco?

2 - che il giocatore non abbia sballato

MI SERVONO le seguenti cose:

1 - OCX Carte (che abbiamo)
2 - 2 pulsanti (Altra Carte , OK Così)

e basta credo.....dimentico qualcosa??

[leadergl]

ma devo fare anche:

1 - le puntate
2 - che si taglia il mazzo
3 - che si sorteggia il mazziere

etc....??

[leadergl]

o cacchio.........scusa scusa, m'ero scordato che m'hai mandato le regole.......OK TUTT'APPOST!!!!!!!

le devo seguire tutte vero?!?!? e pens propri'e si !!!! ahhhhh

ok mi metto al lavoro adesso...........ciao...........cerchero di non chiederti niente, ANZI, NON TI CHIEDERO' NIENTE!!!!!

[leadergl]

secondo te per mostrare le carte del giocatore mi conviene
1 - mettergliele già sul campo e settarle come NON VISIBILI ed attivarle solo durante il gioco
o
2 - non posizionarle proprio e successivamente creare la variabile AS CARD, usare SET ... =NEW CARD .... e disegnarla in determinate X ed Y???

io credo di più il primo metodo vero?

tipo posiziono 10 carte a giocatore, tanto non le userà mai tutte e 10.....e che cavolo ci vogliono tutte mezze carte!!! IMPOSSIBILE

[matpez]

Ma si metti 4 file di carte da 10 (mettile anche una sopra l'alta con un pezzo che si veda qual'è la carta però)!

Poi si in pratica devi estrarre il mazziere (la prima volta) poi lo diventa chi fa 7 e 1/2

Chi coppa le carte è chi sta a sinistra del mazziere (io gli farei chiedere una domanda...."quante carte vuoi coppare?" e lui a seconda del numero che mette tagli il mazzo)

Poi si per il resto gestisci una puntata (0.25, 0.50, 1 €), e ti attieni alle regole che ti ho mandato!

Occhio alla MATTA, che è il re di quadri, questa carta prende un valore da 1/2 a 7 per cui stai attento!

Cmq se hai bisogno di un ragionamento chiedi pure altrimenti mi annoio a non sentirti

[leadergl]

ma perchè sto bastardo non mi fa funzionare il 7.5 ???

faccio

stato = somma dei punteggi delle carte che ho in mano

if stato=7.5 then
_____hai vinto
else
if stato>7.5 then
_____hai perso
end if



finchè perdo tutto ok, ma se vinco non mi dice nulla why??

[leadergl]

MA SONO PROPRIO UN'IDIOTA.............li avevo dichiarati INTEGER

ora ho corretto con SINGLE....è tutto ok....

[leadergl]

ho usato anche un modulo..............per fare la somma dei punti delle carte che ho sul tavolo.....eheh

[leadergl]

cmq per il momento ho fatto:

genera vettore con le carte
mischia il vettore
distribuisce le carte
verifica se hai vinto o perso

DEVO

inserire il gioco del mazziere (x ora nn gioca)
inserire il tcp
inserire gli altri giocatori
inserire i soldi
rendere possibile fermarsi e accettare il punteggio

credo che mi bastino un paio di giorni.....in questo periodo nn ho molto tempo.....sai gli esami....però ci sono!

La cosa importante è che ho inquadrato la fase progettazione

[matpez]

Originariamente inviato da leadergl
cmq per il momento ho fatto:

genera vettore con le carte
mischia il vettore

Hai fatto come ti avevo chiesto...lo generi già mischiato?

[leadergl]

......aspè, ma che significa "lo generi già mischiato"??
come faccio!!

io per riempirlo ho un record di 2 elementi ed Una variabile associata al record, come tu mi suggeristi!

Per riempirlo faccio semplicemente

indice=0
for i=1 to 4
____for j=1 to 10
_______indice=indice +1
_______If i > 7 Then
___________Vettore(valore).nNumero = i + 3
_______Else
___________Vettore(valore).nNumero = i
_______End If
Vettore(valore).nSeme = j
____next
next

e poi lo mischio......ma come faccio a fare tutte e due insieme?!?!

[leadergl]

ah forse ho capito....:

io per indicargli i posti dell'array uso la variabile VETTORE, ma se io a questa variabile do valori casuali compresi tra 1 e 40 creo il vettore già disordinato!!

Mi servirebbe però una funzione booleana che mi restituisca true se l'elemento del vettore è vuoto e false in caso contrario...........no che ca@@o dico DEVO SOLO fare che la funzione che genera il vettore sia ricorsiva della serie

Private function CreaVettore(indice as integer)
...
end function

in modo da richiamarla con l'indice che mi serve casomai la casella che cerco di riempire è già occupata!!!!

SIIIIIIIIII così!! vero?

[leadergl]

così:

Public Sub riempi(seme As Integer, numero As Integer)
__Dim i As Integer
__Dim j As Integer
__Dim valore As Integer

____'Riempe il record con le carte per giocare
____i = 0
____j = 0
____valore = 0
____For j = seme To 4
______For i = numero To 10
________valore = Rnd(40) + 1

________If vettore(valore).nNumero <> Null Then Call riempi(j, i)

________If i > 7 Then
__________vettore(valore).nNumero = i + 3
__________Else
__________vettore(valore).nNumero = i
________End If
________vettore(valore).nSeme = j
______Next
____Next
End Sub

[leadergl]

vabbè mi son scordato di mettere

RANDOMIZE

però non mi funge, mi dice che

call riempi(j,i) è OUT OF STACK

...in sostanza credo mi generi sempre lo stesso numero richiamando la SUB troppe volte e riempiendo lo stack.....

come potrei risolvere....!?!?!

[leadergl]

ho anche provato a sostituire

<>NULL con <>0 ma niente non va!!!!

why??

[leadergl]

invece della ricorsività ho provato anche un ciclo

do while

genera numero casuale
doevents

loop


ma mi entra in un ciclo infinito...........ci sto perdendo troppo tempo per stà cosa e non riesco a capire perchè non va.....help