VISUAL BASIC 6 & SINUMERIK CNC CONTROL

SINUMERIK 840DSL

THIS IS FORM

Attachment 283728

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


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





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:

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



YOU CAN ASK EVERYTHING HERE AND [email protected]