Novità

10elotto

Zetrix ha scritto:
Ciao Toon,Alien,

Alien proprio il milion day e meglio che non lo giochi perche i numeri sono estratti
con il computer quindi sanno gia tutte le cinquine che hanno giocate
e il computer estrae cinque numeri che nessuno a giocato..
Clicca per espandere...
Bhe io da profano ho fatto 4 (2) e 2 (3):unsure:🤣🤣 con 4 € ,forse è la fortuna del proncipiante. !!
 
esatto e la fortuna del principiante se giocano milioni di colonne e normale
che qualcuno vince i 2 i 3 e i 4 ma i cinque se li possono scordare faranno
vincere ogni tanto una cinquina ai compagni di merenda..
non mi fido di quel gioco quanto i numeri sono estratti con un computer
anche se loro dicono che i numeri sono estratti del tutto casuali..
e allora perche non usano una venus per estrarre i cinque numeri
inseriscono le 55 palline e poi vediamo chi vince..
e in questo modo si possono fare anche i disegni..
comunque dovrei avere alcuni script per il milon day se vi interessano
li posso mettere nel forum..
 
Codice: 
Class clsCerchioCiclometrico
   Dim aPos(55,02) ' memorizza le coordinate relative ai 99 Numeri
   Dim aNumeri(55) ' 55 Numeri
   Private CollCorde
   Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
      Dim nRaggio ' raggio ddel cerchio
      Dim cX,cY ' centro del cerchio x e y
      Dim Base,Altezza ' dimensioni area disegno
      Dim Angolo ' gestisce il ciclo per disegnare il cerchio
      Dim pi ' pigreco
      Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
      Dim cLung ' distanza per stampare i gradi
      Dim k ' ciclo generico
      Dim n
      Dim z
      Call PicClear()
      Set CollCorde = GetNewCollection
      cLung = 2
      pi = 3.14
      Base = 150
      Altezza = 150
      nRaggio = 60
      ' preimposto le dimensioni dell'area
      Call PicSetDimensioni(Base,Altezza,Base,Altezza)
      ' calcolo il centro del cerchio
      cX = Base / 2
      cY = Altezza / 2
      Call PicCerchio(cX,cY,nRaggio)
      Angolo = 90
      n = 56
      For z = 1 To 55
         n = n - 01
         x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
         y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
         ' memorizzo nell'array globale le coordinate appena calcolate
         ' cosi potranno essere riusate per disegnare le corde
         aPos(n,1) = x1
         aPos(n,2) = y1
         If n Mod 2 = 00 Then
            x2 = cX +((nRaggio + cLung * 03) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 03) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung * 04) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 04) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo,,,,,10)
         Else
            ' disegno il semiraggio
            x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo)
         End If
         Angolo = FuoriX(90 + Int(360 -((360/55)*(n - 1))),360)
      Next
      Call DisegnaFigura(aNumeri)
      Call DisegnaDistanze(aCorde)
      Call PicEsegui
   End Sub
   Private Sub DisegnaFigura(aNum)
      Dim k
      For k = 01 To UBound(aNum)
         Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 01,UBound(aNum))),vbGreen,True,False)
      Next
   End Sub
   Private Sub DisegnaDistanze(aCorde)
      Dim k
      For k = 01 To UBound(aCorde)
         Call DisegnaCorda(aCorde(k,01),aCorde(k,02),vbBlue,True,True)
      Next
   End Sub
   Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
      Dim nX,nY,sDist
      If AddCorda(p1,p2) Then
         If bLineaTratt Then
            Call PicLineaTratteggiata(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         Else
            Call PicLinea(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         End If
         Call PicPunto(aPos(p1,01),aPos(p1,02),06,colore)
         Call PicPunto(aPos(p2,01),aPos(p2,02),06,colore)
         If bDisegnaDist Then
            If aPos(p1,01) > aPos(p2,01) Then
               nX =(aPos(p1,01) - aPos(p2,01)) / 02 + aPos(p2,01)
            Else
               nX =(aPos(p2,01) - aPos(p1,01)) / 02 + aPos(p1,01)
            End If
            If aPos(p1,02) > aPos(p2,02)Then
               nY =(aPos(p1,02) - aPos(p2,02)) / 02 + aPos(p2,02)
            Else
               nY =(aPos(p2,02) - aPos(p1,02)) / 02 + aPos(p1,02)
            End If
            Call PicCerchio(nX,nY,03,vbBlack,,True,vbYellow)
            nX = nX - 1.5
            nY = nY - 1.5
            sDist = Format2(DiffCiclometrica55(p1,p2))
            Call PicStampaTesto(nX,nY,sDist)
         End If
      End If
   End Sub
   Function DiffCiclometrica55(NumA,NumB)
      Dim r
      If NumA > NumB Then
         r = NumA - NumB
         Do While r >= 28
            r = 55 - r
         Loop
      ElseIf NumB > NumA Then
         r = NumB - NumA
         Do While r >= 28
            r = 55 - r
         Loop
      End If
      DiffCiclometrica55 = r
   End Function
   Private Function AddCorda(n01,n02)
      Dim sKey
      If n01 <= n02 Then
         sKey = "k" & Format2(n01) & Format2(n02)
      Else
         sKey = "k" & Format2(n02) & Format2(n01)
      End If
      On Error Resume Next
      CollCorde.Add sKey,sKey
      If Err = 00 Then
         AddCorda = True
      End If
   End Function
End Class
Sub Main
   Dim clsCerchio
   Dim k,qt
   Dim aCorde
   'Dim TipoEsempio
   ReDim aNum(0)
   qt = ScegliNumeri(aNum)
   Call OrdinaMatrice(aNum,1)
   qt = UBound(aNum)
   aCorde = SviluppoIntegrale(aNum,2)
   Set clsCerchio = New clsCerchioCiclometrico
   Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
   Scrivi StringaNumeri(aNum)
End Sub
Function Dista55(numa,numb)
   Dim r
   If numa > numb Then
      r = numa - numb
      Do While r >= 28
         r = 55 - r
      Loop
   ElseIf numb > numa Then
      r = numb - numa
      Do While r >= 28
         r = 55 - r
      Loop
   End If
   Dista55 = r
End Function

Alien questo script disegna i numeri nel cerchio per il milionday ..
 
Codice: 
1425,01/01/2022,40,49,26,6,42
1426,02/01/2022,4,50,48,41,14
1427,03/01/2022,24,44,27,5,10
1428,04/01/2022,49,30,54,52,13
1429,05/01/2022,34,41,9,32,37
1430,06/01/2022,24,11,2,17,23
1431,07/01/2022,17,52,13,35,4
1432,08/01/2022,38,22,14,25,20
1433,09/01/2022,35,19,25,8,22
1434,10/01/2022,41,49,30,44,4
1435,11/01/2022,16,41,20,24,46
1436,12/01/2022,32,4,14,31,36
1437,13/01/2022,15,35,7,54,16
1438,14/01/2022,7,18,22,24,39
1439,15/01/2022,6,24,13,33,42
1440,16/01/2022,20,3,12,4,14
1441,17/01/2022,20,3,49,4,11
1442,18/01/2022,19,32,35,26,18
1443,19/01/2022,37,20,9,42,32
1444,20/01/2022,40,31,5,47,33
1445,21/01/2022,19,27,14,2,28
1446,22/01/2022,30,50,28,8,17
1447,23/01/2022,16,54,5,52,8
1448,24/01/2022,22,51,46,1,7
1449,25/01/2022,55,12,2,43,16
1450,26/01/2022,26,53,13,32,39
1451,27/01/2022,4,38,17,28,23
1452,28/01/2022,45,9,46,36,27
1453,29/01/2022,28,38,30,15,34
1454,30/01/2022,48,29,6,22,17
1455,31/01/2022,35,50,25,52,53
1456,01/02/2022,6,43,44,33,22
1457,02/02/2022,27,20,40,48,13
1458,03/02/2022,25,45,4,7,55
1459,04/02/2022,54,30,10,27,23
1460,05/02/2022,20,11,23,30,16
1461,06/02/2022,53,21,13,37,1
1462,07/02/2022,41,27,55,29,21
1463,08/02/2022,25,19,51,40,33
1464,09/02/2022,24,35,50,25,1
1465,10/02/2022,49,36,37,28,52
1466,11/02/2022,21,5,15,47,9
1467,12/02/2022,55,46,7,45,48
1468,13/02/2022,53,48,42,14,24
1469,14/02/2022,48,38,9,3,32
1470,15/02/2022,43,9,19,12,18
1471,16/02/2022,26,53,5,33,15
1472,17/02/2022,31,41,19,24,4
1473,18/02/2022,17,19,39,37,50
1474,19/02/2022,6,47,52,17,25
1475,20/02/2022,27,18,7,43,36
1476,21/02/2022,17,34,53,44,11
1477,22/02/2022,22,4,42,6,21
1478,23/02/2022,55,27,20,37,41
1479,24/02/2022,52,45,48,26,18
1480,25/02/2022,5,35,48,11,24
1481,26/02/2022,27,55,19,52,20
1482,27/02/2022,5,39,8,24,41
1483,28/02/2022,15,28,16,50,30
1484,01/03/2022,7,23,50,46,45
1485,02/03/2022,8,47,23,45,35
1486,03/03/2022,13,41,25,23,40
1487,04/03/2022,2,1,22,49,44
1488,05/03/2022,33,16,30,17,9
1489,06/03/2022,39,49,27,43,12
1490,07/03/2022,52,50,13,18,14
1491,08/03/2022,14,34,8,7,3
1492,09/03/2022,4,20,45,55,30
1493,10/03/2022,54,7,50,3,11
1494,11/03/2022,42,1,48,55,52
1495,12/03/2022,10,43,21,17,40
1496,13/03/2022,8,5,46,28,32
1497,14/03/2022,42,54,27,53,48
1498,15/03/2022,43,20,28,13,49
1499,16/03/2022,14,24,15,10,2
1500,17/03/2022,21,7,4,47,28
1501,18/03/2022,43,53,29,39,31
1502,19/03/2022,11,17,26,45,3
1503,20/03/2022,39,13,38,37,48
1504,21/03/2022,7,43,35,38,45
1505,22/03/2022,24,21,44,35,6
1506,23/03/2022,30,42,9,29,17
1507,24/03/2022,9,35,24,1,39
1508,25/03/2022,49,27,15,7,51
1509,26/03/2022,34,42,55,32,49
1510,27/03/2022,33,50,49,31,22
1511,28/03/2022,9,55,21,12,7
1512,29/03/2022,22,11,43,29,17
1513,30/03/2022,52,33,43,10,37
1514,31/03/2022,6,18,12,35,45
1515,01/04/2022,44,55,22,43,13
1516,02/04/2022,53,9,7,20,33
1517,03/04/2022,25,22,31,3,26
1518,04/04/2022,5,37,46,41,3
1519,05/04/2022,32,35,26,55,16
1520,06/04/2022,44,15,26,3,51
1521,07/04/2022,22,15,9,20,40
1522,08/04/2022,29,40,23,48,5
1523,09/04/2022,35,16,17,34,22
1524,10/04/2022,17,34,42,39,53
1525,11/04/2022,40,34,36,15,16
1526,12/04/2022,25,27,12,1,49
1527,13/04/2022,23,10,43,4,33
1528,14/04/2022,34,8,18,55,29
1529,15/04/2022,30,46,28,49,33
1530,16/04/2022,13,48,51,5,41
1531,17/04/2022,38,25,45,18,54
1532,18/04/2022,55,13,23,51,35
1533,19/04/2022,4,14,20,26,33
1534,20/04/2022,26,11,55,22,21
1535,21/04/2022,4,11,38,31,28
1536,22/04/2022,27,47,43,25,13
1537,23/04/2022,15,14,16,51,18
1538,24/04/2022,33,42,49,8,22
1539,25/04/2022,13,24,38,51,45
1540,26/04/2022,54,2,55,8,10
1541,27/04/2022,3,17,6,37,15
1542,28/04/2022,51,10,47,3,26
1543,29/04/2022,43,18,42,22,35
1544,30/04/2022,51,16,1,23,55
1545,01/05/2022,48,11,40,37,49
1546,02/05/2022,51,33,50,22,47
1547,03/05/2022,2,48,34,13,40
1548,04/05/2022,13,9,4,3,1
1549,05/05/2022,48,30,7,35,1
1550,06/05/2022,11,52,51,4,28
1551,07/05/2022,37,26,39,8,12
1552,08/05/2022,46,12,8,22,49
1553,09/05/2022,24,51,1,30,25
1554,10/05/2022,2,25,29,34,43
1555,11/05/2022,25,5,9,2,28
1556,12/05/2022,24,41,31,40,16
1557,13/05/2022,37,13,43,29,2
1558,14/05/2022,5,41,20,38,22
1559,15/05/2022,50,34,32,23,14
1560,16/05/2022,35,12,31,36,13
1561,17/05/2022,7,26,8,52,55
1562,18/05/2022,29,6,47,14,54
1563,19/05/2022,20,37,40,39,27
1564,20/05/2022,47,15,8,21,4
1565,21/05/2022,48,23,37,6,45
1566,22/05/2022,36,55,47,50,24
1567,23/05/2022,13,39,20,22,37
1568,24/05/2022,19,54,25,23,18
1569,25/05/2022,34,19,16,53,3
1570,26/05/2022,45,44,16,18,40
1571,27/05/2022,45,2,20,24,6
1572,28/05/2022,38,30,42,10,20
1573,29/05/2022,5,19,32,17,40
1574,30/05/2022,19,2,44,9,3
1575,31/05/2022,15,19,23,25,46
1576,01/06/2022,3,20,25,10,55
1577,02/06/2022,53,15,13,4,31
1578,03/06/2022,55,44,9,34,32
1579,04/06/2022,11,33,15,6,37
1580,05/06/2022,8,6,28,4,10
1581,06/06/2022,18,53,38,32,9
1582,07/06/2022,25,10,52,27,2
1583,08/06/2022,52,16,30,48,17
1584,09/06/2022,3,13,39,19,50
1585,10/06/2022,6,8,46,19,20
1586,11/06/2022,2,41,40,43,53
1587,12/06/2022,5,26,52,53,41
1588,13/06/2022,26,5,52,49,6
1589,14/06/2022,5,10,21,7,53
1590,15/06/2022,10,4,15,1,18
1591,16/06/2022,21,24,2,13,11
1592,17/06/2022,22,34,26,24,50
1593,18/06/2022,26,13,52,53,19
1594,19/06/2022,16,3,20,15,36
1595,20/06/2022,39,19,36,9,53
1596,21/06/2022,10,24,38,29,51
1597,22/06/2022,22,31,55,47,11
1598,23/06/2022,44,24,43,20,30
1599,24/06/2022,40,37,7,44,1
1600,25/06/2022,50,51,49,31,33
1601,26/06/2022,36,55,24,11,7
1602,27/06/2022,48,15,34,54,9
1603,28/06/2022,18,48,21,50,9
1604,29/06/2022,22,45,18,33,40
1605,30/06/2022,17,39,2,4,33
1606,01/07/2022,42,46,8,21,3
1607,02/07/2022,34,7,2,54,38
1608,03/07/2022,24,31,42,48,55
1609,04/07/2022,29,47,33,26,2
1610,05/07/2022,13,11,23,3,16
1611,06/07/2022,15,21,36,16,30
1612,07/07/2022,34,52,22,50,20
1613,08/07/2022,52,1,17,8,32
1614,09/07/2022,37,2,30,10,27
1615,10/07/2022,44,29,3,12,30
1616,11/07/2022,16,53,20,34,39
1617,12/07/2022,31,47,27,6,11
1618,13/07/2022,22,53,47,50,40
1619,14/07/2022,51,19,14,7,26
1620,15/07/2022,16,4,53,52,6
1621,16/07/2022,20,29,8,32,50
1622,17/07/2022,4,5,44,33,9
1623,18/07/2022,28,8,46,14,37
1624,19/07/2022,10,12,37,26,46
1625,20/07/2022,32,9,53,39,43
1626,21/07/2022,2,17,32,25,19
1627,22/07/2022,29,52,19,27,9
1628,23/07/2022,9,32,6,16,30
1629,24/07/2022,12,26,44,5,50
1630,25/07/2022,49,31,9,48,43
1631,26/07/2022,38,52,50,11,23
1632,27/07/2022,9,13,6,12,8
1633,28/07/2022,5,7,33,51,47
1634,29/07/2022,48,19,12,8,15
1635,30/07/2022,42,37,54,49,33
1636,31/07/2022,28,12,30,49,52
1637,01/08/2022,41,54,40,32,50
1638,02/08/2022,6,20,9,47,53
1639,03/08/2022,4,24,23,15,47
1640,04/08/2022,11,36,53,49,55
1641,05/08/2022,32,51,54,23,9
1642,06/08/2022,52,5,46,1,49
1643,07/08/2022,41,18,9,21,24
1644,08/08/2022,42,15,16,48,36
1645,09/08/2022,20,30,43,52,7
1646,10/08/2022,6,12,9,14,2
1647,11/08/2022,42,51,23,14,30
1648,12/08/2022,10,23,7,54,8
1649,13/08/2022,42,12,17,28,38
1650,14/08/2022,38,52,37,48,24
1651,15/08/2022,14,7,40,39,48
1652,16/08/2022,52,6,15,21,17
1653,17/08/2022,16,7,49,20,34
1654,18/08/2022,9,47,35,21,6
1655,19/08/2022,32,2,43,16,47
1656,20/08/2022,3,24,44,35,37
1657,21/08/2022,53,17,33,51,8
1658,22/08/2022,15,31,7,30,12
1659,23/08/2022,21,38,25,4,42
1660,24/08/2022,51,45,44,7,11
1661,25/08/2022,54,30,37,33,10
1662,27/08/2022,5,21,45,34,2
1663,28/08/2022,47,9,19,8,23
1664,29/08/2022,36,20,50,41,17
1665,30/08/2022,2,13,18,23,53
1666,31/08/2022,13,51,27,44,17
1667,01/09/2022,28,38,9,42,51
1668,02/09/2022,13,18,42,54,17
1669,03/09/2022,36,2,3,49,39
1670,04/09/2022,53,37,15,11,27
1671,05/09/2022,4,10,1,55,24
1672,07/09/2022,39,26,23,19,51
1673,08/09/2022,36,34,27,53,29
1674,09/09/2022,28,51,38,34,52
1675,10/09/2022,16,9,51,53,6
1676,11/09/2022,1,47,18,14,39
1677,12/09/2022,55,30,10,43,45
1678,13/09/2022,39,32,44,53,6
1679,14/09/2022,23,27,32,34,16
1680,15/09/2022,38,8,48,49,53
1681,16/09/2022,4,22,17,14,18
1682,17/09/2022,42,9,14,54,25
1683,18/09/2022,45,25,41,48,5
1684,19/09/2022,14,29,52,9,19
1685,20/09/2022,6,36,24,39,50
1686,21/09/2022,9,27,1,20,34
1687,22/09/2022,41,19,5,39,42
1688,23/09/2022,37,8,23,18,39
1689,24/09/2022,41,20,1,19,48
1690,25/09/2022,2,24,27,30,6
1691,26/09/2022,23,6,26,39,36
1692,27/09/2022,53,38,50,48,10
1693,28/09/2022,44,52,37,15,53
1694,29/09/2022,19,2,37,38,12
1695,01/10/2022,15,14,2,37,23
1696,02/10/2022,48,20,7,5,12
1697,03/10/2022,40,14,34,27,32
1698,04/10/2022,46,36,26,44,42
1699,05/10/2022,52,1,8,51,14
1700,06/10/2022,38,28,7,1,30
1701,07/10/2022,43,33,12,2,26
1702,08/10/2022,1,44,55,30,28
1703,09/10/2022,50,40,46,28,15
1704,10/10/2022,42,34,20,41,14
1705,11/10/2022,27,41,24,17,46
1706,12/10/2022,36,32,53,21,43
1707,13/10/2022,27,49,54,15,12
1708,14/10/2022,37,27,54,30,41
1709,15/10/2022,30,47,25,8,46
1710,16/10/2022,12,36,4,49,53
1711,17/10/2022,52,33,4,27,12
1712,18/10/2022,54,45,3,18,49
1713,19/10/2022,49,53,39,8,14
1714,20/10/2022,9,44,31,45,2
1715,21/10/2022,3,35,25,46,20
1716,22/10/2022,32,42,29,48,1
1717,23/10/2022,52,33,13,8,31
1718,24/10/2022,1,32,29,20,34
1719,25/10/2022,55,6,37,10,17
1720,26/10/2022,53,44,2,3,16
1721,27/10/2022,34,3,41,47,42
1722,28/10/2022,2,12,50,18,32
1723,29/10/2022,6,30,23,13,50
1724,30/10/2022,17,53,51,30,26
1725,31/10/2022,18,26,38,8,46
1726,01/11/2022,7,26,36,42,32
1727,02/11/2022,32,48,40,39,24
1728,03/11/2022,24,22,52,9,10
1729,04/11/2022,19,37,46,8,26
1730,05/11/2022,38,21,36,46,29
1731,06/11/2022,14,52,18,15,21
1732,07/11/2022,50,22,45,35,16
1733,08/11/2022,17,48,18,9,14
1734,09/11/2022,17,33,47,55,45
1735,10/11/2022,48,17,25,33,41
1736,11/11/2022,43,25,15,16,23
1737,12/11/2022,39,1,41,16,12
1738,13/11/2022,32,6,13,3,30
1739,14/11/2022,16,50,2,34,27
1740,15/11/2022,51,26,36,34,46
1741,16/11/2022,54,50,13,23,48
1742,17/11/2022,30,4,36,10,50
1743,18/11/2022,45,35,55,11,37
1744,19/11/2022,22,29,46,28,45
1745,20/11/2022,49,19,28,9,2
1746,21/11/2022,4,39,42,15,26
1747,22/11/2022,45,2,54,16,31
1748,23/11/2022,16,45,29,52,13
1749,24/11/2022,11,27,21,37,50
1750,25/11/2022,4,29,43,41,50
1751,26/11/2022,2,40,34,25,55
1752,27/11/2022,32,10,5,28,39
1753,28/11/2022,30,3,53,47,49
1754,29/11/2022,39,21,23,26,43
1755,30/11/2022,37,13,27,36,45
1756,01/12/2022,40,29,26,46,6
1757,02/12/2022,25,45,27,30,7
1758,03/12/2022,28,54,19,46,35
1759,04/12/2022,43,14,4,40,34
1760,05/12/2022,27,43,9,54,35
1761,06/12/2022,8,15,40,38,31
1762,07/12/2022,43,18,9,3,47
1763,08/12/2022,16,20,45,10,41

questo e l'archivio in formato txt per il milionday
si copia nel sito di silop
 
4806.png

Alien questo e il disegno inseriti i cinque numeri dell'ultima estr del milionday
dovrei avere uno script che disegna e calcola i numeri da giocare..
 
Codice: 
'Option Explicit
'CERCHIO MILLIONDAY CON DETTAGLIO COMPLETO by Punto&Virgola
Class clsCerchioCiclometrico
   Dim aPos(55,02) ' memorizza le coordinate relative ai 99 Numeri
   Dim aNumeri(55) ' 55 Numeri
   Private CollCorde
   Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
      Dim nRaggio ' raggio ddel cerchio
      Dim cX,cY ' centro del cerchio x e y
      Dim Base,Altezza ' dimensioni area disegno
      Dim Angolo ' gestisce il ciclo per disegnare il cerchio
      Dim pi ' pigreco
      Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
      Dim cLung ' distanza per stampare i gradi
      Dim k ' ciclo generico
      Dim n
      Dim z
      Call PicClear()
      Set CollCorde = GetNewCollection
      cLung = 2
      pi = 3.14
      Base = 150
      Altezza = 150
      nRaggio = 60
      ' preimposto le dimensioni dell'area
      Call PicSetDimensioni(Base,Altezza,Base,Altezza)
      ' calcolo il centro del cerchio
      cX = Base / 2
      cY = Altezza / 2
      Call PicCerchio(cX,cY,nRaggio)
      Angolo = 90
      n = 56
      For z = 1 To 55
         n = n - 01
         x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
         y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
         ' memorizzo nell'array globale le coordinate appena calcolate
         ' cosi potranno essere riusate per disegnare le corde
         aPos(n,1) = x1
         aPos(n,2) = y1
         If n Mod 2 = 00 Then
            x2 = cX +((nRaggio + cLung * 03) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 03) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung * 04) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 04) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo,,,,,10)
         Else
            ' disegno il semiraggio
            x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo)
         End If
         Angolo = FuoriX(90 + Int(360 -((360/55)*(n - 1))),360)
      Next
      Call DisegnaFigura(aNumeri)
      Call DisegnaDistanze(aCorde)
      Call PicEsegui
   End Sub
   Private Sub DisegnaFigura(aNum)
      Dim k
      For k = 01 To UBound(aNum)
         Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 01,UBound(aNum))),vbRed,True,False)
      Next
   End Sub
   Private Sub DisegnaDistanze(aCorde)
      Dim k
      For k = 01 To UBound(aCorde)
         Call DisegnaCorda(aCorde(k,01),aCorde(k,02),vbBlue,True,True)
      Next
   End Sub
   Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
      Dim nX,nY,sDist
      If AddCorda(p1,p2) Then
         If bLineaTratt Then
            Call PicLineaTratteggiata(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         Else
            Call PicLinea(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         End If
         Call PicPunto(aPos(p1,01),aPos(p1,02),06,colore)
         Call PicPunto(aPos(p2,01),aPos(p2,02),06,colore)
         If bDisegnaDist Then
            If aPos(p1,01) > aPos(p2,01) Then
               nX =(aPos(p1,01) - aPos(p2,01)) / 02 + aPos(p2,01)
            Else
               nX =(aPos(p2,01) - aPos(p1,01)) / 02 + aPos(p1,01)
            End If
            If aPos(p1,02) > aPos(p2,02)Then
               nY =(aPos(p1,02) - aPos(p2,02)) / 02 + aPos(p2,02)
            Else
               nY =(aPos(p2,02) - aPos(p1,02)) / 02 + aPos(p1,02)
            End If
            Call PicCerchio(nX,nY,03,vbWhite,,True,vbWhite)
            nX = nX - 1.5
            nY = nY - 1.5
            sDist = Format2(DiffCiclometrica55(p1,p2))
            Call PicStampaTesto(nX,nY,sDist)
         End If
      End If
   End Sub
   Function DiffCiclometrica55(NumA,NumB)
      Dim r
      If NumA > NumB Then
         r = NumA - NumB
         Do While r >= 28
            r = 55 - r
         Loop
      ElseIf NumB > NumA Then
         r = NumB - NumA
         Do While r >= 28
            r = 55 - r
         Loop
      End If
      DiffCiclometrica55 = r
   End Function
   Private Function AddCorda(n01,n02)
      Dim sKey
      If n01 <= n02 Then
         sKey = "k" & Format2(n01) & Format2(n02)
      Else
         sKey = "k" & Format2(n02) & Format2(n01)
      End If
      On Error Resume Next
      CollCorde.Add sKey,sKey
      If Err = 00 Then
         AddCorda = True
      End If
   End Function
End Class
Sub Main
   Dim clsCerchio
   Dim k
   Dim aCorde
   Dim anum1(4),anum2(4),anum3(4),anum4(4),anum5(4),anum6(4),anum7(4),anum8(4),anum9(4),anum10(4)
   'Dim TipoEsempio
   ReDim aNum(00)
   Dim sfile
   Dim est,fin,Ini,dr(5),db(5),d(5),a(5),b(10),n(10),c(3),e(3),f(3),g(3),h(3),i(3),T,V,posta(2)
   posta(1) = 1
   z = CInt(InputBox("QUANTE ESTRAZIONI VUOI VISUALLIZZARE"," N° ESTRAZIONI ",0))
   sfile = ScegliFile(,,".txt")
   Call ApriBaseDatiFT(sfile,5,",",55)
   Ini = EstrazioniArchivioFT - z
   fin = EstrazioniArchivioFT
   For est = Ini To fin
      T = Array(T,"Data Estrazione.","Estratti","Somma( F55 )","1-2","2-3","3-4","4-5","5-1","Dr1","Dr2","Dr3","Dr4","Dr5","Db1","Db2","Db3","Db4","Db5")
      Call InitTabella(T)
      Call GetEstrazioneCompletaFT(est,aNum)
      '--------------------------------------
      a(1) = aNum(1): a(2) = aNum(2) : a(3) = aNum(3): a(4) = aNum(4) : a(5) = aNum(5) ' <-- Estratti
      '---------------------------------------
      d(1) = Dista55(aNum(1),aNum(2)): d(2) = Dista55(aNum(2),aNum(3)): d(3) = Dista55(aNum(3),aNum(4)): d(4) = Dista55(aNum(4),aNum(5)): d(5) = Dista55(aNum(5),aNum(1))' <-- Distanza estratti
      Call OrdinaMatrice(aNum,01)
      '--------------------------------------
      dr(1) = Dista55(aNum(1),aNum(2)): dr(2) = Dista55(aNum(2),aNum(3)): dr(3) = Dista55(aNum(3),aNum(4)): dr(4) = Dista55(aNum(4),aNum(5)): dr(5) = Dista55(aNum(5),aNum(1))' <-- Distanza rosse
      '--------------------------------------
      db(1) = Dista55(aNum(1),aNum(3)): db(2) = Dista55(aNum(1),aNum(4)): db(3) = Dista55(aNum(2),aNum(5)): db(4) = Dista55(aNum(2),aNum(4)) : db(5) = Dista55(aNum(3),aNum(5))' <-- Distanza blu
      '-------------------------------------
      se = SommaEstrattiFT(est) : sef = FuoriX(se,55) '<-- Somma estratti e fuori55
      '--------------------------------------
      b(1) = FuoriX(55 - a(1) + a(2) + a(3),55)
      b(2) = FuoriX(55 - a(1) + a(2) + a(4),55)
      b(3) = FuoriX(55 - a(1) + a(2) + a(5),55)
      b(4) = FuoriX(55 - a(1) + a(3) + a(4),55)
      b(5) = FuoriX(55 - a(1) + a(3) + a(5),55)
      b(6) = FuoriX(55 - a(1) + a(4) + a(5),55)
      b(7) = FuoriX(55 - a(2) + a(3) + a(4),55)
      b(8) = FuoriX(55 - a(2) + a(3) + a(5),55)
      b(9) = FuoriX(55 - a(2) + a(4) + a(5),55)
      b(10) = FuoriX(55 - a(3) + a(4) + a(5),55)
      n(1) = FuoriX(55 - a(3) + a(2) + a(1),55)
      n(2) = FuoriX(55 - a(4) + a(2) + a(1),55)
      n(3) = FuoriX(55 - a(5) + a(2) + a(1),55)
      n(4) = FuoriX(55 - a(4) + a(3) + a(1),55)
      n(5) = FuoriX(55 - a(5) + a(3) + a(1),55)
      n(6) = FuoriX(55 - a(5) + a(4) + a(1),55)
      n(7) = FuoriX(55 - a(4) + a(3) + a(2),55)
      n(8) = FuoriX(55 - a(5) + a(3) + a(2),55)
      n(9) = FuoriX(55 - a(5) + a(4) + a(2),55)
      n(10) = FuoriX(55 - a(5) + a(4) + a(3),55)
      'Scrivi : Scrivi
      ' le corde sono le distanze interne e sono
      ' considerate tutte le coppie di vertic
      V = Array(V,GetInfoEstrazioneFT(est),StringaNumeri(a,,1),se & " ( " & sef & " )",d(1),d(2),d(3),d(4),d(5),dr(1),dr(2),dr(3),dr(4),dr(5),db(1),db(2),db(3),db(4),db(5))
      Call AddRigaTabella(V)
      Call SetColoreCella(9,,2)
      Call SetColoreCella(10,,2)
      Call SetColoreCella(11,,2)
      Call SetColoreCella(12,,2)
      Call SetColoreCella(13,,2)
      '----------------------------
      Call SetColoreCella(14,,1)
      Call SetColoreCella(15,,1)
      Call SetColoreCella(16,,1)
      Call SetColoreCella(17,,1)
      Call SetColoreCella(18,,1)
      ImpostaGiocataFT 1,b,posta,9
      ImpostaGiocataFT 2,n,posta,9
      Call CreaTabella
      'Scrivi "Estratti estrazione " & a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & String(6," "),0,0
      'Scrivi "Distanze estrazione " & d(1) & " " & d(2) & " " & d(3) & " " & d(4) & " " & d(5) & String(6," "),0,0
      'Scrivi "Somma estratti e [F55] " & se & " [" & sef & "]"
      'Scrivi
      'Scrivi "Estratti ordinati " & aNum(1) & " " & aNum(2) & " " & aNum(3) & " " & aNum(4) & " " & aNum(5) & String(7," "),0,0
      'Scrivi "Distanze corde rosse " & dr(1) & " " & dr(2) & " " & dr(3) & " " & dr(4) & " " & dr(5) & String(6," "),0,0,,2
      'Scrivi "Distanze corde Blu " & db(1) & " " & db(2) & " " & db(3) & " " & db(4) & " " & db(5),,,,1
      'Scrivi : Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "...=" & b(1) & "...=" & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "...=" & b(2) & "...=" & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "...=" & b(3) & "...=" & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "...=" & b(4) & "...=" & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "...=" & b(5) & "...=" & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "...=" & b(6) & "...=" & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "...=" & b(7) & "...=" & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "...=" & b(8) & "...=" & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "...=" & b(9) & "...=" & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "...=" & b(10) & "...=" & n(10)
      anum1(1) = a(1)
      anum1(2) = a(2)
      anum1(3) = a(3)
      anum1(4) = b(1)
      '---------------------
      anum2(1) = a(1)
      anum2(2) = a(2)
      anum2(3) = a(4)
      anum2(4) = b(2)
      '---------------------
      anum3(1) = a(1)
      anum3(2) = a(2)
      anum3(3) = a(5)
      anum3(4) = b(3)
      '---------------------
      anum4(1) = a(1)
      anum4(2) = a(3)
      anum4(3) = a(4)
      anum4(4) = b(4)
      '---------------------
      anum5(1) = a(1)
      anum5(2) = a(3)
      anum5(3) = a(5)
      anum5(4) = b(5)
      '---------------------
      anum6(1) = a(1)
      anum6(2) = a(4)
      anum6(3) = a(5)
      anum6(4) = b(6)
      '---------------------
      anum7(1) = a(2)
      anum7(2) = a(3)
      anum7(3) = a(4)
      anum7(4) = b(7)
      '---------------------
      anum8(1) = a(2)
      anum8(2) = a(3)
      anum8(3) = a(5)
      anum8(4) = b(8)
      '---------------------
      anum9(1) = a(2)
      anum9(2) = a(4)
      anum9(3) = a(5)
      anum9(4) = b(9)
      '---------------------
      anum10(1) = a(3)
      anum10(2) = a(4)
      anum10(3) = a(5)
      anum10(4) = b(10)
      '---------------------
      aCorde = SviluppoIntegrale(aNum,02)
      Set clsCerchio = New clsCerchioCiclometrico
      'Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum1,aCorde)
      'Scrivi StringaNumeri(anum1),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "...=" & b(1) & "...=" & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "...=" & b(2) & "...=" & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "...=" & b(3) & "...=" & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "...=" & b(4) & "...=" & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "...=" & b(5) & "...=" & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "...=" & b(6) & "...=" & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "...=" & b(7) & "...=" & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "...=" & b(8) & "...=" & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "...=" & b(9) & "...=" & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "...=" & b(10) & "...=" & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum2,aCorde)
      'Scrivi StringaNumeri(anum2),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum3,aCorde)
      'Scrivi StringaNumeri(anum3),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum4,aCorde)
      'Scrivi StringaNumeri(anum4),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum5,aCorde)
      'Scrivi StringaNumeri(anum5),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum6,aCorde)
      'Scrivi StringaNumeri(anum6),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum7,aCorde)
      'Scrivi StringaNumeri(anum7),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum8,aCorde)
      'Scrivi StringaNumeri(anum8),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum9,aCorde)
      'Scrivi StringaNumeri(anum9),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "=" & b(1) & "..." & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "=" & b(2) & "..." & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "=" & b(3) & "..." & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "=" & b(4) & "..." & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "=" & b(5) & "..." & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "=" & b(6) & "..." & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "=" & b(7) & "..." & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "=" & b(8) & "..." & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "=" & b(9) & "..." & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "=" & b(10) & "..." & n(10)
      Call clsCerchio.DisegnaCerchioCiclometricoX(anum10,aCorde)
      'Scrivi StringaNumeri(anum10),1
      'Scrivi
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(3) & "...=" & b(1) & "...=" & n(1)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(4) & "...=" & b(2) & "...=" & n(2)
      Scrivi "" & "" & a(1) & "." & a(2) & "." & a(5) & "...=" & b(3) & "...=" & n(3)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(4) & "...=" & b(4) & "...=" & n(4)
      Scrivi "" & "" & a(1) & "." & a(3) & "." & a(5) & "...=" & b(5) & "...=" & n(5)
      Scrivi "" & "" & a(1) & "." & a(4) & "." & a(5) & "...=" & b(6) & "...=" & n(6)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(4) & "...=" & b(7) & "...=" & n(7)
      Scrivi "" & "" & a(2) & "." & a(3) & "." & a(5) & "...=" & b(8) & "...=" & n(8)
      Scrivi "" & "" & a(2) & "." & a(4) & "." & a(5) & "...=" & b(9) & "...=" & n(9)
      Scrivi "" & "" & a(3) & "." & a(4) & "." & a(5) & "...=" & b(10) & "...=" & n(10)
      GiocaFT est
   Next
End Sub
Function Dista55(numa,numb)
   Dim r
   If numa > numb Then
      r = numa - numb
      Do While r >= 28
         r = 55 - r
      Loop
   ElseIf numb > numa Then
      r = numb - numa
      Do While r >= 28
         r = 55 - r
      Loop
   End If
   Dista55 = r
End Function

Alien questo e il sito per copiare l'archivio in formato txt
lo copi e lo incolli in un block note in txt

 
Zetrix ha scritto:
Vedi l'allegato 2247760

allora ho questa combinazione di gioco con 2 59
vediamo la condizione del gioco e come sono stati calcolati i numeri

1 condizione 28x2=56 (numero raddoppiato)
2 condizione 30 e 31 numeri che scendono a scaletta (numeri consecutivi)
adesso calcoliamo i due numeri mancanti..
1numero=28-56+30=2
2numero=31-28+56=59

queste sono le ruote di calcolo ma non e detto che il 2 59 farà su queste ruote
perche il gioco vale a tutte le ruote anzi dovremmo dire anche la nazionale
ma questa la mettiamo da parte..
adesso per vedere quale ruota potrebbe fare dovremmo vedere un altro disegno
con le ruote..
Clicca per espandere...

[CA] [.. .. .. 02 59] C. 6 Ambo 02054 [09/12/2022] [47.78.90.02.59]

mannaggia che sfortuna dovevo scegliere tra il 59 1 e il 59 2 alla fine ho scelto il 59 1
ed e uscito il 59 2 e pure su ruota..
che sfortuna
Toon l'avevi anche scritto 2 59 ma non era Palermo..
 
Toon non ai mai visti i quadrati spaziali su quattro ruote poi quanto posso vi farò vedere
qualche prospetto..

il metodo sommativo a firenze non a dato ma suggerisco di continuare per altre due estr..
poi stop i metodi sommativi sono fatti cosi ad un tratto si interrompono e cambiano
gli algoritmi..
 
4808.png

Toon ho una calcolatrice anche per fattorizzare i numeri
vediamo un esempio proviamo a fattorizzare il numero 48
con il numero 48 abbiamo cinque fattorizzazioni con 24,16,12,8,6
ma abbiamo un altra fattorizzazione con il 48 ed e il numero138
48+90=138
con il numero 138 abbiamo altre tre fattorizzazioni 69,46,23
 
66
Zetrix ha scritto:
Codice: 
Class clsCerchioCiclometrico
   Dim aPos(55,02) ' memorizza le coordinate relative ai 99 Numeri
   Dim aNumeri(55) ' 55 Numeri
   Private CollCorde
   Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
      Dim nRaggio ' raggio ddel cerchio
      Dim cX,cY ' centro del cerchio x e y
      Dim Base,Altezza ' dimensioni area disegno
      Dim Angolo ' gestisce il ciclo per disegnare il cerchio
      Dim pi ' pigreco
      Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
      Dim cLung ' distanza per stampare i gradi
      Dim k ' ciclo generico
      Dim n
      Dim z
      Call PicClear()
      Set CollCorde = GetNewCollection
      cLung = 2
      pi = 3.14
      Base = 150
      Altezza = 150
      nRaggio = 60
      ' preimposto le dimensioni dell'area
      Call PicSetDimensioni(Base,Altezza,Base,Altezza)
      ' calcolo il centro del cerchio
      cX = Base / 2
      cY = Altezza / 2
      Call PicCerchio(cX,cY,nRaggio)
      Angolo = 90
      n = 56
      For z = 1 To 55
         n = n - 01
         x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
         y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
         ' memorizzo nell'array globale le coordinate appena calcolate
         ' cosi potranno essere riusate per disegnare le corde
         aPos(n,1) = x1
         aPos(n,2) = y1
         If n Mod 2 = 00 Then
            x2 = cX +((nRaggio + cLung * 03) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 03) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung * 04) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung * 04) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo,,,,,10)
         Else
            ' disegno il semiraggio
            x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
            Call PicLinea(x1,y1,x2,y2)
            x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 02) *(pi / 180)))
            y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 02) *(pi / 180)))
            Call PicStampaTestoRT(x2,y2,n,Angolo)
         End If
         Angolo = FuoriX(90 + Int(360 -((360/55)*(n - 1))),360)
      Next
      Call DisegnaFigura(aNumeri)
      Call DisegnaDistanze(aCorde)
      Call PicEsegui
   End Sub
   Private Sub DisegnaFigura(aNum)
      Dim k
      For k = 01 To UBound(aNum)
         Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 01,UBound(aNum))),vbGreen,True,False)
      Next
   End Sub
   Private Sub DisegnaDistanze(aCorde)
      Dim k
      For k = 01 To UBound(aCorde)
         Call DisegnaCorda(aCorde(k,01),aCorde(k,02),vbBlue,True,True)
      Next
   End Sub
   Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
      Dim nX,nY,sDist
      If AddCorda(p1,p2) Then
         If bLineaTratt Then
            Call PicLineaTratteggiata(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         Else
            Call PicLinea(aPos(p1,01),aPos(p1,02),aPos(p2,01),aPos(p2,02),colore,2)
         End If
         Call PicPunto(aPos(p1,01),aPos(p1,02),06,colore)
         Call PicPunto(aPos(p2,01),aPos(p2,02),06,colore)
         If bDisegnaDist Then
            If aPos(p1,01) > aPos(p2,01) Then
               nX =(aPos(p1,01) - aPos(p2,01)) / 02 + aPos(p2,01)
            Else
               nX =(aPos(p2,01) - aPos(p1,01)) / 02 + aPos(p1,01)
            End If
            If aPos(p1,02) > aPos(p2,02)Then
               nY =(aPos(p1,02) - aPos(p2,02)) / 02 + aPos(p2,02)
            Else
               nY =(aPos(p2,02) - aPos(p1,02)) / 02 + aPos(p1,02)
            End If
            Call PicCerchio(nX,nY,03,vbBlack,,True,vbYellow)
            nX = nX - 1.5
            nY = nY - 1.5
            sDist = Format2(DiffCiclometrica55(p1,p2))
            Call PicStampaTesto(nX,nY,sDist)
         End If
      End If
   End Sub
   Function DiffCiclometrica55(NumA,NumB)
      Dim r
      If NumA > NumB Then
         r = NumA - NumB
         Do While r >= 28
            r = 55 - r
         Loop
      ElseIf NumB > NumA Then
         r = NumB - NumA
         Do While r >= 28
            r = 55 - r
         Loop
      End If
      DiffCiclometrica55 = r
   End Function
   Private Function AddCorda(n01,n02)
      Dim sKey
      If n01 <= n02 Then
         sKey = "k" & Format2(n01) & Format2(n02)
      Else
         sKey = "k" & Format2(n02) & Format2(n01)
      End If
      On Error Resume Next
      CollCorde.Add sKey,sKey
      If Err = 00 Then
         AddCorda = True
      End If
   End Function
End Class
Sub Main
   Dim clsCerchio
   Dim k,qt
   Dim aCorde
   'Dim TipoEsempio
   ReDim aNum(0)
   qt = ScegliNumeri(aNum)
   Call OrdinaMatrice(aNum,1)
   qt = UBound(aNum)
   aCorde = SviluppoIntegrale(aNum,2)
   Set clsCerchio = New clsCerchioCiclometrico
   Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
   Scrivi StringaNumeri(aNum)
End Sub
Function Dista55(numa,numb)
   Dim r
   If numa > numb Then
      r = numa - numb
      Do While r >= 28
         r = 55 - r
      Loop
   ElseIf numb > numa Then
      r = numb - numa
      Do While r >= 28
         r = 55 - r
      Loop
   End If
   Dista55 = r
End Function

Alien questo script disegna i numeri nel cerchio per il milionday ..
Clicca per espandere...
Ciao Zetrix puoi farlo per il superenalotto con 6 numeri ,grazie.
 
Ciao Alien non lo so se ho qualcosa con il superenalotto devo vedere tra gli script
ci aggiorniamo domani ..

ho messo un disegno con i miei quadrati spaziali su quattro ruote
diciamo che l'ambata su quattro ruote non e conveniente giocare
a meno che si indovina la ruota di gioco..
quello e un quadrato 3x3 ma ho disegnato anche i quadrati 4x4..
ci sono diversi modi per disegnare i quadrati sulle estr..
 
Codice: 
Option Explicit
Sub Main
   Dim x,y,k
   Dim a(5),b(5)
   '
   k = InputBox("Quale numero vuoi fattorizzare ?")
   '
   x = k
   '------------------------------
   For y = 1 To 9
      '---------------------------
      '
      a(1) =(x/y)
      '
      If Int(a(1)) =(x/y) Then
         '
         Scrivi("" & x & Space(4) & y & Space(3) & " = " & Space(3) &(a(1)) & "  "),0,1,1,5,5
      End If
   Next
End Sub

x Alien e Toon ecco la calcolatrice per fattorizzare i numeri..
 
buon sabato a tutti

volevo chiedere a blacklotto se puo risolvere questo script
vorrei evidenziare i numeri in tabella con ScegliNumeri
ma mi da errore lo script..


Codice: 
Option Explicit
Sub Main
   Dim anum(5),Ini,fin,es,r
   '
   Ini = EstrazioneFin - 0
   fin = EstrazioneFin
   '
   For es = Ini To fin
      For r = 1 To 12
         '
         anum(1) = Estratto(es,r,1)
         anum(2) = Estratto(es,r,2)
         anum(3) = Estratto(es,r,3)
         anum(4) = Estratto(es,r,4)
         anum(5) = Estratto(es,r,5)
         '
         Call ScegliNumeri(anum)
         '
         ReDim MatriceCaselleDaEvid(5,1)
         '-----------------------------------------------
         MatriceCaselleDaEvid(1,0) = r
         MatriceCaselleDaEvid(1,1) = 1
         '------------------------------ ----------------
         MatriceCaselleDaEvid(2,0) = r
         MatriceCaselleDaEvid(2,1) = 2
         '-----------------------------------------------
         MatriceCaselleDaEvid(3,0) = r
         MatriceCaselleDaEvid(3,1) = 3
         '-----------------------------------------------
         MatriceCaselleDaEvid(4,0) = r
         MatriceCaselleDaEvid(4,1) = 4
         '-----------------------------------------------
         MatriceCaselleDaEvid(5,0) = r
         MatriceCaselleDaEvid(5,1) = 5
         '-----------------------------------------------
         Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
         '
         'Call DisegnaCerchioCiclometrico(anum,True,True,True,,,True)
         '
         Scrivi StringaNumeri(anum)
         '
      Next
   Next
End Sub
 
Ultima modifica:
Codice: 
...........................

59    1    =    59
...........................

104    1    =    104

104    2    =    52

104    4    =    26

104    8    =    13
............................

numeri fattorizzati

Toon quanto abbiamo un numero da fattorizzare e che risulta essere un numero primo
come per il 59 in questi casi per fattorizzare il 59 aggiungiamo + 45
59+45=104
adesso questo 104 puo essere espressa come somma di due numeri
ho notato che a NA sono usciti i numeri 59 45 e il 52 il numero fattorizzato
in questi casi si dovrebbe giocare il 7 (diam. del 52) e per ambo sommare
i due numeri esclusi..ci aggiorniamo dopo per il 59 a MI....
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto