Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 06 13:04:32

WSC 2008 : LES VIDEOS DISPONIBLES ! par phil

VISUAL STUDIO TALK SHOW: VISUAL STUDIO TEAM SYSTEM par azra

QUAND REPORTING SERVICES VIENT TAQUINER MOSS par Gribouillon

ADO.NET DATA SERVICES HOOKING POC par Matthieu MEZIL

A PROPOS DES FICHIERS "BLOQUéS" par coq

RE : ADDITION ET SOUSTRACTION D'HEURES par CUTO

RE : INSERER CODE ??? par amelou2812

RE : UNE DLL NON ACTIVE NE VEUT PLUS SE DECHARGER par andrebernard

RE : INSERER CODE ??? par lillith212

RE : INSERER CODE ??? par gillardg

+ de logiciels à télécharger

Pro Evolution Soccer 2008 pour PSP au meilleur prix

1 256 409 membres
166 nouveaux aujourd'hui
14 396 membres club

Trouver une ressource

Trouvez une ressource parmi 38 799 codes, 1 183 556 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

SCREEN SAVER VOLUMES 3D EN ROTATIONS

Information sur la source

Catégorie :Ecrans de veille Niveau : Débutant Date de création : 12/04/2003 Date de mise à jour : 12/04/2003 16:37:44 Vu / téléchargé: 2 745 / 170

Auteur : Barr14

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (5)

Ajouter un commentaire et/ou une note

Description

Ce screen saver utilse uniquement des object lines pour formé des solides
qui tournent dans les trois axes ,se déplacent et changent de taille.
Ce code n'utilise que quelques fonctions trigonomtrique faciles.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 4 421 octets
Form1.frx330 octets
Form2.frm 140 181 octets
Form2.frx330 octets
Module1.bas 2 065 octets
Module2.bas 933 octets
Projet1.PDM5 727 octets
Projet1.TXT 343 octets
Projet1.vbp 778 octets
Projet1.vbw 158 octets
Volumes.exe167 936 octets
Volumes.scr172 032 octets

Télécharger le zip

Sources de la même categorie

SCREENSAVER INTERACTIF : AQUARIUM AVEC POISSONS VIVANTS AVEC... par MadM@tt

ECRAN DE VEILLE AVEC COULEUR par amteur

ECRAN DE VEILLE AVEC MESSAGE par higgins91

ECRAN DE VEILLE ON/OFF par Galain

ECONOMISEUR D'ÉCRAN STARFIELD 2D par CrocoRICo

Toutes les sources de la catégorie Ecrans de veille

Commentaires et avis

Commentaire de sebleboss2002 le 12/04/2003 16:47:33

Pas de capture ??? Dommage !

Sinon, dommage (encore) que ce soit si saccadé...

Commentaire de slayer le 12/04/2003 17:12:34

pas mal , mais dommage pour le manque de fluidité

Commentaire de Saros le 12/04/2003 21:44:52

Bien, mais bon c'est vrai que c'est pas mal saccadé...
6/10

Commentaire de Alain Proviste le 12/04/2003 21:48:51 administrateur CS

je ne puis que confirmer les paroles de mes prédécesseurs mais je salue l'effort car c'est un chouette prog.

Commentaire de Barr14 le 01/05/2003 10:10:21

Je suis étonné du manque de fluidité , le paramètre vitesse est lu dans la registie.
Si tu exécute le programme a partir de VB tu dois initialiser
le Timer1 ('Timer1 =10 -->Timer1 =10) voir ci-desous ***

Si tu copie le fichier Volume.scr dans Windowssytheme
Comme les autres écrant de veille je pence que tu changeras
d'avis

Merçi pour tes commentaire.
Merçi de me repondre si ta de meilleurs résultas Mestrez.Ch@skynet.be

A+

Private Sub Form_Load()     'Form2

    Dim j As Integer

    Cpt_volume = 0
    Mouse_move = 0
    Timer1.Enabled = False

    Timer1.Interval = 501 - CInt(GetSetting(App.EXEName, "confVolume", "vitesse", "20"))
    Nombre_Volume_show = CInt(GetSetting(App.EXEName, "confVolume", "NombreVolume", "3"))
   *********************
   * 'Timer1.Interval = 10  *
   *********************
    For j = Index_ligne To Index_ligne + 29
        Line1(j).Visible = False
    Next j