AccueilCodesTutorielsForumsEmploiLivresConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 10 21:02:37
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 !

14 commentaire(s) de CFCTABLE sur des sources sur tout CodeS-SourceS

Le : 14/04/2008 15:53:54
Source : LISTE DE FICHIERS SUR UN DISQUE EN VB6
:) oui je suis bien d'accord.. et c'est pour cela que je suis en train de reprendre le code , en particulier celui du tri, je remettrais des commentaires  et des explications ..

Le : 04/04/2008 09:57:40
Source : LISTE DE FICHIERS SUR UN DISQUE EN VB6
A l'origine ce programme était écrit en QuickBasic et la mémoire vive était chère c'est pour cela que je n'avais pas utilisé de fonctions trop élaborées.
Les fonctions de tri sont dans le module HTSortMod.C'est pareil, les cannaux d'ouverture de fichier étaient en dur et je les ai laissés tels quels.
Pour Dir(w & "\*.*", 22) ---> Dir(w & "\*.*", vbDirectory Or vbSystem Or vbHidden), j'ai mis 22 en dur pour ne pas effectuer le calcul à chaque passage! mais effectivement JACK, ton idée est bonne , je vais  mettre cette valeur dans une variable ce qui permettra de paramétrer la recherche.
Quand au choix des valeurs a été fait pour avoir tous les fichiers.
Pour le open #1 je l'ai juste rajouté vite fait pour fournir une liste de fichiers non traités!. Comme j'ai un peu de temps, je modifie le code et refait un Post.
Voila c'est fait.
Merci pour vos commentaires.

Le : 02/04/2008 18:15:46
Source : TOUS FICHIERS D'UN DISQUE DUR (WIN32)
sinon sous dos c' est tout simple:
dir /s/w/ah/ar/aa/b >f:\tmplst.txt pour les fichiers
dir /s/w/ad/b >f:\tmplst.txt pour les répertoiress.

Là encore le résultat est différent de tous les autres!
10647 rpertoires et 109310 fichiers!

Le : 02/04/2008 14:46:20
Source : TOUS FICHIERS D'UN DISQUE DUR (WIN32)
Tu es sûr que tous les fichiers sont listés?
avec <propiétés> sur une sélection dans c:\ sur mon micro ça me donne 116897 fichiers et 10634 dossiers et ton programme donne 106353
ça ne fait pas le compte.
peut être il manque les fichiers système ou cachés..
suis en train de refaire un programme VB et pour l'instant il me donne plus de fichiers que le système (env 200 en plus) !!

Le : 30/03/2008 11:38:51
Source : SIMULATEUR DE WINDOWS
Ohhh moi je le trouve pas si mal pour 10ans! en plus windows vista c'est cher! alors c pas si mal de simuler et puis il faut encourager les jeunes talents non?
Peut être ouvrir une rubrique jeunes talents..

Le : 24/03/2008 08:52:01
Source : CALCUL ENTHALPIQUE DE L'AIR HUMIDE
OK pas de problème . Je regarde aussi de mon côté .
Si tu le souhaites je t 'envoie la traduction et
les modifs (petites) faites  à la présentation de
la feuille EXCEL.

Le : 23/03/2008 17:30:13
Source : CALCUL ENTHALPIQUE DE L'AIR HUMIDE
Un petit soucis dans ton calcul je pense...

Température Humide               °C  = 6
Température Sèche                °C  = 20
on obtient:
Humidité Relative                 %  = 0
Point de Rosée                  °C  =-70,52
Masse d'eau dans l'air g/kg air sec = 0
Enthalpie de l'eau kJ/kg air    = 20,09

alors que pour

Température Humide               °C  = 5
Température Sèche                °C  = 20
on obtient:
Humidité Relative                 %  = 0
Point de Rosée                  °C  -19,44
Masse d'eau dans l'air g/kg air sec = 0
Enthalpie de l'eau kJ/kg air    = 18,08

et pour

Température Humide               °C  = 7
Température Sèche                °C  = 20
on obtient:
Humidité Relative                 %  = 5,69
Point de Rosée                  °C  -19,16
Masse d'eau dans l'air g/kg air sec = 0,81
Enthalpie de l'eau kJ/kg air    = 22,16

Sinon l'idée de ce programme est pas mal!
J'ai commencé à le traduire en allemand pour mon Oncle
qui travaille dans le bois (scierie et menuiserie)

Le : 23/02/2008 11:41:01
Source : RESOLUTION D'EQUATIONS TRIGONOMETRIQUES
Private Sub Command1_Click()
    ' Rendre le programme plus lisible en
    ' -regroupant les déclarations de variables
    ' -en faisant des identations (décalages) sur  les boucles et conditions
    ' -ajoutant des explications en commentaires
    '
    ' Attention à width , height.. il est préférable de les associer à la feuille
    ' - equatrigo.Width etc...
    '
    ' utiliser un contrôle listbox plutot que le textcontrol dans ce cas précis..
    '
    ' Je vous ai remis un exemple pour mettre les solutions sur le cercle.
    ' Bon courage
    
    Dim PI As Double
    Dim D As Double
    Dim H As Double
    Dim E As Double
    Dim J As Double
    Dim N As Byte
    ReDim K(100) As Double
    ReDim L(100) As Double
    Dim wa, wb, WR As Integer
    
    PI = 4 * Atn(1)
    A = Val(Text1.Text)
    B = Val(Text2.Text)
    C = Val(Text3.Text)
    W = Val(Text4.Text)
    D = Sqr(A ^ 2 + B ^ 2)
    H = C / D
    If Abs(H) > 1 Then
        Text5(0).Text = " L'equation n'a pas de solution "
    Else
        E = Atn(-H / Sqr(-H * H + 1)) + 2 * Atn(1)
        J = Atn((B / D) / Sqr(-(B / D) * (B / D) + 1))
        For N = 0 To W - 1
            K(N) = (E + J + (2 * N * PI)) / W
            L(N) = (-E + J + (2 * N * PI)) / W
        Next N
        equatrigo.Width = Screen.Width * 0.54
        equatrigo.Height = Screen.Height * 0.88
        equatrigo.Left = (Screen.Width - Width) / 2
        equatrigo.Top = (Screen.Height - Height) / 2
        
        
        WR = 3200
        wa = Me.Width * 2 / 3
        wb = Me.Height / 2 + 800
        equatrigo.DrawWidth = 3
        equatrigo.PSet (wa, wb), vbRed
        equatrigo.Circle (wa, wb), WR, vbRed
        
        Text5(0).Text = "  " & K(0) & " et " & L(0)
        For N = 1 To W - 1
            Load Text5(N)
            Text5(N).Top = Text5(N - 1).Top + 850
            Text5(N).Visible = True
            Text5(N).Text = "  " & K(N) & " et " & L(N)
        Next N
        For N = 0 To W - 1
            equatrigo.Line (wa, wb)-(wa + WR * Cos(K(N)), wb + WR * Sin(K(N))), vbBlack
            equatrigo.Line (wa, wb)-(wa + WR * Cos(L(N)), wb + WR * Sin(L(N))), vbBlue
        Next N
    End If
End Sub

Le : 06/02/2008 10:17:34
Source : EQUATIONS DU TROISIÈME DEGRÉ
Je comprend ton soucis de précision. Sur ce cas, je ne fais que répondre du point de vue programmation à Abdelelansari . Je pense qu'il avait l' intention de traiter uniquement les solutions réelles et des coefficients rééls. Pour le coté maths, je lui laisse le soin de répondre.

Sinon je suis d'accord avec toi sur ces remarques.

Le : 31/01/2008 16:05:46
Source : RESOLUTION D'EQUATIONS DU TROISIEME DEGRE'
Déclares toutes tes variables en double précision
Dim a As Long
devient
Dim a As double
etc...
Long est un format entier

supprime Const PI As Single = 3.14159265358979 et remplace par

Dim PI As Double
PI = 4 * Atn(1)

et ça devrait marcher

J'ai refait un programme en VB6 à partir de ta formulation et les résultats semblent corrects.
je fais un zip que je poste ici.


1


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,109 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.