Przepraszam że odgrzewam tak stary temat jednak spędziłem przy tym prawie całą nockę kombinowałem jak mogłem jednak nie podołałem zadaniu..
Korzystając z tego kodu:
$regfile = "m16def.dat"
$crystal = 400000
Declare Sub Wyslij(byval Bajt As Byte)
Dim N As Byte
N = 0
Dim Parz As Byte
Parz = 0
Dim B As Bit
Set Portd.0
Set Portd.1
Do
Call Wyslij(&H1c) 'przyklad
Loop
End
Sub Wyslij(byval Bajt As Byte)
Reset 'wysylamy bit startu
Waitus 20
Reset Portd.0
For N = 0 To 7 'w petli wysylamy kolejne bity bajtu
Portd.1 = Bajt.n
Parz = Parz + Bajt.n
Set Portd.0
Waitus 20
Reset Portd.0
Waitus 20
Next N
Set Portd.0
Parz = Parz Mod 2
Portd.1 = Not Parz.0
Waitus 20
Reset Portd.0
Waitus 20
Set Portd.1 'i bit stopu
Set Portd.0
Waitus 20
Reset Portd.0
Waitus 20
Set Portd.0
Waitus 40 'dla bezpieczenstwa :D
End Sub
Który oczywiście był parę postów wcześniej, używając rezystorów podciągających zmieniając taktowanie zegara wartości "waitus" na większe np.23 to jednak nadal po podłączeniu do komputera w notatniku nie widzę żadnego znaku pomimo tego że nie piszczy itp (chodź to może byś winą wyłączenia bipera w biosie czy coś takiego) Całość tego układu mam zmontowane na płytce uruchomieniowej AVR więc nic nie ma prawa być źle dolutowane czy coś.
Proszę o pomoc i jakąś rade... czy to wina kodu czy też nieumiejętnej obsługi.
ale to juz stare dzieje ...
