Novità

Ogni tanto mi viene un'idea in mente

G

gorilla81

Super member
Buona sera a tutti/e voi!
Sono alla presa con un mio modo di vedere il lotto ma senza una statistica non è facile capire quanto sia giusto questo mio modo di pensare...
Chiedo a chi possa aiutarmi nell'uso di Spaziometria (e ringrazio LuigiB, da quando lo ha messo a disposizione di tutti noi mi diverto un sacco a cercare previsioni vincenti), un listato in cui ad ogni estrazione viene sommato il primo estratto di bari a quello dell'estrazione precedente.

Spero qualcuno mi risponderà al più presto!

Buon proseguimento a tutti/e voi!!!
 
Eccoti lo script... Ciao

Codice: 
Sub main()
Dim ruota(10)
Dim ambata(1)
Dim posta(1)
posta(1) = 1
co=0
r = InputBox("Ruota di gioco?",,1) 
x =InputBox("Estrazione di partenza?",,8500)
k =InputBox("Colpi di gioco?",,10)
ini= x
fin=EstrazioneFin
For es=ini To fin
AvanzamentoElab ini,fin,es
Messaggio (es)
ruota(1)= r
casi=casi+1
a = Estratto(es-1,BA_,1) : b = Estratto(es,BA_,1)
ColoreTesto 1:Scrivi String (100,"*")&" Caso n° "& Format2(casi),1 : ColoreTesto 0
co=co+1 
Scrivi DataEstrazione(es-1)& "    " & SiglaRuota(1) & "    " & StringaEstratti(es-1,1)& "    " & Format2(a),1
Scrivi DataEstrazione(es)& "    " & SiglaRuota(1) & "    " & StringaEstratti(es,1)& "    " & Format2(b),1
ambata(1)= Fuori90(a+b)
ImpostaGiocata 1,ambata,ruota,posta,k,1
Gioca es,1
Next
ScriviResoconto
End Sub
 
Buona sera a tutti.

Chiedo gentilmente a Blackmore se può mettere in questo script,l'indice mensile.

Grazie
Janez57
 
Basta inserire If Indicemensile(es) = "l'estrazione che vuoi" Then, sotto For es=ini To fin
e aggiungere end if sotto gioca es,1
Ciao
 
Grazie mille Blackmore!!! Mi dici, per favore, qual'è la stringa se invece dell'addizione volessi fare la differenza fra i due numeri? E poi saresti così gentile da fare la stessa cosa anche per quanto riguarda il secondo estratto sempre di Bari? Grazie mille anticipatamente e scusa ancora per il disturbo!
 
Ultima modifica:
gorilla81 ha scritto:
Grazie mille Blackmore!!! Mi dici, per favore, qual'è la stringa se invece dell'addizione volessi fare la differenza fra i due numeri? E poi saresti così gentile da fare la stessa cosa anche per quanto riguarda il secondo estratto sempre di Bari? Grazie mille anticipatamente e scusa ancora per il disturbo!
Clicca per espandere...



Te l'ho scritto nel listato.... ciao !!!

Codice: 
'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
	Dim ruota(10)
	Dim ambata(10)
	Dim posta(1)
	posta(1) = 1
	co = 0
	r = InputBox("Ruota di gioco?",,1)
	x = InputBox("Estrazione di partenza?",,8500)
	k = InputBox("Colpi di gioco?",,10)
	ini = x
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		Messaggio(es)
		p1 = 1 ' posizione = 1°
		p2 = 2 ' posizione = 2°
		ruota(1) = r
		casi = casi + 1
		a = Estratto(es - 1,BA_,p1) : b = Estratto(es,BA_,p1)
		c = Estratto(es - 1,BA_,p2) : d = Estratto(es,BA_,p2)
		Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
		co = co + 1
		ColoreTesto 1
		Scrivi DataEstrazione(es - 1) & "    " & SiglaRuota(1) & "    " & StringaEstratti(es - 1,1) & "     " & p1 & "°Estratto = " & Format2(a) & "    " & p2 & "°Estratto = " & Format2(c),1
		Scrivi DataEstrazione(es) & "    " & SiglaRuota(1) & "    " & StringaEstratti(es,1) & "     " & p1 & "°Estratto = " & Format2(b) & "    " & p2 & "°Estratto = " & Format2(d),1
		ColoreTesto 0
		ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
		ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
		' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
		ImpostaGiocata 1,ambata,ruota,posta,k,1
		Gioca es,1
	Next
	Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub
 
Scusa ancora, per cambiare la ruota degli estratti (esempio adesso era bari, se io volessi fare lo studio su cagliari) qual'è il valore da modificare?
 
Ho inserito un inputbox nel listato con l'indicazione
Ciao


Codice: 
'per la differenza: ambata(1) = differenza(a,b) e ambata(2) = differenza(c,d)
'per la distanza: ambata(1) = distanza(a,b) e ambata(2) = distanza(c,d)
Sub Main()
	Dim ruota(10)
	Dim ambata(10)
	Dim posta(1)
	posta(1) = 1
	co = 0
	rr= InputBox("Scegli la ruota degli estratti",,1) 'Qui cambi la ruota di ricerca degli estratti 
	r = InputBox("Ruota di gioco?",,1)                'Qui cambi la ruota di gioco 
	x = InputBox("Estrazione di partenza?",,8500)
	k = InputBox("Colpi di gioco?",,10)
	ini = x
	fin = EstrazioneFin
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		Messaggio(es)
		p1 = 1 ' posizione = 1°
		p2 = 2 ' posizione = 2°
		ruota(1) = r   
		casi = casi + 1
		a = Estratto(es - 1,rr,p1) : b = Estratto(es,rr,p1)
		c = Estratto(es - 1,rr,p2) : d = Estratto(es,rr,p2)
		Scrivi String(105,"*") & " Caso n° " & Format2(casi),1 : ColoreTesto 0
		co = co + 1
		ColoreTesto 1
		Scrivi DataEstrazione(es - 1) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es - 1,rr) & "     " & p1 & "°Estratto = " & Format2(a) & "    " & p2 & "°Estratto = " & Format2(c),1
		Scrivi DataEstrazione(es) & "    " & SiglaRuota(rr) & "    " & StringaEstratti(es,rr) & "     " & p1 & "°Estratto = " & Format2(b) & "    " & p2 & "°Estratto = " & Format2(d),1
		ColoreTesto 0
		ambata(1) = Fuori90(a + b) 'gioca la somma dei primi estratti di Bari
		ambata(2) = Fuori90(c + d) 'gioca la somma dei secondi estratti di Bari
		' se vuoi giocare solo un ambata metti l'apice (') davanti all'ambata che vuoi escludere
		ImpostaGiocata 1,ambata,ruota,posta,k,1
		Gioca es
	Next
	Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub
 
gorilla81 ha scritto:
Scusa ancora, per cambiare la ruota degli estratti (esempio adesso era bari, se io volessi fare lo studio su cagliari) qual'è il valore da modificare?
Clicca per espandere...

senza voler togliere nulla a black per cambiare le ruote devi laciare lo script e ti appare una finestra che chiede la ruota è ci è scritto 1 ovvero bari
se inserisci 2 andra a cagliari 3 a firenze e così via fino a 10 sono le ruote la 11 corrisponderebbe a tutte e 12 alla nazionale. speri di essere stato esaustivo
 
Grazie mille ragazzi! Ho provato a fare come dicevi tu Keeper prima di inserire la mia ultima richiesta ma nel listato mi sono accorto che veniva fuori ancora la ruota di Bari.
Buona giornata!
 
Ciao Keeper, nei listati precedenti non si poteva fare tramite la inputbox, nell'ultimo postato invece si
Gorilla copiati quello
Ciao
 
Gentilissimi ragazzi, adesso funziona alla perfezione!
Altri quesito...
1) se volessi giocare su più ruote?
2) se volessi giocare le 2 ambate per ambo?
3) se volessi abbinare alla prima ambata un numero per ambo?

Spero di non disturbarvi!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 20 giugno 2026
    Bari
    90
    24
    74
    14
    75
    Cagliari
    79
    37
    32
    44
    27
    Firenze
    07
    56
    79
    29
    44
    Genova
    17
    24
    43
    89
    22
    Milano
    69
    51
    28
    27
    70
    Napoli
    08
    75
    73
    35
    22
    Palermo
    58
    42
    78
    59
    09
    Roma
    88
    78
    84
    68
    53
    Torino
    61
    34
    65
    59
    27
    Venezia
    37
    23
    76
    89
    86
    Nazionale
    72
    18
    63
    22
    33
    Estrazione Simbolotto
    Napoli
    22
    29
    25
    24
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto