| <![CDATA[
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- スクリプト部分のHTML・File name:cl_vbs_side.html -->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=Shift_JIS">
<title>ステータスメッセージVBScript</title>
<script language="VBScript"><!--
'Color Arrangementor・VBScript版 Ver.1.00
'by Yuichiro Saito <http://www2.airnet.ne.jp/y-saito/>
'Created: Mar. 12. 1998
'自由に書き換えてかまいませんが、著作権表示は必ず残して下さい
'初期設定
top.view_w.document.bgcolor = vbblack
'配色関係
dim red_v, grn_v, blue_v
red_v = 0
grn_v = 0
blue_v = 0
'固定されるべき数
dim shift_v
shift_v = 15 '一度に増えたり減ったりする大きさを指定します
private sub red_u_onclick
red_v = red_v + shift_v
call print_text
end sub
private sub red_d_onclick
red_v = red_v - shift_v
call print_text
end sub
private sub grn_u_onclick
grn_v = grn_v + shift_v
call print_text
end sub
private sub grn_d_onclick
grn_v = grn_v - shift_v
call print_text
end sub
private sub blue_u_onclick
blue_v = blue_v + shift_v
call print_text
end sub
private sub blue_d_onclick
blue_v = blue_v - shift_v
call print_text
end sub
private sub print_text
red_v = valchk(red_v)
grn_v = valchk(grn_v)
blue_v = valchk(blue_v)
'右ウィンドウにサンプルを写します
p_value.value = "#" & cl_hex(red_v) & cl_hex(grn_v) & cl_hex(blue_v)
'テキストの部分に値を出します
top.view_w.document.bgcolor = rgb(blue_v, grn_v, red_v)
end sub
private function cl_hex(hex_v) '16進数表示を処理します
if hex_v > 16 then
cl_hex = hex(hex_v)
else
cl_hex = "0" & hex(hex_v)
end if
end function
private function valchk(c_val) 'オーバーフローを押さえます
if c_val => 0 and c_val =< 255 then
valchk = c_val
elseif c_val > 256 then
valchk = 255
else
valchk = 0
end if
end function
--></script>
<meta property="fb:admins" content="624159971" >
<meta property="fb:app_id" content="162951600471425" />
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<!--#config timefmt="%Y/%m/%d"-->
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-752050-1', 'koemu.com');
ga('send', 'pageview');
</script>
<!-- Global site tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-8W2FT1HVEN"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'G-8W2FT1HVEN');
</script>
</head>
<!--基本設定-->
<body bgcolor="#FFFFD0">
<basefont size="3">
<!--基本設定終わり-->
<h4>Color Arrangementor<br>VBScript版</h4>
<br><br>
<table border="1" width="100%">
<tr>
<th nowrap>今の値：<input type="text" name="p_value" value="#000000" size="10"><br>
<br><input type="submit" name="red_u" value="赤を強く"> <input type="submit" name="red_d" value="赤を弱く">
<br><input type="submit" name="grn_u" value="緑を強く"> <input type="submit" name="grn_d" value="緑を弱く">
<br><input type="submit" name="blue_u" value="青を強く"> <input type="submit" name="blue_d" value="青を弱く">
</th>
</tr>
</table>
</body>
</html>
]]> |