mon vg 5000 à moi

Pour les fans du micro de Philips, ils existent! on vous l'assure :)

Modérateur : Politburo

Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

mon vg 5000 à moi

Message par balou »

Bonsoir à toutes et à tous,

Le vg 5000 Radiola :wink: que j'ai eu il ya quelque temps fonctionne :lol: je vais donc le nettoyer et commencer à m'en servir :lol: :lol:
Modifié en dernier par balou le 09 mars 2006 17:44, modifié 1 fois.
Avatar du membre
Carl
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2542
Enregistré le : 03 janv. 2003 23:47
Localisation : www.dole.org
Contact :

Message par Carl »

Bienvenue au club des végeiste....!
prépare toi un cable carte son PC out ===> In VéGé
et si ça t'intérresse demande nous le double CD...voir :viewtopic.php?t=4856&postdays=0&postorder=asc&start=0
Carl
Avatar du membre
Stéphane Vanlierde
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2567
Enregistré le : 09 oct. 2002 16:10
Localisation : Marne la Vallée, Seine & Marne, France
Contact :

Message par Stéphane Vanlierde »

OK, je suis très en retard pour la fabrication des double-CDs, mais ça va venir, ne vous inquiétez pas (trop)...
Modifié en dernier par Stéphane Vanlierde le 12 mai 2004 13:06, modifié 1 fois.
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

Merci beaucoup de votre accueil :lol: je vais prendre mon temps et éssayer de faire bien. Je vais beaucoup consulter votre site. A chaque fois que je vois des cassettes sur des broc je flippe :wink:
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

Je progresse,je viens de l'ouvrir (manque une vis :( )
J'ai démonté la "carte mère" la petite carte de l'alimentation et le clavier sans les désassembler.
J'ai lavé le dessus et le dessous en plastique au liquide vaisselle à l'eau froide.
Après j'ai dépoussiéré les cartes au pinceau.
Pour le dessus du clavier j'ai nettoyé avec un coton tige mouillé à l'eau.

Extrait du mode d'emploi :
Chapitre 4 Conseils et précaution à prendre

Votre VG5000 n'est pas fragile;mais vous devez tout de même en prendre soin.

Qu'on ce le dise...non mais
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

mince ce n'est pas la carte d'alimentation mais la carte interface k7 :oops: ben je commence bien :oops:
Avatar du membre
Carl
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2542
Enregistré le : 03 janv. 2003 23:47
Localisation : www.dole.org
Contact :

Message par Carl »

balou a écrit :mince ce n'est pas la carte d'alimentation mais la carte interface k7 :oops: ben je commence bien :oops:
Yo !
oh oui, l'alim est externe...et la petite carte est effectivement l'interface k7 mais aussi pour le son !
et si tu avais un végé 1.0, tu aurais une 3eme petite carte avec 2 chips qui son la ROM de la bête...voir sur le site végé ! :wink:

Carl
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

euh oui c'est sur le site que j'ai vu mon érreur...je me suis inscrit d'ailleur.
Le mien n'a pas la petite carte en plus.Bon pour le clavier c'est pas top ce que j'ai fait il y a encore des traces mais bon je vais y arriver.Il faut que j'y arrive.
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

bah voila...je viens de faire du Basic de vg 8) BONJOUR p 16 du manuel
un petit pas pour balou...pour le reste de l'humanité je ne sais pas :wink:
Avatar du membre
Carl
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2542
Enregistré le : 03 janv. 2003 23:47
Localisation : www.dole.org
Contact :

Message par Carl »

balou a écrit :bah voila...je viens de faire du Basic de vg 8) BONJOUR p 16 du manuel
un petit pas pour balou...pour le reste de l'humanité je ne sais pas :wink:
Maintenant que tu as le clavier en main...voila un ptit jeu "Jackpot"....à toi de jouer ! :roll:
Carl

