Aide pour traduire un Prog VB6 en Delphi
Leonello
Messages postés
12
Date d'inscription
mercredi 24 décembre 2003
Statut
Membre
Dernière intervention
1 novembre 2004
-
11 janv. 2004 à 00:02
piratos3 Messages postés 13 Date d'inscription lundi 30 juillet 2007 Statut Membre Dernière intervention 6 février 2008 - 28 janv. 2008 à 18:47
piratos3 Messages postés 13 Date d'inscription lundi 30 juillet 2007 Statut Membre Dernière intervention 6 février 2008 - 28 janv. 2008 à 18:47
A voir également:
- Aide pour traduire un Prog VB6 en Delphi
- Delphi format - Conseils pratiques -Delphi
- Delphi thread - Conseils pratiques -Delphi
- Delphi decompiler ✓ - Forum Delphi / Pascal
- Delphi stringreplace - Forum Delphi / Pascal
- Delphi formatdatetime ✓ - Forum Delphi / Pascal
1 réponse
piratos3
Messages postés
13
Date d'inscription
lundi 30 juillet 2007
Statut
Membre
Dernière intervention
6 février 2008
28 janv. 2008 à 18:47
28 janv. 2008 à 18:47
AIDEZ MOI SVP ET MERCI
je suis debutant en DELPHI et j'ai un code fait en VB que j'aime bien traduire en delphi
j'ai fait un edit1 edit2 et un bouton ok
je rentre la densite dans edit1 ok je recois la dose dans edit2
voila le code en VB
Dim d(10), t(10) 'd signifie dose et t signifie densité
Dim j, s ' les compteurs
' Tsn densité sous etain et Dgamma dose
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
d(0) = 0
d(1) = 25
d(2) = 50
d(3) = 100
d(4) = 200
d(5) = 400
d(6) = 800
d(7) = 1000
d(8) = 2000
d(9) = 4000
d(10) = 8000
t(0) = 0
t(1) = 6
t(2) = 13
t(3) = 22
t(4) = 45
t(5) = 86
t(6) = 119
t(7) = 166
t(8) = 263
t(9) = 356
t(10) = 453
Tsn InputBox("ENTREZ <?xml:namespace prefix st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:personname productid="LA DENSITE F" w:st="on">LA DENSITE F</st1:personname>", "CALCUL GAMMA", 0)
Select Case Tsn
Case 0 To 5
s = 1
Case 6 To 12
s = 2
Case 13 To 21 '74 to 137
s = 3
Case 22 To 44
s = 4
Case 45 To 85
s = 5
Case 86 To 118
s = 6
Case 119 To 165
s = 7
Case 166 To 328
s = 8
Case 329 To 355
s = 9
Case 356 To 453
s = 10
Case Is > 453
Exit Function
End Select
MsgBox s
Select Case s
Case 1
Dgamma = ((d(s) - d(s - 1)) / (t(s) - t(s - 1)) * (Tsn)) + d(s - 1) // c'est la formule de calcul 1
Case 2 To 7
Dgamma = (((d(s) - d(s - 1)) / (t(s) - t(s - 1)) * (Tsn)) + (d(s - 1) - ((d(s) - d(s - 1)) / (t(s) - t(s - 1))) * (t(s - 1)))) // c'est la formule de calcul 2
Case 8, 9
Dgamma = d(s - 1) * Log(1 - ((2 * t(s - 1) - t(s))) * Tsn / (t(s - 1) ^ 2)) / Log(t(s) / t(s - 1)) - 1 // c'est la formule de calcul 3
End Select
DG = Dgamma(f)
MsgBox DG & " " & "mrem"
je suis debutant en DELPHI et j'ai un code fait en VB que j'aime bien traduire en delphi
j'ai fait un edit1 edit2 et un bouton ok
je rentre la densite dans edit1 ok je recois la dose dans edit2
voila le code en VB
Dim d(10), t(10) 'd signifie dose et t signifie densité
Dim j, s ' les compteurs
' Tsn densité sous etain et Dgamma dose
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
d(0) = 0
d(1) = 25
d(2) = 50
d(3) = 100
d(4) = 200
d(5) = 400
d(6) = 800
d(7) = 1000
d(8) = 2000
d(9) = 4000
d(10) = 8000
t(0) = 0
t(1) = 6
t(2) = 13
t(3) = 22
t(4) = 45
t(5) = 86
t(6) = 119
t(7) = 166
t(8) = 263
t(9) = 356
t(10) = 453
Tsn InputBox("ENTREZ <?xml:namespace prefix st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:personname productid="LA DENSITE F" w:st="on">LA DENSITE F</st1:personname>", "CALCUL GAMMA", 0)
Select Case Tsn
Case 0 To 5
s = 1
Case 6 To 12
s = 2
Case 13 To 21 '74 to 137
s = 3
Case 22 To 44
s = 4
Case 45 To 85
s = 5
Case 86 To 118
s = 6
Case 119 To 165
s = 7
Case 166 To 328
s = 8
Case 329 To 355
s = 9
Case 356 To 453
s = 10
Case Is > 453
Exit Function
End Select
MsgBox s
Select Case s
Case 1
Dgamma = ((d(s) - d(s - 1)) / (t(s) - t(s - 1)) * (Tsn)) + d(s - 1) // c'est la formule de calcul 1
Case 2 To 7
Dgamma = (((d(s) - d(s - 1)) / (t(s) - t(s - 1)) * (Tsn)) + (d(s - 1) - ((d(s) - d(s - 1)) / (t(s) - t(s - 1))) * (t(s - 1)))) // c'est la formule de calcul 2
Case 8, 9
Dgamma = d(s - 1) * Log(1 - ((2 * t(s - 1) - t(s))) * Tsn / (t(s - 1) ^ 2)) / Log(t(s) / t(s - 1)) - 1 // c'est la formule de calcul 3
End Select
DG = Dgamma(f)
MsgBox DG & " " & "mrem"
