• In diretta da GamesVillage.it
    • News
    • -
    • In Evidenza
    • -
    • Recensioni
    • -
    • RetroGaming
    • -
    • Anteprime
    • -
    • Video
    • -
    • Cinema

Visualizzazione risultati da 1 a 11 di 11

Discussione: Biblioteca Software

Cambio titolo
  1. #1
    Rivoluzionario L'avatar di Gendo Ikari
    Registrato il
    03-03
    LocalitÓ
    Neo Tokyo 3
    Messaggi
    6.197

    Biblioteca Software

    PerchŔ non facciamo una biblioteca su cui postare le nostre linee di codice di qualsiasi programma che vogliamo mettere in comunione con gli altri?
    Ad esempio se avete fatto "unit" di funzioni in Delphi riguardo a qualsiasi cosa, o se avete programmi eccetera...
    Se riuniamo una biblioteca. potremo trarre spunto da lavori altrui, e migliorarli, nonchŔ trarre vantaggio da un comune scambio di codice.
    Che ne dite?
    Viva l'Itaglia!

  2. #2
    ...ros1k... L'avatar di <TheShop>Evoc Thurner
    Registrato il
    10-03
    LocalitÓ
    La Spezia
    Messaggi
    7.558
    bella idea

  3. #3
    gymvideo
    Ospite

    Sincronizzare una dirlistbox e una filelistbox

    Linguaggio = Visual Basic

    Sicuramente avrete sempre voluto che se voi cambiaste directory mella dirlistbox la filelistbox andasse in quella directory
    Disegnate una dir e una file quindi inserite questo codice:

    Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    End Sub

    http://bpr.altervista.org/esempio.frm
    http://bpr.altervista.org/esempio.vbp

    metteteli nella stessa directory i due file

  4. #4
    gymvideo
    Ospite
    Altri tips

    Linguaggio= Visual Basic

    Distruggere un file

    Inserite in un evento il seguente codice
    Kill("percorsonomefile")

    Creare una cartella
    Mkdir("Percorsonomecartella")

    Spostare un file
    FileCopy("Percorso iniziale","dove deve venire spostato")

    Settare l'attributo di un file
    SetAttr("file",tipodiattributo)




  5. #5
    ...ros1k... L'avatar di <TheShop>Evoc Thurner
    Registrato il
    10-03
    LocalitÓ
    La Spezia
    Messaggi
    7.558
    grazie

  6. #6
    gymvideo
    Ospite
    eddai, inserite tutti un tip! Share ythe knowlege!

  7. #7
    gymvideo
    Ospite
    Bellissimo tip:

    cololare un certo tipo di testo come fanno gli editor
    Avrete sicuramente notato che molti editor di testi, di programmazione colorano un certo tipo di testo. Per esempio, vb colora di blu il codice, di rosso gli errori, di verde i commenti... ecco come fare:

    disegnate nel progetto una rich e una command button
    Codice:
          Option Explicit
    
          Private Sub Command1_Click()
            HighlightWords RichTextBox1, "text", vbRed
          End Sub
    
          Private Function HighlightWords(rtb As RichTextBox, _
                                      sFindString As String, _
                                      lColor As Long) _
                                      As Integer
    
            Dim lFoundPos As Long           'Position of first character
                                            'of match
            Dim lFindLength As Long         'Length of string to find
            Dim lOriginalSelStart As Long
            Dim lOriginalSelLength As Long
            Dim iMatchCount As Integer      'Number of matches
    
            'Save the insertion points current location and length
            lOriginalSelStart = rtb.SelStart
            lOriginalSelLength = rtb.SelLength
    
            'Cache the length of the string to find
            lFindLength = Len(sFindString)
    
            'Attempt to find the first match
            lFoundPos = rtb.Find(sFindString, 0, , rtfNoHighlight)
            While lFoundPos > 0
              iMatchCount = iMatchCount + 1
    
              rtb.SelStart = lFoundPos
              'The SelLength property is set to 0 as
              'soon as you change SelStart
              rtb.SelLength = lFindLength
              rtb.SelColor = lColor
    
              'Attempt to find the next match
              lFoundPos = rtb.Find(sFindString, _
                lFoundPos + lFindLength, , rtfNoHighlight)
            Wend
    
            'Restore the insertion point to its original
            'location and length
            rtb.SelStart = lOriginalSelStart
            rtb.SelLength = lOriginalSelLength
    
            'Return the number of matches
            HighlightWords = iMatchCount
    
          End Function
    :9

  8. #8
    Rivoluzionario L'avatar di Gendo Ikari
    Registrato il
    03-03
    LocalitÓ
    Neo Tokyo 3
    Messaggi
    6.197
    Linguaggio: Delphi
    Licenza: GPL (molto inutile menzionarlo, ma cmq non si sa mai )

    Questa Ŕ una Unit contenente alcune funzioni e procedure di gestione Database ADO. Io la uso per diversi miei programmi, guardate un po' voi che ne pensate e se vi pu˛ essere utile.

    *******************
    unit ModuleGestioneADO;

    interface
    uses
    ADODB, DB;

    procedure InitADOConn(FileName: string);
    procedure InitADOTable(TableName: string);
    procedure CloseAllADO;
    function GetAValue(FirstField: string; Value: variant; SecondField: string):
    variant;
    function GetValueNow(Field: string): variant;
    procedure GiveAValue(FirstField: string; Value: variant; SecondField: string;
    NewValue: variant);
    implementation

    var
    MyADO: TADOConnection;
    MyADOTable: TADOTable;

    // Procedure di Sistema

    procedure InitADOConn(FileName: string);
    begin
    MyADO := TADOCOnnection.Create(nil);
    MyADO.ConnectionString := FileName;
    MyADO.LoginPrompt := False;
    MyADO.Connected := True;
    end;

    procedure InitADOTable(TableName: string);
    begin
    MyADOTable := TADOTable.Create(nil);
    MyADOTable.Connection := MyAdo;
    MyADOTable.TableName := TableName;
    MyADOTable.Active := True;
    end;

    procedure CloseAllADO;
    begin
    MyAdo.Free;
    MyAdoTable.Free;
    end;

    //Funzioni di lettura

    function GetAValue(FirstField: string; Value: variant; SecondField: string):
    variant;

    //Per trovare il punto giusto di lettura inserire il nome del campo e il valore
    //da trovare in quel campo. A QUesto punto la funzione restituisce il valore
    //letto dal secondo campo.

    var
    I: integer;
    Valore: variant;
    begin
    try
    MyADOTable.First;
    for I := 1 to MyADoTable.RecordCount do
    begin
    if MyADOTable.FieldByName(FirstField).Value = Value then
    begin
    Valore := MyADOTable.FieldByName(SecondField).Value;
    break;
    end
    else
    begin
    if MyADOTable.Eof = false then
    MyADOTable.Next
    else
    break;
    end;
    end;
    except
    Valore := '';
    end;

    Result := Valore;
    end;

    function GetValueNow(Field: string): variant;
    // Restituisce il valore di un campo al record attuale
    var
    Valore: variant;
    begin
    try
    Valore := MyADOTable.FieldByName(Field).Value;
    except
    Valore := '';
    end;
    Result := Valore;
    end;

    function GetValueList(Field: string): variant;
    //Restituisce il valore di un campo al record attuale, facendo scorrere di uno
    //il record alla fine
    var
    Valore: variant;
    begin
    try
    Valore := MyAdoTable.FieldByName(Field).Value;
    except
    Valore := '';
    end;
    MyAdoTable.Next;
    Result := Valore;
    end;

    //Funzioni di scrittura

    procedure GiveAValue(FirstField: string; Value: variant; SecondField: string;
    NewValue: variant);

    //Sovrascrive il valore di un campo (SecondField) con il NewValue.
    //I primi due valori servono per trovare la posizione giusta.

    var
    I: integer;
    begin
    for I := 1 to MyADoTable.RecordCount do
    begin
    if MyADOTable.FieldByName(FirstField).Value = Value then
    begin
    MyADOTable.Edit;
    MyADOTable.FieldByName(SecondField).Value := NewValue;
    MyADOTable.Post;
    break;
    end
    else
    begin
    if MyADOTable.Eof = false then
    MyADOTable.Next
    else
    break;
    end;
    end;
    end;

    procedure GiveValueList(Field: string; Value: variant);
    //Scrive nel Field del record corrente il Value. Poi avanza di un record
    begin
    MyADOTable.Edit;
    MyADOTable.FieldByName(Field).Value := Value;
    MyADOTable.Post;
    MyADOTable.Next;
    end;

    end.
    *******************
    Made by me
    Ultima modifica di Gendo Ikari; 1-02-2004 alle 16:06:03
    Viva l'Itaglia!

  9. #9
    ISWT - Ad Vitam Aeternam L'avatar di red.devil
    Registrato il
    02-03
    LocalitÓ
    London Ľ UK
    Messaggi
    3.003
    invece di scrivere post kilometrici, non fareste prima a scrivere il tutto in un file di testo e linkarlo?

  10. #10
    Rivoluzionario L'avatar di Gendo Ikari
    Registrato il
    03-03
    LocalitÓ
    Neo Tokyo 3
    Messaggi
    6.197
    red.devil ha scritto:
    invece di scrivere post kilometrici, non fareste prima a scrivere il tutto in un file di testo e linkarlo?
    Non si possono fare link a file che hai sull'hard-disk.
    Viva l'Itaglia!

  11. #11
    ISWT - Ad Vitam Aeternam L'avatar di red.devil
    Registrato il
    02-03
    LocalitÓ
    London Ľ UK
    Messaggi
    3.003
    Gendo Ikari ha scritto:
    Non si possono fare link a file che hai sull'hard-disk.
    basta piazzarlo su un tuo spazio web

Regole di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •