Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] [NET] A proposito di esperti.

    Pubblicita' LearnKey, Inc. a pag. 114 di "msdn magazine", oct. 2002:
        Learn From The Experts(TM)
        See the _difference_?
        ' VB6 version
        Public Function IsLeapYear( _
         ByVal Year As Integer) As Boolean
          IsLeapYear = False
          If Year Mod 4 = 0 Then
            If Year Mod 100 = 0 Then
              If Year Mod 400 = 0 Then
                IsLeapYear = True
              End If
            Else
              IsLeapYear = True
            End If
          End If
        End Function
        ' 
VB.NET
 version
        Public Function IsLeapYear( _
         ByVal Year As Integer) As Boolean
          Return DateTime.IsLeapYear(year)
        End Function
    No Comment?
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

         End Function
Mistificatori!
' VB6 version
Public Function IsLapYear( _
         ByVal Year As Integer) As Boolean
   IsLapYear = IsDate("02/29/" & Year)
End Function
E comunque chiunque abbia avuto a che fare con le date una funzione così ce
l'ha già, quindi non è un gran guadagno doversela riscrivere con .NET. ;-)
Ciao
*Roby*
P.S.
In Vb6 effettivamente servono 3 caratteri in più che in 
VB.NET
. Ma se conti
anche la lunghezza del commento, siamo esattamente pari. :-)

     Pubblicita' LearnKey, Inc. a pag. 114 di "msdn magazine", oct.
:-)

 anche la lunghezza del commento, siamo esattamente pari. :-)
    Hai barato, pero': Len("Leap")>Len("Lap"). Ma come l'hai scritta tu
piacera' di piu' a java.


 piacera' di piu' a java.
:)

 l'ha già, quindi non è un gran guadagno doversela riscrivere con .NET. ;-)
Magari l'articolo l'hanno scritto per fare un esempio di quante classi
standard ci siano in .NET.
Curiosità: ma in VB6 è possibile scrivere delle classi con metodi di classe?
Tipo l'esempio che hanno fatto con la DateTime?
Ciao, Alessandro

 Tipo l'esempio che hanno fatto con la DateTime?
No :-(
--
ciao, hal
--------------------------------
Inviato via 
http://usenet.libero.it

     Hai barato, pero': Len("Leap")>Len("Lap").
Acc... te ne sei accorto. ;-)
Fai una prova tu invece. Crea un nuovo progetto in VB6, nella form inserisci
un pulsante (Command1) e un array di 2 listbox (List1), con la proprietą
Sorted a true. Poi copia questo codice.
Private Sub Command1_Click()
   FillAndSortListBoxes List1
End Sub
Private Sub FillAndSortListBoxes(oListBoxes As Variant)
   Dim oListBox As ListBox
   Dim c As Long
   Dim aDatiEIndici As Variant
   aDatiEIndici = Array("Prova", 1, "AAA", 2, "CCC", 3)
   For Each oListBox In oListBoxes
      For c = 0 To UBound(aDatiEIndici) - 1 Step 2
         oListBox.AddItem (aDatiEIndici(c))
         oListBox.ItemData(oListBox.NewIndex) = _
            aDatiEIndici(c + 1)
      Next
   Next
End Sub
Ora prova a tradurlo in .NET cercando di ottenere lo stesso risultato, e
vediamo chi ci mette meno linee di codice.
Ciao
*Roby*

 vediamo chi ci mette meno linee di codice.
    Se ne parla proprio in quel numero di msdn che ho citato nel primo post
di questo 3d:
        Mark Gerlach
        "Spider in .NET - Crawl Web Sites and Catalog Info to
        Any Data Store with 
ADO.NET
 and Visual Basic.NET"
        MSDN Magazine, October 2002, pag. 93
        "What Happened to ItemData?", pag. 99
    L'autore crea una classe clsBoxOverride che permette di usare una
"itemdata-like function". Potenziata. Diciamo che la parte che riguarda il
nostro discorso sara' di... piu' o meno una dozzina di righe.


 nostro discorso sara' di... piu' o meno una dozzina di righe.
Mi sembra di ricordare che anche per gli array di controlli c'è qualche
differenza. Comunque, contando anche i miei errori di battitura, siamo a 5
caratteri guadagnati contro 12 righe perse.
Non mi fraintendere, non sto facendo guerre di religione e so bene che poi
la classe potenziata di .NET è decisamente meglio dell'ItemData di VB, ma la
mia risposta voleva significare che un esempio come quello che hanno usato
quelli della LearnKey Inc si può fare anche al contrario.
Se vogliono fare un confronto serio ci stò, ma se invece vogliono pilotare i
risultati, viene da pensare che siano in mala fede.
Ciao
*Roby*

 risultati, viene da pensare che siano in mala fede.
    Ma no, dai... Probabilmente sono solo degli *esperti*, e non ne fanno
mistero.


 mistero.
col che maurizio si riconferma un maestro della lingua italiana.
chiunque altro avrebbe detto banalmente: "se la menano" :>

  X
Non centra niente, ma giŕ che ci siamo mi spieghi la funzione qui sopra che
riporti sempre come footer dei tuoi messaggi?
Capirei se a ritornare X fosse SPQR(&HA), oppure SPQR(C/X) ma cosě non
capisco proprio. :-)
Ciao
*Roby*

 capisco proprio. :-)
    BASIC:
        ?SQR(100)
         10
    BASICVS:
        ?SPQR(C)
         X



Avere due List con lo stesso valore penso si puņ evitare:
 Private Sub FillAndSortListBoxes()
        Dim c As Long
        Dim aDatiEIndici() As Object = {"Prova", 0, "AAA", 1, "CCC", 2}
        For c = 0 To UBound(aDatiEIndici) - 1 Step 2
            ListBox1.Items.Add(aDatiEIndici(c))
            ListBox1.SelectedIndex = aDatiEIndici(c + 1)
        Next
    End Sub
giuseppeD

Dim aData() As myItem = {New myItem("Prova", 1), New myItem("AAA", 2), New
myItem("CCC", 3)}, oCtr As Control
      For Each oCtr In Me.Controls
         If TypeOf (oCtr) Is ListBox Then
            CType(oCtr, ListBox).Items.AddRange(aData)
         End If
      Next
   End Sub
   Private Class myItem
      Public Text As String, ID As Int32
      Public Sub New(ByVal Text As String, ByVal Id As Int32)
         Me.Text = Text
         Me.ID = Id
      End Sub
      Public Overrides Function ToString() As String
         Return Me.Text
      End Function
   End Class
Leggermente piu lungo...
Supponiamo però che ogni item della listbox oltre ad avere un ID abbia 2, 3
parametri aggiuntivi che vuoi recuperare quando l'utente seleziona un
elemento della listbox, quanto codice devi scrivere un VB6?
HTH
--
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

          X
Ah, ecco! Accidenti, e' già la seconda volta questo mese che mi dispiaccio
per la rana.
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&selm=9itcac%246gk%241%40st
argate1.inet.it
Ciao
*Roby*

     End Sub
In ogni caso col tuo sistema non mi pare che ottieni lo stesso risultato del
mio sorgente. Ho specificatamente spiegato che le ListBox hanno la proprietà
Sorted a True.
Niente flames però. Era solo per scherzare un po'...
Ciao
*Roby*

 elemento della listbox, quanto codice devi scrivere un VB6?
Si, è vero. Lo dicevo anche io, in un altro messaggio del thread in risposta
a Maurizio.
Volevo solo far vedere che è facile usare un esempio ad hoc per mettere in
cattiva luce un linguaggio rispetto ad un altro.
Ciao
*Roby*

elemento della listbox, quanto codice devi scrivere un VB6?
Un modulo di classe con gli n parametri più l'id (stesso della lista) ed
una funzione per recuperarli?
Su e giù, per 3 parametri (incluso id), poco più di una 30a...
OK, son di più, però stiamo specializzando di brutto quelli che erano i
requisiti iniziali, per i quali effettivamente il beneficio apportato da
.NET è stato decisamente gonfiato, così come nel primo esempio del
thread.
Ovviamente questa è una considerazione applicabile a questo contesto: lo
so che potresti portarmi n esempi dove invece i benefici sono reali,
anche se forse non sarebbero esempi banali.
Vabbé, stiamo "flammando" e se continuiamo magari a Piazzolla viene in
mente di lanciare sfide tra .NET e VB6... :-P
Ciao,
Moreno
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

cattiva luce un linguaggio rispetto ad un altro.
Come e' stato anche dimostrato dalle discussioni sorte in seguito
al confronto tra il Pet Store di Sun in java e quello di
Microsoft con .net.
-- 
ciao, hal.dotjava();

 ciao, hal.dotjava();
che discorsi. molto meglio il pet store.
--
ciao, j.dotpet

 ha scritto nel messaggio
news:ap5p7q$rb06f$1...@ID-52090.news.dfncis.de...

veramente ultraLOLLONE con doppio ROTFL
:-)