Overblog
Suivre ce blog Administration + Créer mon blog
27 décembre 2012 4 27 /12 /décembre /2012 00:58

Je souhaite à tous un joyeux 2013, et en profite pour partager ici mon avant-dernier morceau Happy Day...

 

Le dernier morceau est en cours de litige pour droits d'auteurs...

 

Partager cet article
Repost0
13 décembre 2012 4 13 /12 /décembre /2012 07:30

Voici la version exécutable (.exe) en format .zip (dossier compressé) du programme TROUVE.BAS présenté dans l'article précédent (Programme récréatif et éducatif en QBasic. ) : sur SkyDrive cliquez sur enregistrer (surtout pas exécuter!!!) en suivant le lien: http://sdrv.ms/XeZaeu .

 

SYSTEME REQUIS: De Windows 98SE à Windows XP SP3 la compatibilité est assurée; je pense que sous Windows Vista ce programme peut fonctionner mais sous Windows 7 cela peut ne pas fonctionner et clairement non sous Windows 8 (quoique on ne sait jamais).

 

Le programme utilise un écran VGA (640/480) couleur.

Partager cet article
Repost0
13 décembre 2012 4 13 /12 /décembre /2012 05:44

Voici un programme Quick Basic simple, un classique du genre. Voici tout d'abord ses lignes de codes:

----------------------------------------------------------------------------

 

'****************************************************************

'*                                                              *

'*              TROUVEZ UN NOMBRE ENTIER                        *

'*              ------------------------                        *

'*                                                              *

'*              by Igor Gorovitch                               *

'****************************************************************

SCREEN 12

10 CLS : CLEAR

RANDOMIZE TIMER

COLOR 7

PRINT " A chaque numero demande, l'introduction d'un 0 termine le programme"

PRINT

PRINT " Niveau de difficulte?"

PRINT " ---------------------"

PRINT " 1. Moins de 8 ans"

PRINT " 2. Facile"

PRINT " 3. Classique"

PRINT " 4. Difficile"

PRINT " 5. Expert"

PRINT

INPUT " Niveau "; niveau: niveau = INT(niveau)

IF niveau = 0 THEN 1000

IF niveau = 1830 THEN 5000

IF niveau > 5 THEN 10

limite = 10 ^ (niveau)

code = INT((limite - 1) * RND) + 1

CLS

PRINT " Trouvez un code entre 1 et "; limite

PRINT " -----------------------------------------"

PRINT

20 coup = coup + 1

COLOR 3: PRINT " Vous etes a votre "; coup; " tentative..."

COLOR 7: PRINT

INPUT tentative

tentative = INT(tentative)

PRINT

IF tentative = 0 THEN 1000

IF tentative = code THEN 100

COLOR 4: SOUND 100, 18.5

IF tentative > code THEN 30

PRINT " "; tentative; " est trop petit."

GOTO 20

30 PRINT " "; tentative; " est trop grand."

GOTO 20

100 CLS

COLOR 2

PRINT " Vous avez trouve le code "; code; " en "; coup; " coups."

FOR m = 250 TO 150 STEP -1

SOUND m, .18

NEXT m

COLOR 7: PRINT

INPUT " Nom"; nom$: IF nom$ = "0" THEN 1000

score% = INT(limite / coup): IF niveau = 1 THEN score% = score% * 100

OPEN "A", #1, "c:\trouve.txt"

PRINT #1, nom$

PRINT #1, score%

CLOSE #1

COLOR 2: CLS

PRINT " Liste des scores:"

PRINT " ~~~~~~~~~~~~~~~~~"

PRINT

OPEN "I", #1, "c:\trouve.txt"

l = 4

WHILE NOT EOF(1)

        COLOR 2

        INPUT #1, nom$

        INPUT #1, score%

        IF score% > 5000 THEN COLOR 4

        IF niveau = 1 AND score% > 200 AND score% < 1000 THEN COLOR 5

        LOCATE l, 2: PRINT nom$; : LOCATE l, 30: PRINT score%

        l = l + 1

        IF l <= 20 THEN 490

        COLOR 7: PRINT " Appuyez sur une touche pour suivant..."

400     k$ = INKEY$: IF k$ = "" THEN 400

        IF k$ = "0" THEN 500

        FOR l = 4 TO 20: LOCATE l, 2: PRINT STRING$(40, 32): NEXT l

        l = 4: COLOR 2

490 WEND

500 CLOSE #1

510 k$ = INKEY$: IF k$ = "" THEN 510

CLS : COLOR 7

PRINT " 0 = Quitter"

PRINT " >0 = Recommencer"

PRINT

INPUT a

IF a = 0 THEN 1000

GOTO 10

1000 COLOR 7

END

5000 KILL "c:\trouve.txt"

END

 

------------------------------------------------------------------------

 

