出張のお楽しみはココで♪大黒屋旅館＜富山県＞
チェックイン：
チェックアウト：
所在地：〒933-0023
富山県高岡市末広町9-6
TEL：0766-22-1349
FAX：0766-22-1528
交通：富山空港バス５０分／北陸自動車道小杉又は砺波、能越自動車道高岡ＩＣ／ＪＲ北陸本線高岡駅より徒歩１０分
最寄り駅：
駐車場：有り ５台 先着順
予約電話番号：
ホテル詳細ページへ宇奈月温泉 ホテル桃源
黒部峡谷や立山黒部アルペンルートの観光の拠点にぴったり！黒部川の眺望抜群♪貸切露天風呂の宿
チェックイン：
チェックアウト：
所在地：〒938-0282
富山県黒部市宇奈月温泉22-1
TEL：0765-62-1131
FAX：0765-62-1138
交通：富山地方鉄道「宇奈月温泉駅」より徒歩５分。北陸HW黒部ＩＣより２０分。立山・黒部アルペンルート立山駅まで約８０分。
最寄り駅：
駐車場：有り ６０台 無料
予約電話番号：
ホテル詳細ページへアパホテル＜富山駅前＞
ＪＲ富山駅北口より右、徒歩で約7〜8分 宿泊者の方は大浴場・サウナ利用いただけます。（無料）
チェックイン：
チェックアウト：
所在地：〒930-0001
富山県富山市明輪町88-2
TEL：076-444-5111
FAX：076-432-4790
交通：ＪＲ「富山駅」南口又は北口より東方向へ徒歩で約７分
最寄り駅：
駐車場：地下駐車場40台1泊＜15時〜11時＞1,050円（車高2.0ｍ）提携駐車場（最長14時間525円）
予約電話番号：
ホテル詳細ページへ●映画撮影用カメラについて 現在ハイビジョン画質かスタンダードかでどちらを購入す...
映画撮影用カメラについて 現在ハイビジョン画質かスタンダードかでどちらを購入するか迷っています。 映画撮影用にXR500VなどSONYのハイビジョンハンディカムを見に電気店へ行ったところ、スタンダードですが業務用のDCR-VX2100がバッテリーとセットで１０万円を切っており、どちらも値段的に変わらない為、どちらを購入しようか非常に悩んでいます。 撮影後は映画用に一通り編集するつもりです。 当方が所有するパソコンはVAIOtypeAのCore DuoT2500の2GHzでメモリも2G、ブルーレイディスク搭載です。 ハイビジョン用テレビ、レコーダーなどは所有していません。 この場合どちらの購入が良いと思われますか？今の時代にスタンダードの購入は危険でしょうか？ また両者の違いが大きくでたり、不便さを感じたりする場面は特にどのあたりでしょうか？ 編集や再生時の違いが大きいことを聞きましたが、撮影時にも大きく変わってくるのでしょうか？ 編集が大したことができなかったり、再生環境も限られている場合ですとスタンダードでも十分でしょうか？ この先４、５年は使っていきたいと思っています。
続き---
●Option Explicit Dim pai As Double '円周率 Dim x0 As Single '古いマウスのx座標...
Option Explicit Dim pai As Double '円周率 Dim x0 As Single '古いマウスのx座標 Dim y0 As Single '古いマウスのy座標 Dim sx(4) As Single '三角形の頂点のx座標達 Dim sy(4) As Single '三角形の頂点のy座標達 Private Sub form_load() pai = 3.1415926538979 Dim i As Integer '多角形１を設定 t(1).sw = 1 t(1).n = 4 t(1).sx(1) = 100 t(1).sy(1) = 100 t(1).sx(2) = 300 t(1).sy(2) = 500 t(1).sx(3) = 700 t(1).sy(3) = 150 t(1).sx(4) = 100 t(1).sy(4) = 100 Randomize t(1).x0 = 0 t(1).y0 = 0 t(1).vx = 200 * (Rnd() + 0) t(1).vy = 300 * (Rnd() + 0) While Abs(t(1).vx) < 70 t(1).vx = 300 * (Rnd() - 0.5) Wend While Abs(t(1).vy) < 70 t(1).vy = 300 * (Rnd() - 0.5) Wend t(2) = t(1) For i = 1 To t(1).n t(2).sx(i) = t(1).sx(i) + 500 Next i t(3) = t(1) For i = 1 To t(1).n t(3).sy(i) = t(1).sy(i) + 500 Next i End Sub Private Sub draw(ta As takaku) Dim i As Integer For i = 1 To ta.n - 1 Picture2.Line (ta.sx(i), ta.sy(i))-(ta.sx(i + 1), ta.sy(i + 1)), RGB(0, 0, 255) '色を内部から指定 Next i End Sub Private Sub mvdraw(ta As takaku, x As Single, y As Single, clr As Long) '色はlong型 Dim i As Integer If ta.sw = 1 Then 'If ta.sw = 1 And clr <> Picture2.BackColor Then For i = 1 To ta.n - 1 Picture2.Line (x + ta.sx(i), y + ta.sy(i))-(x + ta.sx(i + 1), y + ta.sy(i + 1)), clr '色を外から指定 Next i Else If clr = Picture2.BackColor Then For i = 1 To ta.n - 1 Picture2.Line (x + ta.sx(i), y + ta.sy(i))-(x + ta.sx(i + 1), y + ta.sy(i + 1)), clr Next i End If End If ta.x0 = x ta.y0 = y End Sub Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer Dim xr As Single xr = Picture2.ScaleWidth - 1400 mvdraw t(2), xr, y, RGB(0, 0, 250) If y - 200 < t(1).y0 And t(1).y0 < y + 200 Then If t(1).x0 > xr - 500 And t(1).x0 < xr And t(1).vx > 0 Then t(1).vx = -t(1).vx End If End If Picture2.CurrentX = Picture2.ScaleWidth / 2 Picture2.CurrentY = Picture2.ScaleHeight / 2 Picture2.Print "★ゲームオーバー★" これを使ってピンボールゲームを作りたいのですが 軌跡が残ってしまいます＞＜ どこをどうかえたら軌跡が残らないようになるのか教えてください。。 とても面倒な質問でごめんなさい どなたかお願いいたします＞＜。
続き---
●MIDIキーボードで演奏 音源の入っていないMIDIキーボードでシンセ並みに演奏するこ...
MIDIキーボードで演奏 音源の入っていないMIDIキーボードでシンセ並みに演奏することは可能なのですか？ たとえばPCR−800やCME VX7 にFantom-XRの音源を接続して演奏というふうに・・ 音源さえ接続すればPCR−800等でもFantomの音で演奏はできますよね？ 少し気になったもので、どうなんだろう？って・・ 詳しい方の回答求む。
続き---
音痴直す方法神戸 監査証明http://a0201.703.jp/
posted by ビジネスホテル at 21:22|
Comment(0)
|
日記
|
|