1 SETET 032,"00000000FF0000000000":SETET 033,"08080808080808080808"
2 SETET 034,"000000000F0808080808":SETET 035,"080808080F0000000000"
3 SETET 036,"08080807":SETET 037,"00000000F80808080808"
4 SETET 038,"00000000FF0808080808":SETET 039,"08080808FF0000000000"
5 SETET 40,"DBC3001818181800C3DB":SETET41,"78FCFE1B191818181818":SETET42,"818199A5C3C3C3C3A599":SETET 43,"FF8181FF1818FF8181FF"
6 SETET 44,"FFBFA3A3A3A3BF8181FF":SETET45,"00003C4281818181423C":SETET46,"000081423C3C3C3C4281":SETET 47,"FF7E7E3C181818181818"
7 SETET 48,"18183C181818187E3CDB":SETET 49,"18186666C3C366661818"
10 REM JACKPOT
20 INIT 0,0:GOSUB1000:TX 4,7,1:CURSORX13:CURSORY3:PRINT"J A C K P O T ":CURSORX 13:PRINT"J A C K P O T "
30 INIT 0,0:FOR T=12 TO 27:CURSORXT:CURSORY 2:PRINT" ":CURSORX T:CURSORY 5:PRINT" ":NEXT T:FOR T=3 TO 4:CURSORYT:CURSORX 11
40 PRINT"!":CURSORY T:CURSORX 28:PRINT"!":NEXT T:CURSORX 11:CURSORY2:PRINTCHR$(34):CURSORX 11:CURSORY 5:PRINT"#"
50 CURSORX 28:CURSORY 5:PRINT"$":CURSORX 28:CURSORY 2:PRINT"%"
51 DISPLAY1:PLAY"O2ABCDBCDBAAO3AFEGEAO1DBCCBAAAA":RESTORE9000
60 TX 5,0,0:X=3:Y=7:GOSUB2000:X=3:Y=9:GOSUB2000:X=3:Y=11:GOSUB2000:X=14:Y=13:GOSUB2000
61 PLAY"ABDCBAAA":FOR T=1 TO 120 STEP 5SOUNDT,1,100:NEXT T:GOSUB3000
70 INIT 0,0:GOSUB1000:TX 5,3,0:CURSORX4:CURSORY 3:A$="C H O I X D E S O P T I O N S ":PRINTA$:CURSORX 4:PRINTA$
71 RESTORE-9005
75 CURSORX 4:A$="- - - - - - - - - - - - - - - - - ":PRINTA$:CURSORX 4:PRINTA$
80 TX 7,0,0:FOR D=8 TO 14 STEP 2:X=3:Y=D:GOSUB2000:NEXT D
85 FOR WW=1 TO 200:NEXT WW:WW=KEY(0):IF WW<49 OR WW>57 THEN85
90 PRINTCHR$(WW);".":S=WW-48:FOR WW=1 TO S:DISPLAY1:SOUND 20*WW,4,0:NEXT WW
95 FOR D=16 TO 18 STEP 2:X=3:Y=D:GOSUB2000:NEXT D:GOSUB3000
100 INIT 0,0:GOSUB1000:ET7:FOR T=6TO 14:CURSORXT:CURSORY 5:PRINT" ":CURSORY 5:CURSORX T+10:PRINT" ":CURSORX 20+T:CURSORY5
105 PRINT" ":CURSORXT:CURSORY12:PRINT" ":CURSORX 10+T:CURSORY 12:PRINT" ":CURSORX 20+T:CURSORY 12:PRINT" ":NEXT T
110 FOR T=6 TO 11:CURSORY T:CURSORX 5:PRINT"!":CURSORY T:CURSORX35:PRINT"!"
120 CURSORYT:CURSORX 15:PRINT"!":CURSORY T:CURSORX 25:PRINT"!":NEXTT
130 CURSORY5:CURSORX15:PRINT"&":CURSORY 5:CURSORX25:PRINT"&":CURSORY12:CURSORX15:PRINT"":CURSORY 12:CURSORX 25:PRINT""
135 CURSORY 5:CURSORX 5:PRINTCHR$(34):CURSORY 12:CURSORX 5:PRINT"#":CURSORY 12:CURSORX 35:PRINT"$":CURSORY 5:CURSORX 35:PRINT"%"
140 TX 3:FOR X=6TO11STEP5:FOR A=0TO20 STEP10:FOR T=6 TO 14:CURSORXT+A:CURSORYX:PRINTCHR$(127):NEXTT,A,X
145 FOR G=0 TO 20STEP10:FOR X=6 TO 14 STEP8:FOR Y=6 TO 11:CURSORY Y:CURSORX G+X:PRINTCHR$(127):NEXT Y,X,G
150 FOR T=5 TO11:CURSORYT:READ W$:CURSORX2:TX INT(RND(1)*6+1),2,0:PRINTW$;" ":NEXT T
160 FOR T=5 TO 11:CURSORY T:CURSORX37:TX INT(RND(1)*6+1),2,0:READ W$:PRINTW$;" ":NEXT T
165 TX 7,0,0:CURSORX 3:CURSORY 2:PRINT"SOLDE EN PIECES=";S;" ":ET5:FOR T=3 TO 18+LEN(STR$(S)):CURSORX T:CURSORY 3:PRINT" ":NEXT T
166 TX 7,0,0:FOR T=18 TO 21:CURSORYT:CURSORX2:PRINTSPC37):NEXT T
170 CURSORX3:CURSORY 14:TX 7:PRINT"PLUS IMPORTANTE MISE=";PIM:CURSORX 3:CURSORY15:PRINT"PLUS GROS GAIN=";PLG
180 ET5:FOR T=3 TO 19+LEN(STR$(PLG)):CURSORX T:CURSORY16:PRINT" ":NEXT T
185 TX 7,0,0:CURSORX 3
190 CURSORY18:PRINT"POUR COMMENCER TAPEZ RET."
191 CURSORX 3:CURSORY 17:PRINTSPC34)
195 TX 7,3,0
196 FOR F=9 TO 29 STEP 10
197 FF=(F-9)/10+1:FF$=STR$(FF):FF$=RIGHT£(FF$,1)+" "
198 CURSORY 8:CURSORX F:PRINTFF$:CURSORX F:PRINTFF$:NEXT F
199 TX 7,0,0
200 FLG=0:FOR T=1 TO 200:NEXT T:A=KEY(0):IF A<>13 THEN200
201 VERO=S+1:CURSORX3:CURSORY18:PRINTSPC34)
202 IF S>20 THEN VERO=21:G0T0203
203 CURSORY 17:CURSORX 3:PRINT"ENTREZ VOTRE MISE: 0<MISE<";VERO;"="
204 FOR T=1 TO150:NEXT T:A=KEY(0):IF(A <48 OR A>57)AND A<>13 THEN204
205 IF FLG=1THEN208
206 L1=A-48:IFL1<0THEN204
207 CURSORY 17:CURSORX 34:PRINTL1:FLG=1:FOR T=1TO 500:NEXT T:G0T0204
208 IF A=13 THEN L2=L1:L1=0:G0T0217
216 L2=A-48:L1$=STR$(L2):CURSORY17:CURSORX36:L2$=RIGHT£(L1$,1):PRINTL2$
217 FOR T=1 TO 500:NEXT T
219 MIMI=10*L1+L2
224 IF MIMI>VERO-1 OR MIMI<1 THEN CURSORY 17:CURSORX 34:PRINT" ":PLAY"ABCBCA":FLG=0:G0T0203
225 IF MIMI>PIM THEN PIM=MIMI
226 DISPLAY1:PLAY"O1AO2AO3AO4AO1ABO2ABO1AAO3A":DISPLAY20
227 S=S-MIMI
250 CURSORY 20:CURSORX 2:PRINT"TAPEZ 1 2, 3 POUR STOPPER LE JACKPOT"
260 A1=0:A2=0:A3=0
261 G=0:FOR T=1 TO 150STEP3:SOUNDT,0,0:NEXT T:A=KEY(0):IF A<49 OR A>51 THEN261
262 ON A-48 G0T0300,ON,
300 IF A1=1 THEN G0T0261
310 NBJ=0:A1=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A2<>1THEN261
320 IF A3<>1 THEN261
330 G0T07000
400 IF A2=1 THEN261
410 NBJ=1:A2=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A1<>1 THEN261
420 IF A3<>1 THEN261
430 G0T07000
500 IF A3=1 THEN261
510 NBJ=2:A3=1:GOSUB8000:GOSUB8200:GOSUB8400:IF A2<>1 THEN261
520 IF A1<>1 THEN261
530 G0T07000
704 IF A=113 THEN6000
1000 ET 7,0,0:FOR T=2 TO 38:CURSORX T:CURSORY 1:PRINT" ":CURSORX T:CURSORY 22:PRINT" ":NEXT T
1010 FOR T=2 TO 21:CURSORY T:CURSORX 1:PRINT"!":CURSORY T:CURSORX 39:PRINT"!":NEXT T
1020 CURSORY1:CURSORX 1:PRINTCHR$(34):CURSORY22:CURSORX1:PRINT"#"
1030 CURSORY22:CURSORX39:PRINT"$":CURSORX39:CURSORY1:PRINT"%"
1040 RETURN
1850 DATA 32,L,e, ,J,A,C,K,P,O,T, ,e,s,
2000 DISPLAY1:READ L$:CURSORYY:CURSORX X:FOR T=1 TO VAL(L$):READ F$:IF F$=""THEN PRINT" ";:G0T02020
2010 PRINTF$;:SOUND 20,0,50:SOUND 5*T,0,5
2020 DISPLAY20:NEXT T:RETURN
3000 TX 7,0,0:CURSORX 9:CURSORY 21:PRINT"tapez ";:TX 7,4,0:PRINT"RET";:TX 7,0,0:PRINT" pour continuer."
3010 FOR WW=1 TO 200:NEXT WW:WW=KEY(0):IF WW=13 THEN RETURN
3020 G0T03010
4000 REM PERDU
4001 PLAY"O4FEDCBAO3FEDCBAO1FEDCBA"
4010 FOR T=1 TO 2000:NEXT T
4020 INIT0,0:GOSUB1000
4030 TX 7,3,0:CURSORX 3:CURSORY 10:PRINT"P E R D U . ":CURSORX 3:PRINT"P E R D U . "
4040 TX 7,0,0:CURSORX 3:CURSORY 15:PRINT"TAPEZ RET POUR UNE AUTRE PARTIE."
4060 FOR T=1 TO 100:NEXT T:A=KEY(0):IF A<>13 THEN4060
4080 G0T070
6000 REM SORTIE
6005 PLAY"ABBACO2CABCACO3AAA"
6010 DISPLAY20:INIT0,0:GOSUB1000:CURSORX 10:CURSORY 10:TX 7,3,0
6020 PRINT"B R A V O . ":CURSORX 10:PRINT"B R A V O . "
6040 TX 7,0,0:CURSORY 5:CURSORX 3:PRINT"VOTRE SOLDE EN PIECES EST DE";S;"."
6050 G0T04040
7000 REM DEPOUILLEMENT
7001 O=0
7004 TX7,0,0:CURSORX 2:CURSORY 20:PRINTSPC36)
7010 PLAY"O1T10ABDEFA"
7020 IF CL(0)=CL(1)AND CL(1)=CL(2)THEN G=G+4+2*MIMI:CURSORX3:CURSORY 18:PRINT"BONUS DE 3 COULEURS. ":O=1:G0T07030
7025 IF CL(0)=CL(1)ORCL(1)=CL(2)ORCL(0)=CL(2)THENCURSORX 3:CURSORY18:PRINT"BONUS PAIRE DE COULEURS.":G=G+2*MIMI:O=1
7030 IF AL(0)=AL(1)AND AL(2)=AL(1)THEN G=10+2*MIMI:CURSORX3:CURSORY 19:TX 7,0,0:PRINT"BONUS 3 FIGURES.":O=1
7031 IF AL(0)=AL(1)AND AL(1)=AL(2)AND AL(0)=0THEN G =G+MIMI:G0T07300
7032 IFAL(0)=AL(1)ORAL(0)=AL(2)ORAL(2)=AL(1)THENCURSORX3:CURSORY20:O=1:PRINT"BONUS PAIRE DE FIGURES.":G=G+2*MIMI:PLAY"AA"
7038 S=S+G:IF S=0 THENCURSORX 3:CURSORY20:PRINT"PLUS DE PIECE.":FOR T=1 TO 2000:NEXT T:G0T04000
7039 IF O=0 THEN CURSORX3:CURSORY20:PRINT"PERDU.PAS DE BONUS.":PLAY"O1DCBA"
7040 TX 7,0,0:CURSORY 21:CURSORX 3:PRINT"TAPEZ RET POUR REJOUER,Q POUR SORTIR"
7045 FOR T=1 TO 100:NEXT T:A=KEY(0):IF A<>13 ANDA<>113 THEN7045
7046 IF A=113 THEN6000
7050 IF G>PLG THEN PLG=G
7070 G0T0165
7300 REM JACKPOT
7400 PLAY"O1AAAAO2AAAAO3AAAAO4AAAAO3BBO2BBO1BBO2BCAO1BCA"
7500 CURSORY18:CURSORX3:TX 5,0,1:PRINT"JACKPOT BRAVO. SUPER BONUS"
7600 G0T07038
8000 AL=RND(1)*10:AL(NBJ)=INT(AL)
8001 RETURN
8200 CL=RND(1)*6+1:CL(NBJ)=INT(CL)
8201 RETURN
8400 REM AFFICHAGE
8410 ET CL(NBJ),3,0
8411 PLAY"ACDACDO1ACDO4ABCDCA"
8415 DISPLAY1
8420 LO=40+AL(NBJ)
8430 CU=9+10*NBJ:C$=CHR$(LO):CURSORY8:CURSORXCU:PRINTC$;" ":CURSORXCU:PRINTC$;" "
8445 DISPLAY 20
8450 RETURN
9000 DATA 32,L,e, ,J,A,C,K,P,O,T, ,e,s,t, ,u,n, ,j,e,u, ,d,e, ,h,a,s,a,r,d,.
9001 DATA 33,O,n, ,m,i,s,e, ,e,t, ,o,n, ,g,a,g,n,e, ,o,u, ,o,n, ,p,e,r,d,.,.,.
9002 DATA 33,e,t, ,p,a,r,f,o,i,s, ,c,,e,s,t, ,l,e, ,g,r,o,s, ,l,o,t,.,c,e,s,t,11,l,e, ,J,A,C,K,P,O,T,.
9005 DATA 32,L,a, ,b,a,n,q,u,e, ,t,e,n,u,e, ,p,a,r, ,V,G, ,5,0,0,0, ,v,o,u,s,31,d,o,n,n,e, ,u,n, ,s,o,l,d,e, ,i,n,i,t,i,a,l, ,q,u
9010 DATA i, ,p,e,u,t,33,v,a,r,i,e,r, ,e,n,t,r,e, ,1, ,p,i,,c,e, ,e,t, ,9, ,p,i,,c,e,s,.
9020 DATA 31,C,h,o,i,s,i,s,s,e,z, ,c,e, ,s,o,l,d,e, ,(,0,<,S,<,1,0,), ,S,=
9025 DATA32,C,h,a,q,u,e, ,m,i,s,e, ,s,e,r,a, ,a,u, ,m,i,n,i,m,u,m, ,d,e, ,1,33,j,e,t,o,n, ,e,t, ,a,u, ,m,a,x,i,m,u,m, ,d,e
9030 DATA ,2,0, ,j,e,t,o,n,s,.,J,A,C,K,P,O,T,J,A,C,K,P,O,T
10000 PRINTKEY(0):G0T010000
Avatar du membre
balou
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2644
Enregistré le : 02 févr. 2004 23:01
Localisation : Macon Saone et Loire

Message par balou »

euh...je débute moi :!: ...en plus je n'ai pas de périphérique pour enregistrer
d'ailleur est ce qu'un magnétophone classique comme j'en vois en broc fait l'affaire :?: même question pour les cassettes svp (j'ai vu sur le site pour le cordon merci)

Votre VG5000 n'est pas fragile :wink:
Avatar du membre
fabrice93fr
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4135
Enregistré le : 28 mai 2002 15:45
Localisation : noisy le grand
Contact :

Message par fabrice93fr »

carl : sais tu jusqu'a quel numero de serie peut on esperer trouver un vg 1.0

merci

fab
Avatar du membre
Carl
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2542
Enregistré le : 03 janv. 2003 23:47
Localisation : www.dole.org
Contact :

Message par Carl »

fabrice93fr a écrit :carl : sais tu jusqu'a quel numero de serie peut on esperer trouver un vg 1.0

merci

fab
Hi Fabrice,
Les 2 Végé 1.0 que je connaisse c'est celui de Stéf et le mien.
le mien a le N°SF00432_190981 basic 1.0 Philips VG5000/19.
et d'après un article dans le magazine « Hauts Parleurs » ils existent très peu de machines 1.0...au vu du n° de série moins de 500 machines (à confirmer) ?

comme je l'ai spécifié sur le site Végé :
Notez bien que le VG5000 en version basic 1.0 était prévu au départ avec un seul circuit ROM du type TMS47128 de 16Ko. Mais suite à un défaut d'approvisonnement, le VG5000 sera provisoirement équipé de deux circuits ROM type TMS4764 de 8Ko (quelques centaines d'unités en sont équipées).

Pour la version basic 1.1, Philips utilisera un circuit ROM 9128C de chez GI.

Carl
Avatar du membre
fabrice93fr
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4135
Enregistré le : 28 mai 2002 15:45
Localisation : noisy le grand
Contact :

Message par fabrice93fr »

merci carl...
Avatar du membre
ArBr
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 823
Enregistré le : 14 nov. 2002 11:40
Localisation : Nord (59)
Contact :

Message par ArBr »

Carl a écrit :Les 2 Végé 1.0 que je connaisse c'est celui de Stéf et le mien.
Si tu veux mettre ta liste à jour des possesseur de Végé 1.0, tu peux aussi me rajouter.

Voici l'objet en question avec ses petits frères :
Image
Carl a écrit :le mien a le N°SF00432_190981 basic 1.0 Philips VG5000/19.
Le problème pour moi c'est que c'est le seul VG5000 de ma collection qui n'a pas de numéro de série (plus d'étiquette en fait :cry: )
Répondre

Retourner vers « Philips VG-5000 »