Newsgroup: it.comp.lang.visual-basic
Titolo: analizzatore di codice

ciao
Esiste un software per analizzare il codice visual basic?
grazie
Se una persona e' padrona dei principi fondamentali del proprio settore 
e ha imparato a pensare e a lavorare indipendentemente troverà sicuramente 
la propria strada e inoltre sara' in grado di adattarsi al progresso e al mutamento 
piu' di una persona la cui istruzione consiste pricipalmente nell'aquisizione 
di una conoscenza particolareggiata.
					 A. Einstein.

 Esiste un software per analizzare il codice visual basic?
provato mztools?

 Esiste un software per analizzare il codice visual basic?
    Non so, ma ti ho aggiustato questo:
    Se una persona e' padrona dei principi fondamentali del proprio settore
e ha imparato a pensare e a lavorare indipendentemente trovera' sicuramente
la propria strada e inoltre sara' in grado di adattarsi al progresso e al
mutamento piu' di una persona la cui istruzione consiste pricipalmente
nell'acquisizione di una conoscenza particolareggiata.
A. Einstein.
HTH
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Mancava una n:
 
 Se una persona e' padrona dei principi fondamentali del proprio
settore e ha imparato a pensare e a lavorare indipendentemente
trovera' sicuramente la propria strada e inoltre sara' in grado di
adattarsi al progresso e al mutamento piu' di una persona la cui
istruzione consiste principalmente nell'acquisizione di una 
conoscenza particolareggiata. -- A. Einstein.
 
 HTH
*

    Se una persona e' padrona dei principi fondamentali del proprio settore
grazie: utilizzo un sistema automatico (un file batch per linux) che
mi scrive e mi cambia il file signature quotidianamente
ciao
Se una persona e' padrona dei principi fondamentali del proprio settore 
e ha imparato a pensare e a lavorare indipendentemente troverà sicuramente 
la propria strada e inoltre sara' in grado di adattarsi al progresso e al 
mutamento piu' di una persona la cui istruzione consiste pricipalmente 
nell'aquisizione di una conoscenza particolareggiata.
					 A. Einstein.

 Mancava una n:
Vero. Ma la "c" che ha aggiunto Maurizio era un peletto più importante.
Contribuisco anch'io:
Se una persona e' padrona dei principi fondamentali del proprio
settore e ha imparato a pensare e a lavorare indipendentemente,
trovera' sicuramente la propria strada e inoltre sara' in grado di
adattarsi al progresso e al mutamento.
---
piu' di una persona la cui istruzione consiste principalmente
nell'acquisizione di una conoscenza particolareggiata.
--- questo che c'azzecca?
 -- A. Einstein.

  -- A. Einstein.
' * Form1 ******************************************* INIZIO *
Option Explicit
Private Sub Command1_Click()
  Dim colPersone                      As VBA.Collection
  Dim oPersona                        As CPersona
  Dim oPersona2                       As CPersona
  Dim bSaràCapaceTrovarePropriaStrada As Boolean
  Dim lIndex                          As Long
  Dim lIndex2                         As Long
  Set colPersone = New VBA.Collection
  Set oPersona = New CPersona
  With oPersona
    .Nome = "Pippo"
    .ÈPadronaPrincipiFondamentaliSettore = True
    .HaImparatoALavorareIndipendentemente = True
    .HaImparatoAPensareIndipendentemente = False
    .TipoIstruzione _
      = myAcquisizioneConoscenzaParticolareggiataMin
    colPersone.Add oPersona, .Nome
  End With
  Set oPersona = New CPersona
  With oPersona
    .Nome = "Pluto"
    .ÈPadronaPrincipiFondamentaliSettore = True
    .HaImparatoALavorareIndipendentemente = True
    .HaImparatoAPensareIndipendentemente = True
    .TipoIstruzione _
      = myAcquisizioneConoscenzaParticolareggiataMid
    colPersone.Add oPersona, .Nome
  End With
  Set oPersona = New CPersona
  With oPersona
    .Nome = "Paperino"
    .ÈPadronaPrincipiFondamentaliSettore = True
    .HaImparatoALavorareIndipendentemente = True
    .HaImparatoAPensareIndipendentemente = True
    .TipoIstruzione _
      = myAcquisizioneConoscenzaParticolareggiataMax
    colPersone.Add oPersona, .Nome
  End With
  With colPersone
    For lIndex = 1 To .Count
      Set oPersona = .Item(lIndex)
      With oPersona
        bSaràCapaceTrovarePropriaStrada _
          = SaràCapaceTrovarePropriaStrada(oPersona)
        Debug.Print .Nome
        If (bSaràCapaceTrovarePropriaStrada = True) Then
          Debug.Print "Troverà sicuramente";
        Else
          Debug.Print "Forse non troverà";
        End If
        Debug.Print " la propria strada."
        If (bSaràCapaceTrovarePropriaStrada) Then
          With colPersone
            For lIndex2 = 1 To .Count
              If (lIndex <> lIndex2) Then
                Set oPersona2 = .Item(lIndex2)
                If ( _
                  SaràCapaceTrovarePropriaStrada(oPersona2) _
                ) Then
                  Debug.Print _
                      "Sara' in grado di adattarsi al" _
                    & " progresso e al mutamento";
                  Select Case True
                  Case oPersona.TipoIstruzione _
                       < _
                       oPersona2.TipoIstruzione
                    Debug.Print " più di ";
                  Case oPersona.TipoIstruzione _
                       = _
                       oPersona2.TipoIstruzione
                    Debug.Print " come ";
                  Case oPersona.TipoIstruzione _
                       > _
                       oPersona2.TipoIstruzione
                    Debug.Print " meno di ";
                  End Select
                  Debug.Print oPersona2.Nome; "."
                End If
              End If
            Next
          End With
        End If
      End With
      Debug.Print
    Next
  End With
  Set oPersona2 = Nothing
  Set oPersona = Nothing
  Set colPersone = Nothing
