CONSOLE ,,,0- Peut-on désactiver le bip bip des touches ?
vois page 40 du MANUEL DE RÉFÉRENCE DU BASIC pour plus d'explications sur cette commande.
4412 résultats trouvés
- 08 avr. 2016 07:34
- Forum : Tous les Pockets
- Sujet : Canon X-07
- Réponses : 46
- Vues : 31057
Re: Canon X-07
vois page 40 du MANUEL DE RÉFÉRENCE DU BASIC pour plus d'explications sur cette commande.
- 05 avr. 2016 20:56
- Forum : Tous les Pockets
- Sujet : Canon X-07
- Réponses : 46
- Vues : 31057
Re: Canon X-07
10 FONT$(128) = "&H00,&HC8,&H54,&HD4,&H94,&HC8,&H00,&H00"
20 FONT$(129) = "&H00,&H88,&H94,&H88,&HD4,&H48,&H00,&H00"
PRINT CHR$(128) + CHR$(129)
et vous avez 2048 dans 2 matrices.
JE NE VAIS PAS VOUS FAIRE LE RESTE BANDE DE FAIGNASSES
20 FONT$(129) = "&H00,&H88,&H94,&H88,&HD4,&H48,&H00,&H00"
PRINT CHR$(128) + CHR$(129)
et vous avez 2048 dans 2 matrices.
JE NE VAIS PAS VOUS FAIRE LE RESTE BANDE DE FAIGNASSES
- 03 avr. 2016 17:48
- Forum : Tous les Pockets
- Sujet : Canon X-07
- Réponses : 46
- Vues : 31057
Re: Canon X-07
Voilà comment c'est quand c'est neuf (ou presque)
Pour le basic c'est un basic Microsoft adapté au X07
Expansion port a aussi un cache de même couleur que les autres
Pour le basic c'est un basic Microsoft adapté au X07
Expansion port a aussi un cache de même couleur que les autres
- 25 mars 2016 21:05
- Forum : Tous les Pockets
- Sujet : [Casio fx-850p] Comment coder la saisie d'une fonction ?
- Réponses : 35
- Vues : 21692
Re: [Casio fx-850p] Comment coder la saisie d'une fonction ?
Code : Tout sélectionner
20 IF F THEN I=100:GOTO 40- 20 mars 2016 08:47
- Forum : Tous les Pockets
- Sujet : Mes débuts en assembleur
- Réponses : 22
- Vues : 16339
Re: Mes débuts en assembleur
Une petite subtilité cependant.
Le jump relatif et celui absolu.
Dans un cas le programme est relogeable dans l'autre non
Le jump relatif et celui absolu.
Dans un cas le programme est relogeable dans l'autre non
- 10 mars 2016 19:30
- Forum : Tous les Pockets
- Sujet : Je galère avec inkey$
- Réponses : 9
- Vues : 6367
Re: Je galère avec inkey$
Le AREAD n'est qu'un INPUT inversépir2 a écrit :Et avec le DEF X, on peut mettre un AREAD pour lire immédiatement la valeur d'avant le lancement (je sais, ce n'est pas le même besoin(code tapé de tête)Code : Tout sélectionner
10 "X" AREAD A$ 20 IF A$="OUI" GOTO 100 30 PRINT A$ 40 GOTO 110 100 PRINT "JE FAIS CE QUE JE VEUX DU OUI" 110 END
il fonctionne avec le mode DEF et est exclusif aux SHARP
Une instruction permettant la création de fonctions uniquement mono paramètres.
à noter que le retour d'un PRINT peut être pris en paramètre
Exemple :
Code : Tout sélectionner
10 "A" AREAD A
20 PRINT A+2[DEF] A
[DEF] A
[DEF] A
donnera 8
- 10 mars 2016 18:58
- Forum : Tous les Pockets
- Sujet : Je galère avec inkey$
- Réponses : 9
- Vues : 6367
Re: Je galère avec inkey$
Page 176 je suppose !Marge a écrit :Il n'empêche que ce dysfonctionnement est mentionné dans le manuel du PC-1403. Tant mieux si ce bout de programme fonctionne.
avec l'exemple DEF Z qui intercepte le Z du DEf sur inkey
c'est ce que je dis mon code attend qu'il n'y ai plus de pression de touche donc DEF fonctionne très bien.
Exemple si j'ajoute le DEF Z mon code fonctionne nickel
Code : Tout sélectionner
10 "Z" IF INKEY$ <>"" THEN 10
20 A$=INKEY$:IF A$="" THEN 20
30 IF A$="O" PRINT "OUI":END
30 PRINT "NON"- 10 mars 2016 18:20
- Forum : Tous les Pockets
- Sujet : Je galère avec inkey$
- Réponses : 9
- Vues : 6367
Re: Je galère avec inkey$
Bogué le SHARP ..... Bande d'incultes
Sur certain SHARP le INKEY$ intercepte les codes ASCII des touches et notamment celle CHR$(13) qui correspond à la touche [ENTER]
Ton code fonctionne super bien en fait mais lorsque du lance ton programme si tu reste appuyé sur [ENTER] il passe en 30 et t'affiche 'NON'
voilà ce qu'il faut faire :
Explication :
----------------
le IF INKEY$ <>"" THEN 10 vérifie qu'une touche n'est actuellement pas appuyée et vide le buffer
J'avais bien galéré sur ce problème, il y a plus de 30ans et ça met resté en mémoire
Pour la touche DEF le problème est le même, la touche après le DEF est interceptée si appui pas suffisamment rapide
Sur certain SHARP le INKEY$ intercepte les codes ASCII des touches et notamment celle CHR$(13) qui correspond à la touche [ENTER]
Ton code fonctionne super bien en fait mais lorsque du lance ton programme si tu reste appuyé sur [ENTER] il passe en 30 et t'affiche 'NON'
voilà ce qu'il faut faire :
Code : Tout sélectionner
10 IF INKEY$ <>"" THEN 10
20 A$=INKEY$:IF A$="" THEN 20
30 IF A$="O" PRINT "OUI":END
30 PRINT "NON"
----------------
le IF INKEY$ <>"" THEN 10 vérifie qu'une touche n'est actuellement pas appuyée et vide le buffer
J'avais bien galéré sur ce problème, il y a plus de 30ans et ça met resté en mémoire
Pour la touche DEF le problème est le même, la touche après le DEF est interceptée si appui pas suffisamment rapide
- 09 mars 2016 07:18
- Forum : Tous les Pockets
- Sujet : Un drôle de caractère graphique
- Réponses : 7
- Vues : 5861
Re: Un drôle de caractère graphique
Ce n'est pas sur SHARP qu'ils se permettraient des choses de la sorte !
- 03 mars 2016 21:07
- Forum : Tous les Pockets
- Sujet : Mes débuts en assembleur
- Réponses : 22
- Vues : 16339
Re: Mes débuts en assembleur
Il y a quelques années (et oui ça passe) j'avais fais un comparo BASIC/C/ASSEMBLEUR du même programme (Un casse brique non jouable)
Pour chaque ligne basic tu as les instructions C et assembleur correspondantes (BASIC/C/ASSEMBLEUR Z80 sur SHARP PC 850V)
Possible que cela t'interresse ... Je post
BASIC C Assembleur G850V
Pour chaque ligne basic tu as les instructions C et assembleur correspondantes (BASIC/C/ASSEMBLEUR Z80 sur SHARP PC 850V)
Possible que cela t'interresse ... Je post
BASIC C Assembleur G850V
Code : Tout sélectionner
10 #define m 65535 10 ORG 0100H
20GRAPH EQU 093CBH
30 JR START
--------------------------------------------------------------------------------------------------------------------------
20 int sc, x,y,ox,oy,rx,ry; 40SC: DB 0
50X: DB 0
60Y: DB 0
70OX: DB 0
80OY: DB 0
90RX: DB 0
100RY: DB 0
110PROV:DB 0
120 DB 0
--------------------------------------------------------------------------------------------------------------------------
10 CLS 130START:CALL CLS
--------------------------------------------------------------------------------------------------------------------------
20 LINE (59,0)-(135,30),B 40 line(59,0,135,30,0,m,1); 140 LD HL,59
150 LD DE,0
160 LD IX,135
170 LD IY,30
180 LD A,1
190 LD B,1
200 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
30 LINE (60,0)-(134,3),BF 50 line(60,0,134,3,0,m,2); 210 LD HL,60
220 LD DE,0
230 LD IX,134
240 LD IY,3
250 LD A,1
260 LD B,2
270 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
40 LINE (60,6)-(134,9),BF 60 line(60,6,134,9,0,m,2); 280 LD HL,60
290 LD DE,6
300 LD IX,134
310 LD IY,9
320 LD A,1
330 LD B,2
340 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
50 X=99,Y=10,OX=99:OY=10:RX=-3:RY=2 70 sc=0,x=99,y=10, ox=99,oy=10, rx=-3,ry=2; 350 LD A,0
360 LD (SC),A
370 LD A,99
380 LD (X),A
390 LD (OX),A
400 LD A,10
410 LD (Y),A
420 LD (OY),A
430 LD A,-3
440 LD (RX),A
450 LD A,2
460 LD (RY),A
--------------------------------------------------------------------------------------------------------------------------
60 REPEAT 80 do{ 470REP: LD A,(RY)
--------------------------------------------------------------------------------------------------------------------------
70 X=X+RX:Y=Y+RY 90 x+=rx;y+=ry; 480 LD B,A
490 LD A,(Y)
500 ADD A,B
510 LD (Y),A
520 LD A,(RX)
530 LD B,A
540 LD A,(X)
550 ADD A,B
560 LD (X),A
--------------------------------------------------------------------------------------------------------------------------
80 IF X<60 OR X>132 LET... 100 if(x<60|x>132) 570 CP 60
580 JR C,OK1
590 CP 133
600 JR C,SU1
--------------------------------------------------------------------------------------------------------------------------
… RX=-RX:X=X+2*RX 110 rx=-rx,x+=2*rx; 610OK1: LD A,(RX)
620 XOR 255
630 ADD A,1
640 LD (RX),A
650 ADD A,A
660 LD B,A
670 LD A,(X)
680 ADD A,B
685 LD (X),A
--------------------------------------------------------------------------------------------------------------------------
90 IF Y>=30 OR Y=-2 LET … 120 if(y>=30|y==-2) 690SU1: LD A,(Y)
700 CP 30
710 JR NC,OK2
720 CP -2
730 JR NZ,SU2
--------------------------------------------------------------------------------------------------------------------------
… RY=-RY:Y=OY+RY 130 ry=-ry;y=oy+ry; 740OK2: LD A,(RY)
750 XOR 255
760 ADD A,1
770 LD (RY),A
790 LD B,A
800 LD A,(OY)
810 ADD A,B
820 LD (Y),A
--------------------------------------------------------------------------------------------------------------------------
100 IF POINT (X,Y) THEN 140 if (point(x,y)){ 830SU2: LD A,(X)
840 LD E,A
850 LD A,(Y)
860 LD D,A
870 CALL POI
880 CP 1
890 JR NZ,SU3
--------------------------------------------------------------------------------------------------------------------------
110 SC=SC+5 150 sc+=5; 900 LD A,(SC)
910 ADD A,5
920 LD (SC),A
--------------------------------------------------------------------------------------------------------------------------
120 LINE (X,Y)-(X+2,Y+1),R,B 160 line(x,y,x+2,y+1,1,m,1); 930 LD A,(X)
940 LD H,0
950 LD L,A
960 ADD A,2
970 LD (PROV),A
980 LD IX,(PROV)
990 LD A,(Y)
1000 LD D,0
1010 LD E,A
1020 ADD A,1
1030 LD (PROV),A
1040 LD IY,(PROV)
1050 LD A,2
1060 LD B,1
1070 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
130 Y=Y-RY,RY=-RY :ENDIF 170 y-=ry,ry=-ry;} 1080 LD A,(RY)
1090 LD B,A
1100 LD A,(Y)
1110 SUB B
1120 LD (Y),A
1130 LD A,(RY)
1140 XOR 255
1150 ADD A,1
1160 LD (RY),A
--------------------------------------------------------------------------------------------------------------------------
140 LINE (X,Y)-(X+2,Y+1),B 180 line(x,y,x+2,y+1,0,m,1); 1170SU3: LD A,(X)
1180 LD H,0
1190 LD L,A
1200 ADD A,2
1210 LD (PROV),A
1220 LD IX,(PROV)
1230 LD A,(Y)
1240 LD D,0
1250 LD E,A
1260 ADD A,1
1270 LD (PROV),A
1280 LD IY,(PROV)
1290 LD A,1
1300 LD B,1
1310 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
150 LINE (OX,OY)-(OX+2,OY+1),R,B 190 line(ox,oy,ox+2,oy+1,1,m,1); 1320 LD A,(OX)
1330 LD H,0
1340 LD L,A
1350 ADD A,2
1360 LD (PROV),A
1370 LD IX,(PROV)
1380 LD A,(OY)
1390 LD D,0
1400 LD E,A
1410 ADD A,1
1420 LD (PROV),A
1430 LD IY,(PROV)
1440 LD A,2
1450 LD B,1
1460 CALL LINE
--------------------------------------------------------------------------------------------------------------------------
160 OX=X:OY=Y 200 ox=x;oy=y; 1470 LD A,(X)
1480 LD (OX),A
1490 LD A,(Y)
1500 LD (OY),A
--------------------------------------------------------------------------------------------------------------------------
170 UNTIL SC>200 210 }while(sc<=200); 1510 LD A,(SC)
1520 CP 200
1530 JP C,REP
--------------------------------------------------------------------------------------------------------------------------
180 END 220 } 1540 RET
- 04 févr. 2016 19:33
- Forum : Tous les Pockets
- Sujet : S'il n'en reste qu'un
- Réponses : 31
- Vues : 17685
Re: S'il n'en reste qu'un
J'ai failli marcher !
5 Sharp encore ça aurait pu passer. Mais 5 Casio ce n'est pas possible !
PC 1600 sinon le Pocket le plus abouti de toute la production
5 Sharp encore ça aurait pu passer. Mais 5 Casio ce n'est pas possible !
PC 1600 sinon le Pocket le plus abouti de toute la production
- 24 janv. 2016 17:57
- Forum : Tous les Pockets
- Sujet : [PC-1560] La mémoire Ramdisk
- Réponses : 16
- Vues : 11189
Re: [PC-1560] La mémoire Ramdisk
AH oui quand même !
Très intéressant ce fil, je vais suivre le déroulement de ce projet.
Très intéressant ce fil, je vais suivre le déroulement de ce projet.
- 24 janv. 2016 12:17
- Forum : Tous les Pockets
- Sujet : [résolu]réveil difficile pour un pc-1262
- Réponses : 6
- Vues : 4865
Re: [résolu]réveil difficile pour un pc-1262
Moi aussi, mais il y a eu conséquences ... j'ai eu deux enfants !Marge a écrit :Moi, ce type de bêtise, ça m'est arrivé dernièrement, heureusement, cela n'a pas porté à conséquence...
- 12 déc. 2015 22:16
- Forum : Tous les Pockets
- Sujet : Sharp PC-G850V
- Réponses : 44
- Vues : 28060
Re: Sharp PC-G850V
j'avais fais cela (m'en souvenais plus d'ailleurs ! )
Code : Tout sélectionner
void abort(void);
int abs(int x);
double acos(double x);
double acosh(double x);
void angle(unsigned n);
double asin(double x);
double asinh(double x);
double atan(double x);
double atanh(double x);
int beep(int nbr,int freq, int long) ;
void breakpt(void);
void *calloc(unsigned n, unsigned size);
int circle(int x, int y, int r, double s-angle, double e-angle, double ratio, int reverse, unsigned short kind);
void clearerr(FILE * stream);
void clrscr(void);
double cos(double x);
double cosh(double x);
void exit(int status);
double exp(double x);
int fclose(FILE *stream);
int feof(FILE *stream);
int fflush(FILE * stream);
int fgetc(FILE *stream);
char *fgets(char *, int n, FILE *stream);
unsigned long flof(FILE *stream);
FILE *fopen(char *path, char *type);
int fprintf(FILE * stream, const char * format [, arg, …]);
int fputc(int c, FILE * stream);
int fputs(const char *s, FILE *stream);
void free(void *ptr);
int fscanf(FILE * stream, const char * format [, address, …]);
int gcursor(int x, int y);
int getc(FILE *stream);
int getch(void);
int getchar(void);
char *gets(char * s);
void gotoxy(unsigned x, unsigned y);
int gprint(char *image);
int isalnum(int c);
int isalpha(int c);
int iscntrl(int c);
int isdigit(int c);
int isgraph(int c);
int islower(int c);
int isprint(int c);
int ispunct(int c);
int isspace(int c);
int isupper(int c);
int isxdigit(int c);
int kbhit(void);
int line(int x1, int y1, int x2, int y2, int reverse, unsigned short mask, int rectangle);
double log(double x);
double log20(double x);
void *malloc(unsigned size);
int miniget(void);
void miniput(char byte);
int paint(int x, int y, unsigned short kind);
int pioget(void);
void pioput(char byte);
void pioset(char byte);
int point(int x, int y);
double pow(double x, double y);
int preset(int x, int y);
int printf(const char * format [, arg, …]);
int pset(int x, int y, int reverse);
int putc(int c, FILE * stream);
int putchar(int c);
int puts(const char *s);
int scanf(const char * format [, address, …]);
double sin(double x);
double sinh(double x);
int sprintf(char * s, const char * format [, arg, …]);
double sqrt(double x);
int sscanf(char * s, const char * format [, address, …]);
char *strcat(char * s1, const char *s2);
char *strchr(const char *s, int c);
int strcmp(const char *s1, const char *s2);
char *strcpy(const char *s1, const char *s2);
int strlen(const char *string);
double tan(double x);
double tanh(double x);
int tolower(int c);
int toupper(int c);
- 12 déc. 2015 19:22
- Forum : Tous les Pockets
- Sujet : Sharp PC-G850V
- Réponses : 44
- Vues : 28060
Re: Sharp PC-G850V
Et si tu prenais au moins le temps de lire mon article
Donné déjà deux fois en lien dans ce fils.
Tu as toutes les commandes BASIC, C et CASL.
et dans le manuel aussi donné précédemment tu as leur syntaxe respective
PS :
Pour le C les commandes standards sont en noires, en bleu la bibliothèque mathématique et en rouge celle graphique.
Pour le BASIC je signale les spécificités par rapport aux autres PC SHARP de la série 12 et 13
Donné déjà deux fois en lien dans ce fils.
Tu as toutes les commandes BASIC, C et CASL.
et dans le manuel aussi donné précédemment tu as leur syntaxe respective
PS :
Pour le C les commandes standards sont en noires, en bleu la bibliothèque mathématique et en rouge celle graphique.
Pour le BASIC je signale les spécificités par rapport aux autres PC SHARP de la série 12 et 13