RadiaLog

More
8 years 1 month ago #1778 by ThibmoRozier
Replied by ThibmoRozier on topic RadiaLog
Right now it only supports either MyGeiger serial and audio. Other implementations will follow soon :)

Please Log in or Create an account to join the conversation.

More
8 years 1 month ago #1782 by Frank
Replied by Frank on topic RadiaLog
Ah, ok, so it won't work with the TL081 adapter that I use with the GMC-200 unit. Will be cool to try once its finished and more versatile. :)

Please Log in or Create an account to join the conversation.

More
8 years 1 month ago #1785 by ThibmoRozier
Replied by ThibmoRozier on topic RadiaLog
Will implement GMC soon. :)
IRC the GMC-200 sends serial com via the audio lead no? (But then the module translates it to USB serial)

Please Log in or Create an account to join the conversation.

More
8 years 1 month ago #1788 by Frank
Replied by Frank on topic RadiaLog
Cool, ok. Ya, that's how it works :) thanks

Please Log in or Create an account to join the conversation.

More
8 years 1 month ago #1789 by ThibmoRozier
Replied by ThibmoRozier on topic RadiaLog
OK nice. :P
I wonder if Android could handle that properly (The audio cable) as it'd require custom handeling..
But IRC all GMC devices work in the same way eg: <GETCPM>>
So I'd need to do something like:
  if (fTicks mod 300 = 0) and fGMCMode then
  begin
    cComPort.Output := '<GETCPM>>';
  end;
And then edit the trigger to be like:
procedure TmainForm.triggerAvail(CP: TObject; Count: Word);
var
  I, curCPM: Integer;
  Character: AnsiChar;
  dateTime: string;
  dataBlock: array [0..1023] of Byte;
begin
  if fGMCMode then
  begin
    cComPort.GetBlock(dataBlock, 1024);

    if Length(dataBlock) >= 2 then
    begin
      # Convert bytes to 16 bit int
      curCPM = (Ord(dataBlock[0]) * 256) + Ord(dataBlock[1]);
      dateTime := FormatDateTime('DD-MM-YYYY HH:MM:SS', Now);
      cCPMEdit.Lines.Add(dateTime);
      cCPMEdit.Lines.Add(#9 + 'curCPM: ' + IntToStr(curCPM) + sLineBreak);

      if fUploadRM then
        fCPMList.Add(curCPM);

      updatePlot(curCPM);
      updateCPMBar(curCPM);
      updateDosiLbl(curCPM);
    end;
  end else
  begin
    if fTimeToWait = -1 then
      fTimeToWait := 1;

    for I := 1 to Count do
    begin
      Character := cComPort.GetChar;

      if Character = #7 then // COM port asks for system to "bell"
        MessageBeep(0)
      else
        if Character in [#32..#126] then // Only accept alpha-numeric Ansi values
          fBuffer := fBuffer + Character;
    end;
  end;
end;

Or something along those lines. :D

Please Log in or Create an account to join the conversation.

More
7 years 11 months ago - 7 years 11 months ago #1898 by ThibmoRozier
Replied by ThibmoRozier on topic RadiaLog
After some time a news update:
I am working on making everything a lot more readable by splitting every major component up into it's own class within a dedicated unit.
Threads will also be implemented to keep everything running smoothly.
I am working on switching from AudioLab (A lib that nags about licenses whilst it's slow and bulky) to OpenAL (Yes, it does have audio recording, though it's way more low-level, using buffers rather then objects).
Meanwhile I am also implementing GMC and NetIO.

Maybe later on I can look at more. :)
This will take some time due to time constraints caused by work.
Last edit: 7 years 11 months ago by ThibmoRozier.
The following user(s) said Thank You: mw0uzo

Please Log in or Create an account to join the conversation.

Moderators: Gamma-Man
Time to create page: 0.388 seconds
Powered by Kunena Forum
Everything's free. Please support us by considering a donation. Log in first!
Solar powered Raspberry Pi 4 server stats: CPU 27% Memory 12% Swap 11% CPU temp=60.3'C Uptime 10 Days