プロセッサおよびメモリに関する情報を取得

*サンプル
#N88BASIC
'プロセッサおよびメモリに関する情報を取得
Dim sysinfo As SYSTEM_INFO
GetSystemInfo(sysinfo)
Print "CPU情報"
Print sysinfo.dwProcessorType
Print sysinfo.wProcessorLevel
Print sysinfo.wProcessorRevision
Print "プロセッサ数"
Print sysinfo.dwNumberOfProcessors
Print "プロセッサのビットマスク"
Print sysinfo.dwActiveProcessorMask
Print "メモリページのサイズ"
Print sysinfo.dwPageSize
Print "アプリケーションが利用可能なメモリ空間の最下位アドレス"
Print sysinfo.lpMinimumApplicationAddress
Print "アプリケーションが利用可能なメモリ空間の最上位アドレス"
Print sysinfo.lpMaximumApplicationAddress
Print "メモリ空間割り当ての最小単位"
Print sysinfo.dwAllocationGranularity

西暦からユリウス日を計算



*サンプル
-----------------------------------------------------------------------
#N88BASIC

'構造体

Type ASTRODATE

dy as integer '年

dm as integer '月

dd as integer '日

th as integer '時

tm as integer '分

ts as integer '秒

end Type

'西暦テスト変数入力

Sub DoubleDateInput(ByRef A As ASTRODATE)

A.dy=1990

A.dm=7

A.dd=1

A.th=9

A.tm=0

A.ts=00

End Sub

'西暦からユリウス日を計算


'


'


'関数の引数:


' jdy - 年 [単位:西暦年]


' jdm - 月 [単位:月]


' jdd - 日 [単位:日]


' jth - 時 [単位:時]


' jtm - 分 [単位:分]


' jts - 秒


' 


'

Function GetAstroDateA(jdy,jdm,jdd,jth,jtm,jts) As Double

dim jdo As Double

dim jd_jst As Double

dim dy As Double

dim dm As Double

dim dd As Double

dim th As Double

dim tm As Double

dim ts As Double

'

dy=jdy

dm=jdm

dd=jdd

th=jth

tm=jtm

ts=jts

'0時におけるユリウス日

if(dm<3) then

dm=dm+12

dy=dy-1

end if

jdo = Fix(dy / 100)

jd_jst = Fix(dy * 365.25) -jdo + Fix(jdo / 4)

jd_jst = jd_jst + Fix(30.6001 * (tm + 1)) + dd + th / 24 + tm / 1440 + 1720996.5

jd_jst = jd_jst - 9/24



GetAstroDateA = jd_jst

End Function

'メイン

dim a as ASTRODATE

dim b as Double

DoubleDateInput(a)

print a.dy,a.dm,a.dd

b = GetAstroDateA(a.dy,a.dm,a.dd,a.th,a.tm,a.ts)

print b

-----------------------------------------------------------------------
ActiveBasicオフィシャルユーザーズガイド―完全FreeのBasic統合開発環境で始めるWindowsプログラミング/山本 大祐


¥2,625

Amazon.co.jp