weight capture of a scale through serial COM port to powerbuilder

weight capture, serial port to powerbuilder

//this module corresponds to an OleCustomControl object of powerbuilder, the read COM port function is called, which is also among my GIST
String ls_car
integer peso


// the object is read until a 6-digit result is obtained if the ascci character 10 is detected
if MSCOMM_LEER_PESO_LO.object.CommEvent = 2 then
	ls_car = MSCOMM_LEER_PESO_LO.object.Input
	if Asc(ls_car) = 13 then Return
	if Asc(ls_car) = 10 then 
		if Len(is_cadena) = 6 then
			// the obtained string is assigned to il_peso_dos
	il_peso_uno = Dec(is_cadena)

	mscomm_leer_peso_lo.object.portopen = false
	
	
	// assign the value to an instance variable, and this is assigned to my datawindows
	il_suma =il_peso_uno
		MiDW.SetItem(1, "DWCB", il_suma)
		return
	else
		is_cadena = ''
		return
	end if
	else
		is_cadena += ls_car
	end if	
end if