約 2,310,347 件
https://w.atwiki.jp/manefamukouryaku/pages/16.html
単色(赤)表示器
https://w.atwiki.jp/onkyoamazon/
imageプラグインエラー ご指定のURLはサポートしていません。png, jpg, gif などの画像URLを指定してください。 アマゾン誤表示祭りについてのwiki 現行スレはアマゾンで検索したらたぶん見つかるとおもうよ スレたてたら報告すること 小見出し というよりももう終わりか ↓アマゾン http //www.amazon.co.jp/ref=gno_logo 合計: - 今日: - 昨日: - トップページの合計: -
https://w.atwiki.jp/led-hoyujisaigenn/pages/4.html
東武鉄道 N100系 スペーシアX 500系リバティ 側面 9000系 9050系 側面 20400型 側面 30000系 側面 50000系(フルカラー)、50070系(ゴシック体) 50070系(明朝体)、50090系 側面 70000系・70090系・13000系 (前期車・後期車) 東京メトロ 日比谷線 70000系・70090系・13000系 (前期車・後期車) 有楽町・副都心線 10000系 フルカラーLED 半蔵門線 8000系 側面 18000系 側面 東急電鉄 田園都市線 8500系 側面 5000系 田園都市線 側面 2020系 側面 東横線 5000系、5050系 東横線 側面
https://w.atwiki.jp/led-hoyujisaigenn/pages/15.html
東武鉄道 9000系 9050系 前面 東京メトロ 70000系・70090系・13000系 (前期車・後期車) 東急 8500系 前面
https://w.atwiki.jp/kumot/pages/179.html
閑雲野鶴>メルマガ>バックナンバ>基本・心得>表示 表示 03/09/23 下手糞な鶯の鳴き方は既に同じ構成で筒井康隆がネタにしているのだが、実体験をそのまま書いたわけだから後ろめたい気分になる必要はない。にも関わらず落ち着かないのは奥に「誰かが書いていて当然」のネタであることへの悔しさなのであって、普通に読者として受け取るだけなら大いに共感できるところを、いざ書く立場になってみれば「やられてる」と感じる。 浅田次郎のエッセイの中に、ヨーロッパの空港で女子トイレに入ってしまい、一悶着あった秀逸などたばたがあるが、手前もほぼ同じ構図の体験がある。手前に限らずかなりの割合で起こる騒動であろうかと思う。 日本でのトイレの表示は大抵「丸に逆三角の男」、「丸に三角の女」の絵であることが多く、男女の別が一目で判ることになっている。しかし実は一目で判るのはそれが「男は黒」「女は赤」と色分けされているからであって、男女のトイレ表示を形ではなく色で判断していることなど普段はまるで意識しないものだから、切羽詰っている際に、トイレ表示の男女が色分けされていない場合にあっては、悲しい事態に陥る。 これは特に大和男児に気を付けて貰いたいのだが、海外に於いて女性トイレに突入してしまう前に、必ず一呼吸置いて「形」を見ることだ。出来れば性別の判断のつく者が入るところをも判断基準にしたい。でなくては、折角の海外旅行で普通には決して味わうことの出来ない筈の珍しい御当地臭い飯を食べる栄誉に浴してしまう恐れがある。 トイレの男女表示、具体的に何処の国が同色で、何処の国が異色か、いちいち調べる気力もないが、海外経験豊富な方が集えば、ある程度の情報が揃うからその絵の一覧などを見れば、国民性、民族性などが滲み出ているかもしれない。それでも、いくら絵に個性があって構わないが、男女で色使いは別にすることを是非世界標準として貰いたいのだ。 落ち着いてトイレにいく時ならば普通問題はない。問題なのは、「トイレに行きたい時というのは、常に、落ち着いていられない状態にある」ということだ。親切にも入口付近のタイルが色分けされていれば迷うことはないし、男女共用である場合はそのまま飛び込んでも問題はない。男女の表示が同色異形である際に、更に入口が左右対称ではない際に、切羽詰っていると、女性トイレに突入して「日本人は変態」の評判を裏書することになってしまうのだ。 TOTAL ACCESS - Today - Yesterday - LAST UPDATED 2021-12-03 06 47 25 (Fri)
https://w.atwiki.jp/moi_ref/pages/17.html
表示 【 表示に関するコマンド 】 全表示イメージ display_toolbar.png zoomextents.png 全表示 ・・・ モデルを全体表示する ※各作業ビューポートのリセットアイコンでも全体表示 ※そのリセットアイコン右ダブルクリックで、上面・正面・側面ビューポートが整列して、全体表示 reset.png コマンド一覧にもどる backgroundimage.png イメージ ・・・ ビットマップデータを作業ビューに貼り付ける ※貼り付けられる画像フォーマットは、PNG・TIFF・JPEG・BMP ※複数枚貼り付け可能 ※透明度設定可能 backgroundoption.png コマンド一覧にもどる
https://w.atwiki.jp/bicmap/pages/279.html
Top / 講座一覧 / 表計算ソフト 表計算ソフト(2007) ブックの表示 ブックの表示 標準 レイアウト 改ページ プレビュー ユーザー設定のビュー 全画面表示 表示/非表示 ズーム ズーム ズーム 100% 選択範囲に合わせて拡大/縮小 ウィンドウ ウィンドウ 新しいウィンドウを開く 整列 ウィンドウ枠の固定 保存状態の保存 ウィンドウの切り替え マクロ マクロ マクロ
https://w.atwiki.jp/stgbuilder/pages/207.html
<表示優先> 背景とキャラクタとの優先順位を変更。 表示優先:変更後の表示優先を指定。(ステージ編集の表示優先と同一) デフォルト-上空-空中物高-空中物中-空中物低-中空-地上物高-地上物中-地上物低-低空 Z値オフセット:変更後のZ値のオフセットを指定。(キャラクタ編集のZ値オフセットと同一) →Z値オフセット →キャラクタ編集>>メイン タブ,キャラクタのカスタム編集 →ステージ編集>>表示優先設定 タブ 制御パネル>> 通過,消滅,ループ開始,ループ終了,条件分岐(制御),フラグ,タスク開始,タスク停止,信号送信,信号受信,信号クリア メニュー(制御),ランダム,HP,アイテム,ボタン判定,面クリア,いろいろ
https://w.atwiki.jp/solidworksapi/pages/16.html
表示 再表示 最大表示 回転1 回転2 イメージ品質 平面表示切替 すべての部品を表示 選択した部品のみ表示 再表示 Sub Refresh() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objModView As SldWorks.ModelView Dim rect As Variant Set rect = Nothing Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objModView = objModelDoc.ActiveView Call objModView.GraphicsRedraw(rect) End Sub 上へ 最大表示 Sub FitView() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ViewZoomtofit2 End Sub 上へ 回転1 Const PI As Double = 3.14159265358979 Const PI_Radian As Double = 180 Function Radian(ByVal Degrees As Double) As Double Radian = (PI / PI_Radian) * Degrees End Function Function Degrees(ByVal Radian As Double) As Double Degrees = (PI_Radian / PI) * Radian End Function Sub ViewRotate1() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc 矢印キー操作時の回転角度設定 Call objApp.SetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swViewRotationArrowKeys, Radian(15)) 画面下に向かって回転(矢印キー下と同等) objModelDoc.ViewRotateminusx 画面左に向かって回転(矢印キー左と同等) objModelDoc.ViewRotateminusy 画面上を右に回転(ALT+矢印キー左と同等) objModelDoc.ViewRotateminusz 画面上に向かって回転(矢印キー上と同等) objModelDoc.ViewRotateplusx 画面右に向かって回転(矢印キー右と同等) objModelDoc.ViewRotateplusy 画面上を左に回転(ALT+矢印キー右と同等) objModelDoc.ViewRotateplusz 画面下に向かって90度回転 objModelDoc.ViewRotXMinusNinety 画面上に向かって90度回転 objModelDoc.ViewRotXPlusNinety 画面左に向かって90度回転 objModelDoc.ViewRotYMinusNinety 画面右に向かって90度回転 objModelDoc.ViewRotYPlusNinety End Sub 上へ 回転2 Sub ViewRotate2() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objModView As SldWorks.ModelView Dim OrientationValue As MathTransform Dim dblArray() As Double Dim dblZenithAngle As Double Dim dblAzimuth As Double Dim dblZ_DirectionX As Double Dim dblZ_DirectionY As Double Dim dblZ_DirectionZ As Double Dim dblWork As Double Dim rect As Variant Set rect = Nothing Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objModView = objModelDoc.ActiveView Set OrientationValue = objModView.Orientation3 dblArray = OrientationValue.ArrayData 等角投影の設定 方位角(Z軸) dblAzimuth = -45 dblWork = Tan(Radian(30)) 天頂角 dblZenithAngle = -1 * Degrees(Atn(dblWork / Sqr(-dblWork * dblWork + 1))) Z方向(X 右方向=+1 Y 上方向=+1 Z 手前方向=+1) dblZ_DirectionX = Sgn(dblAzimuth) dblZ_DirectionY = Sgn(dblZenithAngle) If dblAzimuth 90 Or dblAzimuth -90 Then dblZ_DirectionZ = -1 ElseIf dblAzimuth 90 And dblAzimuth -90 Then dblZ_DirectionZ = 1 Else dblZ_DirectionZ = 0 End If Z軸角(Z,X,Yの順に設定が優先される) dblArray(6) = Sin(Radian(Abs(dblAzimuth))) * dblZ_DirectionX dblArray(8) = Sin(Radian(Abs(dblZenithAngle))) * dblZ_DirectionZ dblArray(7) = Abs(dblArray(6) * dblArray(8)) * dblZ_DirectionY X軸角 dblArray(0) = dblArray(6) * -1 dblArray(1) = dblArray(7) dblArray(1) = 0 dblArray(2) = dblArray(8) dblArray(2) = 0 Y軸角 dblArray(3) = 0 dblArray(4) = Cos(Radian((dblZenithAngle)) * dblZ_DirectionY * -1) dblArray(5) = dblArray(8) dblArray(5) = 0 OrientationValue.ArrayData = dblArray objModView.Orientation3 = OrientationValue Call objModelDoc.ViewZoomtofit2 Call objModView.GraphicsRedraw(rect) End Sub 上へ イメージ品質 Sub ChangeImageQuality() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objExtension As SldWorks.ModelDocExtension Dim dblCurrent As Double Dim dblMax As Double Dim dblMin As Double Dim dblNew As Double Dim dblUnit As Double Dim intLevel As Integer Const intDivisions As Integer = 4 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objExtension = objModelDoc.Extension 現在のイメージ品質取得 Call objExtension.GetUserPreferenceDoubleValueRange(swUserPreferenceDoubleValue_e.swImageQualityShadedDeviation, dblCurrent, dblMin, dblMax) dblUnit = (dblMax - dblMin) / CDbl(intDivisions) intLevel = ((dblMax - dblCurrent) / dblUnit) + 1 intLevel = Val((InputBox("イメージ品質(1~" (intDivisions + 1) ")", "イメージ品質設定", intLevel))) If intLevel = 1 Then dblNew = dblMax ElseIf intLevel intDivisions Then dblNew = dblMin Else dblNew = dblMax - (dblUnit * (intLevel - 1)) End If イメージ品質設定 Call objExtension.SetUserPreferenceDouble(swImageQualityShadedDeviation, swUserPreferenceOption_e.swDetailingNoOptionSpecified, dblNew) End Sub 上へ 平面表示切替 アクティブなドキュメントの平面表示を切り換える(アイテムの視認性ではなく、実際の表示・非表示を切り換える) Sub ToggleDisplayPlane() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objExtension As SldWorks.ModelDocExtension Dim objFeatureMgr As SldWorks.FeatureManager Dim objFeature As SldWorks.Feature Dim arrayFeatures As Variant Dim varFeature As Variant Dim objSelectionMgr As SldWorks.SelectionMgr Dim objSelectData As SldWorks.SelectData Dim intFirstItemVisible As Integer 平面のタイプネーム Const swTnRefPlane As String = "RefPlane" Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) Set objExtension = objModelDoc.Extension Set objFeatureMgr = objModelDoc.FeatureManager Set objSelectionMgr = objModelDoc.SelectionManager Set objSelectData = objSelectionMgr.CreateSelectData arrayFeatures = objFeatureMgr.GetFeatures(True) intFirstItemVisible = 0 For Each varFeature In arrayFeatures Set objFeature = varFeature If objFeature.GetTypeName2() = swTnRefPlane Then If intFirstItemVisible = 0 Then intFirstItemVisible = objFeature.Visible End If Call objSelectionMgr.AddSelectionListObject(objFeature, objSelectData) End If Next If intFirstItemVisible = swVisibilityState_e.swVisibilityStateHide Then Call objModelDoc.UnBlankRefGeom Else Call objModelDoc.BlankRefGeom End If Call objModelDoc.ClearSelection2(True) End Sub 上へ すべての部品を表示 Sub ShowAllPart() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objConfMgr As SldWorks.ConfigurationManager Dim objConf As SldWorks.Configuration Dim objComponent As SldWorks.Component2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objConfMgr = objModelDoc.ConfigurationManager Set objConf = objConfMgr.ActiveConfiguration Set objComponent = objConf.GetRootComponent3(True) Call SelectAllComponent(objComponent) Call objModelDoc.ShowComponent2 Call objModelDoc.ClearSelection2(True) End Sub Sub SelectAllComponent(objAssyComponent As SldWorks.Component2, Optional isApend As Boolean = False, Optional isApendSuppressed As Boolean = False) If isApend = False Then Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) End If Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComponent As SldWorks.Component2 If isApendSuppressed Or (objAssyComponent.IsSuppressed = False) Then Call objAssyComponent.Select4(True, Nothing, False) arrayObjComp = objAssyComponent.GetChildren() For Each objCompVariant In arrayObjComp Set objComponent = objCompVariant Call SelectAllComponent(objComponent, True, isApendSuppressed) Next End If End Sub 上へ 選択した部品のみ表示 Sub ShowSelectedPartOnly() Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Dim objComponent As SldWorks.Component2 Dim objSelectionMgr As SldWorks.SelectionMgr Dim arraySelectedComponents() As SldWorks.Component2 Dim i As Integer Dim intSelectedCount As Integer Dim intComponentCount As Integer Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Set objSelectionMgr = objModelDoc.SelectionManager intComponentCount = 0 intSelectedCount = objSelectionMgr.GetSelectedObjectCount2(-1) If intSelectedCount 0 Then For i = 1 To intSelectedCount Set objComponent = objSelectionMgr.GetSelectedObjectsComponent3(i, -1) If Not (objComponent Is Nothing) Then intComponentCount = intComponentCount + 1 ReDim Preserve arraySelectedComponents(1 To intComponentCount) Set arraySelectedComponents(intComponentCount) = objComponent End If Next If intComponentCount 0 Then Call objModelDoc.Extension.SelectAll Call objModelDoc.HideComponent2 Call objModelDoc.ClearSelection2(True) For i = 1 To intComponentCount Call SelectAllComponent(arraySelectedComponents(i), True) Next Call objModelDoc.ShowComponent2 Call objModelDoc.ClearSelection2(True) End If End If End Sub Sub SelectAllComponent(objAssyComponent As SldWorks.Component2, Optional isApend As Boolean = False, Optional isApendSuppressed As Boolean = False) If isApend = False Then Dim objApp As SldWorks.SldWorks Dim objModelDoc As SldWorks.ModelDoc2 Set objApp = Application.SldWorks Set objModelDoc = objApp.ActiveDoc Call objModelDoc.ClearSelection2(True) End If Dim arrayObjComp As Variant Dim objCompVariant As Variant Dim objComponent As SldWorks.Component2 If isApendSuppressed Or (objAssyComponent.IsSuppressed = False) Then Call objAssyComponent.Select4(True, Nothing, False) arrayObjComp = objAssyComponent.GetChildren() For Each objCompVariant In arrayObjComp Set objComponent = objCompVariant Call SelectAllComponent(objComponent, True, isApendSuppressed) Next End If End Sub 上へ コメント 名前
https://w.atwiki.jp/jp_programing/pages/26.html
使用している構文など:実行のsleep[未作成です] 文字(列)・数字について 標準出力[未作成です] 画面 関数定義 表示非表示テスト ここから{始まり} 画面[画面]を作る 「表示するよ」と言う [画面]を表示する 箱[時間]を作る [時間]に1を入れる [時間]が4になるまで 1秒待つ [時間]と言う [時間]に1を足す を繰り返す 1秒待つ 「隠すよ」と言う [画面]を隠す [時間]に1を入れる [時間]が4になるまで 1秒待つ [時間]と言う [時間]に1を足す を繰り返す 1秒待つ 「また表示するよ」と言う [画面]を表示する ここまで{始まり} 表示と実行 表示 ここから{始まり} 画面作る [画面] 言う 表示するよ 表示 [画面] 箱作る [時間] 入れる [時間] 1 なるまで繰り返す 同じ [時間] 4 待つ 1 言う [時間] 入れる [時間] + [時間] 1 待つ 1 言う 隠すよ 隠す [画面] 入れる [時間] 1 なるまで繰り返す 同じ [時間] 4 待つ 1 言う [時間] 入れる [時間] + [時間] 1 待つ 1 言う また表示するよ 表示 [画面] ここまで{始まり} 実行 表示するよ 1 2 3 隠すよ 1 2 3 また表示するよ