Risultati della ricerca

su ogni ruota appare il numero uscito una volta..... non sto capendo

Ho capito cosa intendi e l unico modo è un tablet windows da portare sempre con te... Io l ho preso per il programma di fatturazione che usiamo. Anche se non sono a casa posso usarlo quando chiedono qualcosa. Considera che lo schermo del cell è troppo piccolo in ogni caso e non si ha mai una...

Troppe condizioni con estrazioni diverse complesso Mi fermo qui per ora

Se noti ci sono 4 figure tra cui quelli postati anche

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 ' Ciclo principale Estrazioni...

Se non creo le condizioni per ogni figura da sempre errore

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...