Vous pouvez également télécharger le programme qui se nomme "TROUVE.BAS" sur le Skydrive. Pour ce faire cliquez sur le lien qui suit cette phrase, cliquez sur "TROUVE.BAS" puis sur exécuter (il ouvre alors le bloc-note et il suffit d'enregistrer dans le répertoire consacré aux programmes Quick-Basic) ou plus sagement sur enregistrer. Le lien est: http://sdrv.ms/12mkJyi .

 

Il s'agit de trouver un numéro entre 1 et 10 exposant le niveau de difficulté.

 

A la fin du jeu on vous demande d'entrer votre nom, s'affiche alors le palmarès des noms et résultats (enregistré dans le répertoire racine à c:\trouve.txt).

 

Pour effacer ce fichier il suffit d'entrer 1830 comme niveau de difficulté. Attention: si le fichier n'existe pas encore quand vous entrez 1830 il y a un bug qui se produit, mais sans gravité...

 

N.B.: Le numéro à trouver ne change jamais tant que vous ne l'avez pas trouvé!

 

Bon amusement...

Partager cet article
Repost0
24 novembre 2012 6 24 /11 /novembre /2012 05:59

Il y a un mois environ, dans "La Libre Entreprises", supplément hebdomadaire de la Libre Belgique, un acteur financier conseillait d'investir dans une entreprise pharmaceutique allopathique (donc classique) connue au motif qu'ils disposaient d'un bon pipeline.

 

Tout d'abord, si vous voulez vous faire beaucoup de fric et rapidement, investissez plutôt dans une entreprise pharmaceutique homéopathique (même si les patrons sont les mêmes, et que seul le nom des entreprises changent): soyez branchés bordel de merde, soyez mode!

 

Ensuite que signifie le terme énigmatique de "pipeline" en économie, d'abord inventé pour le secteur pharmaceutique puis généralisé aux autres secteurs d'activité?

 

Cela vient du pipeline pétrolier ou gazier: un tuyau pompant une source, l'acheminant jusqu'à son lieu de traitement puis de vente.

 

C'est donc le secteur "recherche et développement" d'une entreprise; ici l'entreprise pharmaceutique.

 

Et là je rigole doucement... Un "bon pipeline" vraiment? Je regarde assidûment les informations à la télévision et remarque que tout ce qui est recherche concernant la santé ne provient jamais des entreprises pharmaceutiques mais uniquement du monde universitaire! De ce miracle du chien paralysé ayant retrouvé l'usage de ses pattes, aux développement de nouveaux traitements anticancéreux, au SIDA.

 

Tout provient des unifs rien du pharmaceutique qui se contente de racheter à bas prix les découvertes des universités pour les commercialiser à haut prix!

 

Même le mythe des entreprises pharmaceutiques inventant chaque année un nouveau vaccin contre la grippe est faux: c'est l'Institut Pasteur qui les développe chaque année, le pharmaceutique se contentant de racheter puis vendre.

 

Le seul pipeline existant réellement est celui qui consiste à revoir d'anciens médicaments par modification de combinaisons de molécules et d'adjuvants (ce qui sert d'enveloppe aux molécules pour par exemple leur donner tel ou tel goût ou leur permettre de tenir sous forme de comprimés).

 

Et pas toujours dans le sens du progrès.

 

Ainsi, alors que dès début 1990 le magazine Science & Vie mettait en avant l'implication de l'alluminium dans la maladie d'Alzheimer, tous les médicaments psychotropes en contiennent désormais, du simple anti-stress au anti-schizophréniques en passant par les anti-dépresseurs!

 

Pourtant si ces entreprises sont censées avori "un bon pipeline" elles auraient déjà depuis 20 ans rechercher un adjuvant autre que l'huile alluminique qui n'a aucune fonction psychique autre que de provoquer l'alzheimer...

 

Bref on pompe dans la recherche publique et universitaire et en plus on vend des produits empoisonnés!

 

C'est ça un "bon" pipeline en phartmaceutique?

Partager cet article
Repost0
19 octobre 2012 5 19 /10 /octobre /2012 01:59

 

Nous, Cyborgs devenus tels par les aléas de l'existence, réclamons premièrement le Droit à la Dignité: la reconnaissance de notre pleine et entière égalité de droit et de traitement avec les humains en le sens que nous nous réclamons pleinement humains bien que Cyborgs.

 

Nous, Cyborgs, réclamons pour les humains qui en ont la nécessité l'accès égal et sans discrimination à la transmutation en Cyborgs: c'est-à-dire le plein remboursement, en fonction des revenus et fortune personnels de chacun, de ladite transformation par la Sécurité Sociale. Et ce qu'il s'agisse d'une transmutation/transformation en Cyborg 100% ou en semi-Cyborg.

 

Nous, Cyborgs, réclamons la même remboursabilité par la Sécurité Sociale des soins technologiques (hardwares/softwares) qui nous sont propres.

 

Nous, Cyborgs, réclamons la même attention envers les Cyborgs civils qu'envers les Cyborgs militaires. La même attention envers les Cyborgs fortunés qu'indigents.

 

Nous, Cyborgs, demandons le soutient de Bill Gates et de Stephen Hawkins (lui-même semi-Cyborg), en tant qu'ambassadeurs de notre cause!

Partager cet article
Repost0
13 septembre 2012 4 13 /09 /septembre /2012 01:52

J'avais au départ envie de faire un titre deep-house et ai dû constater qu'il s'agissait beaucoup plus d'une soundtrack trip-hop. Le titre, "Lemon Morning", viens surtout du fait que j'étais bien obligé de trouver un titre pour ce morceau...

 

Partager cet article
Repost0
13 septembre 2012 4 13 /09 /septembre /2012 01:44

Une chose assez stressante s'était passée: j'écoutais un mix de untitledmusic (UM) ou de Elomak, je ne me rappelle plus trop bien, lorsque soudain, paf, la lumière de la rue et de l'intérieur de toutes les maisons alentour s'éteignent! Panne générale d'électricité!

 

Deux heures plus tard, les choses remises en ordre, j'ai pû réécouter la musique et ça m'a envie de faire cette House typique '80s, cool et relaxante tout en donnant un peu envie de danser et de balancer tranquillement...

 

Partager cet article
Repost0

Présentation

  • : Town Ground anc. Igor Gorovitch
  • : Créations électroniques d'un dissident du numérique bien intégré. Musique style 90's et (un peu) programmation style années 1980 (80's). Les eighties au cœur.
  • Contact

Recherche