Selam arkadaşlar..
16F877A nın portlarını VB ile okumak için yardımlarınız lazım..
örneğin PORTA nın 6 girişi için ayrı ayrı byte cinsinden
label1.text = 1. giriş
label2.text = 2. giriş
..
..
..
label6.text = 6. giriş
PORTB nin 8 girişi için
label7.text = 1. giriş
label8.text = 2. giriş...