programmation collaborative

[charognard]

Qui serait partant pour un projet de développement d'un programme de manière collaborative? c'est à dire que après avoir déterminé un projet (j'en ai quelques uns en tête) fait l'organigramme général, chacun des participant pourrait se coller au développement de son sous-programme.
reste plus qu'a determiner la plate forme (les plates forme) et le langage (basic, assembleur, les deux).
on pourrait envisager (pour commencer) sur un thème simple un développement chacun de son coté avec publication des listings ici ensuite, ce qui permettrait de faire partager ces astuces de programmation, de ce faire une premiere idée des ressourse humaine et de faire revivre pour ce projet des vielles machines.

je commence :
machine possedée : SHARP PC 1500, 1360 et 1600
langage maitrisé : basic
LM : possible sur ces trois PC

premier essai proposé : une sous routine qui prends comme parametre une chaine de caractère, et qui affiche ce même texte en matrice 5x3 à l'endroit du curseur graphique.
plate forme : PC SHARP ou CASIO à écran multiligne.
Langage : BASIC OU LM (suivant rapidité)

y a t'il du monde qui serait partant ?

[BubbleBobble]

on pourrait envisager (pour commencer) sur un thème simple un développement chacun de son coté avec publication des listings ici ensuite

Là ce n'est plus collaboratif si c'est chacun de son côté mon garçon.

Pierre

[charognard]

je le sais bien, mais comme je l'ai dis

on pourrait envisager (pour commencer) sur un thème simple un développement chacun de son coté avec publication des listings ici ensuite, ce qui permettrait de faire partager ces astuces de programmation, de ce faire une premiere idée des ressourse humaine et de faire revivre pour ce projet des vielles machines.

c'est pour ce rendre compte des capacité de chacun et du nombre de personne MOTIVÉE en somme un test selectif

déjà les personnes qui se sentent concernées peuvent laisser un post ici on publira les listings lorsque tout le monde sera près

de plus ça permet de se faire une permière idée sur les capa de chacun suivant le langage utilisée (LM ou basic) de voir la Plate forme de prédilection ....

en cherchant un peu sur le net une partie de la table des caractère en matrice 5x3

&00,&00,&00,&00,&17,&00,&00,&00,&00,&0A,&1F,&0A,&15,&1F,&15,&09
&04,&12,&0C,&0B,&14,&00,&03,&00,&0C,&12,&00,&00,&12,&0C,&0A,&04
&0A,&04,&0E,&04,&00,&14,&0C,&04,&04,&04,&00,&10,&00,&08,&04,&02
&0E,&11,&0E,&12,&1F,&10,&19,&15,&12,&15,&15,&0A,&0F,&08,&1C,&17
&15,&0D,&0E,&15,&09,&01,&1D,&03,&1B,&15,&1B,&12,&15,&0E,&00,&0A
&00,&00,&15,&0D,&04,&0A,&11,&0A,&0A,&0A,&11,&0A,&04,&01,&15,&02
&09,&1D,&0E,&1E,&09,&1E,&1F,&15,&0A,&0E,&11,&13,&1F,&11,&0E,&1F
&15,&11,&1F,&05,&01,&0E,&11,&1D,&1F,&04,&1F,&11,&1F,&11,&08,&10
&0F,&1F,&04,&1B,&1F,&10,&10,&1C,&0E,&1F,&1F,&01,&1E,&1E,&11,&0F
&1F,&05,&03,&1E,&09,&16,&1F,&05,&1A,&12,&15,&09,&01,&1F,&01,&1F
&10,&1F,&0F,&10,&0F,&0F,&1E,&0F,&1B,&04,&1B,&03,&1C,&03,&19,&15
&13,&1F,&11,&00,&02,&0C,&10,&00,&11,&1F,&02,&01,&02,&08,&08,&08
&03,&04,&00,&0C,&12,&1E,&1F,&12,&0C,&0C,&12,&16,&0C,&12,&1F,&0C
&16,&16,&04,&1E,&05,&16,&16,&0E,&1F,&02,&1C,&00,&1D,&10,&00,&10
&1D,&1F,&08,&14,&00,&1F,&00,&1E,&1C,&18,&1E,&02,&1C,&0C,&12,&0C
&1E,&0A,&06,&04,&0A,&1E,&1E,&04,&02,&14,&1E,&0A,&02,&0F,&12,&1E
&10,&1E,&0E,&10,&0E,&0E,&1C,&0E,&12,&0C,&12,&16,&14,&0E,&1A,&16
&12,&04,&1B,&11,&02,&05,&02,&11,&1B,&04,&1F,&0B,&04,&00,&00,&00
&10,&0F,&06,&1D,&10,&1D,&1C,&1E,&15,&1A,&19,&12,&09,&14,&1D,&18
&19,&12,&08,&15,&1C,&04,&04,&0A,&1E,&1D,&16,&1D,&1C,&15,&1C,&1D
&16,&01,&1C,&01,&02,&1D,&02,&00,&1D,&02,&19,&14,&19,&18,&15,&18
&1C,&1E,&15,&1A,&0C,&16,&1E,&1F,&15,&1A,&19,&1A,&1D,&14,&1D,&00
&19,&1A,&1A,&11,&1A,&18,&11,&1A,&15,&08,&05,&1D,&14,&1D,&1D,&10
&1D,&04,&1F,&0A,&14,&1E,&15,&05,&1E,&05,&0C,&1F,&01,&14,&0E,&05
&08,&16,&1D,&02,&1D,&00,&18,&1A,&01,&18,&12,&19,&1D,&05,&19,&1D
&05,&19,&12,&15,&17,&0E,&1B,&0E,&18,&15,&00,&03,&01,&01,&01,&01
&03,&0C,&0A,&0C,&1E,&05,&02,&12,&17,&12,&00,&00,&00,&00,&00,&00

[charognard]

autre hypothèse :
il se pourrait que je sois le seul abruti à entre programmer dessus !!!

[pir2]

autre hypothèse :
il se pourrait que je sois le seul abruti à entre programmer dessus !!!

Peut-être ...

Non, sérieusement, j'avais fait l'impasse sur le LM à l'époque, je m'y mettrai bien, et ton idée me plait.
Mais j'ai déjà pas le temps de faire de simples petits tests en Basic.
Peut-être cet hiver.

En tout cas, je suis preneur, en attendant plus

[atari_air_force_one]

salut a tous voila mon sous-programme :


10 print "bonjour"
20 goto 10


A bientôt

[charognard]

salut a tous voila mon sous-programme :


10 print "bonjour"
20 goto 10


A bientôt

EFFECTIVEMENT !!!
toi tu pourras toujours préparer le café

[pir2]

En attendant, j'ai toujours ca (écrit il y a longtemps), un petit jeu simpliste pour 1251, écrit il y a longtemps.

http://www.pungerer.net/pfx/MesPockets/ ... el1251.jpg

[charognard]

En attendant, j'ai toujours ca (écrit il y a longtemps), un petit jeu simpliste pour 1251, écrit il y a longtemps.

http://www.pungerer.net/pfx/MesPockets/ ... el1251.jpg

bien, bien les bases sont bonnes.
je viens de commencer ça :

sur PC1600
10 CLS
20 DIM P$(9)*80,C$(50)
30 POKE &D000,&CD,&66,&01,&01,&00,&D5,&02,&C9
40 FOR A=0TO 12
50 READ C$(A)
60 NEXT A
70 CALL &D000
80 CURSOR 1,1:PRINT PEEK &D500
90 P$=CHR$ (PEEK &D500)
100 GOSUB 9000
105 GCURSOR 156-(LEN P$(0)+LEN P$(5))/2,20
110 GPRINT P$(0);P$(5)
120 GOTO 70
9000 REM AJOUT CARACTERE
9010 ON ERROR GOTO "ERREUR"
9020 B=0:ER=9030
9030 P$(B)=P$(B)+C$(PEEK &D500-46)
9040 RETURN
9100 REM CALCUL LIGNE
9110 ON ERROR GOTO "ERREUR"
9120 B=0:ER=9140
9130 FOR A=1TO LEN P$
9140 P$(B)=P$(B)+C$(ASC (MID$ (P$,A,1))-46)
9150 NEXT A
9160 RETURN
9900 DATA "8000","","7088887000","10F800","88C8A89000","88A8A85000","6050C84000"
9910 DATA "B8A8A84800","70A8A84000","08C8380800","50A8A85000","10A8A87000","F8F8A8A800"
9990 "ERREUR":B=5
9995 RESUME ER

d'ou l'idée d'adaptation en LM

j'ai adapté pendant mes vacances une simulation de casse brique (programmé sur PC E500) sur divers support PC 1600, PC 1360 et HP48 à des fin de benchmarking (donc en virant la gestion de la raquette) pour se rendre compte visuellement et rapidement des capacité (notament graphique) d'un machine. et je l'adapte sur toute machine tombant sous mes mains (j'en ai peu malheuresement)

