Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Beppignello;n2056501 ha scritto:probabilmente ti manca qualche end if oppure next oppure loop
dipende dalle routine che hai impostato sopra
prova pigiare il bottone centrale sulla schermata dello script dell'allineamento delle istruzioni
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Dim C(20)
Ruota = BA_
Dim CPE
ColoreTesto 2
Scrivi NomeRuota(Ruota) & " ",True,False
For N = 1 To 10 : Numeri(N) = N : Next
'Dim Ruota [COLOR=#FF0000] REMMATO[/COLOR]
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Dim C(20)
'Ruota = BA_ [COLOR=#FF0000] REMMATO[/COLOR]
Dim CPE
ColoreTesto 2
Dim sez
Dim sfilearchivio
Dim ult
sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione? "," 1 - 6 ",1)
ult = CInt(InputBox(" Quante estrazioni devo escludere dall'ultima in archivio ? "," 0 x nessuna 1,2....ecc ",1))
For sez = 1 To 7
sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
Call ApriBaseDatiFT(sfilearchivio,06,",",42)'Ecco il cicloFOR x prendere tutte le SeZ
Scrivi " SWTZ" & " ",True,False '''''''[COLOR=#FF0000]CAMBIATO[/COLOR]
Option Explicit
Sub Main
Dim P,I,F 'Primario / Inizio / Fine
Dim N '-Enne- Numeri / Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(10)
Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Dim C(20)
Ruota = BA_
Dim CPE
ColoreTesto 2
Scrivi NomeRuota(Ruota) & " ",True,False
For N = 1 To 10 : Numeri(N) = N : Next
Scrivi StringaNumeri(Numeri,,True),True
ColoreTesto 0
Scrivi
'DATI :
I = 3862 'Inizio Contatore Principale
F = EstrazioneFin 'Fine Contatore Principale
N = 9 'Numero di Estrazioni per ciclo
For P = I To F Step 9 'Ciclo principale
AvanzamentoElab I,F,P
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Contatore Secondario
E = P + S 'Estrazione in Oggetto
If E > F Then Exit For 'Termina se non ci sono estrazioni.
Scrivi E & " " & DataEstrazione(E) & " ",0,0
CPE = 0 'Azzera ad ogni estrazione il Contatore Presenze Estrazione
For Pos = 1 To 5 'Legge gli Estratti -Uno ad uno-
L = Estratto(E,Ruota,Pos) ''
For Q = 1 To 10
If Numeri(Q) = L Then 'Confronto Crociato.
CP = CP + 1 'Conta presenze
CPE = CPE + 1 'Conta presenze
ColoreTesto 2 'Colora di rosso
Bold = True 'Attiva il grassetto
End If
Next
Scrivi Format2(L),Bold,0 '''Scrive Estratti
ColoreTesto 0 : Bold = False 'Disattiva il colore e grassetto
If Pos < 5 Then Scrivi ".",False,False 'inserisce un punto di separazione
Next
If CPE >= 2 Then
Scrivi Space(2) & NomeSorte(CPE)
Else
Scrivi "" 'RiAttiva "a capo"
End If
Next
'Riepilogo Risultati
ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
Scrivi Space(7),False,False
ColoreTesto 2 : Scrivi "Presenze " & CP,True: ColoreTesto 0
If CC > ST Then ST = CC
If CP >= 7 Then C(CC) = C(CC) + 1 : CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"
Scrivi String(32,"-")
Next
ColoreTesto 1
Scrivi "Storico" & FormatSpace(ST,6,True),True
ColoreTesto 0
Scrivi
Scrivi "Target Raggiunti",True
Scrivi "Ciclo Volte"
For N = 1 To 20
If C(N) > 0 Then Scrivi Format2(N) & " " & String(4,".") & " " & C(N)
Next
End Sub
[CODE]
Option Explicit
Sub Main''PRESO da "Joe91 come faccio" del 31/3/17
Dim P,I,F 'Primario / Inizio / Fine
Dim N '-Enne- Numeri / Ciclo -Enne- Estrazioni
Dim S 'Secondario
Dim E 'Estrazione
Dim Numeri(42)'per cambiare una settina qualsiasi è necessario mettere tutti e 42 i num
'Dim Ruota
Dim L
Dim Pos
Dim Q
Dim Bold
Dim CP,CC,ST
Dim C(20)
'Ruota = BA_
Dim CPE
ColoreTesto 2
Dim sez
Dim sfilearchivio
Dim ult
sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione? "," 1 - 6 ",1)
ult = CInt(InputBox(" Quante estrazioni devo escludere dall'ultima in archivio ? "," 0 x nessuna 1,2....ecc ",1))
For sez = 1 To 7
sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
Call ApriBaseDatiFT(sfilearchivio,06,",",42)'Ecco il cicloFOR x prendere tutte le SeZ
Scrivi " SWTZ" & " ",True,False
For N = 8 To 14 : Numeri(N) = N : Next 'cambiare qui per una nuova sett
Scrivi StringaNumeri(Numeri,,True),True
ColoreTesto 0
Scrivi
'DATI :
I = 386 'Inizio Contatore Principale
F = EstrazioniArchivioFT 'Fine Contatore Principale
N = 6'Numero di Estrazioni per ciclo
For P = I To F Step 6 'Ciclo principale
AvanzamentoElab I,F,P
CC = CC + 1 'Contatore Cicli Aumenta di 1 ad ogni passaggio
CP = 0 'CP = Contatore Presenze = 0
For S = 0 To N - 1 'Contatore Secondario
E = P + S 'Estrazione in Oggetto
If E > F Then Exit For 'Termina se non ci sono estrazioni.
Scrivi E & " " & DataEstrazioneFT(E) & " ",0,0
CPE = 0 'Azzera ad ogni estrazione il Contatore Presenze Estrazione
For Pos = 1 To 6 'Legge gli Estratti -Uno ad uno-
L = EstrattoFT(E,Pos) ''
For Q = 8 To 14 'sono i unmeri componenti la settina
If Numeri(Q) = L Then 'Confronto Crociato.
CP = CP + 1 'Conta presenze
CPE = CPE + 1 'Conta presenze
ColoreTesto 2 'Colora di rosso
Bold = True 'Attiva il grassetto
End If
Next
Scrivi Format2(L),Bold,0 '''Scrive Estratti
ColoreTesto 0 : Bold = False 'Disattiva il colore e grassetto
If Pos < 6 Then Scrivi ".",False,False 'inserisce un punto di separazione
Next
If CPE >= 2 Then 'se gli estratti risultano 2 o + di 2 allora....
Scrivi Space(2) & NomeSorte(CPE)'scrivi il nome della sorte .. ambo.. terno.... ecc
Else
Scrivi "" 'RiAttiva "a capo"
End If
Next
'Riepilogo Risultati
ColoreTesto 1 : Scrivi "Ciclo N° " & FormatSpace(CC,4,True),True,False
Scrivi Space(7),False,False
ColoreTesto 2 : Scrivi "Presenze " & CP,True: ColoreTesto 0
If CC > ST Then ST = CC
If CP >= 6 Then C(CC) = C(CC) + 1 : CC = 0 'Azzera il contatore nei cicli maggiormente "positivi"
Scrivi String(32,"-")
Next
ColoreTesto 1
Scrivi "Storico" & FormatSpace(ST,6,True),True
ColoreTesto 0
Scrivi
Scrivi "Target Raggiunti",True
Scrivi "Ciclo Volte"
For N = 1 To 20
If C(N) > 0 Then Scrivi Format2(N) & " " & String(5,".") & " " & C(N)
Next
End Sub