Internet PLC Forum

Hi,

Found the problem.... my Samsung mobile software (which was updated about a week ago) changed the file association .jar to a Samsung installer file.  I reset this to a Java executable file and bingo!

Cheers.

Hi,

Modified code.  much easier to work with and has the option of using the LCD port or the MDS display.

Many thanks.

IF Z=3
'SETLCD 0,0, CHR$(1)                      'Clear Screen
'SETLCD 1,1, "ALARM LIST"                  'LCD DISPLAY
PRINT #3 "?C"
PRINT #3 "?P0601";"ALARM LIST"               'MDS 100 DISPLAY
N = 2    
ENDIF   

IF DM[1] AND Z = 3
  'SETLCD N,1, STR$(N-1,2)+" I0.09 PUMP TRIP"                  'LCD DISPLAY
  PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.09 PUMP TRIP"         'MDS 100 DISPLAY
  N = N+1
  IF N > 4 RETURN: ENDIF
ENDIF

IF DM[2] AND Z = 3
  'SETLCD N,1, STR$(N-1,2)+" I0.10 CB AC TRIP"
  PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.10 CB AC TRIP"
  N = N+1
  IF N > 4 RETURN: ENDIF
ENDIF

IF DM[3] AND Z = 3
  'SETLCD N,1, STR$(N-1,2)+" I0.11 CB SOL TRIP"
  PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.11 CB SOL TRIP"
  N = N+1
  IF N > 4 RETURN: ENDIF
ENDIF


IF DM[4] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.12 CB PUMP O/L"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.12 CB PUMP O/L"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[5] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.13 CB PSU TRIP"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.13 CB PSU TRIP"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[6] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.14 CB DC TRIP"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.14 CB DC TRIP"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[7] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.15 CB TH TRIP"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.15 CB TH TRIP"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[8] AND Z = 3
    SETLCD N,1, STR$(N-1,2)+" I0.01 ESTOP ACTIVE"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.01 ESTOP"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[9] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.16 PSU VOLTS FAIL"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.16 PSU V FAIL"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[10] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.17 PUMP DRY RUN"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.17 PUMP DRY"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[11] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.18 MOTOR SAVER TRIP"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.18 MOTOR SAVER"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

IF DM[12] AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" I0.19 COMM'S FAIL"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" I0.19 COMM'S FAIL"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF


IF ADC(1) <= 100 AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" AI 0.1 SENSOR ERROR L"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" AI 0.1 SENSOR LOW"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF


IF ADC(1) >= 4000 AND Z = 3
    'SETLCD N,1, STR$(N-1,2)+" AI 0.1 SENSOR ERROR H"
    PRINT #3 "?P01";STR$(N,2); STR$(N-1,2)+" AI 0.1 SENSOR HIGH"
    N = N+1
    IF N > 4 RETURN: ENDIF
ENDIF

Hi,

I'm not looking to use the PLC's as remote IO's.

My SCADA will be the MB master, this will collect data from the slave PLC's via the RS485 port.

The local (slave)PLC will need to collect data from local devices i.e power meters etc on the RS232 (master).

is this OK?  will the communication work OK?

Cheers

Thanks for the extra information.

I come from a control background "after the PLC" so getting to grips with the basics.

Cheers

Hi,

this is now the working code, it isn't pretty but it works!.  Now i need to change from a SETLCD to a Print #3

How do you convert SETLCD N,4, "230VAC CB TRIP" to a Print # 3?

Print # 3 "?PN,04 230VAC CB TRIP"  is that right?

IF Z=3
SETLCD 0,0, CHR$(1)                      'Clear Screen
SETLCD 1,1, "SCREEN 3-ALARM LIST"
N = 2                                  'starting line
FOR I = 1 to 15
IF DM <> 0                            
SETLCD N,1, STR$(I,2)+":"      
IF DM = 1                     
SETLCD N,4,  "PUMP O/L TRIP"
ELSE
IF DM = 2                  
SETLCD N,4, "230VAC CB TRIP"
ELSE
IF DM = 3               
SETLCD N,4, "SOLENOID CB TRIP"
ELSE
IF DM = 4               
SETLCD N,4, "PUMP O/L TRIP"
ELSE
IF DM = 5               
SETLCD N,4, "PSU CB TRIP"
ELSE
IF DM = 6               
SETLCD N,4, "24VDC CB TRIP"
ELSE
IF DM = 7               
SETLCD N,4, "HEATING CB TRIP"
ELSE
IF DM = 8               
SETLCD N,4, "ESTOP ACTIVE"
ELSE
IF DM = 9            
SETLCD N,4, "PSU DC FAIL"
ELSE
IF DM = 10            
SETLCD N,4, "PUMP DRY RUN"
ELSE
IF DM = 11            
SETLCD N,4, "MOTOR SAVER"
ELSE
IF DM = 12            
SETLCD N,4, "COMM'S FAIL"
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
N = N+1
IF N > 4 '4                       ' no more lines for displaying alarm'
RETURN
ENDIF
ENDIF
NEXT
ENDIF

Hi,

Can you please join the bits of code required and paste them as one complete working example and post it in a reply.  

Once I have a working example I can edit accordingly.

I still think this is more more complicated than necessary.  As previously stated each DM will only ever have one alarm text message associated to it,  if the DM is a 1 the alarm is active and the one text will be displayed, when the DM = 0 the message is cleared.

Looking for different variables based on different DM values must be a waste of CPU time in this case.

The function I need help with is displaying the different alarms on different lines if active.  This is partly covered above, however at this time it is not clear to me how to join these functions together.

Referencing to different sections in the post and user manual are only adding to the frustration and confusion.

This is the last stumbling block in a so far successful product, which, after the initial trial period is anticipated to be rolled out to multiple sites in the UK.

Great thanks.

Hi guy's,

Any Idea of the power consumption?

Cheers