Mente da programmatore

[i legend]

luigi sono riuscito a rinominare il file , ma lo apre con vb2015 che non ho pi l ho eliminato mi chiede di prendere la licenza.
perche no lo apre con community?

 

[i legend]

ho letto parte della funzione ma non scorre
si aprono le scommesse
si arrende prima Luigi o IO?

 

[LuigiB]

scusa legend sscaricalo da qui , allora .. cosi è gia rar

WinFormsApp2

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[i legend]

l ho scaricato, ma non si apre

 

[i legend]

Mi assenti per 10 minuti
Faccio l areosol

 

[LuigiB]

mha io ho scaricato il file scompattato e fatto doppio click su




e si apre tranquillamente .. manda la schermata dell'errore

 

[i legend]

È quella al post 204

 

[i legend]

Faccio anche io così.

 

[LuigiB]

e nella finestra di output che dice visto che fa riferimento a quella ?

 

[i legend]

In esplora soluzioni
Winformsapp2( Non trovato )
In output
Non è stato possibile caricare il file di progetto
Impossibile trovare una parte del percorso ecc

 

[i legend]

Ecc sta per una riga di percorso chilometrica .

 

[LuigiB]

bha .. mistero .. allora crea tu un nuovo progetto seguendo le istruzioni di qualche post fa

sul form devi mettere una listbox , un pulsante e una text box

poi fai doppio click sul pulsante e inserisci queste righe solo quelle blue quelle nere servono per fart ivedere dove le devi inserire

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aN() As Integer
        Dim q As Integer

        q = StringaNumToArrayNum(TextBox1.Text, aN)

        ListBox1.Items.Clear()
        For k As Integer = 1 To q
            ListBox1.Items.Add(aN(k))


        Next

        MsgBox("Numeri totali " & q)


    End Sub

poi aggiungi un modulo al progetto , aprilo e incolla queste altre righe e manda in run il progetto

Public Function StringaNumToArrayNum(sNumeri As String, ByRef aRetN() As Integer) As Integer
        Dim sChr As String
        Dim sValue As String = ""
        Dim q As Integer
        Dim n As Integer


        ReDim aRetN(90)

        For k As Integer = 0 To sNumeri.Length - 1
            sChr = sNumeri.Substring(k, 1)
            If IsNumeric(sChr) Then
                sValue = sValue & sChr
            Else
                If sValue.Trim <> "" Then
                    n = Convert.ToInt32(sValue)
                    If n >= 0 And n <= 90 Then
                        q += 1
                        aRetN(q) = n
                    End If
                    sValue = ""
                End If

            End If
        Next

        If sValue.Trim <> "" Then
            n = Convert.ToInt32(sValue)
            If n >= 0 And n <= 90 Then
                q += 1
                aRetN(q) = n
            End If
            sValue = ""
        End If


        ReDim Preserve aRetN(q)
        Return q

    End Function
    Public Function StringaNumToArrayNum(sNumeri As String, ByRef aRetN() As Boolean) As Integer

    End Function

 

[i legend]

Ok ci provo.

 

[i legend]

Funzia

 

[i legend]

praticamente identica ho solo valorizzaTO a fals e l array e poi i numeri a true
avrei dovuto fare questo.
cmq ho bisogno anche di studiare.
grazie prof

   Public Function StringaNumToArrayNum(sNumeri As String, ByRef aRetN() As Boolean) As Integer
        Dim sChr As String
        Dim sValue As String = ""
        Dim q As Integer
        Dim n As Integer


        ReDim aRetN(90)
        For n = 0 To 90
            aRetN(n) = False

        Next

        For k As Integer = 0 To sNumeri.Length - 1
            sChr = sNumeri.Substring(k, 1)
            If IsNumeric(sChr) Then
                sValue = sValue & sChr
            Else
                If sValue.Trim <> "" Then
                    n = Convert.ToInt32(sValue)
                    If n >= 0 And n <= 90 Then
                        q += 1
                        aRetN(n) = True
                    End If
                    sValue = ""
                End If

            End If
        Next

        If sValue.Trim <> "" Then
            n = Convert.ToInt32(sValue)
            If n >= 0 And n <= 90 Then
                q += 1
                aRetN(n) = True
            End If
            sValue = ""
        End If


        '   ReDim Preserve aRetN(q)
        Return q
    End Function

 

[i legend]

Devo pulire la texture e la list

 

[i legend]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
TextBox1.Clear()
End Sub
cosi pulisco tutto

 

[i legend]

Ho lanciato la seconda funzione i numeri selezionati ritornano true

 

[i legend]

Una giornata per scrivere una funzione
dai è un progresso
ieri non sarei riuscito neanche in una settimana

 

[i legend]

Chiedo scusa ad Edo per aver rallentato il tutto.
Grazie prof