les anciennes sources buggée sa donnait ça (maintenant corrigé et au point) sur HP 48

« ERASE
{ # 0h # 0h} PVIEW
{ # 31h # 0h } { # 31h # 1Eh } LINE
{ # 7Dh # 0h } { # 7Dh # 1Eh } LINE
{ # 32h # 0h } { # 7Ch # 1h } BOX
{ # 32h # 2h } { # 7Ch # 3h } BOX
# 0h # 56h Ah DUP # 0h 2 -3 109 R>B 1 -> 
sc bx obx y oy ox ry rx x cas
« { # 32h # 1Eh } { 3 7Ch LINE
DO
x B>R rx + R>B 'x' STO
y B>R ry + R>B 'y' STO
IF x BR 50 < x B>R 124 > OR THEN
800 .05 BEEP
rx NEG 'rx' STO
x B>R 2 rx * + R>B 'x' STO
END
CASE 'cas==2' THEN
300 .05 BEEP
ry NEG 'ry' STO
oy B>R ry + R>B 'y' STO
END
'cas==3' THEN
300 .05 BEEP
ry NEG 'ry' STO
rx NEG 'rx' STO
oy B>R ry + R>B 'y' STO
ox B>R rx + R>B 'x' STO
END
END
IF y BR -2 == THEN
300 .1 BEEP
ry NEG 'ry' STO
oy B>R ry + R>B 'y' STO
END
IF x y 2 LIST PIX? THEN
300 .1 BEEP
sc 5 + 'sc' STO
x y 2 LIST
x 2 + y 2 LIST
x y 1 + 2 LIST
x 2 + y 1 + 2 LIST
TLINE TLINE
y ry - 'y' STO
ry NEG 'ry' STO
END
ox oy 2 LIST
ox 2 + oy 2 LIST
ox oy 1 + 2 LIST
ox 2 + oy 1 + 2 LIST
x y 2 LIST
x 2 + y 1 + 2 LIST
BOX TLINE TLINE
x 'ox' STO
y 'oy' STO
0 'cas' STO
CASE y B>R 30 < THEN
1 'cas' STO
END
bx ox <= ox bx 9 + < AND THEN
2 'cas' STO
END
ox rx + bx == x rx - bx 9 + == OR THEN
3 'cas' STO
END
END
UNTIL 'cas==0'
END
»
»

l'original donnait ça :
10 REM *** SHARP PC-E500 - BREAKOUT - GUNNAR HOVDEN - FEB 1991 ***
20 CLS :S=ABS SGN S
30 'MERGE "E:HISCORE.BAS":SP=2
40 CLS
50 PRINT "SCORE: 0"
60 PRINT
70 PRINT "LIVES: 5"
80 LINE (80,0)-(80,31)
90 LINE (155,0)-(155,31)
100 LINE (81,0)-(155,3),,,BF
110 LINE (81,6)-(155,9),,,BF
120 LV=5:SC=0
130 BX=117:OBX=BX
140 Y=10:OX=X:OY=Y:RX=-3:RY=2:RX=(2*RND (2)-3)*RX:X=100-RX*(RND (6)+4)
150 LINE (BX,30)-(BX+9,30)
160 'GOSUB 800
170 X=X+RX:Y=Y+RY
180 IF X<81OR X>154BEEP S,10,10:RX=-RX:X=X+2*RX
190 IF Y<30THEN 230
200 IF BX<=OXAND OX<BX+9BEEP S,20,10:RY=-RY:Y=OY+RY:GOTO 230
210 IF OX+RX=BXOR X-RX=BX+9BEEP S,20,10:RY=-RY:RX=-RX:Y=OY+RY:X=OX+RX:GOTO 230
220 GOTO 400
230 IF Y=-2BEEP S,20,10:RY=-RY:Y=OY+RY
240 IF POINT (X,Y)=0THEN 290
250 BEEP S,10,10
260 SC=SC+5:CURSOR 6,0:PRINT SC
270 LINE (X,Y)-(X+2,Y+1),R,B
280 Y=Y-RY:RY=-RY
290 GOSUB 340
300 LINE (OX,OY)-(OX+2,OY+1),R,,B
310 LINE (X,Y)-(X+2,Y+1),,,B
320 OX=X:OY=Y
330 GOTO 160
340 A$=INKEY$ :A=ASC A$
350 'A=A-14*(BX<X-6)-15*(BX>X-6):GOTO 810
360 BX=BX+6*(A=13)*(BX<156)-6*(A=32)*(BX>81)
370 LINE (OBX,30)-(OBX+9,30),R:LINE (BX,30)-(BX+9,30)
380 OBX=BX
390 RETURN
400 LINE (OX,OY)-(OX+2,OY+1),R,,B
410 LINE (X,Y)-(X+2,Y+1),,,B
420 LV=LV-1
430 CURSOR 6,2:PRINT LV
440 FOR P=1TO 255STEP 3:BEEP S,P,2:NEXT P
450 LINE (X,Y)-(X+2,Y+1),R,,B
460 LINE (BX,30)-(BX+12,30),,R
470 IF LV>0FOR P=1TO 1000:NEXT P:GOTO 130
480 LINE (0,0)-(155,31),X,,,BF
490 A$=INKEY$
500 CURSOR 0,0:PRINT " B R E A K O U T "
510 GOSUB *HISCOR E
520 A$=INKEY$
530 FOR I=1TO 200:NEXT I
540 A$=INPUT $(1)
550 GOTO 40


mais le problème de travailler dans son quoi c'est que la motivation tombe vite.

[pir2]

En allant en woucances, j'ai écrit rapidement un jeu de pendu en Basic sur 1360 et 1280, pour occuper les gamins dans la wouature (pendant que madame prenait le relais au volant).

Je vais essayer de le transférer sur PC pour poster le listing ici. Ca me fera un bon exercice de transfert de données et mon premier usage des programmes wav2bin et autres, pris sur le site de notre vénéré maitre à tous (slurp)

[charognard]

pour le PC1360 je transfert avec le RS232

open$ ( pour voir le parametrage à faire sur le PC)
open (pour utiliser le port)
save (qui balance en ASCII sur le RS232)

PS. : open est à faire après chaque extinction de la machine si besoin est

[pstriolo]

Il y a une faute de frappe dans le listing.

Philou

[pir2]

pour le PC1360 je transfert avec le RS232

J'ai pas de RS232, mais une EA-129C, que je compte utiliser pour transferer vers le 1600, puis un cable série pour transferer du 1600 au PC ... des que j'aurai le temps, bien sur

[Pocket]

Salut,

L'idée est sympa, mais ici c'est le temps qui manque le plus ...

A+

[charognard]

pour le PC1360 je transfert avec le RS232

J'ai pas de RS232, mais une EA-129C, que je compte utiliser pour transferer vers le 1600, puis un cable série pour transferer du 1600 au PC ... des que j'aurai le temps, bien sur

pour info le PC1360 utilise le même port que le PC 1600 (sauf peut etre le voltage à 5.5v) quoi qui en soit j'utilise moi pour les deux machines un convertisseur CE-137T (trouvé à 19 € sur ebay ICI) avec un cable null modem et même un adaptateur usb/rs232 et tout cela sous vista et pas de problème (sauf un ou deux ecran bleu sous vista du au driver du convertisseur usb) et ça marche nickel sur PC1450/1460/1350/1360/1600/E500 et peut etre meme d'autre (serie 800 ... agenda).

POUR POCKET : j'ai le même problème mais tant pis je regarde moins la télé.

DONC RESUMONS A PART MOI QUI SERAIS DE LA PARTIE, PIR2 ?, POCKET ?
On (Je) attend les autres