| ecco il programma Sub Main() Dim num1(6),c(2) Dim ruota(10) Dim posta(2) posta(2) = 1 Scrivi " AMBO DISTANZA DUE CON NUMERO MANCANTE COME CAPOGIOCO",1 Scrivi " SOMMA 3 NUMERI RIMASTI X ABBINAMENTO - programma L8+6.1",1 Scrivi " script by Fermino" fin = EstrazioneFin ini = 10024 For es = ini To fin AvanzamentoElab ini,fin,es For r = 1 To 10 For p = 1 To 2 For p1 = p + 1 To 5 a = Estratto(es,r,p) b = Estratto(es,r,p1) If Distanza(a,b) = 2 Then d = Fuori90(a + b) a1 = SommaEstratti(es,r) a7 = Fuori90(a1 - d) c(1) = a c(2) = b OrdinaMatrice(c) k = 3 'colpi gioco t = t + 1 ColoreTesto 2 Scrivi String(65,"•"),1 ColoreTesto 1 : Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & _ Format2(a) & "-" & Format2(b) & " " & p & "^ " & p1 & "^ pos. giocata n. " & Format2(t),1 Scrivi " NUMERO MANCANTE TRA " & a & "-" & b & " = " & c(1) + 1 & " <--- capogioco" ColoreTesto 2 Scrivi String(65,"-") ColoreTesto 0 ruota(1) = r ruota(2) = 11 num1(1) = c(1) + 1 num1(2) = a7 EliminaRipetuti num1 ImpostaGiocata 1,num1,ruota,posta,k Gioca es casi = casi + 1 Scrivi End If Next Next Next Next ColoreTesto 2 Scrivi "=====================================",1 ColoreTesto 1 Scrivi " totale giocate elaborate : " & CInt(casi),1 ColoreTesto 2 Scrivi "=====================================",1 ColoreTesto 0 ScriviResoconto End Sub
|