Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
Sub Main()
ColoreTesto 2
Scrivi "2 AMBATE DETERMINATE SU BARI ALLA 1° DEL MESE "
Scrivi "CON VINCOLO CADENZIALE DEL 1° ESTRATTO "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(10)
Dim ruota(10)
Dim n1(2)
poste(6) = 1
poste(7) = 1
poste(1) = 1
clp =...
CIAO CUPIDO....GRAZIE INFINITE PER I TUOI METODI CHE SONO MOLTO IMPORTANTI....FONTE DI STUDI E RIFLESSIONI.....CHIEDO , PER CORTESIA, SE QUALCUNO PUO' METTERE I TUOI METODI IN SCRIPT.....SAREBBE VERAMENTE BELLO!!!!!!!!......GRAZIE DI CUORE SEMPRE A TE E A TUTTI.
BRAVISSIMO MARCO.....TERNO A CAGLIARI......................PER CORTESIA E' POSSIBILE AVERE IL METODO DI QUESTO SCRIPT..............IO TI RINGRAZIO ...CIAO MARCO
Sub Main()
Dim Cont : Cont = InputBox("ESTRAZIONI DI CONTROLLO",,50)
Dim aColpi : aColpi = InputBox("COLPI DI CONTROLLO",,5)
Dim nSorte : nSorte = ScegliSorte
Dim Ruo,Pos,aSpia
Dim aNumM10,aNumM05,aNumP05,aNumP10
Dim NU,CONTA
Dim aNumeri(24)
Dim Ini,fin,es,casi : Ini = EstrazioneFin - Cont : fin...
IO HO TOLTO ALCUNE COSE E....MI VIENE COSI'.... BELLO PER AMBATA ..BARI
Sub Main()
Dim numeri(10)
Dim ruote(10)
Dim poste(5)
ruote(1) = BA_
'ruote(2)=CA_
poste(1) = 10
'poste(2)=10
ex=CInt(InputBox(" Indice estrazione ",,1))
If ex="" Then Exit Sub
exx=CInt(InputBox(" Quante estrazioni vuoi...