aiuto per script

[silvio.falconi]

qualcuno ha uno script per visualbasic per creare un tabellone analitico semplice senza tener conto delle funzioni esempio seriefreq() per meglio capire come funziona per ricrearlo in c++

 

[claudio8]

Spiega meglio cosa vuoi, qui normalmente si usano script in VBscript o meglio VBSpazioscript e ne trovi a iosa di qualsiasi tipo.
Le singole funzioni sono già scritte nel programma ma possono essere costruite da ogni utente utilizzando l'ambiente base che è il vbscript- spaziometria.

 

[silvio.falconi]

io ho questo listato in vb6 ma non funziona



Dim rs As ADODB.Recordset
Dim RUS As String
Dim RU() As String
Dim R As Integer
Dim N As Integer
Dim RN(1 To 11, 1 To 90)
Dim C(1 To 11)
Dim NN As Integer
Dim NS As String * 168
Dim v As Integer
Dim p As Integer
Dim ss As String * 2
Dim rit As Integer

RUS = "--*BA*CA*FI*GE*MI*NA*PA*RO*TO*VE*NZ*"
RU = Split(RUS, "*")

With List1
.Font.Name = "Terminal"
.Font.Size = 9
.Clear
NS = "RIT " & Space$(165)
For R = 1 To 11
Mid$(NS, (R - 1) * 15 + 5) = "----- " & RU(R) & " ----- "
Next R
.AddItem NS
.AddItem ""
End With

For R = 1 To 11
C(R) = 0
For N = 1 To 90
RN(R, N) = -1
Next N
Next R

Set rs = New ADODB.Recordset

rs.Open "SELECT * FROM Archivio ORDER BY Id DESC", cn, adOpenForwardOnly

rit = 0
Do While Not rs.EOF
NS = Space$(168)
For R = 1 To 11
If C(R) < 90 Then
For NN = 1 To 5
v = Val(rs.Fields(RU(R) & CStr(NN)).Value)
p = (R - 1) * 15 + (NN - 1) * 3 + 5

If RN(R, v) = -1 Then
RN(R, v) = v
C(R) = C(R) + 1
ss = Format$(v, "00")
Else
ss = "--"
End If

Mid$(NS, 1) = Format$(rit, "000")
Mid$(NS, p) = ss
Next NN
End If
Next R
If Len(Trim(NS)) Then
List1.AddItem NS
rit = rit + 1
End If

rs.MoveNext
Loop

rs.Close

Set rs = Nothing

 

[claudio8]

Non conosco questo linguaggio, non so come aiutarti.
Potresti comunque creare uno script di esempio x le tue esigenze ed utilizzare il debug del codice in vb6 ( lato sx della lente tra i comandi di Spaziometria con pagina script a vista) per leggere il vbscipt in vb6.

 

[silvio.falconi]

Non conosco questo linguaggio, non so come aiutarti.
Potresti comunque creare uno script di esempio x le tue esigenze ed utilizzare il debug del codice in vb6 ( lato sx della lente tra i comandi di Spaziometria con pagina script a vista) per leggere il vbscipt in vb6.

non è che mi piaccia molto il vb6 anche lo odio io preferisco fare gestionali in c++ poi spaziometria su un tablet lenoVo a 2 Gb è molto pesante ma qualche volTa lo apro io comunque, ho risolto comunque per il tabellone analitico l'ho fatto in c++ come puoi vedere nell'immagine, ragionando e vedendo come sono strutturati gli altri sui vari siti web

ora sto solo vedendo come contare i numeri in ogni colonna per chiudere il tabellone analitico
altrimenti andrei all'infinito
il tabellone chiuderà quando tutti i numeri dal 1 al 90 sono stati sortiti in tutte le colonne giusto ?
Un altra delucidazione da chiederti
si parla di indici dal 1 al 15 penso ma cosa sono gli indici cioè se io voglio vedere su bari l'indice 3 in realtà cosa devo cercare o visualizzare ?

 

[joe]

Conti i numeri presenti in tabellone.

Quando ci sono tutti, chiudi il tabellone.

 

[silvio.falconi]

si grazie
volevo delucidazioni per gli indici mensili
cioè volevo sapere cosa sono
a che servono ?
come li ritrovo nell'archivio ?
che cosa vuol dire bari indice mensile 4 per esempio
grazie per l'aiuto

 

[joe]

Tipicamente ci sono 156 Estrazioni in un Anno, suddivise tra i 12 mesi.

Mediamente 13 per ogni mese.

Esse possono essere indicizzate partendo da una PRIMA = 1, per ogni mese sino a quante saranno.

Pertanto ad ogni mese si ricomincia a contare le estrazioni enumerandole da 1 a quante sono in quel mese.

 

[joe]

.

 

[silvio.falconi]

quindi se io voglio visualizzare solo il terzo indice mensile ( di ogni mese) mi deve visualizzare solo la terza estrazione di ogni mese giusto ?

 

[joe]

Ciao,

si, con una estrazione ogni 2 o 3 giorni la terza estrazione del mese, ha come data 5/6/7/8

Dipende dal numero di giorni del mese e dalle decisioni umane nello stabilire la data delle estrazioni.

Lo script per Spaziometria è questo:

Option Explicit
Sub Main
Dim Ini,Fin,Es 
  Ini = EstrazioneFin - 155 : Fin = EstrazioneFin
  For Es = Ini To Fin 
  If IndiceMensile (Es) = 3 Then Scrivi DataEstrazione(Es)
  Next
End Sub

Che restituisce :

05.06.2021
06.07.2021
07.08.2021
07.09.2021
07.10.2021
06.11.2021
07.12.2021
07.01.2022
05.02.2022
05.03.2022
07.04.2022
07.05.2022