PIC related website

[Dany]

About the wattmeter (see back a few posts).
2013-08-08: added the "Mains Isolation" expansion in the documentation (http://www.rosseeld.be/DRO/PIC/WattMeter.pdf).

[VCC]

Hi Dany,
I have recently downloaded USB_OA_Package.zip from Libstock and the WinCom.pas file from the archive is rather old. The problem I had was opening COM ports greater than 9. After a bit of searching on internet, I have found that COM names greater than 9 need names like this: '\\.\COM14'.
Here is the working code:

Code: Select all

function OpenCom(ComNr: TComNr;
  baud: LongWord;
  parity: Byte;
  databits: Byte;
  stopbits: Byte;
  sendbuffer_size,
  recbuffer_size: longword): Boolean;
var
  success: LongBool;
  ComName: PChar;
  res: Integer;
  Timeouts: TCommTimeouts;
begin
  success := true;    
  if not ComIsOpen(ComNr) then
  begin
    new(ComData[ComNr]);

    if ComNr > 0 then
    begin
      if ComNr < 10 then
        ComName := PChar('COM' + IntToStr(ComNr))
      else
        ComName := PChar('\\.\COM' + IntToStr(ComNr))
    end
    else
      ComName := 'COM1';

Please confirm the issue and update the file if needed. Thank you

[Dany]

Hi Dany,
I have recently downloaded USB_OA_Package.zip from Libstock and the WinCom.pas file from the archive is rather old. The problem I had was opening COM ports greater than 9. After a bit of searching on internet, I have found that COM names greater than 9 need names like this: '\\.\COM14'.

Please confirm the issue and update the file if needed. Thank you

I will check this (and change the code) as soon as possible. Thanks for the problem report.

[MaGiK]

Hi Dany
I think your website is awesome!

I found another website that is good for learning stuff about PIC's.
http://www.best-microcontroller-projects.com/

I just wanted to share this with you and your large fan base.
For some reason, I feel like all of you guys already know about it

Best Regards

[Dany]

Hi Dany
I think your website is awesome!

I found another website that is good for learning stuff about PIC's.
http://www.best-microcontroller-projects.com/

I just wanted to share this with you and your large fan base.
For some reason, I feel like all of you guys already know about it

Best Regards

Hi MaGik, thanks for the compliment and the link. I have added the link to my own website, section "links". It seems indeed to be very interesting. Thanks!

[Dany]

I have recently downloaded USB_OA_Package.zip from Libstock and the WinCom.pas file from the archive is rather old. The problem I had was opening COM ports greater than 9. After a bit of searching on internet, I have found that COM names greater than 9 need names like this: '\\.\COM14'.
Please confirm the issue and update the file if needed. Thank you

Confirmed.
The application TestCDC.zip has been updated (http://www.rosseeld.be/DRO/PIC/TestCDC.zip). The latter contains the updated WinCom.pas file.
I was totally not aware that only COM1..COM9 were defined in the Win32 file namespace (see http://msdn.microsoft.com/en-us/library ... px#maxpath, section "Win32 Device Namespaces").

Thanks again!

[Dany]

Hi, the CRTOS library (Cooperative Real Time Operating System), see http://www.libstock.com/projects/view/7 ... -mp-and-mb is now also available for PIC18.

Have fun!

[Dany]

Hi, the "TempSensors" library (http://www.libstock.com/projects/view/104/tempsensors) has a new version : v3.0: The "parasite" power capability has been added.

[Dany]

Hi, the "TempSensors" library (http://www.libstock.com/projects/view/104/tempsensors) has a new version : v4.0: The "Configuration" routines and a high resolution (DS18B20) stringconversion routine have been added:

Code: Select all

function DS1820_ReadPowerSupply(var Port_: byte; Bit_: byte): byte;
  // Returns the power supply type of the DS1820's connected to "Port_, Bit_":
  // 0 = at least one Ds1820 uses parasite power
  // 1 = all ds1820's are externally powered
  
procedure DS1820_SetConfiguration(var Port_: byte; Bit_, TH, TL: short; Wait: boolean);
  // Writes the temperature limits TH and TL to the Ds18(S)20 scratchpad and to EEPROM
  // TH is the upper temperature limit, TL is the lower temperature limit.
  // After the command parasite power is switched on.
  // If "wait" is true then 10 ms waiting time is added to allow EEPROM writing.
  
procedure DS18B20_SetConfiguration(var Port_: byte; Bit_, TH, TL: short; Resolution: byte; Wait: boolean);
  // Writes the temperature limits TH and TL and the config byte to the Ds18B20 scratchpad and to EEPROM
  // TH is the upper temperature limit, TL is the lower temperature limit
  // Resolution is 9,10,11 or 12 <<- translation of the resolution to the config byte is done by the routine
  // After the command parasite power is switched on.
  // If "wait" is true then 10 ms waiting time is added to allow EEPROM writing.
  
procedure DS1820_SetConfigurationROM(var Port_: byte; Bit_, TH, TL: short; Wait: boolean; var RomCode: array[8] of byte);
  // writes the temperature limits TH and TL to the Ds18(S)20 scratchpad and to EEPROM
  // TH is the upper temperature limit, TL is the lower temperature limit.
  // After the command parasite power is switched on.
  // If "wait" is true then 10 ms waiting time is added to allow EEPROM writing.

procedure DS18B20_SetConfigurationROM(var Port_: byte; Bit_, TH, TL: short; Resolution: byte; Wait: boolean; var RomCode: array[8] of byte);
  // writes the temperature limits TH and TL and the config byte to the Ds18B20 scratchpad and to EEPROM
  // TH is the upper temperature limit, TL is the lower temperature limit
  // Resolution is 9,10,11 or 12 <<- translation of the resolution to the config byte is done by the routine
  // After the command parasite power is switched on.
  // If "wait" is true then 10 ms waiting time is added to allow EEPROM writing.

procedure DS1820_GetConfiguration(var Port_: byte; Bit_:byte; var TH, TL: short);
  // Copies the EEPROM content to the scratchpad and returns the temperature limits TH and TL from the DS18(S)20 scratchpad
  // TH is the upper temperature limit, TL is the lower temperature limit.

procedure DS1820_GetConfigurationROM(var Port_: byte; Bit_:byte; var TH, TL: short; var RomCode: array[8] of byte);
  // Copies the EEPROM content to the scratchpad and returns the temperature limits TH and TL from the Ds18(S)20 scratchpad
  // TH is the upper temperature limit, TL is the lower temperature limit.
  
procedure DS18B20_GetConfiguration(var Port_: byte; Bit_:byte; var TH, TL: short; var Resolution: byte);
  // Copies the EEPROM content to the scratchpad and returns the temperature limits TH and TL and Resolution from the Ds18(S)20 scratchpad
  // TH is the upper temperature limit, TL is the lower temperature limit
  // Resolution is 9,10,11 or 12 <<- translation of the config byte to the actual resolution is done by the routine
  
procedure DS18B20_GetConfigurationROM(var Port_: byte; Bit_:byte; var TH, TL: short; var Resolution: byte; var RomCode: array[8] of byte);
  // Copies the EEPROM content to the scratchpad and returns the temperature limits TH and TL and Resolution from the Ds18(S)20 scratchpad
  // TH is the upper temperature limit, TL is the lower temperature limit
  // Resolution is 9,10,11 or 12 <<- translation of the config byte to the actual resolution is done by the routine

procedure DS18B20_TempToString_HR(Temp: integer; var S: string[9]; Sep: Char; Resolution: byte);
  // Returns temperature "temp", read from an DS18B20, as string in S, with 4 digits after the decimal separation char.
  // "Sep" is the decimal separation character.
  // "Resolution" (values 9, 10, 11 and 12) makes sure the "undefined" temperature bits are set to zero.

[Dany]

Hi, a new library has been published: OW_Utilities (http://www.libstock.com/projects/view/823/ow-utilities).

It provides the basic one-wrire search ROM and search ALARM routines.

The code is translated from the C-code provided in document http://www.maximintegrated.com/app-note ... mvp/id/187.

Have fun!

[joseLB]

Hi Dany, how are you going?

About your state machine routines:
1- Do you know or used a win7 sofware to graphicaly create a state machine?
2- Better yet, that generates some kind of text that I could use (manually editing, of course) to create the state machine?
Thanks
Jose

[Dany]

Hi Dany, how are you going?

About your state machine routines:
1- Do you know or used a win7 sofware to graphicaly create a state machine?
2- Better yet, that generates some kind of text that I could use (manually editing, of course) to create the state machine?
Thanks
Jose

Hi Jose,
Thanks, I am doing well.
However, I have to disappoint you: I did not use any tool to do that.

[joseLB]

Thanks, I am doing well.

==> good to know!

However, I have to disappoint you: I did not use any tool to do that.

==well, not so good but I will try to find something..
Thanks
Jose

[Dany]

Hi all,
the "StateMachine" libraries in package "Schedulers" (http://www.libstock.com/projects/view/103/schedulers) has been upgraded with the "AnyState" as "fromstate" possibilty in the transition table. Can be used e.g. in case of an alarm state which needs the same reaction in every possible state.

[joseLB]

Hi Dany

By any chance do you know a good software do compare changes betwen 2 MP projects? I mean, one project is copy of the other, the copy received some changes and now I need to compare the original project with the changed one.
Thanks
Jose