OOP

mercoledì 31 marzo 2010 - 20.20

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

VUBBI Profilo | Newbie

1 messaggi | Data Invio: mer 31 mar 2010 - 20:20

salve a tutti sono appena entrata nella community e subito vi chiedo un aiuto...
qualcuno mi dà una dritta su come iniziare a programmare usando le classi? questa secondo voi è una classe???

Public Class ClasseRec
Public Structure r
<VBFixedString(5)> Public Cod As String
<VBFixedString(15)> Public Desc As String
End Structure

Public Function lunghezza(ByVal rec As r) As Integer
lunghezza = Len(rec)
End Function
Public Function ultimo(ByVal rif As Integer, ByVal rec As r) As Integer
ultimo = LOF(rif) / lunghezza(rec)
End Function
Public Function aggiungi(ByVal rec As r, ByVal rif As Integer, ByRef ult As Integer) As Boolean
ult = ultimo(rif, rec)
Try
FilePut(rif, rec, ult + 1)
Catch ex As Exception
Return False
End Try

End Function
Public Function apri(ByVal rec As r, ByVal rif As Integer, ByVal nome As String) As Boolean
Try
FileOpen(rif, nome, OpenMode.Random, , , lunghezza(rec))
Catch ex As Exception
Return False
End Try
End Function
Public Sub VisualizzaTutti(ByVal rec As r, ByVal rif As Integer, ByVal listB As Object)
Dim i As Integer
Dim ult As Integer
ult = ultimo(rif, rec)
i = 1
Do While i <> ult + 1
FileGet(rif, rec, i)
listB.items.add(rec.Cod & " " & rec.Desc)
i = i + 1
Loop
End Sub
Public Sub Ricerca(ByVal ValoreInput As Object, ByVal Rec As r, ByVal NumRecord As Byte, ByVal rif As Integer, ByRef Risultato As String)
Dim ult As Integer
ult = ultimo(rif, Rec)
If NumRecord > ult Then
Risultato = "!"
Else
FileGet(rif, Rec, NumRecord)
Risultato = (Confronto(Rec.Cod, ValoreInput))
End If
End Sub

Public Function Confronto(ByVal ValoreLetto As Object, ByVal ValoreInput As Object) As String
Confronto = "<>"
If ValoreLetto = ValoreInput Then
Confronto = "="
Else
If ValoreLetto > ValoreInput Then
Confronto = ">"
Else
If ValoreLetto < ValoreInput Then
Confronto = "<"

End If
End If
End If
End Function
End Class

kataklisma Profilo | Senior Member

394 messaggi | Data Invio: gio 1 apr 2010 - 11:45

Ciao!

Nella programmazione object Oriented tutto cio che esiste nella realtà puo essere un'oggetto!

Ti faccio un piccolo esempio :

Public class Persona
{
    private string Nome;
    private string Cognome;
    private int Età;

    ...
    ...

    //Incapsulazione dei campi privati in proprietà

    ...

    public void Cammina(int metri)
    {
         //Istruzioni;
    }

    ...
}

Ecco, la classe sopra descrittà definisce un "template" dei vari oggetti che andrai a creare, esempio :

Public class GestisciPersone 
{
    private Persona nuovaPersona;

    public void CreaPersona()
    {
         nuovaPersona = new Persona();
         Persona.Nome = "Tizio";
         Persona.Cognome = "Caio";

         //...Altre proprietà

         nuovaPersona.Cammina(10);
    }

}

Spero possa essere un'input per futuri studi!

Se sei interessata all'argomento, puoi seguire ilmio blog su DotNetHell :

http://blogs.dotnethell.it/swdev/

Dove tratterò argomenti di ingegneria del software orientata agli oggetti!

Ciao!!!

Ignazio Catanzaro

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !