πρόγραμμα σε darkbasic

[greekmanael]

Φτιάχνω το παρακάτω κώδικα και αντιμετωπίζω ένα πρόβλημα με την εντολή cls .Δηλαδή στην αρχή του προγράμματος δημιουργούνται 5 τυχαίου μεγέθους κουτιά (2d), και αργότερα η cls τα σβήνει .Πώς μπορώ εγώ τώρα να κάνω την cls να μην σβήνει  τα κουτιά ;(χωρίς φυσικά να την σβήσω λολ).Ευχαριστώ για τον χρόνο σας.

 

 

Το πρόγραμμα :

 

 

x1=50 : y1=50 : x2=50 : y2=40
leo=100
leo2=200
sync on
sync rate 30
while h<5

a=leo2+rnd(1600) : b=leo2+rnd(900) : g=leo+rnd(100) : g1=leo+rnd(100)

box g,g1,a,b
h=h+1
sync
endwhile
do
cls
if mouseclick()=1
wait 1000
a=a+1
if a>2
a=1
ENDIF
print a
ENDIF
if a=1
if upkey()=1
y1=y1-1
endif
if downkey()=1
y1=y1+1
endif
if leftkey()=1
x1=x1-1
endif
if rightkey()=1
x1=x1+1
endif
ENDIF
if a=2
if upkey()=1
y2=y2-1
endif
if downkey()=1
y2=y2+1
endif
if leftkey()=1
x2=x2-1
endif
if rightkey()=1
x2=x2+1
endif
ENDIF



line x1,y1,x2,y2

sync
LOOP

[kvnm]

do
cls-----> ΔΕΝ ΕΙΝΑΙ ΑΥΤΟ ΤΟ ΠΡΟΒΛΗΜΑ
if mouseclick()=1
wait 1000----->ΑΥΤΟ ΕΙΝΑΙ
a=a+1
if a>2
a=1
EN...

ΔΟΚΙΜΑΣΕ ΚΑΤΙ ΣΕ ΑΥΤΟ ΠΟΥ ΣΟΥ ΕΙΠΑ.

ΤΩΡΑ ΔΕΝ ΞΕΡΩ ΚΑΤΑ ΠΟΣΟ ΘΑ ΠΙΑΣΕΙ ΕΙΜΑΙ ΠΟΛΥ ΑΡΧΑΡΙΟΣ ΣΕ ΑΥΤΗ ΤΗ ΓΛΩΣΣΑ.

[greekmanael]

Λοιπόν το cls καθαρίζει ότι έχει η οθόνη , με το if mouseclick()=1 : wait 1000 λέω στο πρόγραμμα ότι μόλις πατήσω το click του ποντικιού

να περιμένει ένα δευτερόλεπτο αν δεν το έκανα αυτό τότε το   a θα άλλαζε αριθμό πολύ γρήγορα ,δηλαδή αν πατούσα το click του ποντικού για ένα κλάσμα του δευτερολέπτου το a θα άλλαζε πάρα πολλές φορές τις τιμές 1 ή 2 για αυτόν τον λόγο βάζω το wait 1000.Την λύση την βρήκα βάζοντας το box μέσα στο do loop (η do loop είναι πολύ γρήγορη), είναι ο μόνος τρόπος για να φαίνονται και τα δύο(και το line και το box) από ότι ξέρω   . Πάντως ευχαριστώ για την προσπάθεια.