Sub Main()
Scrivi" **** SPIA X Ambata Pennsilvania *****Script in Tabella by Mike58 adattatamento Fillotto ***** ",True,False,6,2,3
Dim n1(01)
Call ApriBaseDatiFT("C:\Documents and Settings\utente\Dati applicazioni\SpazioMetria\ArchivioPensy\PENSY.txt",5,",")
casi = 0
ini = EstrazioniArchivioFT - 500
fin = EstrazioniArchivioFT
corr = CInt(InputBox("Cambia il corretore ","Scegli da 1 a 30",1))
Call TestoInBandaPassante("Numero messo a correzione " & corr)
ReDim at(6)
at(01) = " Casi "
at(02) = " Data estrazione"
at(03) = " Ambata in Gioco"
at(04) = " Colpo Sortita"
at(05) = " esito Ambata "
at(06) = " Data Esito Ambata "
Call InitTabella(at,1,,2,5)
For es = Ini To fin
Messaggio es
AvanzamentoElab Ini,fin,es
If FuoriX(EstrattoFT(es,2) + EstrattoFT(es,3),30) = 11 Then 'Condizione affinchè si registri un caso (CONDIZIONE CHE SI PUO CAMBIARE)
casi = casi + 1
n1(01) = FuoriX(EstrattoFT(es,5) + EstrattoFT(es,1) + corr,30)'Questo è il numero che verrà messoi gioco (CONDIZIONE CHE SI PUO CAMBIARE)
a01 = n1(1)
anu1 = Array(a00,a01)
Call VerificaEsitoFT(anu1,es + 1,1,5,esito1,colpi1,estratti1,id1)'<<<<<<<<<<<<<<<<
ReDim av(10)
av(01) = casi
av(02) = DataEstrazioneFT(es)
av(03) = Format2(n1(01))
If esito1 <> "" Then av(04) = colpi1 & "°" '<<<<<<<<<<<<<<<<<<<<<<<<<<<
If esito1 <> "" Then av(05) = estratti1 '<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If esito1 <> "" Then av(06) = DataEstrazioneFT(id1) '<<<<<<<<<<<<<<<<<<<<<<
If esito1 = "" And colpi1 > 04 Then av(06) = " Negativo " '<<<<<<<<<<<<<<<<<<<<
If esito1 = "" And colpi1 <= 04 Then av(06) = " In corso " '<<<<<<<<<<<<<<<<<<<
Call AddRigaTabella(av,,,1,,"arial black")
Call SetColoreCella(1,RGB(175,174,222),5)
Call SetColoreCella(2,RGB(252,237,240),2)
Call SetColoreCella(3,RGB(164,242,249),0)
Call SetColoreCella(4,RGB(175,239,173),0)
Call SetColoreCella(5,RGB(236,200,176),0)
If esito1 <> "" Then av(06) = DataEstrazioneFT(id1):Call SetColoreCella(06,RGB(127,255,0),1)'<<<<<<<<<<<<<<<<<<
If DataEstrazioneFT(id1) = DataEstrazioneFT(fin) Then Call SetColoreCella(06,RGB(255,0,255),1)'<<<<<<<<<<<<<
If esito1 = "" And colpi1 > 04 Then av(06) = " Negativo ":Call SetColoreCella(04,RGB(255,0,0),1):Call SetColoreCella(05,RGB(255,0,0),1):Call SetColoreCella(06,RGB(255,0,0),1)
If esito1 = "" And colpi1 <= 04 Then av(06) = " In corso ":Call SetColoreCella(04,RGB(255,255,102),1):Call SetColoreCella(05,RGB(255,255,102),1):Call SetColoreCella(06,RGB(255,255,102),1)
' ---------------- calcolo colpi -------------------------
If esito1 <> "" And colpi1 = 01 Then clpa01 = clpa01 + 1
If esito1 <> "" And colpi1 = 02 Then clpa02 = clpa02 + 1
If esito1 <> "" And colpi1 = 03 Then clpa03 = clpa03 + 1
If esito1 <> "" And colpi1 = 04 Then clpa04 = clpa04 + 1
If esito1 <> "" And colpi1 = 05 Then clpa05 = clpa05 + 1
If esito1 <> "" And colpi1 > 00 And colpi1 < 05 Then clptot1 = clptot1 + 1'
If esito1 = "" And colpi1 < 05 Then clpcorso1 = clpcorso1 + 1
'---------------------------------------------------------
End If
Next
Call SetTableWidth("80%")
CreaTabellaOrdinabile()
ReDim atta(09)
atta(01) = " Colpo 1 "
atta(02) = " Colpo 2 "
atta(03) = " Colpo 3 "
atta(04) = " Colpo 4 "
atta(05) = " Colpo 5 "
atta(06) = " Totali casi "
atta(07) = " Casi positivi "
atta(08) = " Casi Negativi "
atta(09) = " Casi in corso "
Call InitTabella(atta,6,,3,1)
ReDim avva(09)
avva(01) = clpa01
avva(02) = clpa02
avva(03) = clpa03
avva(04) = clpa04
avva(05) = clpa05
avva(06) = casi
avva(07) = clpa01 + clpa02 + clpa03 + clpa04 + clpa05
avva(08) = casi - clpa01 - clpa02 - clpa03 - clpa04 - clpa05 - clpcorso1
avva(09) = clpcorso1
Call AddRigaTabella(avva,6,,3,1)
Scrivi " Resoconto Ambata",1
Call SetTableWidth("80%")
Call CreaTabella()
End Sub