با سلام به اساتید گرامی
سپاس از زحماتتون برای برپا نگهداشتن این تالار
من دوتا قطعه کد فاکس دارم که مربوط میشه به اتصال ترازو به برنامه حالا میخوام تحلیل این دو قطعه کد و تفاوتش رو بدونم و اگه بشه به سی شارپ تبدلیش کنم برای برنامه ممنون
wight_tar = FOPEN('COM1', 12)
wight_c = FREAD(wight_tar, 8)
FCLOSE(wight_tar)
PUBLIC a[3]
FOR i = 1 TO 3
a[i] = ASC(SUBSTR(wight_c, AT('»', wight_c)+i, 1))
a[i] = dec2hex(a(i))
ENDFOR
result = a(1)+a(2)+a(3)
RELEASE a
result = VAL(result)/1000
ENDPROC
wight_tar = FOPEN('COM1', 12)
wight_c = FREAD(wight_tar, 32)
FCLOSE(wight_tar)
PUBLIC a
a = ''
FOR i = 1 TO 8
a = a+SUBSTR(wight_c, AT('+', wight_c)+i, 1)
ENDFOR
result = VAL(ALLTRIM(a))
RELEASE a
result = result/1000
ENDPROC
پاسخ با نقل قول