plc.myforum.ro

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

MY FRIENDS

YOU DON'T NEED ANY HMI FOR SINUMERIK.
YOU CAN DO EVERY CONTROL FROM VB6

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

THIS IS FORM SCREEN

IF CAN I ADD IMAGE SUCCESS
:lol:

SINUMERIK AND VB6 (VISUAL BASIC 6) SINUMERIK AND VB6 (VISUAL BASIC 6)

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

THIS IS "GEAR PROFILE CONTROL" MACHINE

1-WE DON'T USE MCP (MACHINE CONTROL PANEL) AND OPERATOR PANEL.
ONLY EMERGENCY STOP BUTTON FOR SAFETY.

2-YOU CAN CONTROL ,JOG-MDI-AUTO-REF-FEEDRATE AND EVERY MOVEMET WİTH MOUSE OR KEYBOARD

2-AND YOU CAN READ-WRITE EVERY PARAMETER AND VARIABLE

3-YOU CAN SHOW EVERY DATA ON SCREEN

YOU NEED ONLY VB6 PROGRAMMİNG AND STANDART PC SCREEN AND MOUSE AND KEYBOARD

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

LET'S START:

FIRST,NEED TO KNOWN, DDE (DYNAMIC DATA EXCHANGE) METHOD
SECOND, NCDDE (SINUMERIK NC DYNAMIC DATA EXCHANGE)

EXAMPLES:

1-READ PLC MARKER (M25.1)

rs232_oku1.LinkTopic = "ncdde|ncu840d"
rs232_oku1.LinkItem = "/PLC/memory/bit[25.1]"
rs232_oku1.LinkMode = 1
rs232_oku1.LinkRequest

2-READ X AXES POSITION (ENCODER 1)
wcs_x_name.LinkTopic = "ncdde|ncu840d"
wcs_x_name.LinkItem = "/channel/geometricaxis/name[u1,1]"
wcs_x_name.LinkMode = 1
wcs_x_name.LinkRequest

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

3-READ R PARAMETER AND WRITE EXCEL

Label30.LinkTopic = "ncdde|ncu840d"
Label30.LinkItem = "/channel/parameter/R[100]"
Label30.LinkMode = 2
Label30.Caption = ExcelSheet.Cells(100, 2).Value
Label30.LinkPoke

4-WRITE PLC (FOR JOG MODE)

Private Sub JOG_button_click()
Label2.LinkTopic = "ncdde|ncu840d"
Label2.LinkItem = "/plc/memory/bit[5.0]"
Label2.LinkMode = 2
Label2.Caption = "1"
Label2.LinkPoke
End Sub

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

YOU CAN ASK EVERYTHING HERE AND ikavakci@gmail.com

graf_step7 · Junior 2 Joined: 23 Dec 2012 Posts: 33

Hi

Great work.

:drunk:

Can you share the projekt-Source ?

What Version of VB ? ( VS2010, VS2012 . . .)
Whitch Sinumerik is working ? 840Dpl, 840Dsl (Version-Nummbers)

PCU-Version ?

Need any DLLs ?

thanks

graf_step7 · Junior 2 Joined: 23 Dec 2012 Posts: 33

>>wcs_x_name.LinkItem = "/channel/geometricaxis/name[u1,1]"

Where can I find Infos about "names" and Variable . . .

Any dokumentation ?

Perhaphs a Siemens-Number / Links for Informations ?

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

Dear friend,

I can not share project-source code, because machine is "gear profile measuring" and special, secret for machine manufacturer

But I can explain every questions , process belong to siemens

1-with vb6 (visual basic 6) (need to xp or virtualpc for win7)

2-suitable for sinumerik 840d-810d with pcu50 and 840di and 840dsl

3-not need mcp

4-not need Operator Panel

5-only use standart screen+mouse+keyboard

6-you not need any dll

I WILL EXPLAIN PROGRAMMING STEPS NEXT POST --------->

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

1- SETUP VB6 PROFESSIONAL ON VIRTUALPC-WIN7

2-THERE ARE TWO WAYS COMMUNICATION

3-FIRST WAY

3_1-YOU CAN MAKE VB6 EXE FILE (NOT SOURCE CODE ONLY EXE)
3_2-UNINSTALL HMI ADVANCED ON PCU
3_3-SETUP VB6 RUNTIME SOFTWARE ON PCU
3_4-RUN HMI BASE SOFTWARE FOR NCDDE (YOU CAN PUT WINDOWS STARTUP)

4-SECOND WAY , VB6 EXE FILE RUNNING ANOTHER PC AND COMMUNICATION WITH ETHERNET

5- YOU MUST USE FOR WATCHDOG IN VB6 PROGRAM FOR FREEZING PROBLEMS. BE CAREFUL

I WILL EXPLAIN VARIABLES NEXT POST ----->

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

NCDDE SERVER INFORMATION MANUAL 840D_FBR.pdf
SECTION 8

HMI <NCK>>wcs_x_name.LinkItem = "/channel/geometricaxis/name[u1,1]"
YOU CAN FIND
840D_LIS.pdf page 599

QUESTIONS ?

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

READ......

1-PLC MEMORY BIT
rs232_oku1.LinkTopic = "ncdde|ncu840d"
rs232_oku1.LinkItem = "/PLC/memory/bit[25.1]"
rs232_oku1.LinkMode = 1
rs232_oku1.LinkRequest

2-PLC DATABLOCK
probe_data.LinkTopic = "ncdde|ncu840d"
probe_data.LinkItem = "/plc/datablock/word[c101,0] "
probe_data.LinkMode = 1
probe_data.LinkRequest

3-NC ACTUAL AXIS MEASURING DATA
mcs_x_pos.LinkTopic = "ncdde|ncu840d"
mcs_x_pos.LinkItem = "/nck/machineaxis/measpos1[u1,1]"
mcs_x_pos.LinkMode = 1
mcs_x_pos.LinkRequest

4-PART PROGRAM
block2.LinkTopic = "ncdde|ncu840d"
block2.LinkItem = "/channel/programinfo/block[u1,2]"
block2.LinkMode = 1
block2.LinkRequest

5-R PARAMETER
Label30.LinkTopic = "ncdde|ncu840d"
Label30.LinkItem = "/channel/parameter/R[100]"
Label30.LinkMode = 2
Label30.Caption = ExcelSheet.Cells(100, 2).Value
Label30.LinkPoke

WRITE NEXT POST ------------->

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

WRITE:

1-PLC MEMORY BIT (RESET BUTTON)
Private Sub reset_button_click()
Label1.LinkTopic = "ncdde|ncu840d"
Label1.LinkItem = "/plc/memory/bit[3.7]"
Label1.LinkMode = 2
Label1.Caption = "1"
Label1.LinkPoke
End Sub

2-PLC MEMORY BYTE (FEED RATE)
Private Sub Slider1_Change()
feedovr_deger.LinkTopic = "ncdde|ncu840d"
feedovr_deger.LinkItem = "/plc/memory/byte[20]"
feedovr_deger.LinkMode = 2
feedovr_deger.Text = Slider1
feedovr_deger.LinkPoke
End Sub

zalo · Member Joined: 24 Nov 2013 Posts: 130

ikavakci · Junior Joined: 30 Sep 2011 Posts: 18

DEAR ZALO;

1-YOU CAN CONTROL PLC&CNC UNLIMITED OR NOT NEED OPTIONS.

2-AND YOU CAN CONNECTION EVERY SOFTWARE (EXCEL-WORD-HTML-LINUX-GRAPHIC OR DEOSEBIT SOFTWARE) BECAUSE VB6 (VIUAL BASIC 6) OPEN SOURCE

3-AND YOU CAN DEVELOP DISTINCT HMI OR MMC

4-AND THIS APPLICATION NOT NEED SIEMENS MCP+OPERATOR PANEL

5-COST EFFECTIVE

graf_step7 · Junior 2 Joined: 23 Dec 2012 Posts: 33

Hi

What is an exemple for:

Read M1.0
Write M1.0

Read E1.0

Read A1.0
Write A1.0

Read DB10.dbx0.0
Read DB10.dbb0
Read DB10.dbw0
Read DB10.dbd0

Write DB19.dbd0.5

regards