[free] đồ án [DA027] Giao tiếp máy tính hiển thị nhiệt độ

by **hoangnhanpro** 16th August 2012, 09:39

Code:: 6.2 Chöông trình Vb Private Sub cmdExit_Click() MSComm1.PortOpen = False End End Sub Private Sub cmdSend_Click() Dim out As String out = GUI.Text If (out >= 0 And out <= 99) Then MSComm1.Output = Chr(out) Else MsgBox " Nhap tu 0 den 99" GUI.Text = " " End If End Sub Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True MSComm1.RThreshold = 1 End Sub Private Sub MSComm1_OnComm() NHAN.Text = MSComm1.Input End Sub Private Sub xoa_Click() GUI.Text = " " End Sub Pic #include<16f877a.h> #fuses nowdt,noprotect,nolvp,xt,put #use delay(clock=4000000) #use rs232(baud=9600,parity=n,xmit=pin_c6,rcv=pin_c7,bits=8) #byte portb = 0x06 #byte portc = 0x07 #byte portd = 0x08 #byte porte = 0x09 #bit RC0 = PORTC.0 #USE FAST_IO(A) #USE FAST_IO(B) #USE FAST_IO(C) #USE FAST_IO(D) #USE FAST_IO(E) INT8 hc,dv,hcbd,dvbd,x,dem,bd; int8 demdutg; INT8 tam; int16 demtg; VOID DOC_ADC() { SET_TRIS_A(0b11111); OUTPUT_A(0); //XOA PORTA SETUP_ADC(ADC_CLOCK_INTERNAL); SETUP_ADC_PORTS(AN0_AN1_AN2_AN4_AN5_VSS_VREF); SET_ADC_CHANNEL(2); DELAY_us(1000); } VOID XUATLED() { hc = X / 10; dv = X % 10; hcbd = bd /10; dvbd = bd %10; PORTd = hc + 64; DELAY_ms(5); PORTd = dv + 128; DELAY_ms(5); PORTd = hcbd + 16; DELAY_ms(5); PORTd = dvbd + 32; DELAY_ms(5); } #int_rda nhan() { bd = getc(); } #int_rtcc ngat_timer0() { if( demtg == 12000) demdutg = 1; { demtg = demtg +1; set_timer0(5); } } VOID MAIN() { SET_TRIS_D(0); PORTD = 0; SET_TRIS_E(0); PORTE = 0; set_tris_c(0b10000000); PORTC = 0; enable_interrupts(global); enable_interrupts(int_rda); enable_interrupts(int_rtcc); setup_timer_0(rtcc_internal|rtcc_div_2); bd = 42; demtg = 0; demdutg = 0; tam = 0; DEM = 0; WHILE(TRUE) { dem = dem + 1; if(dem == 20) { DOC_ADC(); X = READ_ADC(); dem=0; } xuatled(); printf ("%u",x); if (x >= bd ) { RC0 = 1; TAM = 1; demtg = 0; demdutg = 0; } ELSE IF (TAM == 1) { set_timer0(5); TAM = 0; } ELSE IF (demdutg ==1) { RC0 = 0; demtg = 0; demdutg = 0; } }}

[You must be registered and logged in to see this link.]