【正文】 39。close(gcbf)39。)。 uicontrol(39。pos39。,[460 250 80 40],39。string39。,39。tran39。,39。fontsize39。,12, ... 39。callback39。,39。up(39。39。tran39。39。)39。)。 uicontrol(39。pos39。,[460 300 80 40],39。string39。,39。rec39。,39。fontsize39。,12, ... 39。callback39。,39。up(39。39。rec39。39。)39。)。 labelPos=[40 30 400 360]。 ht=uicontrol( ... 39。Style39。,39。text39。, ... 39。Position39。,labelPos, ... 39。BackgroundColor39。,[1 1 1], ... 39。ForegroundColor39。,[1 0 1], ... 39。String39。,39。Data39。,39。FontSize39。,45)。elseif strcmp(action,39。tran39。) set(ht,39。FontSize39。,45)。 s = serial(39。COM139。)。 set(s, 39。BaudRate39。, 2400, 39。StopBits39。, 1)。 set(s, 39。Terminator39。, 39。139。, 39。Parity39。, 39。none39。)。 set(s, 39。FlowControl39。, 39。none39。)。 %set(s,39。BytesAvailableFMode39。,39。terminator39。)。 %set(s, 39。BytesAvailableF39。, {39。dispcallback39。})。 fopen(s)。 %get(s, 39。Status39。) set(s,39。Timeout39。,20) %set(s, 39。ReadAsyncMode39。, 39。continuous39。)。 dispStr=[]。 for x=1:10 for i=2562.^[1:8] fwrite(s,i) i if i==0 dispStr=39。0000000039。 else dispStr=dec2bin(i)。 end set(ht,39。String39。,dispStr)。 pause() end end fclose(s) delete(s) clear s% clf% up(39。init39。)。elseif strcmp(action,39。rec39。) set(ht,39。FontSize39。,20)。 s = serial(39。COM139。)。 set(s, 39。BaudRate39。, 2400, 39。StopBits39。, 1)。 set(s, 39。Terminator39。, 39。139。, 39。Parity39。, 39。none39。)。 set(s, 39。FlowControl39。, 39。none39。)。 %set(s,39。BytesAvailableFMode39。,39。terminator39。)。 %set(s, 39。BytesAvailableF39。, {39。dispcallback39。})。 fopen(s)。 %get(s, 39。Status39。) set(s,39。Timeout39。,10) set(s, 39。ReadAsyncMode39。, 39。continuous39。)。 fwrite(s,255) %bufferbytes1=get(s, 39。BytesAvailable39。) readasync(s) bufferbytes2= data = fscanf(s,39。%d%*c39。) %bufferbytes3= %data2 = fscanf(s,39。%c39。,1) %data2 = fread(s,1,39。int839。) dispStr=num2str(data)%char(dispStr,num2str(i))。 set(ht,39。String39。,dispStr)。 fclose(s) delete(s) clear s end單片機程序： 0000hjmp start 0100hstart:mov tmod,20h mov TL1,0F3h mov TH1,0F3h mov pcon,00h mov scon,50h setb TR1rec1: jbc RI,rec2 sjmp rec1rec2: mov A,sbuf mov P2,A cjne A,0ffh,rec1 mov r5, 39htram: mov A,r5 mov sbuf,Await: jbc TI,next sjmp waitnext: mov A,20h mov sbuf,Await2: jbc TI,next2 sjmp wait2next2: dec r5 cjne r5,30h,tram jnz tram sjmp $ End