Forum Liberty Basic France : Voir tous les messages du membre

   Le 29/11/2022 à 15h59 Jeux » Pouic
Atomose, tu a demandé un jeux
En voilà un--->: pouic.zip
Le but: détruire les extraterrestres avec le clic gauche de la souris.
   Le 15/11/2022 à 16h32 Général » Post it
Il y a un "pourquoi" au: "comment"
A toi de trouver...
   Le 10/11/2022 à 19h20 Général » Post it
Le soft est sous le message: (Soft LB)
Mais pour soulager le stockage du site, les DLL, qui sont communes à tous les softs, sont stockées séparément.
Tu dois télécharger: "Coco.zip"
Et "DLL (LB).zip".
Qui décompressés vont donner deux dossiers ("coco", et "DLL (LB)").
Mets tout le contenu de: "DLL (LB)" dans: "coco".
Renomme: "dll.exe" en-->: "coco.exe"
(S'il n'y a pas d'extension (.exe), ne mets pas d'extension).
Deux zips:
Dernière modif le: 27/11 à: 12h10
Ajout dans le zip d'un: "cocox.bas" et: "cocox.tkn"
Qui ajoute la date au début du contenu ) chaque création ou modification
Pour avoir l'ee: faire une copie de "coco.exe" dans le dossier et la renommer: "cocox.exe"

coco.zip Et--->: DLL (LB).zip
   Le 29/10/2022 à 10h21 Général » Courbes de niveaux
Ce zip contient deux softs.
"trace.bas": Permet de tracer des courbes de niveaux.
"image.bas": Reprend ces courbes et les colorise.
Pour avoir des exécutables, c'est simple:
- Télécharger: "DLL.zip"
- La décompression créera un dossier: "DLL".
- Verser tout le contenu de: "DLL" dans--->: "courbe de niveau".
- Renommer: "jbrun101.exe" en--->: "image.exe".
- Faire une copie de: "image.exe" dans le dossier.
- La renommer: "trace.exe".
Les deux exe peuvent êtres ouverts simultanément.

C'est là--->: courbe de niveau.zip
Et là--->: DLL.zip
Ok, je contacte jagang, on verra bien ce qu'il décide.
Navigateur---> Firefox
C'est bon ton nouveau lei accepte mon "vieux" navigateur.
Hey, tu n'a pas donné de réponse concernant l'hébergement/gestion du site, what is ?
Ton lien (Mega) veut encore me faire mettre à jour mon navigateur qui marche très bien partout sur le net, sauf pour Mega.
Et moi, je ne veux pas de mises à jour qui ne respectent pas la rétrocompatibilité, parce que: "Qui dit pouvoir le "plus" doit pouvoir le "moins".
Quand cette condition n'est pas respectée, ce n'est pas un progrès, c'est une contrainte.
   Le 04/08/2022 à 14h17 Général » Presse Papier
Avec l'aide d'Anatoly alias tsh73 du forum anglophone
Attention: Ce soft crée un nouveau fichier horodaté dans le dossier à chaque lancement si heure différente
Tant que le soft est ouvert (lancé), chaque "copy" est ajouté dans le fichier en cours.
Le presse papier est lu toutes les 2 secondes.
C'est là--->: presse-papier.zip
   Le 12/07/2022 à 10h46 Général » Casino
Fonctionnement:
Clic Droit sur les jetons
Clic Gauche pour poser sur le tapis
L'avoir est à 50 par défaut (modifiable dans le textbox).

Pour avoir l'exécutable:
Prendre: "casino.zip" et: "dll.zip"
Mettre le contenu de "DLL" dans: "casino"
Renommer: "dll" en--->: "casino"
Note: Si "dll.exe"--->: "casino.exe"

Dernière modif le: 16/07 à: 08h56
Ajout d'un bouton pour fixer le jeu, ce qui permet d'étudier des martingales.
Ajout d'une mémorisation des "G" gagné; "P" perdu pour le jeu fixé et proba
C'est là--->: casino.zip Et là--->: DLL.zip
   Le 03/07/2022 à 13h27 Général » Nombre de Jours
