Visual Basic se sériovým portem

[cuz]

Ahoj všichni,
Jsem nový vb.Mám projekt o tom, jak řídit dva motory na PC-bázi s použitím Visual Basic 6.Mám kód pro mscomm, ale i dont vědět, jak komunikovat
pic16f877a pro mou kontrolu.Mám kontrolní start / stop, regulace otáček a vpřed / vzad rotace.pls pomozte mi ... i tolik potřebné .... Děkuji vám pipz ....

 

[cuz]

Mám kontrolu 10,20,30 a 40.i bude použita ke kontrole rychlosti můj motor.
Mám použití seznamu, ale já chci, že to bude zobrazovat 10, 20, 30 a 40 jeden po druhém.
že pokaždé, když chci zvýšit rychlost i stisknout tlačítko na seznamu a bude automaticky měnit rychlost.I dont know-how.pls pomoci ..

 

[the_balistic]

HII cuz,

Nejprve musíte undesrtand, jak se rozhraní mezi PC a mikrokontrolérem.
Existuje mnoho způsobů:
1.paralelní port (sdílení I / O, se skládají z dataport, kontrolní port a status port) může přímo připojit k mikrokontroléru bez izolace systémem, ale není to doporučeno, obvykle používají opto oddělovač, aby se zabránilo port poškození způsobit zkrat, ve srovnání se současnou.
2.Sériové obvykle používají 3 kabelu (není-li používat handshake) TX, RX a GND), musí toto použití IC Converter jako max 232 pro konverzi Logika TTL (mikro logika 0 - 5 V) na RS-232 úroveň.
3.LAN (pomocí wiznet, nikdy jsem se snažil tento).
4.Etc

Z toho, co jste se problém, jen chcete odeslat data z PC do micro pro řízení otáček motoru.Je to velmi jednoduché.Lze rozdělit na 3 problémy:

1.Visual Basic pro odesílání dat na micro
2.Micro pro příjem dat z PC
3.PWM pro řízení motoru otáčky (předpokládám, že jste pomocí PWM)1.Příklad Visual Basic pro odesílání dat na micro<img src="http://images.elektroda.net/40_1266066738_thumb.jpg" border="0" alt="visual basic with serial port" title="Visual Basic se sériovým portem"/> nejprve design jako na obrázku:Kód:'===============================

'Pro odeslání dat z PC do micro

'===============================

Private Sub Command1_Click ()

Dim datastring As String

datastring = "Test"

MSComm1.Output = datastring

End Sub'=================================

'Když Form zatížení

'=================================

Private Sub Form_Load ()

On Chyba handle_error Jdi

MSComm1.PortOpen = True

Konec subhandle_error:

MsgBox ("Walah Port sériové Ga Bisa Dibuka")

End SubPrivate Sub Timer1_Timer ()

Pokud MSComm1.PortOpen = True Potom

Empty_buffer = MSComm1.Input

End If

End Sub