com_eng_abasszadeh
سه شنبه 29 شهریور 1390, 11:42 صبح
*** ActiveX Control Event ***
b1a = thisform.usecom1.input
B12 = NUM2BIN(ASC(SUBSTR(B1A,2,1)),8)
B13a = VAL(SUBSTR(B12,5,1))
B14 = BITLSHIFT(asc(SUBSTR(B12,6,3)),21)
B15 = BITLSHIFT(ASC(SUBSTR(B1A,3,1)),14)
B16 = BITLSHIFT(ASC(SUBSTR(B1A,4,1)),7)
B17 = ASC(SUBSTR(B1A,5,1))
B1C = (B16+B15+B17) / 10
IF b13a = 1
b1c = b1c * -1
endif
thisform.text1.Value = b1c
در مورد این کدها کسی میتونه بهم کمک کنه و معنی خط به خطش رو توضیح بده.
تشکر.
b1a = thisform.usecom1.input
B12 = NUM2BIN(ASC(SUBSTR(B1A,2,1)),8)
B13a = VAL(SUBSTR(B12,5,1))
B14 = BITLSHIFT(asc(SUBSTR(B12,6,3)),21)
B15 = BITLSHIFT(ASC(SUBSTR(B1A,3,1)),14)
B16 = BITLSHIFT(ASC(SUBSTR(B1A,4,1)),7)
B17 = ASC(SUBSTR(B1A,5,1))
B1C = (B16+B15+B17) / 10
IF b13a = 1
b1c = b1c * -1
endif
thisform.text1.Value = b1c
در مورد این کدها کسی میتونه بهم کمک کنه و معنی خط به خطش رو توضیح بده.
تشکر.