Nombre de jours de date à date.
Modif le 04/06 à 11H34
Deux formats disponibles
M/J/A et: J/M/A
Code VB :
 
 
    NOMAINWIN
     mapw=350: maph= 300
    WindowWidth=mapw+15: WindowHeight=maph+40
    UpperLeftX = 10: UpperLeftY = 20
    mois$ = "Janvier Février Mars Avril Mai Juin Juillet Aout Septempbre Octobre Novembre Décenbre"
    today$ = date$("mm/dd/yyyy")
    j = date$(today$)
    jsem$ = word$("Mar Mer Jeu x Ven Sam x Dim Lun",int((j/7-int(j/7))*10)+1)
    date$ = jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+" "+left$(time$(),5)'right$(today$,4)
    BUTTON #w.conv, "/", [conv], UL, 20, 35, 25, 25
    TEXTBOX  #w.deb, 20 , 70, 150, 30
    TEXTBOX  #w.fin, 190 , 70, 150, 30
    BUTTON #w.c, "C", [c], UL, 310, 35, 25, 25
    BUTTON #w.valdeb, "Valider", [valdeb], UL, 45, 110, 100, 25
    BUTTON #w.valfin, "Valider", [valfin], UL, 210, 110, 100, 25
    BUTTON #w.calc, "Calculer", [calc], UL, 125, 150, 100, 25
    TEXTBOX  #w.resu, 90 , 190, 170, 30
    TEXTBOX  #w.dat, 60 , 250, 250, 25
   GRAPHICBOX #w.g, 5, 5, mapw, maph
    OPEN "Jours de date à date" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.deb, "!font courrier 14 bold": #w.fin, "!font courrier 14 bold": #w.resu, "!font courrier 14 bold"
    #w.valdeb, "!font courrier 12 bold": #w.valfin, "!font courrier 12 bold"
    #w.dat, "!font courrier 12 bold": #w.calc, "!font courrier 12 bold"
    #w.g, "down;fill darkpink;color white;backcolor darkpink"
    #w.g, "font courrier 12 bold"
    #w.g, "place 70 20": #w.g, "\Début": #w.g, "place 240 20": #w.g, "\Fin"
    #w.g, "place 110 50": #w.g, "\Mois / Jour / Année" : #w.g, "place 10 260": #w.g, "\Date:"
    #w.deb, "1/1/1901": #w.fin, "1/1/1901"
    #w.g, "flush"
    d$ = date$( ): dd$=right$(d$,4)
    date$= jsem$+" "+mid$(today$,4,2)+" "+word$(mois$, val(today$))+" "+dd$+"  "+left$(time$(),5)'********
    #w.dat, date$
    #w.calc, "!disable"
    c=1
  wait
  [conv]
    c=c+1: if c=3 then c=1
    if c=1 then conv=0
    if c=2 then conv=1
    if conv=0 then
      #w.g, "color darkpink;backcolor darkpink"
      #w.g, "place 105 30": #w.g, "boxfilled 270 55"
      #w.g, "color white;backcolor darkpink"
      #w.g, "place 110 50": #w.g, "\Mois / Jour / Année"
    end if
    if conv=1 then
      #w.g, "color darkpink;backcolor darkpink"
      #w.g, "place 105 30": #w.g, "boxfilled 270 55"
      #w.g, "color white;backcolor darkpink"
      #w.g, "place 110 50": #w.g, "\Jour / Mois / Année"
    end if
    #w.conv, word$("/ \",c)
  wait
  [c]
    #w.resu, ""
  wait
  [valdeb]
    #w.deb, "!contents? deb$": deb=val(deb$): #w.dat, "!contents? date$"
    jdeb=date$(deb$): d=1
    if conv=1 then
      jo$="": mo$="": d$=""
      an$=right$(deb$,4)
      for x=1 to 3
        jo$=jo$+mid$(deb$,x,1)
        if mid$(deb$,x,1)="/" then s1=x: exit for
      next x
      for x=s1+1 to s1+3
        mo$=mo$+mid$(deb$,x,1)
        if mid$(deb$,x,1)="/" then exit for
      next x
      d$=mo$+jo$+an$
      jdeb=date$(d$): d=1
    end if
    if d=1 and f=1 then #w.calc, "!enable"
  wait
  [valfin]
    #w.fin, "!contents? fin$": fin=val(fin$): #w.dat, "!contents? date$"
    jfin=date$(fin$): f=1
    if conv=1 then
      jo$="": mo$="": f$=""
      an$=right$(fin$,4)
      for x=1 to 3
        jo$=jo$+mid$(fin$,x,1)
        if mid$(fin$,x,1)="/" then s1=x: exit for
      next x
      for x=s1+1 to s1+3
        mo$=mo$+mid$(fin$,x,1)
        if mid$(fin$,x,1)="/" then exit for
      next x
      f$=mo$+jo$+an$
      jfin=date$(f$): f=1
    end if
    if d=1 and f=1 then #w.calc, "!enable"
  wait
  [calc]
    #w.resu, str$(jfin-jdeb);"  Jours": d=0: f=0
  wait
  [closeHelp]
    CLOSE  #w
    END
 
 

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté