LuigiB spesai gioco

[gigi47]

Registrato dal
Jan 2009
Messaggi
31

Un aiuo da LuigiB

In questo momento uso un medoto formato da 5 numeri. Chiedo se possibile, come poter controllare la spesa e le vincita tenendo conto che il meodo l'ho scorporato in 4 terni e quindi sia la spesa che la vincita si modificano essendo la puntata piu ristretta.

Sub Main()
ColoreTesto 1 :Scrivi:Scrivi String(120,"@"),1 : ColoreTesto 2
Scrivi String(25," ") & "ULTIMA ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI VENEZIA"
Scrivi:Scrivi String(47," ") & "METODO E SCRIPT BY BLACKMORE"
ColoreTesto 1:Scrivi String(120,"@"),1 :Scrivi
ColoreTesto 0: Scrivi "MODULI: INDICE MENSILE / SPIE IN CADENZA" : Scrivi
Dim ruota(10)
Dim am(5)
Dim cinquina(5)
Dim poste(5)
poste(2) = 7.2
poste(3) = .80
poste(4) = 0
r1 = InputBox("1° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",1)
r2 = InputBox("2° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",2)
ce = InputBox("ESTRAZIONE DI PARTENZA N° ?","Metodo e Script By BLACKMORE",8632)
k = InputBox("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",13)
ini = ce
fin = EstrazioneFin

Messaggio " [ Ultima del Mese + condizione Cadenza 3°di Venezia By BLACKMORE ]"
For es = ini To EstrazioneFin
Call AvanzamentoElab(Ini,fin,es)
If IsUltimaDelMese(es) Then
n1 = Cadenza(Estratto(es,VE_,3))
casi = casi + 1
ColoreTesto 1:Scrivi String(113,"@") & " " & casi & "°CASO",1 : ColoreTesto 1
ColoreTesto 2:Scrivi DataEstrazione(es) & " " & SiglaRuota(10) & ": " & StringaEstratti(es,10) & " [ Ultima Estrazione del Mese : Cadenza del " &(3) & "° Estratto di " & NomeRuota(10) & " = " & Format2(n1) & " ]",1
ColoreTesto 0: Scrivi

