VUOI IL PROGRAMMA PENTAMBO????

Gli iscritti si presentino. Ricordiamo che è obbligatorio il primo post in quest' area per avere accesso al forum. Leggere attentamente il regolamento.
Avatar utente
Tatoo64
Site Admin
Messaggi: 3889
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

VUOI IL PROGRAMMA PENTAMBO????

Messaggio da Tatoo64 » 30/12/2012, 21:33

FATTI UN REGALO PER IL NUOVO ANNO UN PROGRAMMA DELLA PENTAMBO, SENZA SPENDERE UN CENTESIMO.

VUOI ANCHE TU IL PROGRAMMA PENTAMBO, AUTOINSTALLANTE CON AGGIORNAMENTO VIA INTERNET, BENE SCRIVIMI E TE LO INVIO TOTALMENTE GRATIS
Mors ego sum mortis, Vocor Agnus sum Leo fortis

cristyn
Messaggi: 1
Iscritto il: 02/01/2013, 15:38

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da cristyn » 03/01/2013, 17:54

Buonasera, mi farebbe molto piacere riceve il programma pentambo, Grazie !

trisco
Messaggi: 3
Iscritto il: 06/11/2011, 16:51

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da trisco » 03/01/2013, 23:46

Buonasera, mi piacerebbe ricevere il programma pentambo
Grazie
:appl:

Avatar utente
Arrogant
Messaggi: 153
Iscritto il: 29/10/2011, 15:29

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da Arrogant » 05/01/2013, 14:40

anche a me, grazie in anticipo! :abb:

trisco
Messaggi: 3
Iscritto il: 06/11/2011, 16:51

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da trisco » 06/01/2013, 12:57

Installazione del programma eseguita con successo
Grazie ancora del programma
Trisco
:appl:

Avatar utente
ciccio
Messaggi: 1096
Iscritto il: 24/10/2011, 20:59

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da ciccio » 09/01/2013, 9:23

eccovi anche lo script


Sub main()
Dim ruote(2),nr(5),amb(3),n(4),amb1(8)
Dim posta(2),ruota(2)
Dim e1,e2,e3
posta(1)=1 ' Ambate
posta(2)=1 ' Amb0

'TabellaGiocate
'considero le ultime 100 estrazioni
rs=InputBox("Quante estrazioni vuoi controllare?",,30)
ini=EstrazioneFin -rs
fin=EstrazioneFin
t=0
For es=ini To fin
Messaggio "Estrazione esaminata: " & CStr(es)
For rt= 1 To 10
For p1= 1 To 5
For p2=p1+1 To 5
For y=0 To 4
ex=es-y
e1=Estratto(ex,rt,p1) : e2=Estratto(ex,rt,p2)
do1=Distanza (e1,e2)
If do1=18 Or do1=36 Then

For rr=rt+1 To 12
If rr=11 Then rr=12

For q1=1 To 4
For q2=q1+1 To 5
e3=Estratto(es,rr,q1): e4=Estratto (es,rr,q2)
If e3<>e1 And e3<>e2 And e4<>e1 And e4<>e2 Then
do2=Distanza (e3,e4)
If do2=18 Or do2=36 Then
dv1=Distanza (e1,e3):dv2=Distanza (e2,e4)
If dv1=18 Or dv1=36 And dv2=18 Or dv2=36 Then
nr(1)=Fuori90(e1):nr(2)=Fuori90(e1+18):nr(3)=Fuori90(e1+36):nr(4)=Fuori90(e1+54):nr(5)=Fuori90(e1+72)
OrdinaMatrice nr
n(1)=e1:n(2)=e2:n(3)=e3:n(4)=e4
OrdinaMatrice n
For i=1 To 5
k=0
For j=1 To 4
If nr(i)<>n(j) Then k=k+1
Next
If k=4 Then amb(1)=nr(i)
Next
t=t+1
ruote(1)=rt:ruote(2)=rr:ruota(2)=11

amb(2)=Fuori90(amb(1)*2)
amb(3)=Diametrale(amb(2))

amb1(1)=amb(1)
amb1(2)=Fuori90(amb(1)*2)
amb1(3)=Diametrale(amb(2))

Scrivi
Scrivi "--------------------------------------------------------------------------------------------------"
Scrivi DataEstrazione(ex) &" "& NomeRuota (rt) & " " & Format2 (e1) &" "& Format2 (e2)&""
Scrivi DataEstrazione(es) &" "& NomeRuota (rr) &" "& Format2 (e3) &" "& Format2 (e4)&""
Scrivi "** Cinquine Pentagonali : " & StringaNumeri (nr)&" [Num. mancante = "& Format2 (amb(1)) &"]",1
Scrivi "-------------------------------------------------------------"& "Giocata n° "& Format2(t)
ImpostaGiocata 1,amb,ruote,posta,12
'ImpostaGiocata 2,amb,ruota,posta,12
ImpostaGiocata 3,amb1,ruote,posta,12

Gioca es

End If
End If
End If
Next
Next
Next
End If
Next

Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(70,"=")&"listato da franco florindi",1
ColoreTesto 0
End Sub
chi di spada ferisce..di spada perisce...

jobolixx
Messaggi: 17
Iscritto il: 06/09/2012, 7:48

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da jobolixx » 09/01/2013, 14:44

ciao e possibile avere il programma grazie

KONKILAI
Messaggi: 6
Iscritto il: 11/02/2013, 14:18

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da KONKILAI » 18/02/2013, 18:04

Come funziona il programma? Si può avere? Grazie

KONKILAI
Messaggi: 6
Iscritto il: 11/02/2013, 14:18

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da KONKILAI » 22/02/2013, 15:19

Non ho ancora ricevuto il programma. cosa devo fare? Grazie

contecastelvetri
Messaggi: 14
Iscritto il: 22/02/2013, 0:30

Re: VUOI IL PROGRAMMA PENTAMBO????

Messaggio da contecastelvetri » 07/07/2013, 9:23

caro tatoo buon giorno mi puoi inviare il programma PENTAMBO? Grazie mille,Contecastelvetri.

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite