プログラム掲示板

http://toshi.my.land.to/bbs/program/
* トップ ページ - 掲示板 - プログラム掲示板

投稿されたメッセージ

No. 59 - (2012/05/02 Wed. 20:11:37) 編集 / 削除
名前 : Toshi
URI :

MASA 様

Toshi です。
ご要望いただいていた件、遅くなってしまいましたがご対応いたしました。
是非ご使用いただき、動作を確認していただければと思います。
よろしくお願いいたします。

No. 58 - (2012/03/04 Sun. 23:50:11) 編集 / 削除
名前 : Toshi
URI : http://toshi.my.land.to/

Toshi です。お返事遅くなってしまい申し訳ございません。

[日付と時刻] グラフについて、
・年の和暦表示、西暦下2桁表示
・曜日の日本語表示

以上の設定は現バージョンではできませんので、次バージョンにて対応させていただきます。

なお、多忙のため対応が遅くなってしまうかもしれませんが、よろしくお願いいたします。

No. 57 - 書式について (2012/02/07 Tue. 00:47:03) 編集 / 削除
名前 : MASA
URI :

いつもStatusFlagを使わせてもらっています。
さて、質問なのですが、グラフに表記される日付と時刻の書式なのですが、
いくつか教えて頂きたいと思います。
1-年の表示は[%1]で西暦を表しますが、これを年号(平成**年)や
西暦の下2桁('**)の様には出来ないのでしょうか?
2-曜日は[%4]で英語略(Tue.等)で表しますが、日本語表記(火や火曜日)
と言うような表記は出来ないのでしょうか?
もし、出来るのであればやり方を教えて下さい。
出来ないのであれば、今後のバージョンアップの際に追加して頂けると嬉しいです。
よろしくお願いします。

No. 56 - (2012/01/01 Sun. 03:17:16) 編集 / 削除
名前 : Toshi
URI : http://toshi.my.land.to/

P-MAN さん

お返事遅くなってしまい、申し訳ございません。

Windows 7 SP1 にて、XSplit 1.0.1112.2701 Public Beta 6 を使用したところ、確かに StatusFlag のウィンドウがキャプチャされませんでした。

これについては、設定の「XSplit起動中はAeroテーマをオフ」のチェックを外すことで、キャプチャされるようです。

私の環境での話ですが、ご参考までに。

No. 55 - XSplitに貼り付けるには? (2011/12/13 Tue. 15:54:12) 編集 / 削除
名前 : P-MAN
URI :

StatusFlag こんなソフトを探してました

XSplitというソフトで StatusFlagの部分をAdd screen regionで切り取って貼り付けて使おうと思ったんですが 切り取った部分が表示されず透明になるんです

とりあえず何か使える方法があるようでしたら 教えていただけないでしょうか
SWFとして使えればもっといいんですが・・
よろしくお願いします

No. 54 - (2011/06/11 Sat. 07:14:35) 編集 / 削除
名前 : YOSHI44
URI :

日本語やPerlScriptもスクリプトエンコードするVBScript
作者: 吉岡 照雄

' EncodeScriptEx.VBS V1.00 (C) yoshioka.teruo@nifty.com 2005-07-12
' EncodeScriptEx.VBS encodes script including Japanese text.
' Usage: Start EncodeScriptEx.VBS files...

Option Explicit

Dim fso
Dim Encoder
Dim arg
Dim File
Dim iPath
Dim iName
Dim FolderName
Dim BaseName
Dim ExtensionName
Dim Ext
Dim Language
Dim Source
Dim Code
Dim oName
Dim oPath
Dim BackUp
Dim k
Dim fName

Set fso=CreateObject("Scripting.FileSystemObject")
Set Encoder=CreateObject("Scripting.Encoder")

For Each arg In WScript.Arguments
Set File=fso.GetFile(arg)
iPath=File.Path
iName=File.Name
FolderName=fso.GetParentFolderName(iPath)
BaseName=fso.GetBaseName(iName)
ExtensionName=fso.GetExtensionName(iName)
Source=fso.OpenTextFile(iPath).ReadAll()
Select Case(LCase(ExtensionName))
Case "vbs"
Language="VBScript"
Ext=".VBE"
Code=Encoder.EncodeScriptFile(".VBS","Execute(UnEscape("""&Escape(Source)&""")):",0,Empty)
Case "js"
Language="JScript"
Ext=".JSE"
Code=Encoder.EncodeScriptFile(".JS","eval(unescape("""&Escape(Source)&"""));",0,Empty)
Case "pls"
Language="PerlScript"
Ext=".VBE"
Code=Encoder.EncodeScriptFile(".VBS","Set SC=CreateObject(""ScriptControl""):SC.Language="""&Language&""":SC.AllowUI=true:SC.TimeOut=-1:SC.AddObject ""WScript"",WScript,True:On Error Resume Next:SC.ExecuteStatement(UnEscape("""&Escape(Source)&""")):If Err Then WScript.Echo Join(Array(""Script:""&vbTab&WScript.ScriptFullname,""Number:""&vbTab&SC.Error.Number,""Description:""&vbTab&SC.Error.Description,""Source:""&vbTab&SC.Error.Source,""Text:""&vbTab&SC.Error.Text,""Line:""&vbTab&SC.Error.Line,""Column:""&vbTab&SC.Error.Column),vbLf)",0,Empty)
Case Else
Language=ExtensionName
Ext="."&ExtensionName&".Encode"
Code=Encoder.EncodeScriptFile(".JS","execScript(unescape("""&Escape(Source)&"""),"""&Language&""");",0,Empty)
End Select
Code=Replace(Code,vbNullChar,"")
oName=BaseName&Ext
oPath=fso.BuildPath(FolderName,oName)
BackUp=""
If fso.FileExists(oPath) Then
Set File=fso.GetFile(oPath)
For k=1000 To 1999
fName=BaseName & "." & Right(k ,3)
Call Rename(File,fName)
If Err=0 Then
Exit For
ElseIf Err<>58 Then
WScript.Echo Err.Number & " : " & Err.Description
WSscript.Quit
End If
Next
BackUp=vbLf & "BackUp" & vbTab & fName
End If
fso.CreateTextFile(oPath,False).Write Code
WScript.Echo "Script Encoded." & vbLf _
& "To" & vbTab & oName & vbLf _
& "From" & vbTab & iName & Backup
Next
WScript.Quit

Sub Rename(File,Name)
On Error Resume Next
File.Name=Name
End Sub


No. 53 - (2011/06/11 Sat. 07:08:36) 編集 / 削除
名前 : YOSHI44
URI :


作者: 吉岡 照雄
' StopExcel.VBS

Option Explicit
Dim xl

On Error Resume Next
Set xl=GetObject(,"Excel.Application")
If Err=0 Then
xl.Quit
MsgBox "Excel.Application Stopped"
ElseIf Err=429 Then
MsgBox "Excel.Application Not Found"
Else
MsgBox Err.Description & " (" & Err.Number & ")"
End If
WScript.Quit


No. 52 - (2011/06/11 Sat. 07:06:50) 編集 / 削除
名前 : YOSHI44
URI :

作者: 吉岡 照雄
' ShowExcel.VBS

Option Explicit
Dim xl

On Error Resume Next
Set xl=GetObject(,"Excel.Application")
If Err=0 Then
xl.Visible=True
ElseIf Err=429 Then
MsgBox "Excel.Application Not Found"
Else
MsgBox Err.Description & " (" & Err.Number & ")"
End If
WScript.Quit

No. 51 - (2011/06/11 Sat. 07:05:43) 編集 / 削除
名前 : YOSHI44
URI :

作者: 吉岡 照雄
Option Explicit

Class cBeep
Private xl
Private book
Public Win32
Public Error
Sub Class_Initialize()
Set xl=CreateObject("Excel.Application")
'xl.Visible=True
Set book=xl.WorkBooks.Open(Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\")) & "Beep.XLS")
Call xl.run(book.Name & "!GetWin32Obj", Win32)
Set Error=Win32.GetError()
End Sub
Sub Class_Terminate()
Set Error=Nothing
Set Win32=Nothing
If Not IsEmpty(book) Then book.Saved=True
Set book=Nothing
xl.Quit
Set xl=Nothing
End Sub
End Class

Dim xBeep
Dim Frequency
Dim Duration

Set xBeep=New cBeep
If IsEmpty(xBeep.Win32) Then WScript.Quit

Sub Beep(Frequency,Duration)
Dim RC
RC=xBeep.Win32.Beep(Frequency,Duration)
If RC=0 Then
WScript.Echo xBeep.Error.Source,xBeep.Error.Number,xBeep.Error.Description,xBeep.Error.LastDllError
End If
End Sub

If WScript.Arguments.Count=2 Then
Frequency=CLng(WScript.Arguments.Item(0))
Duration=CLng(WScript.Arguments.Item(1))
ElseIf WScript.Arguments.Count=0 Then
Frequency=800
Duration=200
Else
WScript.Echo "Usage: Start Beep.VBS Frequency Duration"
WScript.Quit 1
End If

Call Beep(Frequency,Duration)
WScript.Quit


No. 50 - Status Flag改善ありがとうございました。 (2009/05/11 Mon. 15:11:46) 編集 / 削除
名前 : bon
URI :

Toshiさん


4月30日に質問させていただいたbonです。
今日サイトを覘かせていただいたら、新Ver.のStatusFlagがリリースされていました・・・!

早速インストールしてみたところ、ちゃんと温度グラフが変化に応じて動くようになりました。


ご対応くださりありがとうございましたm(_ _)m!!

メッセージの投稿

・名前と本文は必須です。
・パスワード(8 文字まで)を入力せずに投稿すると、
 編集や削除が出来ません。
・スパム対策の為、認証文字列を入力してください。
 認証文字列は認証文字列です。

・Windows 以外の OS や ActiveBasic 以外の
 言語についての質問、あるいは管理人の知識の
 範囲を超えている質問などについては、
 回答が出来ない場合もございます。
 ご了承ください。















SideLineSentence Version 0.8.0.1
By Toshi

ページの先頭へ戻る
掲示板へ戻る
トップ ページへ戻る

* トップ ページ - 掲示板 - プログラム掲示板
http://toshi.my.land.to/bbs/program/
(C) 2005 - 2010 Toshi, All Rights Reserved.