Esercizi VISUAL BASIC

[Dragonx21]

scusa non sapevo cosa ti dovevo mandare....

[matpez]

Originariamente inviato da Dragonx21
scusa non sapevo cosa ti dovevo mandare....

Mancano ancora cose.....

....quando salvi in una cartella il tuo progetto di solito ti fa 3 file principali...il vbp che è il progetto, il file frm che è la tua form e il file frx che sono le proprietà delle form!!

Compatta la cartella del tuo programma e mandami quella

Se questi file nn si trovano nella stessa cartella hai fatto una casino della madonna!

[Dragonx21]

opps....

allora.... dopo guardo...

ho fatto casino xk l'exe è troppo grande...

[matpez]

Originariamente inviato da leadergl
vabbè allora facciamo una cosa, particamo col classico poker e poi magari ne facciamo altri....che ne dici?

Allora come te la cavi?

[leadergl]

a dire la verità ancora devo cominciare.................................ok impegno e disciplina

allora..........ehm...vediamo un po a poker si gioca......


allora, i punti sono così dati:

CARTA SINGOLA
COPPIA (2 carte uguali)*
DOPPIA COPPIA (una coppia di 2 carte uguali)*
TRIS (tre carte uguali)*
SCALA (sequenza ininterrotta di 5 carte di seme diverso)
FULL (un tris ed una coppia)
COLORE (5 carte di ugual colore)
POKER (4 carte uguali)
SCALA REALE (scala la cui carta massima è il K)

*in caso di carte uguali si può o vedere a chi ha la terza carta più alta o si guarda al seme della coppia

[matpez]

Ora so le regole

[leadergl]

allora vorrei dare questa impostazione al gioco.....

dimmi se cominciamo bene....e già ti fa schifo e ti da l'idea di un gioco fatto male......

ah col tuo OCX come si fa a dare l'impressione di un mazzo di carte???

[leadergl]

ah.......aspè noi abbiamo detto che volevamo farlo multi-client.....quindi devo cambiare...aspe

[matpez]

Originariamente inviato da leadergl
ah col tuo OCX come si fa a dare l'impressione di un mazzo di carte???

[leadergl]

il tuo OCX è fico, però devi aggiungere un opzione per mantenere inalterate le PROPORZIONI della carta..........eheh....così si che sarebbe quasi perfetto.............perchè per renderlo perfetto dovresti inserire una particolare funzione per "l'effetto mazzo intero" come quello che c'è nel SOLITARIO di Windows.....

poi si che è STRA-PERFETTO

[matpez]

Originariamente inviato da leadergl
il tuo OCX è fico, però devi aggiungere un opzione per mantenere inalterate le PROPORZIONI della carta..........eheh....così si che sarebbe quasi perfetto.............perchè per renderlo perfetto dovresti inserire una particolare funzione per "l'effetto mazzo intero" come quello che c'è nel SOLITARIO di Windows.....

poi si che è STRA-PERFETTO

Per l'effetto mazzo glielo dai tu mettendo più carte uno sotto l'altro!

Anche m$ fa così!!

Per il size della carta ci lavoro su!

[leadergl]

allora siccome io NON DEVO vedere cosa hanno gli altri in mano, è inutile che posiziono anche le loro carte sul tavolo, tanto sarebbero coperte, giusto?!?

E PENSO PROPRIO DI SI

inotre dovrei creare un UNICO ARRAY per le carte, che sono 32 dal 7 in su! (se invece si gioca in 5 si usano 36 carte, dal 6 in su...cmq non ci interessa)!!!!!

Quindi dovrei creare un ARRAY col tuo OCX da 0 a 31, ma io preferirei da 1 a 32!!!!!

poi 5 di queste le do a me ed a seconda di quanti giocatori ci sono ne tolgo altre 5 a testa!

Facendo un esempio per 2 giocatori, DEVO:

1 - mischiare l'array di 32 carte
2 - dare 5 carte, alternate (una alla volta) ai vari giocatori!
3 - cominciare il gioco

