Risultati della ricerca

Sub Main Dim n(20), ruote(1) Dim ini, fin, es, r, p1, p5, d1, d5, u5, somma, fgr Dim k, i, cont, colpi, retestr, retsortita, retrit, retid Dim spesa, Vincita, bilancio colpi = 9 spesa = 0 Vincita = 0 ini = EstrazioneFin - 100 fin = EstrazioneFin...

Option Explicit Sub Main Dim sFileZip, sFileTxt, sFileBd, sLink, sPathArc Dim nEstrTot, sDataLastEstr, Ia, nSalvate Dim aRighe, k, sDataEstr, aEstr, r, e, parti, rigaAttuale ' Configurazione percorsi sLink = "www.brightstarlottery.it" sFileBd = GetDirectoryAppData &...

-------------------------------------------------------------------------------- Ambata: 67 Primo abbinamento: 51 Secondo abbinamento: 48 Terzo abbinamento: 52 3 86 23 8 29 69 23 46 8 67 - 51 67 - 48 67 - 52 Estrazione generatrice del pronostico 09915 [ 48 - 22/04/2021] G 0001 Numeri in gioco ...

'in allegato il pdf per chi non usa Spaziometria Sub Main Dim ruota(2),am(3),pt(3),ruote(5),a1(2),a2(4),a3(4),a4(4),a5(2),a6(2),a,b,c,d,e,f,g,h,i,P,S,T,Q,caso pt(1) = 1 pt(2) = 1 pt(3) = 1 clp = 9 ini = 9908 fine = EstrazioneFin For es = ini To EstrazioneFin ' ------ INIZIO codice...

Sub Main Dim ruota(2),pt(5),ruote(3),a1(12) pt(2) = 1 pt(3) = 1 clp = 1 ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145) fine = EstrazioneFin For es = ini To EstrazioneFin ' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...

Sub Main Dim ruota(2),pt(5),ruote(3),a1(12) pt(2) = 1 clp = 1 ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145) fine = EstrazioneFin For es = ini To EstrazioneFin ' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...

Sub Main Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z Posta(1) = 1 Posta(2) = 1 Posta(3) = 1 X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157) Ini = EstrazioneFin - X fin =...

Sub Main Dim Nu(2),Ru(2),aN(3),Posta(3),X Posta(1) = 1 Posta(2) = 1 Posta(3) = 1 X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forumfree.lottoced/",157) Ini = EstrazioneFin - X fin = EstrazioneFin Scrivi "...

Sub Main Dim Nu(2),Ru(2),aN(3),Posta(3) Posta(1) = 1 Posta(2) = 1 Posta(3) = 1 Ini = EstrazioneFin - 1000 fin = EstrazioneFin For es = Ini To fin For r1 = 1 To 9 For r2 = r1 + 1 To 10 For p = 1 To 5 a = Estratto(es,r1,p)...

Sub Main Dim Nu(2),Ru(2),aN(3),Posta(3),X Posta(1) = 1 Posta(2) = 1 Posta(3) = 1 X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157) Ini = EstrazioneFin - X fin = EstrazioneFin Scrivi "...

Buonasera ragazzi. Un nuovo script su Torino. Sub Main Dim ruota(1),pt(2),ruote(5),a1(2),a2(4) pt(1) = 1 pt(2) = 1 clp = 7 ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105) pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...

Nuova tecnica, seguitela per vedere se da qualche soddisfazione! Sub Main Dim ruota(2),am(3),pt(4),ruote(6),a1(4),a2(4),a3(4),a4(4),a5(4) pt(2) = 1 pt(3) = 1 pt(4) = 1 clp = 8 ini = 145 pr = 145 fine = EstrazioneFin ini = EstrazioneFin - pr r = InputBox("scegli ruota?","Metodo e script di Mauro...

Per chi vuole cimentarsi nello script! Si devono cercare due numeri zerati isotopi, Nell'esempio Firenze 40 e Genova 10, 40/10 = 4 10/10 = 1 Primo numero per ambata 4 & 1 = 41 Secondo numero per ambata vertibile di 41=14 Terzo numero 4 + 1 = 5 # in terzina con 14 e 41 Si giocano sulle ruote...

Tecnica: Sub Main Dim ruota(2),am(3),pt(2),ruote(5),a1(2),a2(4),a3(4),a4(2),a5(2),a6(2) pt(1) = 1 pt(2) = 1 clp = 10 ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105) pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...

Tecnica: Sub Main Dim ruota(2),am(3),pt(2),ruote(5),a1(2),a2(4),a3(4),a4(2),a5(2),a6(2) pt(1) = 1 pt(2) = 1 clp = 7 ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105) pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...

Tecnica: Sub Main Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili pt(1) = 1 'Posta ambata pt(2) = 1 'Posta ambo clp = 7 'Numero dei colpi ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105) pr = CInt(InputBox("Quante estrazioni vuoi...

Buongiorno a tutti. Ho provato a verificare manualmente un metodo basato sulla presenza nel quadro estrazionale dei "numeretti" ( da 1 a 9). Esempio Estrazione del 07.01.2021 Cagliari 7 1 68 30 84 Palermo 8 22 9 23 17 Si devono combinare i due nuemeretti...