【音楽の秋】の質問

　皆さん、質問の回答・コメントありがとうございました。
　どちらも、いい曲でしたが、BAは個人的な好みで決めました。(^^♪

●加古隆クァルテット『パリは燃えているか』

※参考URL
●加古隆 - Wikipedia

パリは燃えているか =集成=

【Twitterのロゴ】のアンケート

　皆さん、アンケートの回答ありがとうございました。
　全員、「小鳥」の方が、いいようです。(^_^;
　まぁ、買った人の自由なんでしょうけど。(^_^;

※参考URL
●Twitterのロゴの歴史。小鳥に秘められた意味と「X」の襲来 - Workship MAGAZINE(ワークシップマガジン)

Club - Les Winner's

　何かいい感じなので、はりました。(^_^;
●Club - Les Winner's

Club

YOASOBI ／ Idol (「アイドル」)

　この曲は、2023年6月10日付の米ビルボード・グローバル・チャート“Global Excl. U.S.”で1位を獲得したそうです。
●YOASOBI ／ Idol (「アイドル」English Ver. )

※参考URL
●YOASOBI、「アイドル」が米ビルボード・グローバル・チャート“Global Excl. U.S.”で首位獲得

【Amazon.co.jp限定】YOASOBI アイドル (完全生産限定盤) (メガジャケ付)

【はてなポイント払戻し】の質問

　皆さん、質問の回答ありがとうございました。はてなスタッフさんからも直々に回答いただきました。

払い戻しの対象となるポイントは、ご自身で購入したかどうかに限らず、未使用の「はてなポイント」全ポイントとなります。（人力検索はてなのポイント付き質問への回答などで受け取ったポイントも払い戻しの対象となります。）

ということで、安心しました。そして、申し込みも無事に完了しました。ありがとうございました。m(_ _)m

十進BASICでJavaScriptのeval関数を呼び出してみた

　十進BASICでJavaScriptのeval()関数を呼び出してみました。(^_^;
　VBScriptのように、あまりいろんなことはできませんが、eval()関数内で代入ができます。(^_^;
　それから、「Math.」を付けるのが面倒なので、付けなくてもいいように工夫しました。

● JsEval1.BAS

DECLARE EXTERNAL FUNCTION Js.Eval$, Js.Eval

LET dummy = Eval("cosDeg=function(x){return cos(x/180*PI);}") ! 関数定義

LET f$ = "cosDeg(x)"
FOR x=0 TO 180 STEP 30
   PRINT x, Eval("x="& STR$(x) &"; "& f$)
NEXT x

END

MODULE Js
OLE CREATEOBJECT "ScriptControl"
EXTERNAL SUB setLanguage(s$)
   OLE PropertyPut "language"
END SUB
CALL setLanguage("Jscript")
PUBLIC FUNCTION Eval$, Eval
EXTERNAL FUNCTION Eval$(s$)
   OLE METHOD "eval"
END FUNCTION

! 実数を返すEval
EXTERNAL FUNCTION Eval(s$)
   LET s$ = "with(Math){" & s$ & "}"   ! 「Math.」を省略するため
   WHEN EXCEPTION IN
      LET r$ = Eval$(s$)
      SELECT CASE r$
      CASE "INF" 
         LET result = MAXNUM
      CASE "-INF"
         LET result =-MAXNUM
      CASE ELSE
         LET result = VAL(r$)
      END SELECT
   USE
   !   PRINT r$
      LET result = -EPS(0) ! エラーのときは負のEPS(0)を返す
   END WHEN
   LET Eval= result
END FUNCTION

END MODULE

●実行結果

 0                       1 
 30                      .866025403784439 
 60                      .5 
 90                      6.12303176911189E-17 
 120                    -.5 
 150                    -.866025403784439 
 180                    -1 

※参考URL
●十進BASIC−OCXの利用
●十進BASICでVBScriptのeval関数を呼び出してみた - rscのブログ
●十進BASICでVBScriptのeval関数を呼び出してみた。(2) - rscのブログ

パソコンを遊ぶ簡単プログラミング―コンピュータを自由に操る「十進BASIC」入門 CD-ROM付 (ブルーバックス)

Aimer 『茜さす』

●Aimer 『茜さす』

茜さす/everlasting snow(初回生産限定盤A)(DVD付)