Mon premier programme

Ce n'est pas un programme long, c'est un genre de fractal, cela m'a permis
d'installer correctement Panoramic. J'utilise un portable Semtron 64bits avec windows 7 et 4G mémoire vive .
j'ai du utiliser le programme de configuration de windows et le mettre en compatibilité windows 2000. Maintenant Panoramic fonctionne correctement.


dim col$(12)
dim a,b,c,x ,y,i,j,z
dim dots%,xp,yp
dim midx%
dim midy%
midx%= screen_x
midy%= screen_y
print midx%
print midy%

Form 1
caption 1,"Fenêtre principal"
Top 1,100
Left 1,100
width 1,600
height 1,600
rem hint 1,"C est moi"

Border_Normal 1

color 1,0,0,0

Full_Space 1

2d_target_is 1

label l1

l1:


rem for c=1 to 12

rem next c

REM position aleatoire du point de depart

a=rnd(3)

b=0.9998

c=2-2*a

dots%=12000

x=0:j=0

y=rnd(5)*12+0.1


rem calcule et dessine le point

for i=1 to dots%

z=x

x=(b*y)+j

j=((a*x)+(c*(x*x)))/(1+(x*x))

y=j-z

xp=(x*20)+(midx%/2)

yp=(y*20)+(midy%/2)

rem Couleur aleatoire

2d_pen_color (int(rnd(1)*256)),(int(rnd(1)*256)),(int(rnd(1)*256))

2d_point xp,yp

next i

wait 2000

terminate
rem goto l1

Bienvenu sur ce forum et bravo pour ton "premier programme". L'effet visuel est très joli. Continue comme ça !

C'est superbe...

Une petite astuce pour que l'on copie plus facilement ton code:
Tu insère ton code dans le presse papier (Copier)
et quand tu écris ton message avant d'y mettre ton code tu clique sur le bouton code, tu colle ton code et tu reclique sur le bouton code.

çà donne cà:

Code:

dim col$(12)
dim a,b,c,x ,y,i,j,z
dim dots%,xp,yp
dim midx%
dim midy%
midx%= screen_x
midy%= screen_y
print midx%
print midy%

Form 1
caption 1,"Fenêtre principal"
Top 1,100
Left 1,100
width 1,600
height 1,600
rem hint 1,"C est moi"

Border_Normal 1

color 1,0,0,0

Full_Space 1

2d_target_is 1

label l1

l1:


rem for c=1 to 12

rem next c

REM position aleatoire du point de depart

a=rnd(3)

b=0.9998

c=2-2*a

dots%=12000

x=0:j=0

y=rnd(5)*12+0.1


rem calcule et dessine le point

for i=1 to dots%

z=x

x=(b*y)+j

j=((a*x)+(c*(x*x)))/(1+(x*x))

y=j-z

xp=(x*20)+(midx%/2)

yp=(y*20)+(midy%/2)

rem Couleur aleatoire

2d_pen_color (int(rnd(1)*256)),(int(rnd(1)*256)),(int(rnd(1)*256))

2d_point xp,yp

next i

wait 2000

terminate
rem goto l1

Ainsi, il nous sufiit d'un Control+Clic gauche pour sélectionner l'emsemble du code et Clic Droit pour le copier

En tout cas Bravo

A+

Merci pour l'information . Je ne savais pas comment faire.

Ouah, joli !
C'est un oeil ?
Tu commences fort !

Citation :

Merci pour l'information . Je ne savais pas comment faire.

C'est le même principe pour les citations

Pour une fois que je peut montrer ma science.........


A+

je viens de découvrir une fonction aléatoire, aussi je conseille de lancer plusieurs fois ce code. Les effets diffèrents à chaque fois.

J'observe ce truc curieux, dans le programme plus haut :
il se termine par :
terminate
rem goto l1
Il devrait donc se terminer en faisant "Boooiiiing"
puisqu'il y a quelque chose après le terminate
et il ne le fait pas.

Mais si on enlève le goto l1 (qui ne sert à rien, enfin normalement)
cela donne donc :
terminate
rem
là, ça fait le "Boooiiiing" habituel.
Curieux, non ?

Peu importe que tu enlèves le goto ou alors toute la ligne après le terminate: de toutes les manières, cette ligne n'est jamais atteinte.

Notre nouvel ami a choisi d'utiliser Panoramic dans le mode des anciens Basic, sans passer par l'instruction "end", donc sans se mettre en attente d'un évènement. Et comme il n'a déclaré aucun évènement sur ses objets, une interaction avec l'utilisateur n'est pas possible. Il fait dont tourner son programme dans une boucle, un certain nombre de fois, puis le programme s'arrête sans autre forme de procès.

Je pense que cette ligne "rem goto l1" lui servait pendant les tests pour reboucler, mais il l'a inhibé pour la version actuelle. En tout cas, elle est totalement inutile dans cette version, et inactive.

Tout ça n'enlève rien à la beauté du résultat obtenu.

J'ajoute qu'il y a un LABEL (L1) sans RETURN. on peut supprimer la déclaration du label et le label lui-même car ils ne servent à rien.

Je me revois quand j'ai découvert PANORAMIC, mon premier programme était comme çà.

Pour t'aider 659 minyfly, je te montre la structure d'un programme Panoramic (Ce n'est pas la seule, mais pour débuter.....)

Code:

rem déclération des dim et label
dim a,b,c
label quit

rem déclaration des objets
button 1:caption 1,"Quitter"

rem autre initialisation avant END
' XXXX
' XXXX

END
' =========================
quit:
teminate
return

En gros c'est à peu près çà

A+

J'aurais légèrement complété ton exemple:

Code:

REM déclaration des dim et label
DIM a, b, c
LABEL quit

BUTTON 1:  CAPTION 1, "Quitter"
ON_CLICK 1, quit

REM autre initialisation avant END
' XXXX
' XXXX

END: ' le programme se met en attente d'événement

' ===== SOUS-PROGRAMMES =====
quit:
TERMINATE
RETURN

Bien vu JL35,

Citation :

END: ' le programme se met en attente d'événement

C'est important pour comprendre la différence avec un Basic classic.

A+

Merci à tous de vos précieux renseignements, et, conseils.

C'est sur qu'avec un logiciel différent , on doit voir comment il fonctionne

et surtout la façon de voir et de penser du très courageux programmeur, qui a développé Panoramic . je lui tire un grand coup de chapeau.

Au sujet du petit programme : c'est un programme que j'ai adapté a Panoramic ( il n'est pas de moi pour le calcul). Si vous laissez tourner le programme en boucle vous verrez que le dessin se modifie encore plus.

A++

Justement je parlais de toi sur ce post:
https://panoramic.1fr1.net/a-l-aide-f6/lire-un-fichier-toute-les-30-sans-bloquer-le-prog-t774.htm?sid=9ed225ca63e3895b7fedf2abe4a8139d#5999
Un conseil va voir
A+

ok et c'est bien mon problème a l'heure actuel.

Mais c'est une question de temps , avec beaucoup de programmation.

on arrive toujour . Et je suis tétu .

A+

C'est pour t'éviter, comme moi, de perdre un temps fou....

A+

Et Dieu sait si ton temps est précieux...