Visual Basic > Serial-USB > microcontroler si inapoi

[seichter]

Ma lovesc de urmatoarea problema:am un cod scris in pic 18f2550,care emuleaza un port serial.Windowsul 7 il detecteaza,il instaleaza si functioneaza fara probleme.La Pic am legate 2 leduri(e primul montaj cu pic cu hardware usb)pt a vedea starea a 2 porturi,deci le aprind si le sting.Comanda ledurilor o trimit,normal dintr-o aplicatie gen Hyperterminal,dar in W7 nu exista asa ca am instalat Realterm si Teraterm,cu aceste programe pot comanda picul dupa cum doresc,functioneaza ok,aprind ledul,primesc si o confirmare ca portul picului e High,deci merge si transmisia cit si receptia.Insa am vrut sa fac o interfata soft de comanda,desigur ca cel mai popular e VB.Am scris softul,e identic cu cel pentru un port serial normal,insa nu merge,nu comunica cu picul,nu se intimpla mai nimic,doar aplicatia se blocheaza si nu da mesaj de eroare.Mentionez ca am mai facut montaje cu comunicare seriala cu picuri si nu unul.S-a mai lovit cineva de aceasta problema?Picul e luat de la o firma de pe net,nu stiu daca am voie sa fac reclama,spun asta deoarece am mai vazut discutii legate de loturi proaste de picuri care aveau probleme.In concluzie,se pare ca pina la un punct e ok montajul,mai ramine zic eu partea de soft din Windows de comanda,si aici va rog sa ma ajutati,stiu cite ceva si in VB.Multumesc.

[godFather89]

Deci din terminal merge dar din programul tau nu?Daca da, pare evident unde e problema. Pune codul sa ne dam cu parerea.

[seichter]

Imports System.IOImports SystemPublic Class Form1 Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SerialPort1.Open() Timer1.Enabled = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SerialPort1.Write("3333") End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click SerialPort1.ReadExisting() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If SerialPort1.IsOpen = True Then Label1.Text = "port open" Else Label1.Text = "port close" End If End SubEnd Class

[godFather89]

Ma gandesc ca SerialPort1 e creat in designer... Nu arunca nici o exceptie cand dai Open?De obicei, nu se fac asa programele. Vezi sa nu ai alte terminale deschise si conectate in acelasi timp (pe acelasi port) si setarile se fie facute cum trebuie - nume port, baud, stop bits, parity...

[seichter]

setarile is ok pt port,portul e deschis la incarcare,ce anume nu e bine referitor la "nu asa se fac programele"?poate am gresit eu ceva

[seichter]

Te rog scrie tu secventa.Stiu ca trebuie selectat la Referinte System.IO.Ports.

[seichter]

in functie de programul din pic se poate comporta ca un convertor serial-usb sau ca device usb,insa ultima varianta nu stiu cum trebuie realizata in VB.poate stie cineva de pe aici....

[seichter]

pe codul de mai sus din VB am verificat un alt montaj,comunicarea facindu-se pe portul serial prin intermediul unui adaptor serial-usb.Deci codul in VB are toate clasele si referintele OK.Codul din pic zice asa:this application -- will emulate a RS-232 terminal device. Once the USB device has been detected by the -- host operating system, it will create a virtual COM port. When opening this COM-- on the host computer, using a standard terminal applicationPick any baudrate, Windows will-- accommodate automatically, and use 8-N-1-no for the other settings.

[seichter]

Rezolvat problema,era ceva din VB,mai exact la setarile la portul serial, DTR si RTS trebuie sa fie activate,aka "TRUE".In schimb la celalalt montaj cu adaptor serial-usb cumparat,aceste 2 setari sunt dezactivate. Am mai invatat ceva.se poate inchide "pravalia"

[niculae]

Salutare!Ca tot este deschis un topic legat de microcontrolere, profit de ocazie si nu mai deschid un alt topic. Doresc sa pun cateva intrebari cunoscatorilor, in speranta ca le-au trecut prin mana ceva asemanator! Deci:Am o reclama la care-mi lipseste un ci, cel de la care am luat-o la pierdut , ci-ul este cu 8 pini poate fi un pic sau o mem 24Cxx? ( reclama inainte de pierderea ci-ului era functionala, propietarul a dat-o cuiva sa-i schimbe mesajul ce aprea si asa mai departe ). Am masurat pinii ci-ului si am gasit asa:1. nimic2. masa3. masa4. 5V5. masa6. 3,5V7. nimic8. 5VDupa cum da la masuratori nu cred ca este eeprom din seria 24CXX, asa ca va rog pe voi sa ma ajutati cu un sfat, o parere, orice este bine venit. Pt a fi mai usor de indentificat, pe carcasa scrie:Model Number: M485N-16X128RG2Network No : 44Power Supply : 220V/50HzManufacture Date: Dec,2002Baud Rate : 9600Mai atasez si cateva poze.Multumesc.

