[Riddick]

Smanettando con DarkBasic Pro Free, sono riuscito a fare un specie di pennello xD, col tasto sinistro del mouse si ha un colore, col destro un'altro colore, e premendo la rotellina del mouse si pulisce lo schermo, mentre se premete tutti e due i pulsanti del mouse vi stampa un messaggino xD.

Ecco il source:

Codice PHP:

Do
    if MouseClick() = 1
        circle mousex(),mousey(), 10
        ink RGB(255,155,30), 10
ENDIF
        
        if MouseClick() = 2
        circle mousex(),mousey(), 10
        ink RGB(255,30,155), 10
ENDIF
        if MouseClick() = 3
        print "Azzo fai ?"
ENDIF
        
        if MouseClick() = 4
        cls
ENDIF
LOOP 


[KillerZ]

ahaha, ho provato su dbpro, e una figata!!

[VisualJump3D]

Bello !

DbPro e' molto "semplice" da usare e se usato in tutte le sue potenzialita'
( e fantasia , che e' d'obbligo nella programmazione ), e' un linguaggio
con qui si possono fare grandi cose.
Vedi fps creators scritto in dbpro , che e' vero ha diversi bug ma pensiamo
che non e' stato scritto certamente con budget da milioni di dollari (!) .

Poi la possibilita' di creare dll apposite lo rende veramente espandibile .

[Jonathan Archer]

Jump ha ragione. Allora quando lavoravo con DBClassic fedi un programma come il tuo chiamato PaintPut e salvava pure nei file i disegni e li potevi riaprire anche e te li ridisegnava Posto postarlo se volete

EDIT1: Come primo programma è carino Comunque per il futuro ti consiglio di utilizzare "Sync On" all'inizio del progetto e "Sync" Prima di Loop per aggiornare lo schermo xkè si ottengono prestazioni migliori (di più col 3D). Un altra cose, se un giorno dovessi fare progetti più complessi ti consiglio anche di ordinare quegli ENDIF con TAB xkè senno ti girano gli occhi (Guarda sotto). Attendo il tuo prossimo lavoro

Codice PHP:

Sync On

Do
    if MouseClick() = 1
        circle mousex(),mousey(), 10
        ink RGB(255,155,30), 10
    ENDIF
        
    if MouseClick() = 2
        circle mousex(),mousey(), 10
        ink RGB(255,30,155), 10
    ENDIF
    
    if MouseClick() = 3
        print "Azzo fai ?"
    ENDIF
        
    if MouseClick() = 4
        cls
    ENDIF
    
    Sync
LOOP