ZX Spectrum basic & λάθη σε κώδικα..

Τα δικά μας προγράμματα!

Συντονιστής: Developers

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

ZX Spectrum basic & λάθη σε κώδικα..

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Τετ Νοέμ 24, 2010 5:56 pm

Jim, ψιλοάρχισα λιγο να ασχολούμαι αλλα με την πρώτη "έφαγα" πίτα..
μου βγάζει 2 Variable not found,130:3
Εσύ θα ξέρεις να το διορθώσεις φαντάζομαι.. :D

Κώδικας: Επιλογή όλων

10 BORDER 1: PAPER 7: INK 0: CLS
20 LET X = RND * 255: LET Y = RND * 175
30 LET L = RND * 255: LET M = RND * 175
40 LET U = 4 - RND * 8
50 LET V = 4 - RND * 8
60 LET P = 4 - RND * 8
70 LET Q = 4 - RND * 8
120 FOR K = 1 TO 150
130 BEEP .02, L/5: PLOT X, Y: DRAW L - X, M – Y
140 IF L + P > 250 OR L + P < 5 THEN LET P = -P
150 IF M + Q > 170 OR M + Q < 5 THEN LET Q = -Q
160 IF X + U > 250 OR X + U < 5 THEN LET U = -U
170 IF Y + V > 170 OR Y + V < 5 THEN LET V = -V
180 LET X = X + U
190 LET Y = Y + V
200 LET L = L + P
210 LET M = M + Q
230 NEXT K
240 IF INKEY$ = " " THEN GO TO 240
250 RUN
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
Anemos
AMD 4 ever?
AMD 4 ever?
Δημοσιεύσεις: 4688
Εγγραφή: Τρί Σεπ 01, 2009 12:40 am

Re: ZX Spectrum basic & λάθει σε κώδικα..

Μη αναγνωσμένη δημοσίευσηαπό Anemos » Τετ Νοέμ 24, 2010 6:03 pm

Ωπσ..το διόρθωσα! στην 130 γραμμή έλειπαν μερικά space (διαστήματα) στην πληκτρολόγηση!
Η βαθιά κατάσταση που επιπλέει

Άβαταρ μέλους
ZX_Jim +
Z80 power CPU
Z80 power CPU
Δημοσιεύσεις: 1407
Εγγραφή: Παρ Σεπ 04, 2009 1:06 am
Επικοινωνία:

Re: ZX Spectrum basic & λάθει σε κώδικα..

Μη αναγνωσμένη δημοσίευσηαπό ZX_Jim + » Πέμ Νοέμ 25, 2010 1:35 am

Χαίρομαι που βοήθησα.... :lol:
http://zxjim.blogspot.gr/


Επιστροφή σε “* Home Micros programming *”



Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: 1 και 0 επισκέπτες