HOME > Q&A > Access （VBA）

Access （VBA）
Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録（無料）が必要です。会員登録がまだの方はこちら
  • 「掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Access 2016)
Windows 10 IoT ハンディターミナル
投稿日時: 22/06/14 11:36:31
投稿者: みっつ〜

Windows 10 IoTベースのバーコードハンディターミナル上でAccessプログラムを動作させ、何らかの動作を行ったときにバイブレーションを作動させたいです。
例えば何か間違った値が入った時など
 
Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
を記述して
Call Beep(1440, 1500)
として音を出すことは出来るようですがバイブレーションさせる事が出来ればなお良いと思いましてお知恵を拝借できればと質問しました。
回答
投稿日時: 22/06/14 15:24:43
投稿者: Suzu

Accessの 標準機能としてはありません。
 
Microsoft Emulator for Windows 10 Mobile を使ったテスト
https://docs.microsoft.com/ja-jp/windows/uwp/debug-test-perf/test-with-the-emulator
 

引用:
エミュレーターでテストできない機能
次の機能は物理デバイスでのみテストします。
 
Compass
ジャイロスコープ
バイブレーション コントローラー
明るさ。 エミュレーターの明るさのレベルは常に高です。

 
との事なので、エミュレータでもダメなのでしょうね。
 
 
となると、APIでしょうか。
 
Windows Mobileでバイブレーションを制御する
https://blog.ch3cooh.jp/entry/20081202/1228225140
 
参考になるとは思います。
ちょっとやってみたけど、kernel32.dll ではなく、coredll.dll
Windoed CE 等の DLLみたいなので、 VS を入れてないと インストールされていない様で
小生の環境では テストできませんでした。
 
何にしても、バイブレーションデバイスのない 普通の PCでは
実動作のテストまでは できないでしょうけど。
投稿日時: 22/06/15 13:10:00
投稿者: みっつ〜

Suzu様
 
情報ありがとうございます。
頂いた情報だとWindows Mobile用のようですが今回は実機が手元にあるのでURLを参考に試してみたところ
OSが「Windows 10 IoT」なのでちょっと違うのかな？という感じでした。
 
Windows APIにバイブレーションさせるものかあれば良いのですが・・・
 
もしよければ試されたコードなどを教えて頂けませんか？
回答
投稿日時: 22/06/16 10:50:08
投稿者: Suzu

引用:
もしよければ試されたコードなどを教えて頂けませんか？

先のリンク先のコードを VBAで動作する様に書き換えたモノです。
 
テストも何もできておらず、自信もあまりないので、掲示するのははばかられます。
投稿日時: 22/06/16 11:12:56
投稿者: みっつ〜

Suzu様
 
返信ありがとうございます。
もう少し頑張ってみたいと思います。
トピックに返信