検索結果
AAA
- 全てのカテゴリ
- 全ての質問
- 解き方を明快に教えてください
9人で50ｍ競争します。3人1チームでチームごに赤、青、白の鉢巻をして一斉に走ります。1位から3位まで赤が独占する確立はいくつですか？ 解き方と回答を簡単に（小学生程度）教えてください。 条件として、それぞれ50mの平均タイムは同じとする。
- ベストアンサー
- 数学・算数
- noname#59743
- 回答数4
- ランダムに1行読込み フォーム文字との同異を 判定するには？
txt ファイル から ランダムに 1行読み込んで それが フォームの入力文字と同じかを 判定し、 同じならば、次のファイルへ飛ぶ には、 どうしたらよいのでしょうか？ お教えください。 ------------------------------------------------------ mondai.txt に 問題を 1行に 1題ずつ kotae.txt に 解答を 1行に ひとつずつ 書きました。 mondai.txt の 1行目の 解答が kotae.txt の 1行目 （2行目-10行目、同じ）としました。 001.cgi で 正解すれば 002.cgi を開く 不正解なら もう一度 001.cgi を実行。 問題は ランダムに 表示する。 まず、mondai.txt と kotae.txt を それぞれ 10行にして やってみました。 ------------------------------------------------------ すると、問題は ランダムに表示されました。 しかし、 ##################################################### if (param('answer') eq ("$ans")){ print "Location:$num2.cgi\n\n"; ・・・ { ##################################################### が、うまくいきません。 ↓こうしてあります。どうしたら、よいでしょうか？ ↓解答したことを file.txt に記録しよう、ともしています。 ↓ ################ はじめ ############################## #!/usr/bin/perl -T use strict; use warnings; use CGI qw(-debug :standard); my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year += 1900; $mon = sprintf("%02d", $mon + 1); $day = sprintf("%02d", $day); $hour = sprintf("%02d", $hour); $min = sprintf("%02d", $min); $sec = sprintf("%02d", $sec); my $num = ('1267'); my $num2 = $num + 1; my $value = param('answer'); open(FILE, "../../mondai.txt"); my @data2 = <FILE>; close(FILE); open(FILE, "../../kotae.txt"); my @data3 = <FILE>; close(FILE); my $i = int(rand(10)); my $ans = $data3[$i]; if (param('answer') eq ("$ans")){ print "Location:$num2.cgi\n\n"; open(FILE, '<+file.txt') or die "$!"; my @DATA = <FILE>; close(FILE); open(FILE, '>file.txt') or die "$!"; print FILE ("$num,$ans,$year年$mon月$day日 $hour時$min分$sec秒\n"); print FILE (@DATA); close(FILE); } else { print header(-charset => 'Shift_JIS'); print start_html("$num.cgi"); print ('<font face="century">'); print $data2[$i]; #####---問題表示 print br; print startform( -method => 'POST', -action => "$num.cgi" ); print blockquote( textfield( -name => 'answer', -size => '70', -id => "next", -accesskey => '[' ) ); print <<END; <script type="text/javascript" language="JavaScript"> document.getElementById('next').focus(); </script> END print submit(-value => 'Send ( ↑Alt+[ )'); print endform; } ################ おわり ############################## よろしく、お願いいたします。
- ベストアンサー
- Perl
- ttaa100kkaa
- 回答数3
- 圧縮されたファイルのダウンロード
フリーソフトの（解凍＋後始末α）という、ソフトを ダウンロードして圧縮ファイル等を解凍していたのですが、 訳あって、ソフト自体をアンインストールしました。 サイトから圧縮ファイルをダウンロードしようといたら、 ダウンロードは、できるのですが、ファイルの種類が kaitouplusになってしまって、開けなくなって しまいます。元に戻すにはどうすれば、いいのでしょうか？ このソフトをダウンロードする前は普通にダウンロード できたのですが…。 解凍するにもこのソフトがないとできないみたいで… どこの設定を変えればいいのか…。 よろしくお願いします。 よろしくお願いします。
- 締切済み
- Windows Vista
- taddmax
- 回答数2
- Excel 連続したデータの最大を表す関数
今Excelで家計簿的なものを作成しています。 連続した黒字の月や赤字の月の最大を関数で表そうと考えております。 少ない例なんですが 07年9月 10月 11月 12月 08年1月 2月 3月 ＋○円 ＋○円 ＋○円 －○円 -○円 ＋○円 -○円 の場合黒字の連続した月の最大が3か月 赤字の最大が2か月をいうのを関数で表したいのですが、調べたところよくわかりませんでした。 時間のある方、アドバイスよろしくお願いします。
- 締切済み
- オフィス系ソフト
- jin-jin002
- 回答数3
- EXCEL VBAで、日付の後に曜日を追加する方法について
ＥＸＣＥＬ ＶＢＡの日付の機能のことで教えていただきたいことがあります。 Ａ列 1行：2008/02/01 2行：2008/02/03 3行：2008/02/04 ・ ・ コントロールツールボックスでコンボボックスをシートに挿入 Private Sub Workbook_Open() With ComboBox1 .AddItem Range("A1") .AddItem Range("A2") .AddItem Range("A3") ・ ・ End With End Sub コンボボックスには「2008/02/01」等と表示されたリストが表示されると思いますが、 選択した後の値を「2008/02/01(月)」というように、 日付の後に曜日を追加して表示させるにはどのような処理をしたらよろしいでしょうか。 Private Sub ComboBox2_Change() ComboBox2 = ？ End Sub というようなやり方かとは思うのですが、具体的なコードがさっぱり思い浮かびません。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- takohasisa
- 回答数2
- z-indexを指定したボックスの下に表示させる
z-indexとjavascriptを組み合わせて下記のようなページを作っています。 <html lang="ja"> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /> <title>ああああ</title> <meta http-equiv="Content-Script-Type" content="text/JavaScript" /> <meta http-equiv="Content-Style-Type" content="text/css" /> <script type="text/javascript"> <!-- function MM_showHideLayers() { //v9.0 var i,p,v,obj,args=MM_showHideLayers.arguments; for (i=0; i<(args.length-2); i+=3) with (document) if (getElementById && ((obj=getElementById(args[i]))!=null)) { v=args[i+2]; if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; } obj.visibility=v; } } //--> </script> <style type="text/css"> div#aaa { z-index: 2; position:absolute; width: 300px; } div#bbb { z-index: 1; position:absolute; width: 300px; } </style> </head> <body> <h1>あああ</h1> <p><a onclick="MM_showHideLayers('aaa','','show','bbb','','hide')">ううう</a> / <a onclick="MM_showHideLayers('aaa','','hide','bbb','','show')">えええ</a></p> <div id="aaa" style="visibility:visible"> <h2>ううう</h2> <p>うううううううう<br /> うううううううう</p> </div> <div id="bbb" style="visibility:hidden"> <h2>えええ</h2> <p>えええええええええ<br /> えええええええええ<br /> えええええええええ<br /> えええええええええ<br /> えええええええええ</p> </div> <p>いいいいいいいいい<br /> いいいいいいいいい</p> </body> </html> 切り替わるdivの下に<p>いいいい</p>を表示させたいのですが、後ろに回って表示されません。 これを表示させる方法をご存じでしたら教えてください。
- XMLを読み込んで外部JPGにリンクを貼りたい
アクションスクリプト初心者です。 どうぞよろしくお願いいたします。 アプリケーションはFLASH8(MAC)です。 いろいろ書籍とかWEBとか方法を探してみたのですが、 なかなかXMLとの連動で参考になる記述が見当たりませんので アドバイスお願いいたします。 やりたい事は、ステージに画像3点配置しその画像クリックで別ページに飛ばしたいのです。 画像指定とリンク先はXMLで外部ファイル化し、更新しやすくしたいのです。 画像のレイアウトは、あらかじめムービークリップをステージ上に配置し、外部JPGと入れ替える形で考えてます。 アクションスクリプトの記述方法とXMLの書き方を どうぞアドバイスよろしくお願いいたします。
- サドンアタックしてたら画面が壊れる・・・
サドンアタックというオンラインゲームをしていたら画面が壊れます。 e-Machines J2920 ＯＳ WindowsXP HomeEdition Version2002 ServicePack2 ＣＰＵ Intel CeleronD330 256K 2キヤッシュ 533MHz FSB ハードディスク 80GB 空き61.2GB Graphics3D(Intel Extreme) こんなＰＣなんですが
- GW二泊三日の北海道旅行について
GWに夫婦で二泊三日の北海道旅行を予定しています。 一日目：新千歳空港－登別方面観光－札幌泊。 二日目：札幌－小樽、積丹方面観光－札幌泊。 三日目：札幌市内観光－新千歳空港 移動は全てレンタカーです。旭山動物園も考えましたが、旅程がタイトになりそうだったので断念しました。初めての北海道なので移動時間や距離が大丈夫か不安です。上記の日程はどうでしょうか？また、各観光地でのオススメの場所やご飯処がありましたら是非教えて下さい。
- 締切済み
- 北海道
- swjc92nd50
- 回答数3
- コマンドボタンでの自動計算マクロを組みたいのですが。
一か月分の売上を納品伝票ごとに合計を計算するマクロを作りたいのです。 以下のようなワークシートで (例1) コード 商品名 数量 単価 売上額 伝票合計 1111 商品A 3 1050 3150 1112 商品B 1 2100 2100 1113 商品C 2 840 1680 ↓ (例2) コード 商品名 数量 単価 売上額 伝票合計 1111 商品A 3 1050 3150 1112 商品B 1 2100 2100 1113 商品C 2 840 1680 6930←←※ ※を計算したいのです。 自分で開始の行を指定して(2列目)作ったのが下記のマクロです。 Sub Test() Dim i As Long ' カウンター Dim n As Long ' 計算開始の行 n =2 For i = n To n + 6 Step 1 If Cells(i + 1, 5) = "" Then ' ------------- 「合計」の計算 ' ------------- 合計 = Application.WorksheetFunction.Sum _ (Range(Cells(i - (i - n), 5), Cells(i, 5))) Range(Cells(i, 6), Cells(i, 6)).Value = 合計 Exit Sub End If Next i End Sub 納品伝票は1枚最大7行で、記載行数は一定ではありません。 必ず１枚ごとに合計を出します。 ですので、売上額が入力されていない行を探し、 その直前までの合計を出すという考えで作りました。 ｎは一定ではなく不規則に増えていきます。 ｎをどのように設定すればよいでしょうか？ 初心者なりに色々と試行錯誤しているのですが上手くいきません。 どうか助けてください、お願い致します。 また、タイトルにはありませんが、 UserFormでのListBoxで複数列表示するよう設定している場合 列ごとに右寄せ左寄せを変更することはできるのでしょうか？ 文字列と桁の違う数列があって見にくいのです。 できるなら方法も教えていただきたいです。 (リストボックス1) コード 商品名 単価 1111 商品A 1050 1112 商品B 2100 1113 商品C 840 1114 商品D 63 ↓ (リストボックス2) コード 商品名 単価 1111 商品A 1050 1112 商品B 2100 1113 商品C 840 ※ 1114 商品D 63 ※ 単価を右寄せしたいのです。 ２週間ほど悩んでますがどうにもなりません。 何卒、宜しくお願い致します。
- ベストアンサー
- Visual Basic
- cheesepie
- 回答数5
- エクセルVBAのFunctionについて
エクセル2000です。 以下は、時間を与えれば、それに相当する挨拶が返ってくるFunctionのつもりです。 一応期待通りの働きはしてくれます。 質問は、Functionから ”messe” として返ってくる文字列を、Function内部で生成している、”hmsg”、”mes”、”s”、”kao(i)” にわけて取得できないかということです。 もちろん Functionを複数つくったり、返ってくる文字列”messe”を、”。”の位置を取得してMID関数等で分ければ取得できるのはわかるのですが、そんな手間をかけず、たとえば、MsgBox hmsg のような感じで簡単に ”hmsg”、”mes”、”s”、”kao(i)” それぞれの文字列を取得する方法があったらご教示くださいませ。 Sub test01() MsgBox messe(TimeValue("17:46")) End Sub Function messe(t As Date) As String Dim t2 As Integer, t3 As Integer, m As Integer, i As Integer, n As Integer Dim kao Dim s As String t2 = Hour(t) t3 = Hour(TimeValue(t) + TimeValue("01:00")) m = Minute(t) kao = Split("o(^o^)/,(*^o^*),(*´∇｀*),(=￣▽￣=)V,(〃^∇^〃),(=´▽｀)ゞ,（＾∇＾）,(〃^∇^)o,ヾ(@⌒ー⌒@)ノ, (#^。^#),o(^-^)o,ヾ(=^▽^=)ノ, ＼(*^▽^*)/ ,（￣ー￣）v", ",") Select Case t2 Case Is < 11: hmsg = "おはようございます。" Case Is < 17: hmsg = "こんにちは。" Case Else: hmsg = "こんばんは。" End Select Select Case m Case Is < 15: mes = t2 & "時を回りましたね。 " Case Is < 30: mes = "もうすぐ " & t2 & "時半になりますね。 " Case Is < 45: mes = t2 & "時半を過ぎてますね。" Case Else: mes = "もうすぐ " & t3 & "時になるんですね。 " End Select Select Case t2 Case 0: s = "とうとう日付が変わりました。 " Case 1, 2, 3, 4: s = "からだに気をつけてね。 " Case 5, 6: s = "朝になっちゃいました。 " Case 7, 8, 9: s = "また一日が始まりましたね。 " Case 10: s = "お昼にはまだもうちょっと・・・。 " Case 11: s = "おなかが空いちゃいました。 " Case 12: s = "お昼ですよ～。 " Case 13: s = "食後は眠くなっちゃいます。 " Case 14: s = "そろそろおやつが欲しいかも。 " Case 15, 16: s = "午後は長いですね。 " Case 17: s = "お疲れさまです。 " Case 18: s = "残業、お疲れさまです。 " Case 19, 20: s = "そろそろ切り上げませんか。 " Case 21, 22: s = "こんな遅くまで大変ですね。 " Case 23: s = "日付が変わっちゃいますよ。 " Case Else: s = "がんばってね。 " End Select Randomize i = Int(Rnd() * 14) messe = hmsg & mes & s & kao(i) End Function
- 日本語ファイルのリネームと保存
ファイルアップデートで日本語ファイル名をリネームしてデータベースで対応付けて保存するプログラムを作成しました、そのファイルをリンクしてダウンロードする場合に元の日本語ファイル名で自動的にリネームしてＰＣ側で保存する方法はないでしょうか。 例えば「あああ.txt」を「a.txt」にリネームして <a href="a.txt">あああ.txt</a> という風にしています、これをクリックするとa.txtになってしまいますが、あああ.txtで表示・保存するようにしたいのですが、何かうまい方法はないでしょうか。
- 他ＰＣ 内臓HDDの読取方法
デスクトップＰＣの内臓ＨＤＤを取り出してＩＤＥ／ＳＡＴＡ－ＵＳＢケーブルで他のＰＣ（ノートＰＣ）に接続すればデータを取り出すことは出来るのでしょうか？ アカウントごとのデータはやっぱり取り出し不可なのでしょうか？ もし不可能なら、内臓ＨＤＤからのデータ取り出しの方法を教えてください。デスクトップＰＣが起動不能になり、データ救助の方法を模索しています。 何か良い手があれば教えてください。
- 締切済み
- Windows XP
- hideki1982
- 回答数2
- エクセルについて（関数）
A列に日付を入力すると、B列に曜日が表示するよう「=TEXT(A○,"aaa")」の関数を設定しました。 A列が無入力でも、曜日が表示されてしまいます。 A列が無入力の場合、B列に何も表示されないようにするにはどうしたら良いのでしょうか。 よろしくお願いします。
- 【Excel】日付入力で教えて下さい。
Ｃ６セルに 3/1 と入力すると Ｅ６セルに 1(日のみ)と表示(1日と表示されてもいいです) Ｅ７セルに (土)と表示するような関数の入力方法を教えて下さい！ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- pikapika11
- 回答数5
- アナログＤＶＩってあったんですか！
ＤＶＩってのはデジタルの「Ｄ」かと思ってましたが、 大手サプライヤーのカタログにアナログＤＶＩがのっていました 変換コネクタ無しでアナログモニタに出力できるんですね？
- ベストアンサー
- ディスプレイ
- monta-mino
- 回答数2
- CDやDVDのブータブルイメージ ファイル作成の件
ブータブルCDやDVDの bootイメージファイルについて質問です。 質問１ bootイメージファイルを自作する方法を教えてください。 ※CDやDVD媒体からのbootイメージの抽出方法ではなく、一から作成する方法のことです。 ・作成方法を解説したサイトがあれば教えてください。 ・作成に役立つツールがあれば教えてください。 質問２ いくつかのbootイメージファイルの識別子を見ると、 img、ima、bin、com などのようにバラバラです。 なぜ統一性がないのでしょうか。 -----以上です。 アドバイスよろしくお願いいたします。
- 締切済み
- Windows系OS
- noname#57972
- 回答数2
- 「こんなのありかよ！」と思ったゲーム教えてください
はい、タイトルの通りです。良い意味で裏切られたとおもったゲームを教えてください。ストーリー、トリック、ゲームシステムでも、何でもOKです。機種もFCからPCまで問いません。 ちなみに私は ストーリーで 街（アイツがアイツを殺しただなんてわかるわけない…） トリックで メタルギアソリッド（『KONAMIのゲームが好きなようだな！』って言われました） ゲームシステムで スーパーペーパーマリオ（2D-3Dをあんな風に切り替えるなんて！） あたりがこんなのありかよ！ と思った代物です。緊急性はまったくないので息抜きで回答をどうぞ。
- PCゲーム オンラインゲームについて
PCゲームやオンラインゲームをすると突然カクカクします。 以前はそんなことはなかったんですが、最近になってかなりひどいです；； HDDがシュンシュンとなっていて熱をもっている状態のようです PCはFMV BIBLO NB15Bです。 ちなみにいまやっているのは『エネミーテリトリー』です。 スペック不足ではないと思うんですが、、、 HDDが壊れているとかそういう理由なんでしょうか？；； 解答お願いいたします。
