★ 漢方世界 　投稿者：漢方世界 　(10/07/30(金) 18:31) No.8610 164.61.204.121.board.fz.fj.dynamic.163data.com.cn 漢方世界 精力剤、精力増強剤、漢方精力剤、男性用精力剤、男性用性欲剤、媚薬、女性用媚薬、女性用催情剤、女性用性欲剤、ED薬、男性用ED薬【www.kanpouworld.com】 ☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆.:・'゜☆ 威哥王（ウェイカワン）の説明 中国バイアグラ・パワーアップ 威哥王ウェイかワンでSEXに自信ある男に大変身！見事復活風俗嬢も喜ぶ！ 2005年もこの精力剤・威哥王(ウェイカワン)が上海で圧倒的人気である。滋養強壮作用・性機能の強化向上・勃起力・持続力の強化。威哥王の本家「錦州中美」の製品で、かずある威哥王のなかでも最強の威哥王です。 この威哥王(ウェイカワン)の爆発的パワーを一度体感してください！http://www.kanpouworld.com/04/14.html

★ Re^6: 理解できない計算結果を出力して困っています。 　投稿者：20100730 　(10/07/30(金) 18:16) No.8609 p7153-adsao01yokonib1-acca.kanagawa.ocn.ne.jp /*ご参考　/common/hspdef.as のマクロをその場しのぎで改造してみる */ ;#define global ctype powf(%1,%2) expf(logf(%1)*(%2)) #define global ctype powf2(%1,%2) expf(logf(%1)*(%2))*1.00000000000001 repeat 35 mes strf("2の %2d 乗は %20f %20f %12d %12d です。",cnt,powf(2,cnt),powf2(2,cnt),int(powf(2,cnt)),int(powf2(2,cnt))) loop

★ Re^5: 理解できない計算結果を出力して困っています。 　投稿者：石松 　(10/07/27(火) 09:18) No.8604 sndr2.swgproxy.osakac.ac.jp ANTARESさんのおっしゃるとおりだと思います。 しかし、プログラミング初心者マークの者としては、算数で習ったとおりの答えがほしいものですね。 > 　結局、バグと言えば、まあバグなのでしょうが、 > HSPのバグかAPIのバグかは調べてみないとわからないということです。

★ Re^4: 無題 　投稿者：ANTARES [Link]　(10/07/27(火) 02:18) No.8603 softbank219187188032.bbtec.net >varptrはちがうみたいですね。 >しかし、相変わらず変数アドレスを渡すやりかたがまったくわかりません。 　引数の型をintにして引数に「varptr(変数名)」を渡してもダメですか？

★ Re^4: 理解できない計算結果を出力して困っています。 　投稿者：ANTARES [Link]　(10/07/27(火) 02:00) No.8602 softbank219187188032.bbtec.net 　結局、バグと言えば、まあバグなのでしょうが、 HSPのバグかAPIのバグかは調べてみないとわからないということです。

★ Re: 無題 　投稿者：ANTARES [Link]　(10/07/27(火) 01:02) No.8600 softbank219187188032.bbtec.net >1:varとは、変数の中身を刺すのでしょうか?それとも変数名を刺すのでしょうか? 　よくわかりません。 >2:デコーダーのDLLを使いたいのですが、デコードしたものを保存する変数を >指定したい場合はどの型を設定すればいいのでしょうか? 　使いたい関数の仕様によります。 >3:デコードする前にデコードしたものが返ってくる変数は >文字列型にしておくべきでしょうか? 　使いたい関数の仕様によります。 　一般論で訊かれると、一般論で答えなければなりませんが、 一般論では正確性に自信が持てなかったり、誤解を与える可能性が残ったりして 推敲する度に書き直した挙げ句、結局、意味のあることは何も書けなくなって しまったりします。 質問は個別的、具体的にお願いします。 そうしないと、「レスしない」か「無意味なレスを返す」以外に 選択肢がない場合があります。

★ Re^3: 理解できない計算結果を出力して困っています。 　投稿者：ANTARES [Link]　(10/07/27(火) 00:31) No.8598 softbank219187188032.bbtec.net >教えていただいた方法で解決はするのですが、 >これってHSPのバグのような気がしませんか。 　C++で同じことをやって、どうなるか試してみようかと思いましたが、 仮に私がバグだと思っても開発担当者がバグだと思わなければ 意味がないのでやめました。

★ Re^3: 無題 　投稿者：にゃんちゃん 　(10/07/26(月) 17:21) No.8596 nvs06.nns.ne.jp すみません。勘違いしてました。 varptrはちがうみたいですね。 しかし、相変わらず変数アドレスを渡すやりかたがまったくわかりません。 どなたか教えてください。

★ Re^2: 無題 　投稿者：にゃんちゃん 　(10/07/26(月) 17:15) No.8595 nvs06.nns.ne.jp あれから調べたのですが、varptrで変数のアドレスを渡せることが分かって何も考えずにやってみたら使えないみたいでした。 varptrと同じことをするにはどうしたらいいのですか？ 変数の中身ではなくて、変数の名前を渡したいんです。

★ Re^2: 理解できない計算結果を出力して困っています。 　投稿者：石松 　(10/07/26(月) 09:39) No.8591 sndr2.swgproxy.osakac.ac.jp ANTARESさん、教えていただきありがとうございました。 教えていただいた方法で解決はするのですが、これってHSPのバグのような気がしませんか。 > for i,0,8,1 > atai=int(powf(2,i)+0.1);八捨九入（もちろん四捨五入でも可） > mes strf("2の %d 乗は %d です。",i, atai) > next

★ Re^2: 外部DLLの戻り値について 　投稿者：にゃんちゃん 　(10/07/24(土) 10:55) No.8588 nvs06.nns.ne.jp こんにちは。 ってことは、戻り値はかならずstatに返ってくるのですね。 ありがとうございました。

★ Re: 理解できない計算結果を出力して困っています。 　投稿者：ANTARES [Link]　(10/07/24(土) 05:10) No.8587 softbank219187188037.bbtec.net 別法 for i,0,8,1 atai=int(powf(2,i)+0.1) ;八捨九入（もちろん四捨五入でも可） mes strf("2の %d 乗は %d です。",i, atai) next 前のスクリプトの「2.0」は「2」でいいです。

★ Re: 外部DLLの戻り値について 　投稿者：ANTARES [Link]　(10/07/24(土) 04:59) No.8586 softbank219187188037.bbtec.net >特に戻り先を指定するパラメータがなくて、 >statにファイルを操作するためのハンドルが入るはずなのですが、 >無効なハンドルだといわれてしまいます。 　何か使い方を間違えているのでしょう。 #include "user32.as" mes hwnd GetForegroundWindow mes stat

★ Re: 理解できない計算結果を出力して困っています。 　投稿者：ANTARES [Link]　(10/07/24(土) 04:58) No.8585 softbank219187188037.bbtec.net for i,0,8,1 atai=powf(2.0,i) mes strf("2の %d 乗は %g です。",i, atai) next

★ Re: 表示方法について。 　投稿者：20100621 　(10/06/21(月) 16:33) No.8549 p7153-adsao01yokonib1-acca.kanagawa.ocn.ne.jp /*ご参考*/ #include "hsp3util.as" sdim ss sdim dd text 1 emes dirinfo(1)+"\\common\\hsp3util.as notesel dd :noteload dirinfo(1)+"\\common\\hsp3util.as noteget ss,86 :mes ss noteget ss,88 :mes ss noteget ss,59 :mes ss noteget ss,61 :mes ss

★ Re: 無題 　投稿者：29100614 　(10/06/14(月) 23:16) No.8546 p10111-adsan02yokonib1-acca.kanagawa.ocn.ne.jp /*[redraw 2]を外した状態が不具合と同じなら再描画の問題でしょうか(←→↑↓)*/ sw = 0 ;(0 != gcopy) if (sw) {picload dirinfo(1)+"/sample/demo/jp6girl.bmp",1 xx = 0 :yy = 200 color 255,255,255 :boxf 0,200,280,480 } else {xx = 100 :yy = 100} repeat redraw 2 if (sw) {color 255,255,255 :boxf xx(0),yy(0),xx(0)+280,yy(0)+200 } else {color 255,255,255 :boxf xx(0),yy(0),xx(0)+100,yy(0)+100} getkey kk,37 :if kk {xx(0)-=2} getkey kk,39 :if kk {xx(0)+=2} getkey kk,38 :if kk {yy(0)-=2} getkey kk,40 :if kk {yy(0)+=2} if (xx(0) <= 0) {xx(0) = 0} if (xx(0) >= 540) {xx(0) = 540} if (sw) {if (yy(0) <= 200) {yy(0) = 200} } else {if (yy(0) <= 0) {yy(0) = 0} if (yy(0) >= 380) {yy(0) = 380} if (sw) {pos xx(0),yy(0) :gcopy 0,0,0,280,200 } else {color 128, 64,128 :boxf xx(0),yy(0),xx(0)+100,yy(0)+100} redraw 1 await loop

★ Re^3: 無題 　投稿者：たろう 　(10/06/11(金) 23:20) No.8544 p025.net059084239.tokai.or.jp ありがとうございました。解決致しました。 >20100611さん サンプルコードありがとうございます。 これだけの文字量でも意外と差が出るんですね。 >Kpanさん 20100611さんのコードを前者・後者別々で実行してみましたが、やはりコード量が少ない後者のほうが早い結果が出ました。 コード組んでて気になったので、助かりました。

★ Re^2: 無題 　投稿者：Kpan [Link]　(10/06/11(金) 21:34) No.8543 i222-150-143-45.s05.a011.ap.plala.or.jp 20100611さんのサンプルは、同じ変数名の宣言が すでに行なわれてる後者の方が有利に処理されて しまいます。あくまでコード上での話ですが。（＾＾; 変数名を別のものにするか、別個でコンパイルするか

★ Re: 無題 　投稿者：Kpan [Link]　(10/06/11(金) 21:21) No.8541 i222-150-143-45.s05.a011.ap.plala.or.jp おっしゃるように、後者の方が処理量が少ないので コード上では速いです。 この程度の文字量ではほとんど差はでないでしょうが。

★ Re: 無題 　投稿者：20100611 　(10/06/11(金) 21:11) No.8540 p23070-adsau04yokonib3-acca.kanagawa.ocn.ne.jp /*winmmのタイマーの方が制度が高いけど単純にこんな感じかしら？*/ #include "kernel32.as" gettickcount :ii = stat repeat 1000000 ;await a = "あいうえおかきくけこ" b = "さしすせそたちつてと" al = strlen(a) bl = strlen(b) c = ""+al+","+bl loop gettickcount :t1 = stat-ii gettickcount :ii = stat repeat 1000000 ;await a = "あいうえおかきくけこ" b = "さしすせそたちつてと" c = ""+strlen(a)+","+strlen(b) loop gettickcount :t2 = stat-ii mes strf("CASE1 = %d CASE2 = %d DEF = %d /1,000,000回",t1,t2,t1-t2)

★ Re: 無題 　投稿者：Kpan [Link]　(10/06/06(日) 22:35) No.8538 i121-119-87-19.s05.a011.ap.plala.or.jp 付属サンプルをチェックしてください。 > hsp321\sample\basic\clock.hsp > hsp321\sample\basic\clock2.hsp あと、Googleで「時計 hsp」という感じで 検索すれば講座サイトがたくさんヒットします。

★ Re: inputの入力 　投稿者：Kpan [Link]　(10/06/06(日) 22:33) No.8537 i121-119-87-19.s05.a011.ap.plala.or.jp 付属サンプルをチェックしてください。 > hsp321\sample\basic\str.hsp > hsp321\sample\basic\onkey.hsp あと、Googleで「input hsp」という感じで 検索すれば講座サイトがたくさんヒットします。

★ Re^2: デスクトップ上でマウスカーソルを追いかけるキャラを作りたいんですが・ 　投稿者：20100528 　(10/05/28(金) 00:26) No.8533 p14007-adsau04yokonib3-acca.kanagawa.ocn.ne.jp /* 標準命令でＯＫなのね */ gsel 0,-1 bgscr 1 dim np,2 dim op,2 dim dd,2 dim sz,2 dim kk,1 picload dirinfo(1)+"/sample/demo/onibtn.gif",0 sz(0) = ginfo(10)/2,ginfo(11)/2 mouse ginfo(4)+sz(0),ginfo(5)+sz(1) repeat op(0) = np(0),np(1) np(0) = ginfo(0)-sz(0),ginfo(1)-sz(1) stick kk,0 if (kk & 128) or (kk & 256) {end} if (op(0) != np(0)) or (op(1) != np(1)) {gosub *MoveF} await loop *MoveF dd(0) = (np(0)-op(0))/10 dd(1) = (np(1)-op(1))/10 repeat 10,1 width ,,op(0)+(dd(0)*cnt),op(1)+(dd(1)*cnt) wait 1 loop return

★ Re: デスクトップ上でマウスカーソルを追いかけるキャラを作りたいんですが・ 　投稿者：20100527 　(10/05/27(木) 15:56) No.8532 p14007-adsau04yokonib3-acca.kanagawa.ocn.ne.jp /*　ご参考　*/ #include "user32.as" dim np,2 dim op,2 dim dd,2 picload dirinfo(1)+"/sample/demo/jp6girl.bmp",0 repeat op(0) = np(0),np(1) GetCursorPos varptr(np) stick kk,0 :if (kk & 128) or (kk & 256) {end} if (op(0) != np(0)) or (op(1) != np(1)) {gosub *MoveF} await loop *MoveF dd(0) = (np(0)-op(0))/10 dd(1) = (np(1)-op(1))/10 repeat 10,1 SetWindowPos hwnd,0,op(0)+(dd(0)*cnt),op(1)+(dd(1)*cnt),0,0,$1 wait 1 loop return

★ Re^3: noteget命令など 　投稿者：20100517 　(10/05/17(月) 00:47) No.8526 p3174-adsan02yokonib1-acca.kanagawa.ocn.ne.jp /*split命令でもいいと思いますよ*/ notesel dd dd = "128,32,64\n255,255,255\n" ;notesave "test.dat" ;noteload "test.dat" repeat noteinfo(0) noteget ii,cnt split ii,",",rr,gg,bb mes strf("%d %d %d",rr,gg,bb) ;split ii,",",jj ;mes strf("%d %d %d",jj(0),jj(1),jj(2)) color 0+rr,0+gg,0+bb boxf 0,240,640,480 await 1000 loop

★ Re^2: noteget命令など 　投稿者：peg 　(10/05/15(土) 13:03) No.8525 khp059140185233.ppp-bb.dion.ne.jp > notegetで一行読んだら、getstrでカンマを区切りとして > rgbの各値を３つの変数に読み込んでください。 回答有難うございます！ 質問した後も自分で試行錯誤していてsplit命令が使えるかなーっと思って試してました。 getstr命令の存在に気づかず、教えて頂き感謝しますm(_ _)m

★ Re: noteget命令など 　投稿者：ANTARES [Link]　(10/05/15(土) 01:05) No.8524 softbank219187188042.bbtec.net 　書式のカンマを変数内のカンマで代用することはできません。 書式のカンマはスクリプトそのものに書く必要があります。 notegetで一行読んだら、getstrでカンマを区切りとして rgbの各値を３つの変数に読み込んでください。