hidmon_test1.hsp

sample\HIDaspx\hidmon_test1.hsp » Plain Format

	#include "hidmon.as"

	button "終了",*owari

	bits=1,2,4,8,16,32,64,128,64,32,16,8,4,2,1
	max_bits=length(bits)

	;	hidmon.dllサンプル
	;
	hidinit "#"
	;	↑ヒダピオ等、商用デバイスの場合は、
	;	「hidinit "#"」で初期化してください
	if stat<0 {
		dialog "USBデバイスの初期化に失敗しました。"
		end
	}
	mes "UsbInit成功"

	mes strf("PORTB=$%x",portb)
	mes strf("PORTD=$%x",portd)
	mes strf("PINB=$%x",pinb)
	mes strf("PIND=$%x",pind)
	mes strf("DDRB=$%x",ddrb)

	count=0
*main
	i=bits( count\max_bits )
	hidpoke portb,i
	value=hidpeek(pind)
	pd0=(value&1)=1
	pd1=(value&2)=2
	
	title "PD0="+pd0+"/PD1="+pd1
	await 30
	count=count+1
	goto *main

*owari
	hidbye
	end