FORTRAN code to read Applanix SBET file

FORTRAN code to read Applanix SBET file.
I use a Intel Fortran complier.

!! Shih-Hung, Hsu @ CHS
!! v1.0 2013/2/22
!! Show output on screen.

program sb2ascii
implicit none

!! Input
character*30 :: sb_file

!! Output
character*30 :: ascii_file

!! Data
real*8 :: time, latitude, longitude, altitude, x_vel, y_vel, z_vel, roll, pitch
real*8 :: platform_heading, wander_angle, x_acceleration, y_acceleration, z_acceleration
real*8 :: x_angular_rate, y_angular_rate, z_angular

!! Error_Control
integer :: sb_file_IO, ascii_file_IO

!! Test
character*30 :: c_test
integer :: i_test


write(*,*) "Input file name:"
read(*,*) sb_file

open(11, FILE=sb_file, IOSTAT=sb_file_IO, FORM='BINARY', ACCESS='STREAM', READONLY)
open(12, FILE=ascii_file, IOSTAT=ascii_file_IO, FORM='BINARY', ACCESS='STREAM')

do while(sb_file_IO.eq.0)
read(11, IOSTAT=sb_file_IO) time, latitude, longitude, altitude, x_vel, y_vel, z_vel, &
& roll, pitch, platform_heading, wander_angle, x_acceleration, &
&y_acceleration, z_acceleration, x_angular_rate, y_angular_rate, z_angular
write(12, IOSTAT=ascii_file_IO) time, latitude, longitude, altitude, x_vel, y_vel, z_vel, &
& roll, pitch, platform_heading, wander_angle, x_acceleration, &
&y_acceleration, z_acceleration, x_angular_rate, y_angular_rate, z_angular
!write(*, "(17(F20.10))") time, latitude, longitude, altitude, x_vel, y_vel, z_vel, &
! & roll, pitch, platform_heading, wander_angle, x_acceleration, &
! & y_acceleration, z_acceleration, x_angular_rate, y_angular_rate, z_angular
end do

close(11)
close(12)

stop
end program sb2ascii


More......

批次檔延遲執行啟動項目 / Command Line Startup Delayer

由於是公司很乾淨的電腦有這個需求，不適合裝一些額外的軟體，所以想出這個方法。不過在不乾淨的作業系統下，最前面有必要增加一些 Code 來延遲執行整個批次檔。如果有更多程式或較少程式要執行，稍微修改就可以了。
If you don't want to install any software, it might a way of delay startup programs.

@echo off
set /A num = 0
set path=C:\startup
REM 要啟動的程式捷徑位置 ( .lnk of startup items )
goto run

: starting
set /A StartT = %time:~6,1%*10 + %time:~7,1%
REM 避免 0X 秒造成錯誤 ( avoid error of convert 0x to numbers )
IF %StartT% == %StartE% goto run
goto starting


: run
set /A StartT = %time:~6,1%*10 + %time:~7,1%
IF %num% == 8 goto endloop
IF %StartT% == 7 goto p1
IF %StartT% == 14 goto p2
IF %StartT% == 21 goto p3
IF %StartT% == 28 goto p4
IF %StartT% == 35 goto p5
IF %StartT% == 42 goto p6
IF %StartT% == 49 goto p7
IF %StartT% == 56 goto p8
goto run

: p1
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P1 中，已啟動 %num% / 8
P1.lnk
goto starting

: p2
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P2 中，已啟動 %num% / 8
P2.lnk
goto starting

: p3
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P3 中，已啟動 %num% / 8
P3.lnk
goto starting

: p4
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P4 2 中，已啟動 %num% / 8
P4.lnk
goto starting

: p5
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P5 中，已啟動 %num% / 8
P5.lnk
goto starting

: p6
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P6 中，已啟動 %num% / 8
P6.lnk
goto starting

: p7
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P7 中，已啟動 %num% / 8
P7.lnk
goto starting

: p8
set /A num = %num%+1
set /A StartE = %StartT%+1
echo 啟動 P8 中，已啟動 %num% / 8
P8.lnk
goto starting

: endloop
pause

More......

用命令提示字元長時間統計線路狀況 / Ping statistics with Command Line

最近收資料的線路非常的不穩，又沒辦法24小時一直看著它，然後就變出這個東西了。每10秒鐘Ping一次，每15分會寫出檔案一次，每小時會重新統計一次。

Ping every 10 seconds. Write to file every 15 minutes. Restart every hour.

@echo off

set SVIP=123.123.123.123
set T_OUT=6000

: restartping
if not EXIST %SVIP%.斷線 (goto starting)
find /c "Request timed" %SVIP%.斷線 >> %SVIP%.連線
REM 斷線=(connection fail) 連線=(connection success)
find /c "Reply from" %SVIP%.成功 >> %SVIP%.連線
echo. >> %SVIP%.連線
echo %date:~0,10% %time% >> %SVIP%.連線


: starting
set S_DATE=%date:~0,10%
set S_TIME=%time%

if EXIST %SVIP%.斷線 (del %SVIP%.斷線)

if EXIST %SVIP%.連線 (echo ================= >> %SVIP%.連線 >> %SVIP%.連線) ELSE (echo ================= > %SVIP%.連線)
echo. >> %SVIP%.連線
echo Ping: %SVIP% Timeout: %T_OUT%ms Cycle: 10seconds >> %SVIP%.連線
echo. >> %SVIP%.連線
echo %S_DATE% %S_TIME% >> %SVIP%.連線

echo Ping: %SVIP% Timeout: %T_OUT%ms Cycle: 10seconds
echo Please Standing By...

: loopping

ping %SVIP% -n 1 -w %T_OUT% >> %SVIP%.斷線
copy %SVIP%.斷線 %SVIP%.成功

cls
echo Ping: %SVIP% Timeout: %T_OUT%ms Cycle: 10seconds
echo.
echo %S_DATE% %S_TIME:~0,8%
find /c "Request timed" %SVIP%.斷線
find /c "Reply from" %SVIP%.成功
echo.
echo %date:~0,10% %time:~0,8%
echo.
echo Type Ctrl-C to stop.

: waitping
if %time:~7,3%==0.0 (goto goping) ELSE (goto waitping)

: goping
if %time:~3,4%==15:0 (goto writing)
if %time:~3,4%==30:0 (goto writing)
if %time:~3,4%==45:0 (goto writing)
if %S_TIME:~0,2%==%time:~0,2% (goto loopping) ELSE (goto restartping)

: writing
find /c "Request timed" %SVIP%.斷線 >> %SVIP%.連線
find /c "Reply from" %SVIP%.成功 >> %SVIP%.連線
echo. >> %SVIP%.連線
echo %date:~0,10% %time% >> %SVIP%.連線
goto :loopping

More......

PhotoCap

A nice tool for edit or adjust your photo. You might consider it as a compress version of Photoshop, but more easy for use.

Most important function is batch processing. Simply by drag your mouse and check some bottom, you don't need how to write a script.

It also includes most of the common function, such as layers, filters and adjustments. Functions such as adjust photos that are under or over exposure and remove purple fringing are available.

You can download from here. English version is available. By the way, PhotoCap is a freeware.


More......