Un grandissimo grazie agli esperti e a chi vorra' aiutarmi! (modifica script)

[enery]

Un saluto a tutti
Ho uno script della bravissima Rosanna che ho provato a modificare ma purtroppo non sono all'altezza!
E' questo:
Sub main() Dim nu Dim presenzeruote(10) ruotaril =InputBox (" Su quale ruota vuoi fare la rilevazione degli ultimi 5 estratti? ", , 1) es= EstrazioneFin For p= 1 To 5 nu = Estratto(es,ruotaril,p) For i = 1 To 10 presenzeruote(i)=0 Next For n= EstrazioneIni To EstrazioneFin If Posizione (n,ruotaril,nu)>0 Then For r= 1 To 10 If Posizione(n+1,r,nu)>0 Then presenzeruote(r)=presenzeruote(r)+1 End If Next End If Next Scrivi Scrivi "Numero ricercato: " & CStr(nu) Scrivi "Ruota di rilevamento: " & NomeRuota (ruotaril) Scrivi String ( 20,"=") Scrivi "Ruota " & vbtab & "Presenze" Scrivi String ( 20,"=") For r= 1 To 10 Scrivi FormatSpace (NomeRuota (r),10) & vbtab & Format2(Presenzeruote (r)) Next Next End Sub 1- vorrei fare una ricerca con input box di un numero spia (ricerca in tutte le ruote compresa la nazionale) quindi l'input box mi deve chiedere solo il numero spia
e non anche la ruota
2- mi deve dare la possibilita di inserire dei numeri fisssi (inserirli manualmente) per poi controllare gli esiti delle previsioni.
esempio numero spia 8
mi deve dire su quale ruota e uscito
inserire le previsioni inserendo
numero fisso 16
numero fisso 22
numero fisso 32
numero fisso 43
numero fisso 53
numero fisso 57
numero fisso 64
numero fisso 84
per poi controllare i risultati
da giocare nelle ruote dove e sortito il numero spia e a tutte le ruote
Grazie!!!!!

 

[enery]

Scusate provo a inviare lo script

  Sub main()  Dim nu Dim presenzeruote(10)  ruotaril =InputBox (" Su quale ruota vuoi fare la rilevazione degli ultimi 5 estratti? ", , 1) es= EstrazioneFin For p= 1 To 5 nu = Estratto(es,ruotaril,p) 	For i = 1 To 10 	presenzeruote(i)=0 	Next 	 	For n= EstrazioneIni To EstrazioneFin  		If Posizione (n,ruotaril,nu)>0 Then 			For r= 1 To 10 				If Posizione(n+1,r,nu)>0 Then  				presenzeruote(r)=presenzeruote(r)+1 				End If 			Next  		End If 	Next  	 	Scrivi 	Scrivi "Numero ricercato: " & CStr(nu) 	Scrivi "Ruota di rilevamento: " & NomeRuota (ruotaril) 	Scrivi String ( 20,"=") 	Scrivi "Ruota " & vbtab & "Presenze" 	Scrivi String ( 20,"=") 	For r= 1 To 10 	Scrivi FormatSpace (NomeRuota (r),10) & vbtab & Format2(Presenzeruote (r)) 	Next Next  End Sub

 

[enery]

Mi dispiace non riesco a inviare lo script in modo corretto!

 

[lotto_tom75]

Mi dispiace non riesco a inviare lo script in modo corretto!

Ciao, per provare a postare in modo corretto lo script prova a fare semplicemente in questo modo:

1) copi lo script dalla sezione di spaziometria apposita
2) incolli lo script su notepad (blocco note)
3) copi lo script da notepad
4) incolli infine lo script qui

Dovrebbe funzionare...

 

[enery]

Grazie Lotto_Tom75! ora ci provo

 

[enery]

Sub Main()

Dim nu
Dim presenzeruote(10)

ruotaril =InputBox (" Su quale ruota vuoi fare la rilevazione degli ultimi 5 estratti? ", , 1)
es= EstrazioneFin
For p= 1 To 5
nu = Estratto(es,ruotaril,p)
For i = 1 To 10
presenzeruote(i)=0
Next

For n= EstrazioneIni To EstrazioneFin
If Posizione (n,ruotaril,nu)>0 Then
For r= 1 To 10
If Posizione(n+1,r,nu)>0 Then
presenzeruote(r)=presenzeruote(r)+1
End If
Next
End If
Next

Scrivi
Scrivi "Numero ricercato: " & CStr(nu)
Scrivi "Ruota di rilevamento: " & NomeRuota (ruotaril)
Scrivi String ( 20,"=")
Scrivi "Ruota " & vbTab & "Presenze"
Scrivi String ( 20,"=")
For r= 1 To 10
Scrivi FormatSpace (NomeRuota (r),10) & vbTab & Format2(presenzeruote (r))
Next
Next
End Sub

 

[enery]

ciao a tutti, nell'attesa ho provato a modificare uno script dil, anche lui bravissimo Blackmore, ma non sono riuscita a adattarlo alle mie esigenze, mi visualizza tipo non corrispondente ma non sono in grado di trovare l'errore, vorrei che trovasse in quali e quante ruote e uscita la spia (compresa la nazionale) e mettere in gioco nelle ruote di sortita, i numeri fissi inseriti.
Grazie per l'attenzione.
questo e' lo script che ho provato a modificare:

Sub Main()
Scrivi " per fatina76 By Blackmore (Forum Lottoced) "
Dim ruote(10)
Dim ambo(10) ' imposto la variabile per l'ambo
Dim n1(10),n2(10),n3(10),n4(10),n5(10),n6(10),n7(10),n8(10),n9(10),n10(10),n11(10),n12(10)
Dim poste(5) ' imposto la variabile per le poste in gioco
poste(1) = 1 ' 1 euro sulle ambate
poste(2) = 1 ' 1 euro sull'ambo
ini = InputBox("ESTRAZIONE DI PARTENZA",,9000) ' puoi cambiare il numero dell'estrazione iniziale
r1 = CInt(InputBox("RUOTA DI RICERCA SPIA",,6)) ' questa è la ruota di ricerca del numero spia
sp = CInt(InputBox("NUMERO SPIA",,8)) ' inserisci il numero spia che vuoi
r2 = CInt(InputBox("RUOTA DI GIOCO",,6)) ' questa è la ruota dove giocare la previsione
'nu1 = InputBox("1° NUMERO ?",,50) ' Il 1°numero da giocare
'nu2 = InputBox("2° NUMERO ?",,90) ' Il 2°numero da giocare
k = InputBox("COLPI DI GIOCO",,10) ' colpi di gioco
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
For p = 1 To 5 ' il programma cerca la spia in tutte e 5 le posizioni
a = Estratto(es,r1,p) ' estratto della ruota di gioco
If a = sp Then ' se l'estratto è la spia scelta allora procede
co = co + 1
Scrivi String(100,"=") & " Caso n°" & Format2(co),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & (" NUMERO SPIA -->"),, 8, " & ",1 & Format2(a) & " <--- "
ruote(1) = r2 ' la ruota di gioco è quella scelta nell'inputbox
n1(1) = 16
n1(2) = 22
ImpostaGiocata 1,n1,ruote,poste,k,2 'la giocata è una sola (ambo), ruote di gioco, poste(sia x ambata che per ambo),colpi,2(si ferma all'uscita dell'ambo)
n2(1) = 43
n2(2) = 53
ImpostaGiocata 2,n2,ruote,poste,k,2
n3(1) = 57
n3(2) = 64
ImpostaGiocata 3,n3,ruote,poste,k,2
n4(1) = 84
n4(2) = 55
ImpostaGiocata 4,n4,ruote,poste,k,2
n5(1) = 32
n5(2) = 44
ImpostaGiocata 5,n5,ruote,poste,k,2

Gioca es,1
End If
Next
If ScriptInterrotto Then Exit For ' se l'elaborazione risultasse lunga si puo' fermare premendo il tasto STOP
Next
Scrivi:Scrivi:ScriviResoconto
End Sub

 

[enery]

Grazie Disaronno!!!

 

[enery]

Buonasera Disaronno, ho provato lo script va benissimo, grazie