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 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto