R
Roby
Guest
PREMESSA:
COME DA 20 NUMERI INTEGRALI:
con qualche modifica e cambiamento:
ecco lo script, mi sembra giusto, ed anche nel calcolo delle somme sotto riportate.
valore sistemino 7 euro come spesa a concorso
mentre 1 euro il valore da moltiplicare, per i punti conseguiti come da valoreposta(5,6,7,8,9,10)
-----------------------------
hobby e pas
COME DA 20 NUMERI INTEGRALI:
con qualche modifica e cambiamento:
ecco lo script, mi sembra giusto, ed anche nel calcolo delle somme sotto riportate.
valore sistemino 7 euro come spesa a concorso
mentre 1 euro il valore da moltiplicare, per i punti conseguiti come da valoreposta(5,6,7,8,9,10)
Codice:
Sub Main()
'0903_46c RoRa 10eLotto Hetman - versione valida per L8+6.1.34 +resoconto
'Verifica le sortite sul 10eLotto di alcuni numeri scelti
'modificato dall'originale di Rosanna da Ramco, e poi da Rosanna
'percorso diverso creazione ventina
'con aggiunta di simulazione giocate (calcolo premi e spese) da rosanna adattato da Pico2005 a Spaziometria
Dim stati(11,2),vet(20),Vet2(30),nu(),stat(),premi(10)
'-------------------------------------------------------PREPARO LA MATRICI ED IL VETTORE NU
stati(1,1) = 0
stati(1,2) = 0
For i = 2 To 11
stati(i,1) = i - 1
stati(i,2) = 0
Next
'n="02.47.61.71.07.63.58.38.04.60" '<== scrivi qui i numeri desiderati separati da punto
'n = InputBox("scrivi qui i numeri desiderati separati da punto","02.47.61.71.07.63.58.38.04.60")
Euro1 = 1 '<====== posta giocata del 10eLotto
'--------------
premi(0) = 2
premi(5) = 5
premi(6) = 15
premi(7) = 100
premi(8) = 1000
premi(9) = 30000
premi(10) = 500000
'-----------------
'num = Split("0." & n,".")'Assegna a "nu" ogni valore di "n" da "stringatesto" a "Variant"
Call ScegliNumeri(num)
For x = 1 To 10
num(x) = CInt(num(x))
Next 'trasforma le variabili "Variant" in "Integer"
Call OrdinaMatrice(num,1)
'----------------------------------------------------------------------------------------
Scrivi " VERIFICA SORTITE 10&LOTTO DEI NUMERI " & StringaNumeri(num) & Chr(10),1
ini = InputBox("Estrazione iniziale",,7800)
Euro = CInt(InputBox("Spesa sistema ogni concorso",,7))
fin = EstrazioneFin
For es = ini To fin
'---------------------queste righe da qui a.....
co = 0
For r = 1 To 10
For p = 1 To 2
co = co + 1
vet(co) = Estratto(es,r,p)
Next
Next
co = 0
For p = 3 To 5
For r = 1 To 10
co = co + 1
Vet2(co) = Estratto(es,r,p)
Next
Next
Call OrdinaMatrice(vet,1)
If NumeriRipetuti(vet) Then
c = 0
While NumeriRipetuti(vet)
c = c + 1
s = 0
For i = 1 To 19
If s = 1 Then Exit For
For y = i + 1 To 20
If s = 1 Then Exit For
If vet(i) = vet(y) Then
vet(y) = Vet2(c)
s = 1
End If
Next
Next
Wend
End If
Call OrdinaMatrice(vet,1)
'--------------------------------------a qui, permettono l'utilizzo con L8+....
cont = 0
riga = ""
For i = 1 To 20
For j = 1 To 20
If vet(i) = num(j) Then
cont = cont + 1
riga = riga & vet(i) & " "
End If
Next
Next
For i = 1 To 11
If cont = stati(i,1) Then stati(i,2) = stati(i,2) + 1
Next
'''''
spesa = spesa + Euro
ric = premi(cont)*Euro1
If cont = 0 Or cont > 4 Then Ric = "(Vinti " & ric & " Euro)" Else ric = ""
incasso = incasso +(premi(cont))
'NOTA SE VUOI IL DETTAGLIO X OGNI ESTRAZIONE TOGLI GLI APICI DAVANTI ALLE PROSSIME 3 RIGHE
'Scrivi
'Scrivi Es & " "& StringaNumeri(vet)
If premi(cont) > 0 Then
ColoreTesto 1
Scrivi Es & " " & cont & " sortiti " & riga
ColoreTesto 2
Scrivi ric,1
ColoreTesto 0
End If
Next
'=========================================================== SCRIVO IL RIEPILOGO FINALE
Scrivi
Scrivi "VERIFICA SORTITE 10&LOTTO DEI NUMERI " & StringaNumeri(num) & Chr(10),1
Scrivi "RIEPILOGO COMPLESSIVO DEGLI ESITI ",1
Scrivi "spese del sistemino 7 euro"
Scrivi "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & Chr(10),1
For i = 1 To 11
Scrivi FormatSpace(stati(i,1),2,1) & FormatSpace(stati(i,2),5,1)
Next
Scrivi
Scrivi " RESOCONTO ECONOMICO",1
Scrivi " spesa tot " & spesa
Scrivi " incasso " & incasso
Scrivi " saldo " & incasso - spesa
End Sub-----------------------------
hobby e pas