IMG_3033.pdf

IMG_3034.pdf

Photo-0036.pdf

Photo-0037.pdf

Photo-0038.pdf

[niculae]

Salut,Am urmarit traseele circuitului lipsa, acestea duc cam asa:Pin 1. merge la pinul 3. al ci-ului MAX1489ECPD0037Pin2. Este la masaPin 3. Este la masaPin 4. Merge la pinul 11. Al ci-ului AT89C5224PC0230 ( este vb de cel care este aproape de ci lipsa )Pin 5. Este la masaPin 6. Merge la pinul 1. Al ci-ului MAX1489ECPD0037 Pin 7. Merge la pinul din mijloc (pin2) al cuplei albe cu 3pini( acesta nu este folosit ) de la aceasta mufa pin1,3 duc la mufa rsr232.Pin 8. Alim 5VPe cablaj in dreptul pinului ( vb de ci lipsa ) 6 este scris +in dreptul pinului 7 este scris –, in dreptul pinilor 1 si 4 este scris IPXD si OTXT. De asemenea pinii 1,6,7 ai ci-ului lipsa mai duc intr-un loc pe cablaj unde este notat: i, i+, i- acest i+ este comun si cu Pinul 1. Al ci MAX1489ECPD0037 impreuna cu masa duc la mufa alba cu 3 pini care merge la mufa rsr232. Din mufa rsr232nu se folosesc decat pinii 1 si 3 ai mufei ( pin 1. Received line signal detect, pin 3. Transmitted data ).Cam atat pot oferi, in caz ca nu m-am exprimat correct, va rog sa ma intrebati.Cele bune!

Copy of IMG_3033.pdf

[niculae]

Salut,

 

Am urmarit traseele circuitului lipsa, acestea duc cam asa:

Pin 1. merge la pinul 3. al ci-ului MAX1489ECPD0037

Pin2. Este la masa

Pin 3. Este la masa

Pin 4. Merge la pinul 11. Al ci-ului AT89C5224PC0230 ( este vb de cel care este aproape de ci lipsa )

Pin 5. Este la masa

Pin 6. Merge la pinul 1. Al ci-ului MAX1489ECPD0037

Pin 7. Merge la pinul din mijloc (pin2) al cuplei albe cu 3pini( acesta nu este folosit ) de la aceasta mufa pin1,3 duc la mufa rsr232.

Pin 8. Alim 5V

Pe cablaj in dreptul pinului ( vb de ci lipsa ) 6 este scris +in dreptul pinului 7 este scris –, in dreptul pinilor 1 si 4 este scris IPXD si OTXT. De asemenea pinii 1,6,7 ai ci-ului lipsa mai duc intr-un loc pe cablaj unde este notat: i, i+, i- acest i+ este comun si cu Pinul 1. Al ci MAX1489ECPD0037 impreuna cu masa duc la mufa alba cu 3 pini care merge la mufa rsr232. Din mufa rsr232nu se folosesc decat pinii 1 si 3 ai mufei ( pin 1. Received line signal detect, pin 3. Transmitted data ).

Cam atat pot oferi, in caz ca nu m-am exprimat correct, va rog sa ma intrebati.

 

Cele bune!

CHIAR NU S-A INTALNIT NIMENI CU ASA CEVA?!

[seichter]

Dorind sa portez softul pe alt PC am dat peste alte belele...Nu pornea softul,dadea eroare,arunca o exceptie de gen: system.invalid.error.exception...Am verificat sa fie incluse toate dll-urile in bin/release insa tot nu am scos-o la capat.In cele din urma sapind pe net am aflat ca e de la PowerPacks din VB problema.Descarc de pe site de la Microsoft PowerPack-ul respectiv,versiunea 3,insa nici o diferenta.In cele din urma am facut din VB un Publish care continea si acel PowerPacks si l-am instalat pe PC-ul dorit si astfel am reusit rezolvarea problemei.As vrea sa subliniez ca problema aceasta a aparut ca am folosit in VB forma ovala,cerc,dreptunghi,acestea fiind incluse in PowerPack.PowerPAckul cu care vine VB meu,nu este compatibil cu cel existent pe site la Microsoft.Atunci cind nu stii,te chinui si o zi intreaga cu o porcarie de genul asta.Am scris asta poate e de folos cuiva in viitor.