Ερωτηση πανω σε BASIC

[Loser Geek]

Σκεφτηκα να μελετησω διαφορες παλιες εκδοσεις της BASIC. Στο παρελθον ειχα ασχοληθει μονο με τα βασικα του προγραμματισμου (τι ειναι οι μεταβλητες, πως δουλευουν οι λουπες κλπ) και ποτε δεν ασχοληθηκα με γραφικα, interface, ποντικι κλπ

 

Βρηκα τον κωδικα ενος πολυ βασικου προγραμματος, το οποιο δημιουργει ενα σχημα (δηλωμενο με τη μεταβλητη Ρ), και αν κανεις κλικ στο παραθυρο, η εικονα μετακινειται εκει που εκανες το κλικ, καθως και μπορεις να τη συρεις. Ο κωδικας ειναι:

 

(αφου σχηματιζεται το σχημα)

>CheckMouse:
If mouse(0)=0 then CheckMouse
if abs(x-mouse(1)) > 2 then MovePicture
if abs(y-mouse(2)) < 3 then CheckMouse

 

Καταρχας δεν καταλαβαινω τιποτα απο τη ρουτινα CheckMouse. Αντιλαμβανομαι οτι γινεται ενας ελεγχος για τις συντεταγμενες του κερσορα με τα X και Y αλλα... πουθενα πριν στον κωδικα δεν δηλωνονται αυτες ως μεταβλητες

 

Δευτερον δεν ξερω τη λειτουργια της function mouse(). Το μονο που καταλαβαινω απο τα συμφραζομενα ειναι οτι το mouse(1) ελεγχει αν γινεται καπου αριστερο κλικ (οποτε και ενεργοποιειται η "μετακινηση" του σχηματος) ενω το mouse(0) το να μη πατιεται τιποτα?? Δεν μπορω να καταλαβω επισης τι επιστρεφει, ωστε να γινεται ελεγχος > 2 και < 3.

 

Επισης δεν καταλαβα γιατι η συγκεκριμενη ρουτινα καλει τον εαυτο της

 

Η επομενη ρουτινα ειναι:

>MovePicture:
put(x,y),p
X=mouse(1): Y=mouse(2)
put(x,y),p
goto CheckMouse

Αυτο ειναι πιο σαφες. Απλα κανει paste την εικονα p στις συγκεκριμενες συντεταγμενες καθε στιγμη ωστε να δημιουργειται το εφφε του drag, και εδω ομως δεν καταλαβαινω τη συναρτηση mouse(). Επισης δεν ξερω τι ειναι το : που διαχωριζει τις δυο αναθεσεις. Μηπως ειναι απλα "αλλη εντολη" οπως το ; στη C?

[virxen75]

X=mouse(1): Y=mouse(2)

είναι το ίδιο με αυτό

 

X=mouse(1)

Y=mouse(2)

 

χρησιμοποιείται κυρίως στα if

 

if συνθηκη then κανε1:κανε2:κανε3

[Loser Geek]

Ευχαριστω για την απαντηση φιλε

 

Απαντησες ομως στην τελευταια ερωτηση. Για τα υπολοιπα που ρωταω, ειδικα για τη λειτουργια της mouse() εχεις καμια εμπειρια;

[virxen75]

σε τι έκδοση basic αναφέρεται ο κώδικας?

 

---------- Το μήνυμα προστέθηκε στις 13:39 ----------

 

δες και εδώ για το mouse

 

http://basic.phatcode.net/kbase/macqb/aopsi.htm

[Loser Geek]

Amiga Basic φιλε

[Dr.Fuzzy]

Amiga Basic φιλε

 

πω πω τι μου θύμισες τώρα! :-)

 

---------- Το μήνυμα προστέθηκε στις 20:28 ----------

 

Amiga Basic φιλε

 

πω πω τι μου θύμισες τώρα! Έρωτας...:-)