Bonjour,
Pouvez-vous m'expliquer avec exemple comment
on fait un fichier "ressources", enfin, comment on
le charge, le modifie, le lit, surtout ???
Je viens de le créer, désormais je voudrais,
via le code, lui envoyer les données d'un fichier
txt, puis ensuite, en exécution, lire ce fichier
ressources, comment qu'on fait, svp ???
Bonjour,
Pouvez-vous m'expliquer avec exemple comment
on fait un fichier "ressources", enfin, comment on
le charge, le modifie, le lit, surtout ???
Je viens de le créer, désormais je voudrais,
via le code, lui envoyer les données d'un fichier
txt, puis ensuite, en exécution, lire ce fichier
ressources, comment qu'on fait, svp ???
Bonjour,
Pouvez-vous m'expliquer avec exemple comment
on fait un fichier "ressources", enfin, comment on
le charge, le modifie, le lit, surtout ???
Je viens de le créer, désormais je voudrais,
via le code, lui envoyer les données d'un fichier
txt, puis ensuite, en exécution, lire ce fichier
ressources, comment qu'on fait, svp ???
Mon fichier texte à charger par ligne, qui
contient les phase de la lune par date sur 150 ans
(19010412D) = (AN+mois+jour+phase), se nomme :
"lune.txt".
Mon fichier texte à charger par ligne, qui
contient les phase de la lune par date sur 150 ans
(19010412D) = (AN+mois+jour+phase), se nomme :
"lune.txt".
Mon fichier texte à charger par ligne, qui
contient les phase de la lune par date sur 150 ans
(19010412D) = (AN+mois+jour+phase), se nomme :
"lune.txt".
Bonjour,
Merci, mais je ne comprends rien dan ton
exemple (enfin, pas tout!), surtout que je manque
totalement de vocabulaire en ce domaine. Je vais
donc mieux m'expliquer:
J'ai un fichier texte de 80 ko (30.000 lignes
environ)
- Déjà, est-ce que la taille va passer (80ko)
?
Bon, comment charge le fichier texte dans le
fichier ressource, ceci par le code lors du
lancement de son programme ???
Bonjour,
Merci, mais je ne comprends rien dan ton
exemple (enfin, pas tout!), surtout que je manque
totalement de vocabulaire en ce domaine. Je vais
donc mieux m'expliquer:
J'ai un fichier texte de 80 ko (30.000 lignes
environ)
- Déjà, est-ce que la taille va passer (80ko)
?
Bon, comment charge le fichier texte dans le
fichier ressource, ceci par le code lors du
lancement de son programme ???
Bonjour,
Merci, mais je ne comprends rien dan ton
exemple (enfin, pas tout!), surtout que je manque
totalement de vocabulaire en ce domaine. Je vais
donc mieux m'expliquer:
J'ai un fichier texte de 80 ko (30.000 lignes
environ)
- Déjà, est-ce que la taille va passer (80ko)
?
Bon, comment charge le fichier texte dans le
fichier ressource, ceci par le code lors du
lancement de son programme ???
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub
Modeste :o)
Voici le calcul en VB, pour moi il ne
fonctionne pas, produisant toujours 7.5, peut être
une erreur, par rapport à la source:
http://www.voidware.com/moon_phase.htm
Si tu vois une erreur...
Mais je suis étonné, normalement il faut 4 pages
pour écrire le calcul, et là, en à peine une page
il ferait pareil, hum...
Comme je le disais, une grande partie des calculs
compliqués sur internet sont faux, bon, là, il a
le bénéfice du doute, à voir, qu'en penses-tu ?
'-------------------code
' lune form 1
Option Explicit
Sub Form_Activate() ' + text1
Dim an As Integer
Dim mois As Byte
Dim jour As Byte
Dim c As Double
Dim e As Double
Dim JJ As Double
Dim phaseLune As Double
jour = 21
mois = 3
an = 2008 ' PL = 4
If mois < 3 Then
an = an - 1
mois = 12
End If
mois = mois + 1
c = 365.25 * an
e = 30.6 * mois
JJ = c + e + jour - 694039.09
JJ = JJ / 29.53
phaseLune = JJ
JJ = JJ - phaseLune
phaseLune = JJ * 8 + 0.5
phaseLune = phaseLune + 7 ' 0 = NL, 2 = PQ, 4 =
PL, 6 = DQ
Text1 = ""
Select Case phaseLune
Case 0: Text1 = "NL"
Case 2: Text1 = "PQ"
Case 4: Text1 = "PL"
Case 6: Text1 = "DQ"
End Select
Text1 = Text1 & " " & phaseLune
End Sub