鳥の巣箱

ネトゲしたり、機械いじったり、ソフト書いたり、山篭ったり、ギャンブルしたりする人

Programing

TListViewをResizeしたときのItem Objectの操作

TListViewを使っていてハマった問題。TListViewのサイズが変わると、リスト内のオブジェクト(ButtonやImageなど)のサイズが勝手に変わってしまっていた。

Pythonで終了処理を実行させる

一つの問題です。 よくあるRaspberry PiのGPIOを制御するプログラムです。 以下のようなソースコードがあって import RPi.GPIO as GPIO import time GPIO.setmode(GPIO.BOARD) GPIO.setup(13, GPIO.OUT) while True: GPIO.output(13, True) time.sleep(1) GP…

EurekaLogでスレッドの例外を受け取る

EurekaLogで別スレッドで発生した例外を受け取る方法としては、公式Documentにいろいろと書いてあります。EurekaLog 7 Documentation

平均の計算をループを使わずに処理時間を短縮する

タイトル通りです。 簡単に平均値の計算をする場合、大体はこんな感じの関数を使うことになるでしょう。 function Average(data : array of Double):Double; var I : Integer; begin Result := 0; for I := 0 to Length(data) -1 do begin Result := Result …

自作クラス作成Tips ー 自作クラスにレコード型のプロパティを持たせる時の注意

自作クラスにレコードプロパティを実装したいという場面は結構あるはずです。 ただ、実装時にはいくつか注意しなければならないことがあります。

MfPackのバグ

DelphiでWASAPIを扱うためのライブラリとしてMfPackが公開されてますが、 これにバグがあるようで、全く動かない。

ビット反転アルゴリズム

数年前にFFTライブラリのためにビット反転処理を書いた。 ただ、FFTサンプル数を増やしたときに崩壊してしまっていたので、サンプル数に制限をかけてたわけですが 一思いにこの辺の処理を一新することにした。

MoveTo、LineToメソッドで描いた線とPen.Widthの特性。。。とScanLineについて。

TBitmapコンポーネントなどには、そのBitmap上に線を引くために ・MoveTo(x,y) ・LineTo(x,y) というメソッドが用意されてます。MoveTo(x,y)で線の始点になる座標を指定し、LineTo(x,y)で指定した座標まで直線を描きます。また、Pen.Widthプロパティで線の太…

HDD容量の取得とLARGE_INTEGERの扱い

HDD容量を取得する場合は、Windows APIにあるGetDiskFreeSpace関数を使うと各変数に色々値をぴったんこしてくれるわけですが僕、最初普通にこの「GetDiskFreeSpace関数」の方を使ってたんですね。そしたら正しい値が返ってこないというわけで。https://msdn.…

Delphiで処理速度を計測する

今作ってるプログラムで、ちょっとレスポンスが悪いプロシージャがあったので プロシージャ内部のどの処理が時間を食ってるのか調べることにした。何パターンかやり方があるけど、とりあえず簡単なのを。 timeGetTime関数 uses MMSystem; procedure TimeChec…

RIFFフォーマットファイルの読み込み

DelphiでWaveファイルを扱うためにRIFFフォーマットのファイルを読み込む必要がでてきたんで色々とメモ書き。 まず必要なものの説明。 MMSystemライブラリ マルチメディア関連のAPIが各種はいっている。 uses句にこれを追加する必要あり。 MMRESULT型 MMSyst…

TImageのリサイズ時に気をつけること

Delphiやりはじめて初日ですどうも。早速躓きまくってるので色々メモ書きをガンガン残していきます。 DelphiでTImageコンポーネントを、フォームのサイズに合わせてリサイズしようとしていたのだが、どうにもうまくリサイズされない。通常のコンポーネントは…

KPIT GNU H8ツールチェイン 割り込み操作のなんたらかんたら

H8マイコンで割り込み操作を実行するためにあれこれ試行錯誤していたもののなぜか割り込みが入らない。 ネットで色々調べてみるもツールチェインがGCCだったりでKPITを使った情報が極端に少ない。てか見つからねぇ。 とりあえず動かすための手順だけ殴り書き…

UTF-8からShift_JISへのエンコードエラー

なんかめんどくさいことにぶち当たったので覚書程度にまとめとく。 マイコン関係の開発環境として普段HEWとSublime Text 2を併用して使ってるんですが、HEWでUTF-8が使えないんですねぇー。 Sublime Text側で編集すると、HEWではコメントアウトした日本語部…