Risultati della ricerca

Modifica con scelta figura Sub Main() Dim n,aOpt(9),sceltaFig,k ' Menu di selezione della Figura For k = 1 To 9 aOpt(k) = "Figura " & k Next sceltaFig = ScegliOpzioneMenu(aOpt,8,"Seleziona la Figura da ricercare:") If sceltaFig <= 0 Then Exit Sub '...

Alleggerito senza cerchio e quadro estrazionale Sub Main() Dim number(3),r1,r2,p1,p2,p3,p4,p5,n,r3,m(5) Dim a,b,c,d,e Dim ruote(3),poste(2) poste(1)=1 poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla) For i = 1 To 3 ruote(i) = i...

Clicca su liunk precedente dove hai scaricato e trovi archivio.itz da inserire nella cartella L8 o al massimo ripristini da backup Seleziona il backup scaricato e poi confermi

se la versione che hai si apre allora da backup-ripristina e scegli quello che hai scaricato

Sub Main() Dim number(3),r1,r2,p1,p2,p3,p4,p5,n,r3,m(5) Dim a,b,c,d,e Dim ruote(12),poste(2) poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla) For i = 1 To 12 ruote(i) = i Next ' Ciclo estrazioni For n = 10780 To EstrazioneFin...

https://mega.nz/folder/tBYQCZoZ#gbOyE7Odpbsv3-eDyJQVHA Da backup-ripristina backup

Bisogna fare uno script per ogni figura altrimenti il pc va in panne

Semplicemente dove leggi figura a=8 cambia 8 con 3

La versione 6.1 è infetta da virus Dovresti inserire prima di lanciarlo nella lista esclusioni di defender di Windows Impostazioni di Windows Sicurezza firewall Protezione in tempo reale... Disattivare Prova così

Lo stesso script per tutte le figure?

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 ' Intestazione Generale dello Script Scrivi...

Forse così.... Sub Main() Dim rt(5), pt(2), nu(2) Dim es, ini, fin, clp, casi Dim n(5), d ini = 6877 fin = EstrazioneFin clp = 13 ' Ruote di gioco: BA-CA-FI-GE-MI rt(1)=1 rt(2)=2 rt(3)=3 rt(4)=4 rt(5)=5 'pt(1)=0 pt(2)=1 ' Ambo For es = ini To fin AvanzamentoElab ini,fin,es For k = 1 To...

Sub Main() Dim number(3),r1,r2,p1,p2,p3,p4,p5,n Dim a,b,c,d,e Dim ruote(12),poste(2) poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla) ' Inizializzazione array ruote For i = 1 To 12 ruote(i) = i Next ' Ciclo estrazioni...

Sub Main() Dim number(3), r1, r2, p1, p2, p3, p4, p5, n Dim a, b, c, d, e Dim ruote(12), poste(2) poste(2) = 2 ' Posta per estratto/ambo (a seconda di come vuoi impostarla) ' Inizializzazione array ruote For i = 1 To 12 ruote(i) = i Next ' Ciclo...

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 ' Intestazione Generale dello Script Scrivi...

Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati, elencoRipetuti Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1...

Prova così Sub Main() Dim r, p, es, numero Dim fine, inizio, colpi Dim presenze(90) Dim ultimaUscita(90) Dim elencoNumeri, elencoEvidenziati Dim contatoreUnici, contatoreEvidenziati colpi = 18 fine = EstrazioneFin inizio = (fine - colpi) + 1 '...

Option Explicit Sub Main Dim es, r, p, n Dim riga, contatoreRipetuti Dim ini, fin Dim freq(12, 90) ' Definizione del range: ultime 18 estrazioni disponibili fin = EstrazioneFin ini = (fin - 18) + 1 ' Inizializzazione dell'array delle frequenze a 0...

Cambia If IsPenultimaDelMese(estr) Then Con questo If indicemensile(estr) =1 then

Al posto di isultimedelmese scrivo if indicemensile( n) =1 2 eccc