hidmon_test2.hsp

sample\HIDaspx\hidmon_test2.hsp » Plain Format

	#include "hidmon.as"

	title "hidmon test"
	syscolor 15:boxf
	color 0,0,0

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

	pos 4,4
	mes "portB bits"
	objsize 14,24
	x=max_bits*24:y=24
	repeat max_bits
		pos x,y
		chkbox "",bit(cnt)
		pos x+2,y+24
		mes ""+cnt
		x-=24
	loop

	pos 4,68
	mes "pinD"

	pos 0,120
	objsize 160,24
	button "終了",*owari

	;	hidmon.dllサンプル2
	;
	hidinit "#"
	;	↑ヒダピオ等、商用デバイスの場合は、
	;	「hidinit "#"」で初期化してください
	if stat<0 {
		dialog "USBデバイスの初期化に失敗しました。"
		end
	}
*main
	bvalue=0
	repeat max_bits
		if bit(cnt) : bvalue+=bits(cnt)
	loop
	hidpoke portb,bvalue
	value=hidpeek(pind)
	x=24:y=88
	if value&1 : color 255,255,255 : else : color 0,0,0
	boxf x,y,x+15,y+15
	x=48:y=88
	if value&2 : color 255,255,255 : else : color 0,0,0
	boxf x,y,x+15,y+15
	
	await 15
	count=count+1
	goto *main

*owari
	hidbye
	end