End Sub
Private Function SaràCapaceTrovarePropriaStrada( _
  ByVal obj As CPersona _
  ) As Boolean
  With obj
    SaràCapaceTrovarePropriaStrada _
      = .ÈPadronaPrincipiFondamentaliSettore _
        And _
        .HaImparatoALavorareIndipendentemente _
        And _
        .HaImparatoAPensareIndipendentemente
  End With
End Function
' * Form1 ********************************************* FINE *
' * CPersona **************************************** INIZIO *
Option Explicit
Public Enum TipoIstruzioneEnum
  myAcquisizioneConoscenzaParticolareggiataMin
  myAcquisizioneConoscenzaParticolareggiataMid
  myAcquisizioneConoscenzaParticolareggiataMax
End Enum
Dim m_sNome                                 As String
Dim m_bÈPadronaPrincipiFondamentaliSettore  As Boolean
Dim m_bHaImparatoAPensareIndipendentemente  As Boolean
Dim m_bHaImparatoALavorareIndipendentemente As Boolean
Dim m_lTipoIstruzione                       As TipoIstruzioneEnum
Public Property Get Nome( _
) As String
  Nome = m_sNome
End Property
Public Property Let Nome( _
  ByVal NewValue As String)
  m_sNome = NewValue
End Property
Public Property Get ÈPadronaPrincipiFondamentaliSettore( _
) As Boolean
  ÈPadronaPrincipiFondamentaliSettore _
    = m_bÈPadronaPrincipiFondamentaliSettore
End Property
Public Property Let ÈPadronaPrincipiFondamentaliSettore( _
  ByVal NewValue As Boolean)
  m_bÈPadronaPrincipiFondamentaliSettore = NewValue
End Property
Public Property Get HaImparatoAPensareIndipendentemente( _
) As Boolean
  HaImparatoAPensareIndipendentemente _
    = m_bHaImparatoAPensareIndipendentemente
End Property
Public Property Let HaImparatoAPensareIndipendentemente( _
  ByVal NewValue As Boolean)
  m_bHaImparatoAPensareIndipendentemente = NewValue
End Property
Public Property Get HaImparatoALavorareIndipendentemente( _
) As Boolean
  HaImparatoALavorareIndipendentemente _
    = m_bHaImparatoALavorareIndipendentemente
End Property
Public Property Let HaImparatoALavorareIndipendentemente( _
  ByVal NewValue As Boolean)
  m_bHaImparatoALavorareIndipendentemente = NewValue
End Property
Public Property Get TipoIstruzione( _
) As TipoIstruzioneEnum
  TipoIstruzione _
    = m_lTipoIstruzione
End Property
Public Property Let TipoIstruzione( _
  ByVal NewValue As TipoIstruzioneEnum)
  m_lTipoIstruzione = NewValue
End Property
' * CPersona ****************************************** FINE *
OUTPUT:
Pippo
Forse non troverà la propria strada.
Pluto
Troverà sicuramente la propria strada.
Sara' in grado di adattarsi al progresso e al mutamento più di Paperino.
Paperino
Troverà sicuramente la propria strada.
Sara' in grado di adattarsi al progresso e al mutamento meno di Pluto.


 Sara' in grado di adattarsi al progresso e al mutamento meno di Pluto.
Pap mi sa che devi cambiare nick in Pluto ;)
Ciaotutti,
*


Dimenticavo... O___________________O
Ciaotutti,
*


ROTFL! ;)

     Mo' te lo spiego...
Io ho letto male, vero, ma tu ... stai bene?
Faccina sorridente, con occhieggio non tendenzioso: ;-)

 Io ho letto male, vero, ma tu ... stai bene?
    Tu che dici? Io, rileggendomi, direi di no.


 Pap mi sa che devi cambiare nick in Pluto ;)
Non posso, per definizione... non sono in grado di adattarmi al mutamento :-)
Bye, G.

 Option Explicit
######  ####### ####### ####### #
#     # #     #    #    #       #
#     # #     #    #    #       #
######  #     #    #    #####   #
#   #   #     #    #    #       #
#    #  #     #    #    #       #
#     # #######    #    #       #######
Bye, G.