If n1 = 0 Then am(1) = Fuori90(Estratto(es,BA_,1) + Estratto(es,CA_,5) + 07):am(2) = Fuori90(Estratto(es,CA_,2) + Estratto(es,NA_,4) + 24):am(3) = Fuori90(Estratto(es,RO_,3) + Estratto(es,VE_,5) + 62):am(4) = Fuori90(Estratto(es,CA_,3) + Estratto(es,PA_,4) + 78):am(5) = Fuori90(Estratto(es,MI_,3) + Estratto(es,NA_,2) + 52)
If n1 = 1 Then am(1) = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 18):am(2) = Fuori90(Estratto(es,MI_,5) + Estratto(es,NA_,4) + 19):am(3) = Fuori90(Estratto(es,FI_,5) + Estratto(es,MI_,3) + 62):am(4) = Fuori90(Estratto(es,CA_,1) + Estratto(es,TO_,5) + 46):am(5) = Fuori90(Estratto(es,MI_,4) + Estratto(es,VE_,3) + 61)
If n1 = 2 Then am(1) = Fuori90(Estratto(es,GE_,5) + Estratto(es,NA_,4) + 13):am(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,2) + 35):am(3) = Fuori90(Estratto(es,CA_,2) + Estratto(es,VE_,4) + 62):am(4) = Fuori90(Estratto(es,GE_,3) + Estratto(es,NA_,4) + 42):am(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,NA_,1) + 81)
If n1 = 3 Then am(1) = Fuori90(Estratto(es,NA_,4) + Estratto(es,PA_,3) + 82):am(2) = Fuori90(Estratto(es,NA_,4) + Estratto(es,TO_,1) + 37):am(3) = Fuori90(Estratto(es,FI_,3) + Estratto(es,RO_,4) + 48):am(4) = Fuori90(Estratto(es,CA_,2) + Estratto(es,VE_,2) + 21):am(5) = Fuori90(Estratto(es,GE_,3) + Estratto(es,NA_,3) + 26)
If n1 = 4 Then am(1) = Fuori90(Estratto(es,PA_,2) + Estratto(es,RO_,4) + 02):am(2) = Fuori90(Estratto(es,BA_,5) + Estratto(es,FI_,2) + 32):am(3) = Fuori90(Estratto(es,CA_,2) + Estratto(es,GE_,4) + 62):am(4) = Fuori90(Estratto(es,GE_,3) + Estratto(es,MI_,2) + 76):am(5) = Fuori90(Estratto(es,MI_,4) + Estratto(es,RO_,5) + 24)
If n1 = 5 Then am(1) = Fuori90(Estratto(es,PA_,5) + Estratto(es,TO_,1) + 01):am(2) = Fuori90(Estratto(es,CA_,5) + Estratto(es,NA_,3) + 58):am(3) = Fuori90(Estratto(es,NA_,1) + Estratto(es,TO_,2) + 76):am(4) = Fuori90(Estratto(es,RO_,2) + Estratto(es,VE_,4) + 14):am(5) = Fuori90(Estratto(es,BA_,3) + Estratto(es,MI_,3) + 36)
If n1 = 6 Then am(1) = Fuori90(Estratto(es,CA_,3) + Estratto(es,VE_,2) + 04):am(2) = Fuori90(Estratto(es,CA_,4) + Estratto(es,NA_,4) + 67):am(3) = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,4) + 34):am(4) = Fuori90(Estratto(es,FI_,1) + Estratto(es,TO_,4) + 31):am(5) = Fuori90(Estratto(es,GE_,4) + Estratto(es,TO_,4) + 50)
If n1 = 7 Then am(1) = Fuori90(Estratto(es,BA_,2) + Estratto(es,RO_,5) + 59):am(2) = Fuori90(Estratto(es,BA_,3) + Estratto(es,CA_,3) + 57):am(3) = Fuori90(Estratto(es,PA_,3) + Estratto(es,RO_,5) + 34):am(4) = Fuori90(Estratto(es,CA_,4) + Estratto(es,PA_,3) + 26):am(5) = Fuori90(Estratto(es,GE_,1) + Estratto(es,TO_,2) + 29)
If n1 = 8 Then am(1) = Fuori90(Estratto(es,GE_,1) + Estratto(es,NA_,5) + 46):am(2) = Fuori90(Estratto(es,MI_,1) + Estratto(es,RO_,4) + 43):am(3) = Fuori90(Estratto(es,BA_,5) + Estratto(es,TO_,2) + 27):am(4) = Fuori90(Estratto(es,CA_,3) + Estratto(es,VE_,5) + 14):am(5) = Fuori90(Estratto(es,FI_,4) + Estratto(es,MI_,5) + 75)
If n1 = 9 Then am(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,TO_,4) + 08):am(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,MI_,5) + 41):am(3) = Fuori90(Estratto(es,MI_,3) + Estratto(es,VE_,1) + 81):am(4) = Fuori90(Estratto(es,MI_,3) + Estratto(es,NA_,3) + 26):am(5) = Fuori90(Estratto(es,CA_,2) + Estratto(es,MI_,2) + 07)

ruota(1) = r1:ruota(2) = r2 :co = 0

Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)

rip = 0
If NumeriRipetuti(am) Then
rip = 1
While NumeriRipetuti(am)
For x = 1 To 4
For y = x + 1 To 5
If am(x) = am Then am = Fuori90(am + 1)
Next
Next
Wend
End If

Rem fine formula

cinquina(1) = am(1)
cinquina(2) = am(2)
cinquina(3) = am(3)
cinquina(4) = am(4)
cinquina(5) = am(5)
co = co + 1
ImpostaGiocata co,cinquina,ruota,poste,k,3

Gioca es
End If
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi
ColoreTesto 1:Scrivi String(47,"*") & "Matematica Sommativa By BLACKMORE" & String(47,"*"),1
ColoreTesto 0:Scrivi:Scrivi String(80,"*") & "" & String(47,"*"),1
ColoreTesto 0:Scrivi:Scrivi:ScriviResoconto
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese(idEstr)


Dim sData,sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr),".","/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay(sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti = 2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd("d",gMancanti,sData)

If Month(sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function

 

[LuigiB]

qui ci vuole qualcuno che il programma lo sa effettivamente per giocare ..io sarà il caldo ma non ho capito bene soprattutto perche non lo uso ai fini del gioco...