laverdanny
Messages postés33Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention 3 août 2007 16 janv. 2006 à 23:27
le modèle HP C41 op CV41 sont plus simples à apprivoiser, les suivants sont bien plus difficiles (je n'ai toujours pas appris à tout utiliser sur ma HP48G ;-))
laverdanny
Messages postés33Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention 3 août 2007 16 janv. 2006 à 23:25
c'est ça
en fait, on execute les opérations comme dans la réalité avec papier et crayon, ce qui est plus "immediat" comme procédé, bien que les calculettes nous aient habitué a fonctionner autrement (chiffre,opérateur,chiffre,égal).
Cette dernière (manière) est pratique tant qu'il n'y a pas de parenthèses.
cherche "HP Emulator" ou "HP emulateur" sur le web
Salut Laverdanny
si j'ai bien compris
1° calcul : 27+32 --> sur la pile ( valeur1)
2° calcul : 59-35 --> sur la pile ( valeur2)
3° calcul : 5 \ valeur sur la pile (valeur2)
4° calcul : résultat du calcul précédent * valeur sur la pile (valeur1)
On fait les 2 calculs entre parenthèses en stockant les résultats sur une pile puis on fait les autres opérations en dépilant les résultats intermédiaires
Merci de l'info
A+
Galain
laverdanny
Messages postés33Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention 3 août 2007 16 janv. 2006 à 16:55
oops... j'ai peut-être oublié des <TAB> dans le texte precedent
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 janv. 2006 à 16:26
non, possible pour le forum, pas pour les commentaires....
laverdanny
Messages postés33Date d'inscriptionsamedi 16 octobre 2004StatutMembreDernière intervention 3 août 2007 16 janv. 2006 à 16:08
Galain :
Je ne comprend pas la question "notation polonaise" dans ce contexte, mais à ma connaissance c'est le système d'introduction des données et par conséquent de calcul des calculatrices HewlettPackard depuis au moins le modèle C41.
d'habitude, l'on écrit 5*(27+32)/(59-35) mais on calcule à partir de la(les) parenthèse(s) la(les) plus interne(s)
les calculatrices HP RPN (Reverse Polski Notation) disposent d'une pile (stack) plus ou moins grande, dans laquelle on introduit les valeurs et on obtient les resultats au fur et à mesure. NB avec le RPN, les calculatrices n'ont PAS de touche "=", elle n'a pas raison d'exister, mais il y a une touche ENTER. Voici le calcul étape par étape avec les contenus de la pile à chaque étape (je ne donne pas le resultat, mais la formule du contenu de chaque case de la pile
Merci à Renfield pour les conseils
J'ai 1 question pour lui : Qu'appelle-ton notation polonaise ?
Pour les commentaires cela m'est assez difficile au niveau de la fonction elle-même : ce code est tiré d'une source de DLL accès CDROM ( voir la source DLL accès bas niveau CDROM) que j'ai trouvé sur un site anglais et je ne connais point les routines utilisées dans ces fonctions
Mais cela a le mérite de marcher
A+
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 11 janv. 2006 à 10:07
sous Xp, on peux utiliser :
Private Function IsDVD(ByRef vsDriveLetter As String) As Boolean
Dim hDrive As Long
Dim nLength As Long
Dim tGMT As GET_MEDIA_TYPES
'# On créé un handle vers le lecteur
hDrive = CreateFile("\\." & vsDriveLetter & ":", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hDrive <> INVALID_HANDLE_VALUE Then
DeviceIoControl hDrive, IOCTL_STORAGE_GET_MEDIA_TYPES_EX, vbNullString, 0, tGMT, LenB(tGMT), nLength, ByVal 0&
IsDVD (tGMT.DeviceType FILE_DEVICE_DVD)
'# On libère le handle
CloseHandle hDrive
End If
End Function
17 janv. 2006 à 00:24
Merci pour le tuyau
A+
Galain
16 janv. 2006 à 23:27
16 janv. 2006 à 23:25
en fait, on execute les opérations comme dans la réalité avec papier et crayon, ce qui est plus "immediat" comme procédé, bien que les calculettes nous aient habitué a fonctionner autrement (chiffre,opérateur,chiffre,égal).
Cette dernière (manière) est pratique tant qu'il n'y a pas de parenthèses.
cherche "HP Emulator" ou "HP emulateur" sur le web
16 janv. 2006 à 21:18
si j'ai bien compris
1° calcul : 27+32 --> sur la pile ( valeur1)
2° calcul : 59-35 --> sur la pile ( valeur2)
3° calcul : 5 \ valeur sur la pile (valeur2)
4° calcul : résultat du calcul précédent * valeur sur la pile (valeur1)
On fait les 2 calculs entre parenthèses en stockant les résultats sur une pile puis on fait les autres opérations en dépilant les résultats intermédiaires
Merci de l'info
A+
Galain
16 janv. 2006 à 16:55
16 janv. 2006 à 16:26
16 janv. 2006 à 16:08
Je ne comprend pas la question "notation polonaise" dans ce contexte, mais à ma connaissance c'est le système d'introduction des données et par conséquent de calcul des calculatrices HewlettPackard depuis au moins le modèle C41.
d'habitude, l'on écrit 5*(27+32)/(59-35) mais on calcule à partir de la(les) parenthèse(s) la(les) plus interne(s)
les calculatrices HP RPN (Reverse Polski Notation) disposent d'une pile (stack) plus ou moins grande, dans laquelle on introduit les valeurs et on obtient les resultats au fur et à mesure. NB avec le RPN, les calculatrices n'ont PAS de touche "=", elle n'a pas raison d'exister, mais il y a une touche ENTER. Voici le calcul étape par étape avec les contenus de la pile à chaque étape (je ne donne pas le resultat, mais la formule du contenu de chaque case de la pile
5/(59-35)*(27+32) 5/(59-35)*(27+32) 5/(59-35)*(27+32)
1 : départ 2 : saisie 27 3 : saisie ENTER
0 0 0
0 0 0
0 0 27
0 27 27
4 : saisie 32 5 : saisie "+" 6 : saisie 59
0 0 0
0 0 0
27 0 27+32
32 27+32 59
7 : ENTER 8 : saisie 35 9 : saisie "-"
0 0 0
27+32 27+32 0
59 59 27+32
59 35 59-35
10 : saisie 5 11 : saisie "/" 12 : saisie "*"
0 0 0
27+32 0 0
59-35 27+32 0
5 5/(59-35) 5/(59-35)*(27+32)
si l'explication n'est pas suffisamment claire, je suggère de chercher un émilateur calculette HP sur le net
Renfield :
y a-t-il moyen de "Être averti par mail lorsqu'un nouveau commentaire est ajouté sur cette source." sans pour autant laisser de message ?
12 janv. 2006 à 08:31
Public Lecteur as String
plutot que
Public Lecteur$
et c'est valable dans tout le code
12 janv. 2006 à 07:15
J'ai 1 question pour lui : Qu'appelle-ton notation polonaise ?
Pour les commentaires cela m'est assez difficile au niveau de la fonction elle-même : ce code est tiré d'une source de DLL accès CDROM ( voir la source DLL accès bas niveau CDROM) que j'ai trouvé sur un site anglais et je ne connais point les routines utilisées dans ces fonctions
Mais cela a le mérite de marcher
A+
11 janv. 2006 à 10:07
Private Function IsDVD(ByRef vsDriveLetter As String) As Boolean
Dim hDrive As Long
Dim nLength As Long
Dim tGMT As GET_MEDIA_TYPES
'# On créé un handle vers le lecteur
hDrive = CreateFile("\\." & vsDriveLetter & ":", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
If hDrive <> INVALID_HANDLE_VALUE Then
DeviceIoControl hDrive, IOCTL_STORAGE_GET_MEDIA_TYPES_EX, vbNullString, 0, tGMT, LenB(tGMT), nLength, ByVal 0&
IsDVD (tGMT.DeviceType FILE_DEVICE_DVD)
'# On libère le handle
CloseHandle hDrive
End If
End Function
http://www.vbfrance.com/code.aspx?ID=35406
11 janv. 2006 à 09:38
Le symbole a utiliser pour concaténer est & , pas +
(dans :
chaine$ = car$ + " " + chn$ + " (" + FSName$ + ")"
)
11 janv. 2006 à 09:36
je trouve plus que dommage de devoir faire :
Lecteur = "D:"
Initialize
If IsDVD Then ...
End If
il serai grandement preferable de voir :
If IsDVD("E") Then
End If
sinon, c'est pas mal, mais ca manque de commentaires...