Forum Liberty Basic France

Projets open source » Astro-Lune Prévoir le collyre
Le 29/04/2012 à 00h04

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
Que dire de ce délire ? Je ne sais....Le zip est là:--> Astro.zip

Code JB :
 
 
 
  'd'aprés les études du physicien et astrologue hollandais:
  ' Dr.Ir.J.Van Slooten (Laboratoires "Philips")
  ' Les bugs sont de Roland (LaboratoRocambolesque du codeur fou)
NoMainWin
WindowWidth = 1000
WindowHeight = 750
UpperLeftX = Int((DisplayWidth-WindowWidth)/2)
UpperLeftY = Int((DisplayHeight-WindowHeight)/2)
 
    mois$ = "Jan Fév Mar Avr Mai Jun Jui Aou Sep Oct Nov Déc"
    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)
 
TEXTBOX #g.j, 840, 680, 45, 25
TEXTBOX #g.m, 890 , 680, 45, 25
TEXTBOX #g.a, 940 , 680, 45, 25
TEXTBOX #g.s, 895 , 500, 60, 25
   TEXTBOX #g.t, 10 , 680, 45, 25
'button #g, "deb", [deb], UL, 170, 680
button #g, "Qui suis-je ?", [stop], UL, 870, 550
button #g, "New", [ini], UL, 790, 680
Open "Astro-Lune..."+space$(10)+date$ For Graphics_nsb_nf As #g
#g "Down; TrapClose [quit]"
  GLOBAL dd, m, yy
              Print #g, "When rightButtonUp ButtonLeftUp"' a suprimer
 
a$="R R I E R R E R R R R R R E R R R C I P P M I C" '1
b$="A E D X E E R E E E E E E R E E E O N R H E N O" '2
c$="I F E P M D I E S T V L D I I D N M S O I D T M" '3
d$="S O A L E I U R O N R U I A F I R M T P L I E B" '4
e$="O R L O M A R C P E E T U R I S E E R A O T R I" '5
f$="N M I R O . T . P M S S Q T C E V N U G S E V N" '6
g$="N E S E R . S . O I B O I S A R U D I E O R E E" '7
h$="E R E R E . N . . R O P L B P P O E R R P . N R" '8
i$="R . R . R . O . . E . . . A . . G R E . H . I ." '9
j$=". . . . . . C . . P . . . . . . . . . . E . R ." '10
k$=". . . . . . . . . X . . . . . . . . . . R . . ." '11
l$=". . . . . . . . . E . . . . . . . . . . . . . ." '12
m$="150 120 90 60 30 0 330 300 270 240 210 180" 'm
[ini]
 #g " fill 0 32 96" '; flush"
 Print text(840,630,"Date de Naissance")
     #g,"Color yellow; BackColor 0 32 96"
     Print text(845,670,"Jour")
     Print text(895,670,"Mois")
     Print text(940,670,"Année")
Print text(15,670,"V rot")
 
   pi2 = 6.283185'Atn(1)*8.0
   cx=450:cy=375:stepSize = pi2/24.0 'emplacem:"pas"
   jo=.2:sto=0:ti=1200 'pas: flag: tempo/cycle
   PRINT #g.j, "":PRINT #g.m, ""  'efface textbox
   PRINT #g.a, "":PRINT #g.s, ""
   dd=0:m=0:yy=0  'jout:mois:année
   print #g.t, ""
  '------------------------------------
     Print #g,"home"      'cercle exrerieur
     #g,"Color black; BackColor 0 32 96"
     print #g, "place 453 372"
      Print #g,"circlefilled 300"
  '**********************
[deb]
goto [delay]
[go]
  timer 0
   Print #g,"home"      'efface ancien
     #g,"Color  0 32 96"
     print #g, "place 453 372"
      Print #g,"circlefilled 295"
 
    Print #g,"home"
     #g,"Color white; BackColor 0 32 96" 'cercle central
     print #g, "place 453 372"
      Print #g,"circle 40"
 
  print #g, "place 445 383"
  print #g, "font arial 24 "
  print #g,"\?"
  print #g, "font arial 10"
 
    '---*----*----*----*----*---*---*
   '1111 A                           premieres lettres interieur
      j=j+jo:radius=60:k=1
      #g,"Color white; BackColor 0 32 96"
          For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(a$,k))
     k=k+1
     Next i
   '2222222  B                       deuxièmes......
      j=j+jo:radius=75:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(b$,k))
     k=k+1
     Next i
       '333333333  C
      j=j+jo:radius=90:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(c$,k))
     k=k+1
     Next i
   '4444444 D
      j=j+jo:radius=105:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(d$,k))
     k=k+1
     Next i
   '55555 E
      j=j+jo:radius=120:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(e$,k))
     k=k+1
     Next i
    '66666 F
     j=j+jo:radius=140:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
       Print text(nx,ny,word$(f$,k))
     k=k+1
    Next i
        '7777 G
      j=j+jo:radius=160:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(g$,k))
     k=k+1
     Next i
        '888 H
      j=j+jo:radius=180:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(h$,k))
     k=k+1
     Next i
       '9999 I
      j=j+jo:radius=200:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(i$,k))
     k=k+1
     Next i
     '10 10 J
      j=j+jo:radius=220:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(j$,k))
     k=k+1
     Next i
  '11  11   K
      j=j+jo:radius=240:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(k$,k))
     k=k+1
     Next i
  '12  12 L
        j=j+jo:radius=260:k=1
     #g,"Color white; BackColor 0 32 96"
     For i = stepSize To pi2 Step stepSize
      nx = Cos(i+j)*radius + cx
      ny = Sin(i+j)*radius + cy
      Print text(nx,ny,word$(l$,k))
     k=k+1
     Next i
    '--*--*--*---*---*---*---*---*---*
if sto = 0 then goto [deb]  'test flag
if sto = 1 then gosub [ext]
 
wait
 
[ext]
   print #g.j, "!contents? var$"  'saisie jour
     dd = val(var$)
   print #g.m, "!contents? var$"  'saisie mois
     m = val(var$)
   print #g.a, "!contents? var$"  'année
     yy = val(var$)
 
  if dd=0 or m=0 or yy=0 then       ' manque date
        #g,"Color red; Size 3; Place ";840;" ";620
        Print text(820,620,"Il manque quelque chose"):goto [ini]
  end if
 
  Print text(840,620,"                             ")'efface manque date
 'radi=320           ' trace barres exterieures
 
     #g,"Color white; Size 4; Place ";925;" ";475 'fleche
     #g,"Goto ";925;" ";369:#g,"Goto ";842;" ";369
     #g,"Goto ";855;" ";382:#g,"Goto ";842;" ";369
     #g,"Goto ";855;" ";356
 Print text(700,40,"La graduation par trente est voulue")
 
        #g,"Color red; Size 3; Place ";491;" ";71 ' arr chef
        #g,"Goto ";495;" ";47
        Print text(363,40,"CHEFS")
        #g,"Color red; Size 3; Place ";634;" ";128 ' arr apotre
        #g,"Goto ";652;" ";102
        Print text(537,54,"APOTRES")
        #g,"Color red; Size 3; Place ";732;" ";254 ' arr spiritual
        #g,"Goto ";759;" ";243
        Print text(700,158,"SPIRITUALISTES")
        #g,"Color red; Size 3; Place ";752;" ";409 ' arr coordin
        #g,"Goto ";778;" ";412
        Print text(765,320,"COORDINATEURS")
        #g,"Color red; Size 3; Place ";693;" ";555 ' arr revolut
        #g,"Goto ";713;" ";568
        Print text(750,476,"REVOLUTIONAIRES")
        #g,"Color red; Size 3; Place ";570;" ";651 ' arr chevalier
        #g,"Goto ";582;" ";675
        Print text(653,628,"CHEVALIERS")
        #g,"Color red; Size 3; Place ";416;" ";671 ' arr secouriste
        #g,"Goto ";413;" ";697
        Print text(442,692,"SECOURISTES")
        #g,"Color red; Size 3; Place ";267;" ";611 ' arr artiste
        #g,"Goto ";252;" ";635
        Print text(270,675,"ARTISTES")
        #g,"Color red; Size 3; Place ";171;" ";484 ' arr realiste
        #g,"Goto ";146;" ";497
        Print text(119,583,"REALISTES")
        #g,"Color red; Size 3; Place ";151;" ";333 ' arr pionnier
        #g,"Goto ";121;" ";329
        Print text(51,423,"PIONNIERS")
        #g,"Color red; Size 3; Place ";213;" ";188 ' arr prophete
        #g,"Goto ";191;" ";170
        Print text(71,231,"PROPHETES")
        #g,"Color red; Size 3; Place ";336;" ";91 ' arr arbitre
        #g,"Goto ";327;" ";69
        Print text(184,100,"ARBITRES")
 
        radius=280:k=1:cx=cx-5   'affiche les degrés
     #g,"Color cyan; BackColor 0 32 96"
     For i = stepSize To pi2 Step pi2/12
      nx = Cos(i+.25)*radius + cx
      ny = Sin(i+.25)*radius + cy
      Print text(nx,ny,word$(m$,k))
     k=k+1
     Next i
  '-------------------------------
 
  '-----------------------------------calculs
  if m<3 then
    m=m+12:yy=yy-1
  end if
 tt=int(365.25*yy)+ int(30.6*(m+1))+dd-694038
 tt=tt/36525
 la=350.737486+1236*tt*360
 la=la+307*tt+6*tt/60           '240
 la=la+51.18*tt/3600-5.17*tt*tt/3600
 la=la-int(la/360)*360        '260
 la=int(la+.5)    'ici "la" =phase lune en degres
