bonjour,
Une application de la classe clGdiPlus d'Arkham46 :
Tracer des fonctions 3D sous VBA.
Ci-joint une démo de la classe ici
Philippe
bonjour,
Une application de la classe clGdiPlus d'Arkham46 :
Tracer des fonctions 3D sous VBA.
Ci-joint une démo de la classe ici
Philippe
superbe démonstration de la classe d'Arkham.
Salut Philippe,
En effet du très bon boulot, bravo aussi à Arkham pour sa classe !
merci pour ta visite d'hier sur mon chat
@+
Denis
Vous trouverez dans la FAQ, les sources ou les tutoriels, de l'information accessible au plus grand nombre, plein de bonnes choses à consulter sans modération
Des tutoriels pour apprendre à créer des formulaires de planning dans vos applications Access :
Gestion sur un planning des présences et des absences des employés
Gestion des rendez-vous sur un calendrier mensuel
Importer un fichier JSON dans une base de données Access :
Import Fichier JSON
Bonsoir à tous,
Superbe travail.
Bon réveillon et à l'année prochaine.
Curt
Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
---------------------------------------------------------------------
Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
Et si vous faisiez un bon geste en 2024 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !
bonjour et merci à tous , tous mes voeux pour la nouvelle année.
J'en profite pour joindre au 1er poste une nouvelle version qui :
- corrige des petits bugs
- Améliore le rendu (utilisation de DrawSmooth)
- Ajout épaisseur ligne
Amicalement,
Philippe
ps: si vous avez de jolies fonctions 3D, merci de publier ici les paramètres.
Sympa la 3D
Pour une demi-sphere :
En laissant les min-max à 10 (d'où le 100 = rayon au carré = 10*10), et avec :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Public Function MyFunc(ByVal fx As Single, ByVal fy As Single) As Single Dim fTmp As Single On Error GoTo Gestion_Erreurs fTmp = Sqr(fx * fx + fy * fy) MyFunc = Sqr(100 - fTmp * fTmp) Exit Function Gestion_Erreurs: MyFunc = 0 End Function
Code : Sélectionner tout - Visualiser dans une fenêtre à part .AmplitudeZ = 1
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
Merci pour la fonction Arkham46,
A partir des tracés 3D j'ai cherché une idée faisant le lien entre 3D et application pratique... d'où le carrousel (non finalisé donc .mde) qui pourrait afficher des images dont les liens sont dans une base Access.
Il me reste pas mal d'idées à explorer (ne seront pas toutes retenues !) :
- Carrousel
- Hauteur réglable jusqu'à plat
- Gestion des rayons X, Y, Z (auto jusqu'à manuel)
- Carrousel vertical
- Perspective (déjà fait en partie par réduction de la taille des vignettes selon la distance) avec gestion de l'alpha, etc...
- Image centrale : avec ou non, fixe, rotation (inverse ou non), ...
- Vignettes du carrousel
- Rectangulaires, rondes ?, etc...
- Cadre ou non, couleurs, tailles,...
- Effet miroir ou ombrage (devant, en biais, derrière)
- Cinétique
- Vitesse, accélération, ralentissement, sens de rotation
- Interactivité
- Tooltip quand souris sur vignette
- rotation selon mouvement de la souris
- Click souris sur vignette
Philippe
Je trouve plutôt intéressante l'idée du menu en 3D.
J'avais pensé à faire un menu du style de celui de la xbox :
http://www.joystiq.com/2008/10/29/vi...ience-exposed/
On pourrait sûrement atteindre ce résultat en paramétrant le carrousel.
Un double carrousel (un horizontal et un vertical) serait le top.
J'en demande beaucoup ?
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
Ce qui revient à faire l'effet AERO de Vista sous Access.
Après ça, j'enchaîne APERO, c'est sûr...Ce qui revient à faire l'effet AERO de Vista sous Access.
Philippe
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager