1 Konuyu açan smentes

  • smentes
  • Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 257

Konu: PLC den bilgi alma

PLC ile yazılmış bir makinedeki bilgileri comporttan almak istiyoruz. Bu konu ile ilgili tecrübesi olan arkadaşlardan yardım bekliyorum. Şimdiden Teşekkürler.

2 Cevaplayan tbasoz

  • tbasoz
  • Üye
  • Offline
  • Kayıt Tarihi: 13.10.2006
  • İleti: 11

Re: PLC den bilgi alma

Ne tür bir yardıma ihtiyacınız var ? Belki çözmüşsünüzdür problemlerinizi. Ama hala devam ediyorsa yardımcı olabilirim.

Tekin Başöz
Yapay Zeka Ltd.

3 Cevaplayan smentes

  • smentes
  • Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 257

Re: PLC den bilgi alma

Tekin bey,
PCl ile programlanmış bir tekstil makinesinin RS 232 çıkışı var. Bu çıkıştan bilgileri bilgisayara aktarıp foxpro 9.0 ile rapor oluşturmak istiyoruz.

4 Cevaplayan Mehmet K

  • Mehmet K
  • Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 214

Re: PLC den bilgi alma

mscomm32.ocx

yarım yamalak bir örnek ekledim, umarım yardımcı olur:

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

PROCEDURE openport

  THIS.ole1.InBufferCount = 0

  THIS.ole1.DTREnable   = FALSE

  THIS.ole1.RTSEnable   = FALSE

  IF !THIS.ole1.PortOpen

    THIS.ole1.PortOpen  = TRUE

  ENDIF

ENDPROC

 

PROCEDURE closeport

  IF THIS.ole1.PortOpen

    THIS.ole1.PortOpen  = FALSE

  ENDIF

ENDPROC

 

PROCEDURE initport

        LPARAMETERS nBaudrate, nComPort

        LOCAL cTxt

 

        DO CASE

          CASE nBaudrate == 2400

            cTxt = "2400,N,8,1"

          CASE nBaudrate == 4800

            cTxt = "4800,N,8,1"

          CASE nBaudrate == 9600

            cTxt = "9600,N,8,1"

          CASE nBaudrate == 19200

            cTxt = "19200,N,8,1"

          CASE nBaudrate == 38400

            cTxt = "38400,N,8,1"

          CASE nBaudrate == 57600

            cTxt = "57600,N,8,1"

          OTHERWISE

            MESSAGEBOX("Baudrate out of range!")

            RETURN FALSE

        ENDCASE

 

        THIS.ole1.Settings         = cTxt

        THIS.ole1.CommPort      = nComPort

        THIS.ole1.Handshaking    = 0

        THIS.ole1.InputLen       = 1

        THIS.ole1.RThreshold     = 0

        THIS.ole1.NullDiscard   = FALSE

        This.ole1.InBufferSize  = 16384

ENDPROC

 

PROCEDURE send_msgblock

        LOCAL nCrcValue

        DECLARE integer Sleep in Win32API integer

 

        *!*    THIS.crc_xmodem(THIS.TxD_Buffer)

 

        nCrcValue = VAL(SYS(2007,THIS.TxD_Buffer))

        THIS.Crc_LowByte  = INT(nCrcValue % 256)

        THIS.Crc_HighByte = INT(nCrcValue / 256)

 

        THIS.TxD_Buffer  = THIS.TxD_Buffer + CHR(THIS.Crc_LowByte) + CHR(THIS.Crc_HighByte) + CHR(0x03)

        THIS.ole1.OUTPUT = THIS.TxD_Buffer

 

        DO WHILE  THIS.ole1.OutBufferCount > 0

          Sleep(10)

        ENDDO

 

        WAIT CLEAR

ENDPROC

Son düzenleyen, Mehmet K (08.01.2010 18:07:09)

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tane seçiniz.