�V�~��[�V��
Visual Basic

X-Stream�̃I�V��X�R�[�v�ł́AVisual Basic�̃X�N��v�g��g�p��ă��[�U�[�Ǝ� �̉��Z�֐��p��[�^�֐��쐬��邱�Ƃ��ł��܂��BVBscript�́A�L�x�ȃh� L��g��p�ӂ��Ă��t��T�|�[�g�t��̃c�[��ł��A� A�v��P�[�V��E�v��O��̊e�퉉�Z��܂��BMicrosoft �Ђ�VBscript�Ɋւ��L�͂ȃh�L��g�ƃA�v��P�[�V��E�m�[�g�𔭕\� ��Ă��܂��BX-Stream�I�V��X�R�[�v�ł́A��[�U�[�Ǝ��̉��Z�֐��p� ��[�^�֐��쐬��̂�VBscript��MATLAB�AMathCad��EXCEL�̂S�‚̃c�[��g�p�ł� �܂��B

��̂Ƃ��AX-Stream�I�V��X�R�[�v�͊֐��X�N��v�g�ƃp��[�^�E �X�N��v�g��2��ނ�VBscript�A�v��P�[�V��T�|�[�g�� ܂��B�֐��X�N��v�g�i�}1�Ɏ��Math�Z�b�g�A�b�v�E��j�� [�ɂ�'Wellenskripte'�ƕ\��j�́A�f�[�^��g��[�X��擾��A�\�[�X� E�g��[�X�̃f�[�^��H��ĐV��ʌ‚̃g��[�X��쐬��fasst��B �p��[�^�E�X�N��v�g�̓\�[�X�E�g��[�X�̃f�[�^��g� p��ĒP��̃p��[�^�l��v�Z��܂��B�p��[�^�E�X�N�� v�g��Measure��j��[��'Param Script'�Ƃ��ĕ\��Ă��܂��B

Visual Basic

�}1�FMath�Z�b�g�A�b�v��j��[��ão��VBscript�֐��iWave-Skript�j

VBscript�̗��_�́A��[�U�[�̌v�Z��I�V��X�R�[�v�̏��p�X�ɑg�� A�I�V��X�R�[�v�{�̂̃f�B�X�v��C�ɕ\��ł��邱�Ƃł��BVBscript�͊ȒP�Ɋo� ��ʓI�ȃv��O��ł��B�R�[�h�Ɋւ��o�ł ��Ă��܂��BVBscript�̓��[�U�[�Ǝ��̉��Z/�p��[�^��s�� ăI�V��X�R�[�v�Ɋ��S��ł��邽�́AX-Stream�I�V��X�R�[�v�� Ƀ��j�[�N�Ȑ��i�ɂ��Ă��܂��B

Visual Basic

�}2�FVBscript�G�f�B�^�ɕ\��ꂽ�f�t�H��g�̃X�N��v�g

�֐��X�N��v�g�iwave scripts�j��Math�Z�b�g�A�b�v��j��[��̃X �N��v�g�G�f�B�^��N��ăI�V��X�R�[�v�P�Ƃō쐬��邱�Ƃ� �ł��܂��i�}2�Q�Ɓj�B��邢�́A�e�L�X�g�G�f�B�^��g�p��ăI� t��C��ō쐬��X�N��v�g��X�N��v�g�G�f�B�^�Ƀ��[� h��邱�Ƃ��ł��܂��i�X�N��v�g�G�f�B�^��'Laden‘�{�^��N� ��b�N�j�BX-Stream�I�V��X�R�[�v�ɗp�ӂ��Ă��f�t�H��g��Wave�X �N��v�g��}2�Ɏ��܂��B��̃f�t�H��g�̃X�N��v�g�� ΁AVBscript��X-Stream�I�V��X�R�[�v�łǂ̂悤�ɓ��삷�邩��܂��B

�}3�̓f�t�H��g�̃X�N��v�g�̔��ł��B�`��̃X�e�[�g�� g�̐擪�ɕt��Ă��V��O��N�H�[�g�i'�j�́A��̃X�e�[�g�� g��R��g�ł��邱�Ƃ��Ă��܂��B�N�H�[�g�ɑ��e�L�X �g��VB�C��^�v��^�ł͖��܂��B

' TODO Fügen Sie hier Ihren benutzerdefinierten Code hinzu, der auf OutResult- und InResult-Objekte zugreift. ' Hier ist ein kleines Beispiel, das nur die Wellenform umkehrt. OutResult.Samples = InResult.Samples startData = 0 endData = OutResult.Samples newNumPoints = endData - startData ReDim newDataArray (OutResult.Samples) unscaledData = InResult.DataArray (False) For i = 0 To endData - 1 NewDataArray (i) = - unscaledData (i) Next OutResult.DataArray (False) = newDataArray 'unterstützt nur Rohdaten

�}3�F���͔g�`���C���o�[�g����f�t�H���g��Wave Script

VBscript�̓I�u�W�F�N�g�w��̃v��O��~��O��ł��B�I�u�W�F�N� g�w��̃v��O��ł́AObject.Property��Object.Method�Ƃ��\�L��g��܂��BProperty�̓I�u �W�F�N�g�̓��`��܂��B�Ⴆ�΁AFontSize�̓I�u�W�F�N�g�̃v��p�e� B�ł��BMethode�͓��̃A�N�V��w��fasst��B

�Ⴆ�΁ATurnBinary-IntoASCII(BinaryStuffln,ASCIIStuffOut�j�̓��\�b�h�ł��B�f�t�H��g�̃X�N��v�g�̏ꍇ� A�I�u�W�F�N�g��InResult��OutResult�ł��B��̃v��p�e�B��Samples�ŁA�f�[�^�z� Während��̃|�C��g�̐��w�肵�Ă��܂��B�T��v��̐��̓f�[�^��璼 �ڎ擾��邱�Ƃɂ��A�I�V��X�R�[�v�̎��\/��⃁��̐�Ɉˑ�� 邱�ƂȂ��X�N��v�g��g�p�ł��܂��BInResult.Samples�̒l�̓g��[�X��̃f�[�^�� ł��A��ʂɕ\��Ă��閼�ڒl��2�'傫��Ȃ��Ă��܂��B�ŏ��̃| �C��g�ł��DataArray(0)�͉�ʂ̍��[�Ɉ�v��܂��B�g��[�X�̖��ڒ��500 �̏ꍇ�A��ʂ̉E�[��501�\/ڂ̃|�C��g�ł��DataArray(500)�Ɉ�v��܂��B�Ō�̃|�C�� g�i502�j�͉�ʂ̉E�[��O��A��ĉ�ʂɂ͕\��fasst��B�X�N�� v�g�̃��[�v��endData �| 1�ŏI��̂͂��̂��twoł��BDataArray�v��p�e�B�́A� I�u�W�F�N�g�̃f�[�^�l��`��Ă��܂��BInResult.DataArray�Ɋ֘A�t��Ă��u� [��́A�f�[�^�z� ZurückziehenX�P�[��i�u�[��l=True�j��A�܂�� ̓X�P�[��Ȃ��i�u�[��l=Falsch�j��肵�܂��B�X�P�[�� … P�[��Ȃ��ꍇ�A�f�[�^�́{32,767��|32768�܂ł͈̔͂̕��t��l�Ƃ� ��B

�f�t�H��g�̃X�N��v�g�́A�\�[�X�g��[�X��f�[�^��ǂ�� A��̒l��C��o�[�g��܂��B��ʂƂ��Đ��f�[�^�E�I�u �W�F�N�g�iOutResult�j�̓I�V��X�R�[�v�ɕ\/��A�\��܂��B

VBscript��For/Next�ADo…Loop�AIf…Then�ASelect�Ȃǂ̐��X�e�[�g��g��T�|�[�g�� ܂��B��̐��X�e�[�g��g��g�p��āA�f�t�H��g�̃X�N ��v�g�Ɏ��Ă��悤�Ȕ��s��A��̓f�[�^�̊e�l� ��C��o�[�g��ꂽ�l�Œu��邱�Ƃ��ł��܂��B

��G��[�͎��s��Wave Script��j��[�ɕ\��܂��B�G��[�E� ��b�Z�[�W�ɂ͖�肪��s�̔":"��A��̓��e��ȒP�ɐ�� ܂��B�p��[�^�E�X�N��v�g��l�̃v��O��~�� O�E�c�[��ł��B

�y�[�W�g�b�v�ɖق�

�I��C��ς��

�� [��̂��⍇��

�V�~�����[�V���� Visual Basic

�V�~��[�V��
Visual Basic