salvatore23/57
Super member
volevo chiedere come si fa ad avere la prossima previsione del (terno a colpo ) dello script in spaziometria
grazie a tutti
ciao da Salvatore
				
			grazie a tutti
ciao da Salvatore
			
				Ultima modifica: 
			
		
	
								
								
									
	
								
							
							Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
volevo chiedere come si fa ad avere la prossima previsione del (terno a colpo ) dello script in spaziometria
grazie a tutti
ciao da Salvatore
Scusa a quale script ti riferisci, che io sappia non ci sono sript con terno a colpo
 o(2) = 1000 : Co = 1
o(2) = 1000 : Co = 1forse l'avrò copiato da chissa dove ma non mi ricordo comunque è questo ciao
Sub Main
Dim Ru(1),Po(5) : Ru(1) = BA_o(2) = 1000 : Co = 1
Es = EstrazioneFin - 1
E = StringaEstratti(Es + 1,Ru(1))
Nu = Split("0." & E,".")
Nu(2) = 0 : Nu(4) = 0
ImpostaGiocata 1,Nu,Ru,Po,Co
Gioca Es
ScriviResoconto
End Sub
Questo script nel programma spaziometria non funzionerebbe mai.
Non è stato progettato per esso......e forse non è nemmeno completo....
Ci sono diverse cose che non mi quadrano, ma ne dico solo una :
la posta è dichiarata a 1000.
non credo che sia 1000 Euro, ma 1000 lire,
quindi risalente a una dozzina di anni fa.......
Questo script nel programma spaziometria non funzionerebbe mai.
Non è stato progettato per esso......e forse non è nemmeno completo....
Ci sono diverse cose che non mi quadrano, ma ne dico solo una :
la posta è dichiarata a 1000.
non credo che sia 1000 Euro, ma 1000 lire,
quindi risalente a una dozzina di anni fa.......


Sub Main()
 Dim n1,n2,casi
 Dim am(10)
 Dim ruota(10)
 Dim posta(5)
 posta(2) = 1
 ini = 8000 '3861 (05/01/1945 1a estrazione a 10 ruote)
 casi = o
 For n = ini To EstrazioneFin
  Messaggio DataEstrazione(n)
  For r = 1 To 10
   For p = 1 To 5
     a = Estratto(n,r,p)
     b = Estratto(n + 1,r,p)
     c = Estratto(n + 1,r,FuoriX(p + 1,5))
     If a = b Then
    casi = 0
 TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo -  TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0
     ColoreTesto 2
     Scrivi " Estrazione positiva rilevata del " & DataEstrazione(n) & " num. " & b & " in gioco su " & SiglaRuota(r)
     Scrivi FuoriX(41,10)
     ColoreTesto 0
     ruota(1) = r
     am(1) = a
     am(2) = c
     ImpostaGiocata 1,am,ruota,posta,3,1
     Gioca n
    End If
   Next
  Next
 Next
 TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo -  TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0
 ScriviResoconto
End Subcaro baffo te lo ricordi questo? conosci di sicuro la paternità
Codice:Sub Main() Dim n1,n2,casi Dim am(10) Dim ruota(10) Dim posta(5) posta(2) = 1 ini = 8000 '3861 (05/01/1945 1a estrazione a 10 ruote) casi = o For n = ini To EstrazioneFin Messaggio DataEstrazione(n) For r = 1 To 10 For p = 1 To 5 a = Estratto(n,r,p) b = Estratto(n + 1,r,p) c = Estratto(n + 1,r,FuoriX(p + 1,5)) If a = b Then casi = 0 TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0 ColoreTesto 2 Scrivi " Estrazione positiva rilevata del " & DataEstrazione(n) & " num. " & b & " in gioco su " & SiglaRuota(r) Scrivi FuoriX(41,10) ColoreTesto 0 ruota(1) = r am(1) = a am(2) = c ImpostaGiocata 1,am,ruota,posta,3,1 Gioca n End If Next Next Next TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0 ScriviResoconto End Sub

 
     
     
     
    