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.
Leggendo qua e la, sono capitato qui e letto quanto hai scritto.
Ho fatto una guida iniziale allo script per principianti, la trovi QUI a questo link
http://forum.lottoced.com/f12/guida-allo-script-di-spaziometria-3987/
dal 3° messaggio in poi si parla di come comporre uno script e varie spiegazioni.
Almeno per incominciare a capirne i meccanismi principali che li governano.
Spero sia utile....
Mi sono accorta di aver fatto confusione con "sbrokking out" per il calcolo del determinato....
metto la versione giusta?
Sub Main()
Dim ruota(1),ruote(10),num1(2),posta(10),poste(2)
poste(2) = 2
ce = InputBox(" quante estrazione vuoi controllare? ","estrazione",100)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce
fin = EstrazioneFin
ruota(1) = 1 '<------- ruota di calcolo
'ruote(1) = 1
ruote(2) = 11
r1 = ruota(1)
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For p1 = 1 To 5
If p1 = 5 Then
a = Estratto(es,r1,5)
b = Estratto(es,r1,1)
Else
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p1 + 1)
End If
If(a) = 1 Or(a) = 2 Or(a) = 3 Or(a) = 4 Or(a) = 5 Or(a) = 6 Or(a) = 7 Or(a) = 8 Or(a) = 9 Then
casi = casi + 1
Scrivi String(80,"=") & " by Coconut",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " & Format2(Posizione(es,r1,a)) & "^ pos."
Scrivi " " & "[ " & Format2(b) & " ] In " & Format2(Posizione(es,r1,b)) & "^ pos."
Scrivi String(80,"-") & " caso n°" & casi
n1 = Fuori90(b + 90 - a)
n2 = Vert(n1)
num1(1) = n1
num1(2) = n2
ra1 = SerieRitardo(ini,es,num1,ruota,1)
ColoreTesto 2
Scrivi "Ritardo x Ambata sulla Ruota di " & SiglaRuota(r1) & " = " & Format2(ra1)
ColoreTesto 0
pp=(Posizione(es,r1,a))+5 : dd=pp+1
If dd>10 Then dd=6 End If
posta(1) = 1 : posta(pp)=2 : posta(dd)=2
ImpostaGiocata 1,num1,ruota,posta,k
ImpostaGiocata 2,num1,ruote,poste,k
Gioca es
Erase posta
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Giochino su bari by Coconut",1
Scrivi String(45,32) & "Listato by Adelino.... & Romana",1
ColoreTesto 0
End Sub
Ti ringrazio, Baffo!
Megaupload in effetti ( così come anche Megavideo ) è stato chiuso e ho scaricato i video guidati dalla vocina di LuigiB( ? )...credo sia sua.
L'esclamazione che mi è venuta istintivamente dopo aver dato un occhiatina ai suoi consigli è stata questa:
" Mamma mia che fatica...comprendere! "
Devi sapere che in passato avevo già provato ad eseguire le guide in versione video, e ammetto di essere dura di comprendonio .
Lo so....occorre perseverare, speriamo che questa sia la volta buona !![]()
Intanto grazie e ciauz!
Per Baffo:
con le basi elementari riesco a smanettare un pochetto, sono proprio quelle piu' elaborate con le quali non entro in sintonia manco per niente!![]()
Hai dimenticato il " 2 ambate 2 ruote "...
57 = fig. 3
54 = fig. 9
33 - 39 dal 2 Febbraio a colpo e ambo con 88 89 su ambedue le ruote ;-)
Hai dimenticato il " 2 ambate 2 ruote "...
57 = fig. 3
54 = fig. 9
33 - 39 dal 2 Febbraio a colpo e ambo con 88 89 su ambedue le ruote ;-)