la=abs(la)
 '''''
 PRINT #g.s, str$(la)  'renvoie phase en degrés dans textbox
 
 wait
 
         Sub ButtonLeftUp handle$, xClick, yClick  'prise de cotes
         Print #g, "Place ";xClick;" ";yClick      'a suprimer
         Print #g, "\MouseX=";xClick
         Print #g, "\MouseY=";yClick
         End Sub
 
[delay]
   print #g.t, "!contents? var$"  'saisie tempo
   ti = val(var$)
   if ti<20 then ti=20
   timer ti, [go]
wait
 
[stop]
sto = 1:j=0:jo=0:ti=10000 'pose d'un flag
wait
 
[quit]
Close #g
End
 
Function text(x,y,msg$)
    #g,"Place ";x;" ";y;";|";msg$
End Function
 
 




Edité par Roland Le 29/04/2012 à 05h39
____________________
Roro

   
Le 29/04/2012 à 00h17

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
Et maintenant... Foin de l'anonymat...Envoyez vos scores ! Bande de planqués .! ;)
____________________
Roro

   
Le 29/04/2012 à 08h23

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
347

Je serai donc prophète :mat :mat
c'est dangereux ça !

Tu devrais mieux indenter ton code: c'est beaucoup plus facile à lire...!

Ce serait sympa si un gros point s'affichait autour du cercle à l'endroit correspondant au chiffre sorti. :top

PS: c'est toi qui a écrit ce code ??? vraiment bravo !



Edité par cassiope01 Le 29/04/2012 à 08h28
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 29/04/2012 à 12h39

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
Quand j'ai eu fini de régler la valse alphabétique, je me suis lancé dans des putains de calculs pour afficher les barres extérieures, mais Pythagore a eu ma peau, comme tu peut le constater.Il ne restait plus assez de fioul pour le point, d'autant plus que je marchais sur des oeufs, et que j'en avais déjà cassés pas mal.
Un de ces quatres je maitriserai les sprites, les sub's, et les timers....Et là, ça va donner sa mère. :miam
Au fait, ça y est, j'ai réussi à me brancher chez les amerlock's, et du coup j'ai deux pseudos: "Rozland", et:
"frogeater". Mais c'est juste pour avoir les licences. J'ai le "counting remember à 20sec. Ca commence à me gonfler. J'ai une machine virtuelle: "VirtualBox", dans laquelle je met tous les logiciels "bombés". Mais là, comme ça part petit à petit...Psychologiquement, le gars a vraiment réussi sont coup avec cette bombe à mèche lente, et j'ai encore besoin de la pseudo-complétion et du débuggeur. :p
Bon j'arrete...( j'aurais du faire romancier....) C'est qu'on est pas dans "discussion" ici. Houla!... à+... ;)
____________________
Roro

   
Le 29/04/2012 à 13h57

Administrateur

Groupe: Administrateur

Inscrit le: 24/09/2010
Messages: 203
C'est sympa ^^

J'ai eu 79 : Artiste Oo

A quoi sert le Vrot ?
Et pourquoi y a-t-il une flèche vers le 180, ça représente quelque chose ?

En tout cas, sympa la petite animation :=)

Mail MSN Web    
Le 29/04/2012 à 14h12

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Black Templar:
A quoi sert le Vrot ?

Essaye avec 400, ça agit tout de suite ;)

Black Templar:
Et pourquoi y a-t-il une flèche vers le 180, ça représente quelque chose ?

Je me suis posé la même question, avant de comprendre qu'elle n'a rien à voir avec le résultat :top :top
C'est pour ça que j'ai demandé à Roland s'il pouvait mettre un point à l'endroit du résultat autour du cercle...

@+



Edité par cassiope01 Le 29/04/2012 à 14h14
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 29/04/2012 à 14h36

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
La fleche, c'est pour indiquer qu'il faut reporter le résultat sur le cadran (un raccourcis programatique en quelque sorte) ;)
Le "Vrot", ne m'en parle pas...Ce langage a parfois des comportements étranges...Au début ça déroute, et puis on s'y fait...ça pimente les recettes, ça oblige à réfléchir. :miam
Le Vrot, c'est un bug de la mort qui tue. Si je le supprime, y'a rien qui marche, à l'origine on devait pouvoir entrer une valeur pour le timer. (ce qu'on peut faire...avec un résultat surréaliste...) J'ai voulu aussi faire ralentir la rotation jusqu'à l'arret complet, mais c'est "coton". :s
Puis j'ai voulu mettre la valeur ti du timer dans le textbox et faire une lecture du textbox juste aprés le "ini"
, pour avoir la valeur du tempo au démmarage, et là c'est la fin du monde! :|
Bref, direction>>>T F T...en françouz: l'AIDE.
En parlant de l'aide; en continuant les traductions, j'ai modifié les liens pour avoir un accés direct à "GraphicsComands". :)
A la fin, il y aura juste à mettre le fichier "html' modifié (1.5/2Mo).sur le site avec une explication pour faire un "copier/collé "sur place du fichier d'origine (bof par précaution) et un "collé" du modifié. ....à+....



Edité par Roland Le 29/04/2012 à 14h37
____________________
Roro

   
Le 29/04/2012 à 17h08

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
Hey ! ça vous va pas si mal...Black, l'artiste qui demande à quoi servent les flèches, et Cassiope le prophète qui fait dans l'abstraction, avec ses sub's par paquets de douze.moi, il m'est sorti: arbitre, ça m'a coupé le siflet ! ;)
____________________
Roro

   
Le 29/04/2012 à 17h36

Libertynaute Expert

Groupe: Membre

Inscrit le: 19/02/2011
Messages: 767
Mais où tu vas chercher tout ça :lol

Ci-joint un petit code qui devrait te plaire : (et éventuellement te permettre de mettre un point dans le tien :siffle )

Code VB :
  ' Radar

    WindowWidth = 250
    WindowHeight = 250
    nomainwin
    open "Radar" for graphics_nsb_nf as #radar
    #radar, "trapclose [exit]"
 
    #radar, "down ; fill buttonface"
    #radar, "backcolor black ; home ; circlefilled 100"
    #radar, "color yellow ; circle 101"
    #radar, "color green"
 
    [radar]
    for r=1 to 360
      for a = 1 to 35
        scan
        #radar, "color 0 ";a*5;" 0"
        #radar, "up ; home ; north ; turn ";r+a
        #radar, "down ; go 100"
      next a
      #radar, "discard"
      timer 10, [pause]
      wait
      [pause]
      timer 0
    next r
    goto [radar]
 
   [exit]
   close #radar
   end
 




Edité par cassiope01 Le 29/04/2012 à 17h38
____________________
Devise Shadocks : "Mieux vaut mobiliser son intelligence pour des conneries, que mobiliser sa connerie pour des choses intelligentes"
Coluche disait : "C'est parce que la vitesse de la lumière est plus rapide que celle du son que certains peuvent paraîtrent brillants jusqu'à ce qu'ils ouvrent la bouche."

Web    
Le 29/04/2012 à 20h56

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2471
Et toi !... d'où tu le sort ce bout ??? .. :heink .Pour qu'il ne soit pas dans ma reserve, qui se compose de:
Prog's avec dll et bmp = 99
avec dll sans bmp = 55
sans dll avec bmp =116
secs =139
Total =409 + les exemples
Mon aspirateur aurait-il oublié d'aller dans les coins ?
Merci quand meme. ..héhé ..ce genre d'écran, ça me rapelle de lointains souvenirs. ;)
____________________
Roro

   
Projets open source » Astro-Lune Prévoir le collyre  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie