NUOVO AMBIENTE SCRIPT AREA TECNICA

Rookie · 26 Febbraio 2023

i legend ha scritto:
3 giorni di lavoro

La prossima versione la ricostruirai in un solo giorno, forte dell'esperienza accumulata con la versione andata persa...

i legend · 26 Febbraio 2023

Bene mi rimetto al lavoro.
Dovrei essere più veloce, e tolgo la scelta del mese tanto li raccolgo tutti.
Appena finisco posto tutto il progetto.

LuigiB · 26 Febbraio 2023

i miei form fanno parte del progetto di base ci sono sempre ..
i tuoi sono aggiunti da te sul mio progetto di base ...
è dal primo post che stiamo dicendo che si deve prendere il file del progetto di base copiarlo in un posto sicuro , rinominarlo e lavorarci sopra... anche Rooke lo ha rispiegato di recente ... vabe a tutti i programamtori alle prime armi capitano cose simili .. purtroppo se lo hai sostituito hai perso tutto ..

Rookie · 26 Febbraio 2023

i legend ha scritto:
Bene mi rimetto al lavoro.
Dovrei essere più veloce, e tolgo la scelta del mese tanto li raccolgo tutti.
Appena finisco posto tutto il progetto.

A volte per andare piu' veloci bisogna tornare inditero... come in questo caso! Chi ben comincia...

i legend · 26 Febbraio 2023

Prima di fare ancora casini
Se voglio scrivere delle mie funzioni mi conviene aprire un nuovo modulo?
I form che costruisco faranno sempre riferimento alla dll salvata mai a quella nuova giusto?

LuigiB · 26 Febbraio 2023

i legend ha scritto:
Prima di fare ancora casini
Se voglio scrivere delle mie funzioni mi conviene aprire un nuovo modulo?
I form che costruisco faranno sempre riferimento alla dll salvata mai a quella nuova giusto?

i tuoi progetti li devi salvare in un punto dove ti pare basta che poi non li vai a sovrascrivere la dll è sempre con compatibilità all'indietro quindi anche se la dll viene aggiornata i progetti vecchi continuano a funzionare.
Quando nella dll aggiungo una nuova funzione anche il progetto di base che pubblico è accordato alla nuova dll e per poter usare la nuova funzione della nuova dll uno deve sempre partire dal progetto di base mio quell oscaricato con l'ultima dll.

LuigiB · 26 Febbraio 2023

se fai delel funzioni che ritieni utili in tutti i progetti devi scriverle in un modulo del progeto di base che usi come template per il nuovo script , pero quandso io metto un nuovo progetot ce le dovrai rimettere , quindi attento a non sovrascrivere un progetto di base dove hai aggiunto funzioni tue

Rookie · 26 Febbraio 2023

LuigiB ha scritto:
i miei form fanno parte del progetto di base ci sono sempre ..
i tuoi sono aggiunti da te sul mio progetto di base ...
è dal primo post che stiamo dicendo che si deve prendere il file del progetto di base copiarlo in un posto sicuro , rinominarlo e lavorarci sopra... anche Rooke lo ha rispiegato di recente ... vabe a tutti i programamtori alle prime armi capitano cose simili .. purtroppo se lo hai sostituito hai perso tutto ..

Comunque questa e' anche una pecca di tB, perche' (come ogni compilatore che si rispetti), deve automaticamente creare almeno una versione di backup per tornare indietro. Il mio (quello con cui lavoro) salva con bck1,2,3,4 e 5 ovvero le ultime 5 modifiche apportate al codice. Cosi' quando si fa' una qualche frittata, si puo' sempre ripartire dall'ultima ricetta che sembrava buona

i legend · 26 Febbraio 2023

Stamattina prima di sapere che avrei perso tutto mi era venuto in mente un idea.
Visto che state ancora lavorando sul progetto chiedo.
Ai tempi di spaziometria mi sarebbe piaciuto saper fare dei plug in
Sarebbe possibile proggettare un contenitore tipo spaziometria ed inserire di volta in volta i plug in.?
Come se fossero dei moduli.
Basterebbe postare gli exe e poi ognuno se li carica?
Il mio antivirus mi dice che i miei exe sono virus

In pratica secondo lui mi vorrei autosabotare , non sa che xi riesco benissimo cancellando i lavori

LuigiB · 26 Febbraio 2023

si è possibile fare un contenitore che gestisca e lanci i fari script che siano in formato exe. Pure a me capita con eindows defender .. per me sono problemi di twinbasic

i legend · 26 Febbraio 2023

LuigiB ha scritto:
Pure a me capita

Pensavo che fosse un altro pasticcio mio.

lotto_tom75 · 26 Febbraio 2023

Good

day ragazzuoli...

ilegend io sono al momento a 334 files "bozza di studio" cloni... con estensione *.twinproj che in tutto mi prendono su disco rigido non + di 184 mb quindi vai tranquillo... e usa il "save as" come non ci fosse un domani

A proposito di una di queste mie bozze... se volessi associare al doppio click su uno dei label presenti nell'array di controlli la rimozione del rispettivo valore dal relativo array di raccolta numeri "scelti" e anche dalla relativa textbox come potrei fare?

Codice:

Class Form1
Dim NumeroUscito(1 To 90) As String
Dim Cartella As Byte
    Sub New()
    End Sub
    'come si centrano tutti controlli del form rispetto allo stesso?
Public Sub Form_Load()
Form1.Show
Dim x As Byte
 For x = 0 To 89
 numero(x).Visible = False
 numero(x).Enabled = False
Next x
End Sub
Private Sub Command1_Click()
Dim x As Byte
 For x = 0 To 89
 numero(x).Visible = True
 numero(x).Enabled = False
Next x
 Command2.Visible = True
End Sub
Private Sub Command2_Click()
   Dim y As Byte
 For y = 0 To 89
 numero(y).Visible = False
Next y
Command1.Visible = True
End Sub
Private Sub Command3_Click()
Dim z As Byte
For z = 0 To 89
numero(z).Caption = "" & z + 1 & " "
numero(z).Enabled = true
Next
End Sub
Private Sub numero_Click(Index As Integer)
numero(Index).BackColor = vbGreen
Beep
If NumeroUscito(numero(Index).Caption) = "SI" Then
 'GoTo Estrazione
Else
 NumeroUscito(numero(Index).Caption) = "SI"
'lblNumero.Caption = NumeroEstratto
numeriscelti.Text = numeriscelti.Text + " " + numero(Index).Caption
Cartella = Cartella + 1
 End If
If Cartella = 90 Then
For Index = 0 To 89
numero(Index).Enabled = False
Next
End If
'come si fa a deselezionare la casella e rimuovere dal textbox il relativo valore se si clicca due volte il relativo bottone?
Dim v As Byte
End Sub
Private Sub Command4_Click()
Dim w As Byte
For w = 0 To 89
numero(w).Caption = ""
numeriscelti.Text = ""
numero(w).Enabled = False
Next
Cartella = 0
Erase NumeroUscito
End Sub
Private Sub Command5_Click()
   Dim y
   For y = 0 To 89
numero(y).BackColor = 52879
numeriscelti.Text = ""
Next
End Sub
Private Sub Command6_Click()
Dim k As Byte, j As Byte, h As Byte
Cartella = 0
Erase NumeroUscito
For k = 0 To 89
numero(k).Enabled = True
Next
For h = 0 To 89
numero(h).Caption = "" & h + 1 & " "
Next
 For j = 0 To 89
numero(j).BackColor = 52879
numeriscelti.Text = ""
Next j
End Sub
End Class

Un saluto festoso a tutti!

Aggiornamento...

Sono riuscito.. ad interecettare.. il "doppioclick" per il quale per la label mancava il corrispettivo "evento"

Codice:

 Private Sub numero_Click(Index As Integer)
 
    If numero(Index).BackColor = vbGreen Then   '  = se il numero è già selezionato...
 
    numero(Index).BackColor = 52879  '


'ora mi rimane da fare questa operazione...

' ... RIMUOVI DALL'ARRAY NUMERI SCELTI e DALLA RISPETTIVA TEXTBOX il numero deselezionato...
 
        Else

'se il numero non è ancora selezionato ed e' stato cliccato allora fai questo...


End if

End sub

Per risolvere il mio secondo problemino avrei pensato ad utilizzare una listbox... e le funzioni rispettive AddItem e RemoveItem ma mentre la prima funziona... e mi inserisce nella lista i numeri di volta in volta scelti senza mettere giustamente i doppioni la seconda (RemoveItem) se richiamata mi da ACCESSO NEGATO... e non fa il suo lavoro... why?

Pezzo di code aggiornato... con la listbox di nome listanumeriscelti

Codice:

Private Sub numero_Click(Index As Integer)
 
    If numero(Index).BackColor = vbGreen Then
 
    numero(Index).BackColor = 52879
 
    listanumeriscelti.RemoveItem(numero(Index).Caption)

Cartella = Cartella - 1
 
        Else
 
    numero(Index).BackColor = vbGreen
    Beep
    If NumeroUscito(numero(Index).Caption) = "SI" Then
    'GoTo Estrazione
    Else
    NumeroUscito(numero(Index).Caption) = "SI"
    'lblNumero.Caption = NumeroEstratto
    numeriscelti.Text = numeriscelti.Text + " " + numero(Index).Caption
 
    listanumeriscelti.AddItem(numero(Index).Caption)
 
    Cartella = Cartella + 1
 
    End If
    If Cartella = 90 Then
    For Index = 0 To 89
    numero(Index).Enabled = False
    Next
    End If
    'come si fa a deselezionare la casella e rimuovere dal textbox il relativo valore se si clicca due volte il relativo bottone?
    Dim v As Byte
 
    End If ' x backcolor
    End Sub

Aggiornamento...

CE L'HO FATTA DA SOLO ma solo in parte...!

così...

Codice:

 listanumeriscelti.RemoveItem numero(Index)

In parte nel senso che purtroppo mi sono accorto che adesso non da + errore rimuove l'elemento dalla listbox...
Peccato solo che non sia quello deselezionato.. ma solo e sempre quello corrispondente all'indice della lista...

ps: il primo progettino "pratico" che proverò a realizzare, se lo scrivo qui poi mi impegno di + nel cercare di rispettare il proposito... , proverà ad evidenziare numeri comuni e numeri divergenti in un'interfaccia dedicata tra due o più formazioni di confronto... (l'idea mi è venuta dal thread big jumps e dalle due basi di classe <= 36 di Rookie and me).

i legend · 26 Febbraio 2023

lotto_tom75 ha scritto:
usa il "save as" come non ci fosse un domani

i legend · 26 Febbraio 2023

lotto_tom75 ha scritto:
primo progettino "pratico" che proverò a realizzare, se lo scrivo qui poi mi impegno di + nel cercare di rispettare il proposito... , proverà ad evidenziare numeri comuni e numeri divergenti in un'interfaccia dedicata tra due o più formazioni di confronto... (l'idea mi è venuta dal thread big jumps e dalle due basi di classe <= 36 di Rookie and me).

Ciao io stavo pensando di aprire un 3d
Dedicato da poter scrivere tutto il progetto.
Così il filo logico non si perde e utilizzando il primo post si implementa il progetto e gli altri ci si discute su.
Pensaci sarebbe più facile anche dare suggerimenti mirati.

lotto_tom75 · 26 Febbraio 2023

i legend ha scritto:
Ciao io stavo pensando di aprire un 3d
Dedicato da poter scrivere tutto il progetto.
Così il filo logico non si perde e utilizzando il primo post si implementa il progetto e gli altri ci si discute su.
Pensaci sarebbe più facile anche dare suggerimenti mirati.

Ottima idea

. Ma intendi aprire un thread dedicato per ogni singolo progetto... o un thread da popolare con i rispettivi progetti di ognuno cui magari ci si può riferire con una rispettiva "etichetta" ? Io propenderei più per quest'ultima opzione... per avere sempre sottocchio un quadro complessivo di tutto "il cantiere"

ma sentiamo cosa ne pensano i due proff...

LuigiB · 26 Febbraio 2023

a remove item non devi passare la caption ma l'index ...

lotto_tom75 · 26 Febbraio 2023

LuigiB ha scritto:
a remove item non devi passare la caption ma l'index ...

Codice:

 Private Sub numero_Click(Index As Integer)
   
    If numero(Index).BackColor = vbGreen Then
   
    numero(Index).BackColor = 52879
    Dim l
   
 
    listanumeriscelti.RemoveItem numero(Index)

    Cartella = Cartella - 1
 
       
        Else

'... non è stato ancora selezionato quindi fai questo...
     
    End if


End sub

In questo modo mi cancella il numero non corrispondente alla "deselezionatura"... e corrispondente solo all'indice di immissione credo...
Inoltre se riclicco sullo stesso numero già deselezionato mi da errore di accesso negato e mi va in blocco il progetto... Come posso ovviare a questa "fagianata" ?

LuigiB · 26 Febbraio 2023

facendo degl iesempi di base che ti insegnino ad usare i controlli

lotto_tom75 · 26 Febbraio 2023

LuigiB ha scritto:
facendo degl iesempi di base che ti insegnino ad usare i controlli

Forse... sono in dirittura di arrivo...

Codice:

  If listanumeriscelti.ListCount > 0 Then
 
  MsgBox "la lista non e' vuota e ci sono " & listanumeriscelti.ListCount & " elementi! "
 
  For l = 0 To listanumeriscelti.ListCount - 1
 
  MsgBox l & " - " & listanumeriscelti.List(l)


  If numero(Index).Caption = listanumeriscelti.List(l) Then
  
  MsgBox "il numero cliccato " & numero(Index).Caption & " è uguale ad un numero presente nella lista! " & listanumeriscelti.List(l)
    
  End If

 
  Next
 
End if

lotto_tom75 · 26 Febbraio 2023

lotto_tom75 ha scritto:

Forse... sono in dirittura di arrivo...

Codice:

  If listanumeriscelti.ListCount > 0 Then
 
  MsgBox "la lista non e' vuota e ci sono " & listanumeriscelti.ListCount & " elementi! "
 
  For l = 0 To listanumeriscelti.ListCount - 1
 
  MsgBox l & " - " & listanumeriscelti.List(l)


  If numero(Index).Caption = listanumeriscelti.List(l) Then
 
  MsgBox "il numero cliccato " & numero(Index).Caption & " è uguale ad un numero presente nella lista! " & listanumeriscelti.List(l)
 
  End If

 
  Next
 
End if

Bingo! Arrivato! Me felice...

Codice:

    Class Form1
    Dim NumeroUscito(1 To 90) As String
    Dim Cartella As Byte
        Sub New()
        End Sub
    Public Sub Form_Load()
    Form1.Show
    Dim x As Byte
    For x = 0 To 89
    numero(x).Visible = False
    numero(x).Enabled = False
    Next x
    End Sub
    Private Sub Command1_Click()
    Dim x As Byte
    For x = 0 To 89
    numero(x).Visible = True
    numero(x).Enabled = False
    Next x
    Command2.Visible = True
    End Sub
    Private Sub Command2_Click()
    Dim y As Byte
    For y = 0 To 89
    numero(y).Visible = False
    Next y
    Command1.Visible = True
    End Sub
    Private Sub Command3_Click()
    Dim z As Byte
    For z = 0 To 89
    numero(z).Caption = "" & z + 1 & " "
    numero(z).Enabled = True
    Next
    End Sub
    Private Sub numero_Click(Index As Integer)
    If numero(Index).BackColor = vbGreen Then
    numero(Index).BackColor = 52879
    Dim l As Long
    'provo a ciclare listanumeriscelti e a vedere se vi sono valori uguale a quello cliccato
    ' in caso di match positivo lo rimuovo...
   'MsgBox (listanumeriscelti.ListCount)
  If listanumeriscelti.ListCount > 0 Then
  'MsgBox "la lista non e' vuota e ci sono " & listanumeriscelti.ListCount & " elementi! "
  For l = 0 To listanumeriscelti.ListCount - 1
  'MsgBox l & " - " & listanumeriscelti.List(l)
  If numero(Index).Caption = listanumeriscelti.List(l) Then
  MsgBox "il numero cliccato " & numero(Index).Caption & " è uguale ad questo numero presente nella lista! " & listanumeriscelti.List(l) & " avente questo valore di indice " & l & " e adesso lo rimuovo! :) "
 listanumeriscelti.RemoveItem l
  End If
  Next
  End If
    'listanumeriscelti.RemoveItem numero(Index)
    'listanumeriscelti.RemoveItem(numero(Index).Caption)
    'Cartella = Cartella - 1
        Else
    numero(Index).BackColor = vbGreen
    Beep
    If NumeroUscito(numero(Index).Caption) = "SI" Then
    'GoTo Estrazione
    Else
    NumeroUscito(numero(Index).Caption) = "SI"
    'lblNumero.Caption = NumeroEstratto
    numeriscelti.Text = numeriscelti.Text + " " + numero(Index).Caption
    listanumeriscelti.AddItem(numero(Index).Caption)
    Cartella = Cartella + 1
    End If
    If Cartella = 90 Then
    For Index = 0 To 89
    numero(Index).Enabled = False
    Next
    End If
    Dim v As Byte
    End If ' x backcolor
    End Sub
    Private Sub Command4_Click()
    listanumeriscelti.Clear
    Dim w As Byte
    For w = 0 To 89
    numero(w).Caption = ""
    numeriscelti.Text = ""
    numero(w).Enabled = False
    Next
    Cartella = 0
    Erase NumeroUscito
    End Sub
    Private Sub Command5_Click()
    listanumeriscelti.Clear
    Dim y
    For y = 0 To 89
    numero(y).BackColor = 52879
    numeriscelti.Text = ""
    Next
    End Sub
    Private Sub Command6_Click()
    Dim k As Byte, j As Byte, h As Byte
    Cartella = 0
    Erase NumeroUscito
    For k = 0 To 89
    numero(k).Enabled = True
    Next
    For h = 0 To 89
    numero(h).Caption = "" & h + 1 & " "
    Next
    For j = 0 To 89
    numero(j).BackColor = 52879
    numeriscelti.Text = ""
    Next j
    End Sub
        End Class

NUOVO AMBIENTE SCRIPT AREA TECNICA

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

LuigiB

Guest

Advanced Member >PLATINUM PLUS<

Premium Member

LuigiB

Guest

Premium Member

Advanced Premium Member

Premium Member

Premium Member

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

LuigiB

Guest

Advanced Premium Member

Advanced Premium Member