As - HSP開発wiki

データベースソフト開発に取り組んでます。
他にもGDIを利用しない似非オブジェクトの作成。
現在は似非スクロールバーを作っていますがうまくいかずorz

↑

自作モジュール＆サンプル †

[編集]

ひとつひとつ丹精を込めて１日の長い時間をへて熟成しております(死

暗号化RC5だかどうかは不明

ソース

//暗号化 (STR)暗号化する変数,(STR)鍵
#deffunc ang_enc var p1,str p2
//パスワードの数値化
s1 = p1:s2=p2:s3=strlen(s2):s6=strlen(s1):s5="":s8=0:randomize(2):repeat s3:s5+=str(wpeek(s2,cnt)+rnd(10))
s8+=int(wpeek(s2,cnt)+rnd(10)):loop
//暗号化
randomize(s8):repeat s6:s7=peek (s1,cnt):s7 = s7 + 45 + int(strmid(s5,s4,cnt)) - rnd(10)   &255
s4+:if s4>s3{s4=0}poke s1,cnt,s7:loop:s4=0:p1= s1:return
 
//復号化 (STR)復号化する変数,(STR)鍵
#deffunc ang_dec var p1, str p2
//パスワードの数値化
s1 = p1:s2=p2:s3=strlen(s2):s6=strlen(s1):s5="":s8=0:randomize(2):repeat s3:s5+=str(wpeek(s2,cnt)+rnd(10))
s8+=int(wpeek(s2,cnt)+rnd(10)):loop
//暗号化解除
randomize(s8):repeat s6:s7=peek (s1,cnt):s7 = s7 - 45 - int(strmid(s5,s4,cnt)) + rnd(10)  &255
s4+:if s4>s3{s4=0}poke s1,cnt,s7:loop:p1=s1:return

HSPウィンドウを内蔵ウィンドウに

ソース

// ID,親ウィンドウ,W,H,X,Y
//操作先ウィンドウを変更しない
#deffunc naizou_screen int p1, int p2,int p3,int p4,int p5,int p6
s1=ginfo(3):gsel p2:s2=hwnd:bgscr p1,p3,p4,2,p5,p6
SetWindowLongA hwnd,GWL_STYLE,WS_VISIBLE|WS_CHILD:pm=hwnd,GWL_EXSTYLE,WS_EX_CLIENTEDGE
SetParent hwnd,s2:gsel s1:return

二つの画像を比較し総似率を返す

ソース

 
 
 
 
 
 
 
-
!
 
 
 
 
 
 
-
|
|
!
 
-
-
-
!

//比較除外色の情報をすべてクリア
#deffunc imghclsdel
dim IMGHCOLOR,1:return
 
//	比較する対象から除外する色を指定
//  imghclsadd R,G,B
#deffunc imghclsadd int p1, int p2, int p3
if IMGHCOLOR=0{sdim IMGHCOLOR,64,0:IMGHCOLOR.(length(IMGHCOLOR)-1)=""+p1+","+p2+","+p3
}else{:IMGHCOLOR.(length(IMGHCOLOR))=""+p1+","+p2+","+p3:}:return
 
//imgh 比較範囲X, 比較範囲Y, 比較元画像情報が入った変数,比較先画像情報が入った変数
//比較元画像変数名 = 画像があるバッファID, 左上X、左上Y
//画像の相似率が％で帰ります。
#defcfunc imgh int p1,int p2,array p3, array p4
s2=ginfo(3):s8=0:gsel p3:mref s1,66:s11=ginfo_winx:s12=ginfo_winy:gsel p4:mref s9,66:s13=ginfo_winx
s14=ginfo_winy:gsel s2:if (""+p3(0)+","+p3(1)+","+p3(2))!IMGHROOT{IMGHROOT=""+p3(0)+","+p3(1)+","+p3(2)
s4=0:dim IMGHROOTTOP,p1+1,p2+1,3:gsel p3(0):repeat p2:s3=0:repeat p1:s10=((s12-1-(s4+p3(2)))*s11+(s3+p3(1)))*3
IMGHROOTTOP.s3.s4.0=peek(s1,s10+2):IMGHROOTTOP.s3.s4.1=peek(s1,s10+1):IMGHROOTTOP.s3.s4.2=peek(s1,s10)
s3+:loop:s4+:loop}gsel p4(0):s4=0:s5=1:repeat p2:s3=0:repeat p1:s7=0:foreach IMGHCOLOR
if (""+IMGHROOTTOP.s3.s4.0+","+IMGHROOTTOP.s3.s4.1+","+IMGHROOTTOP.s3.s4.2)=IMGHCOLOR.cnt{s7=1}loop
if s7!1{s10=((s14-1-(s4+p4(2)))*s13+(s3+p4(1)))*3:s15=peek(s9,s10+2):s16=peek(s9,s10+1):s17=peek(s9,s10)
s7=0:foreach IMGHCOLOR:if (""+s15+","+s16+","+s17)=IMGHCOLOR(cnt){s7=1}loop:if s7!1{
if (IMGHROOTTOP(s3,s4,0)=s15)&(IMGHROOTTOP(s3,s4,1)=s16)&(IMGHROOTTOP(s3,s4,2)=s17){s8+}else{s5=0} }else{
s8+} }else{s8+}s3+:loop:s4+:loop:gsel s2:s8=double(s8)/double((p1*p2)):return s8

フォルダがあるかないか調べる

ソース

#defcfunc folderchek str p1
mref ref,65
 
dirlist s2,"*.*",5
notesel s2
s4=0
repeat notemax
noteget s3,cnt
if s3=p1:s4=1:break
loop
 
ref=dir_cur+"\\"+p1
 
return s4
 
//あった場合1を返す
//現在のカレントフォルダ内にあるフォルダを調べます

指定した位置に文字列を上書き

ソース

//指定した位置に文字列を上書き保存
//setmoji 変更する変数, 上書きする位置, 文字列
#deffunc setmoji var p1, int p2, str p3
 
    s3=strlen(p3)
    s1=strmid(p1,0,p2)
    s2=strmid(p1,p2+s3,strlen(p1)-(p2+s3))
    p1=s1+p3+s2
    return

指定した文字列を特定の文字列で区切り配列変数に代入

ソース

-
!

//文字列分割 selcut 配列変数, 読み出す文字列, 区切る文字
#deffunc selcut array p1,str p2,str p3
dim p1:s5=0:s3=0:s1=p2:s4=p3:repeat:s2=instr(s1,s3,p3):if s2=-1{s3=strlen(s1)+1}s3+=s2
p1(cnt)=strmid(s1,s5,s3-s5):if ("\""=strmid(p1(cnt),0,1))&("\""=strmid(p1(cnt),-1,1)){
p1(cnt)=strmid(p1(cnt),1,strlen(p1(cnt))-2)}s3+=strlen(s4):s5=s3:if s2=-1{break}loop:return

サイズ可変ウィンドウの作成

ソース

//サイズ可変ウィンドウの作成
//screen_rt ID, width, height, damy, PX, PY
#deffunc screen_rt int p1, int p2, int p3, int p4, int p5, int p6
screen p1, ginfo (20), ginfo (21),0,ginfo(20)+10,ginfo(21)+10,0,0
    pm=hwnd,-16
    dllproc "GetWindowLongA",pm,3,D_USER
    s1=stat
    pm=hwnd,-16,s1 | $10000 | $40000
    dllproc "SetWindowLongA",pm,3,D_USER
    width p2, p3,p5,p6
    gsel 0,1
return

マウスが指定した範囲内にある場合は1を返す

ソース

-
!

//マウスが指定した範囲内にある場合は1を返す
//mouserect ポジション取得モード(0=システム変数,1=LPARAM),左上X,左上Y,右下X,右下Y
#defcfunc mouserect int p1,int p2, int p3, int p4, int p5
if p1=0{if (p2<=mousex)&(p3<=mousey)&(p4>=mousex)&(p5>=mousey){return 1} }if p1=1{
if (p2<=LOWORD(lparam))&(p3<=HIWORD(lparam))&(p4>=LOWORD(lparam))&(p5>=HIWORD(lparam)){return 1} }return 0

へこんでいる箱を描画

ソース

//Redraw  mode
#deffunc hekomibox int p1,int p2,int p3,int p4
redraw 0:syscolor2 15:boxf p1-4,p2-4,p3+2,p4+2:syscolor2 16:boxf p1-4,p2-4,p3+1,p4+1:syscolor2 21:boxf p1-3,p2-3,p3+1,p4+1
syscolor2 16:boxf p1,p2,p3-2,p4-2:syscolor2 15:boxf p1-2,p2-2,p3+2,p4+1:syscolor2 20:boxf p1-2,p2-2,p3+1,p4+1:
syscolor2 15:boxf p1-2,p2-2,p3,p4:syscolor2 20:pset p3+1,p2-3:syscolor2 20:pset p1-3,p4+1:redraw 1:return

文字列の縦の横の長さを取得

ソース

  1
  2
  3

//gts 文字列の縦横の長さを取得  p1 0=横 1=縦 の長さ　p2=文字列
#defcfunc gts int p1,str p2
if p1>1{return 0}s1=p2:dim s2,2:GetTextExtentPoint32A hdc,varptr(s1),strlen(s1),varptr(s2):return s2(p1)

似非グループボックスの作成

ソース

 
 
 
 
-
!
 
 
-
!

;---------------------------------------------------------------------------
;  groupbox  "",sx,sy        グループボックスを作成する
;---------------------------------------------------------------------------
#deffunc groupbox str p1,int p2,int p3
s1=ginfo(22):s2=ginfo(23):if p2>=80{s3=ginfo(22)+p2}else{s3=ginfo(22)+80}if p3>=40{s4=ginfo(23)+p3}else{
s4=ginfo(23)+40}syscolor2 8:pos s1+9,s2:mes p1:s5=ginfo(14)+s1+9:s6=ginfo(15)+s2:if p1!""{s7=ginfo(15)/2}
else{s7=0}syscolor2 16:line s1,s2+s7-1,s1,s4:syscolor2 20:line s1+1,s2+s7+1,s1+1,s4:syscolor2 16
line s1,s4,s3,s4:syscolor2 20:line s1,s4+1,s3,s4+1:syscolor2 16:line s3,s2+s7,s3,s4:syscolor2 20
line s3+1,s2+s7+1,s3+1,s4:if p1!""{syscolor2 16:line s1,s2+s7,s1+6,s2+s7:syscolor2 20
line s1+1,s2+s7+1,s1+6,s2+s7+1}else{syscolor2 16:line s1,s2+s7,s3,s2+s7:syscolor2 20:line s1+1,s2+s7+1,s3-1,s2+s7+1}
if p1!""{syscolor2 16:line s5,s2+s7,s3,s2+s7:syscolor2 20:line s5,s2+s7+1,s3-1,s2+s7+1}return

ウィンドウハンドルの取得

ソース

//findwindowtitle "ウィンドウクラス","ウィンドウタイトル"
#defcfunc findwindowh str p1,str p2
s1=p1:s2=p2:if s1!""{s3=varptr(s1)}else{s3=0}
if s2!""{s4=varptr(s2)}else{s4=0}:FindWindowA s3,s4:return stat

下位ワード値上位ワード値の取得

ソース

  1
  2

#define global ctype    LOWORD(%1) (%1 & 0xFFFF)    //下位ワード値を取得
#define global ctype    HIWORD(%1) ((%1 >> 16 ) & 0xFFFF)    //下位ワード値を取得

As

OFFICIAL/関連

TUTORIAL

TOPICS

ETC

EDIT

REFERENCE

LOG

お知らせ

HSP Web-Ring

最新の40件

As †

自作モジュール＆サンプル †