ORA...........come si mischia un array?? Io saprei ordinarlo......ma non disordinarlo.........

ci devo pensare....allora.................

[leadergl]

allora, potrei:

GENERARE un numero casuale da 0 a 31 ed inserirlo al primo posto dell'array, successivamente generare altri numeri e controllare di volta in volta che non siano stati già usati......che ne dici??


UNA DOMANDA...ma dovrei creare un vettore a parte dove conservare gli indici delle carte o si può mischiare proprio l'array del tuo componente OCX???

credo mi convenga di più la prima....giusto??

[matpez]

Originariamente inviato da leadergl
allora, potrei:

GENERARE un numero casuale da 0 a 31 ed inserirlo al primo posto dell'array, successivamente generare altri numeri e controllare di volta in volta che non siano stati già usati......che ne dici??

Secondo me ti crei un bel vettore da 32 posti (da 1 a 32)!!

Lo devi riempire con numeri dal 7 al 13 e lo fai per i 4 semi

Per cui tocca a te mischiare le carte....c'è un modo + veloce per farlo...pensaci!

PS: ti consiglio anzichè utilizzare un vettore...di utilizzare un record

PS2: guarda la mail!

[leadergl]

no no, non mi piace così l'OCX......non ci siamo, perchè se setto una grandezza maggiore la carta non si ridimensiona e lo spazio che avanza diventa VERDE.............e non è bello eh!!!!

una volta corretto questo è quasi ok, perchè dovresti fare che l'immagine mantiene le SUE PROPORZIONI anche se viene ingrandita o rimpicciolita.........ed ovviamente dovresti eliminare il verde....che è meglioo!

[leadergl]

perchè un record????

cmq potrei anche riempire prima tutto il vettore e successivamente scombinarlo!!

poi potrei fare:

OPTION EXPLICIT
dim vettore(32) as integer


private function mischia()
dim i as integer
dim a as integer
dim temp as integer


for j=1 to 4
_____for i=1 to 32
___________a=rnd(32)+1
___________temp=vettore(i)
___________vettore(i)=vettore(a)
___________vettore(a)=temp
_____next
next

end function



che ne pensi??
alla fine dovrebbe mischiare abbastanza bene....credo

[matpez]

No perchè nn controlli se il random estrae una carta giù uscita e così facendo tu ti ispiri alla fortuna...e nell'informatica nulla è dettato dalla fortuna

Un record perchè in un campo puoi visualizzare il numero della carta (dal 7 al 13) e nell'altro campo il seme!

Che ne dici?

[leadergl]

cmq ho provato così e sembra mischiarle bene.........però mi serve il record.....m'ero scordato il segno.....


Private Function riempi()
Dim i As Integer
Dim valore As Integer
Dim j As Integer

valore = 0
For j = 1 To 4
___For i = 7 To 14
______valore = valore + 1
______If i = 14 Then
_________vettore(valore) = 1
______Else
_________vettore(valore) = i
______End If
___Next
Next

End Function

Private Function mischia()

Dim i As Integer
Dim j As Integer
Dim a As Integer
Dim temp As Integer

Randomize

For j = 1 To 4
___For i = 1 To 32
_____a = 1 + Rnd(32)
_____temp = vettore(i)
_____vettore(i) = vettore(a)
_____vettore(a) = temp
___Next
Next

end function

[matpez]

Originariamente inviato da leadergl
no no, non mi piace così l'OCX......non ci siamo, perchè se setto una grandezza maggiore la carta non si ridimensiona e lo spazio che avanza diventa VERDE.............e non è bello eh!!!!

una volta corretto questo è quasi ok, perchè dovresti fare che l'immagine mantiene le SUE PROPORZIONI anche se viene ingrandita o rimpicciolita.........ed ovviamente dovresti eliminare il verde....che è meglioo!

Eccoti accontentato, ora nn hai scuse

PS: have you got an email!!

[leadergl]

ma come diamine si dichiarano i record in VB?? qui mi parla solo di array e che cavolo!!!