adc0804lsn

[ΓΙΑΝΝΗΣ 456]

Μετα απο την επιτυχη κατασκευη του dac που την χρωστασταω στα μελη του φορουμ θελω να συνδεσω των adc0804lsn με τον υπολογιστη μου.
και η πρωτη δυσκολια (απορια) που εχω συναντησει ειναι στο παρακατω σχημα ο ακροδεκτης 9 του adc που θα συνδεθει?

[GR_KYROS]

Στο pin 9 είναι η τάση αναφοράς, δεν ξέρω αν την χρειάζεσαι, και σε τι επίπεδο.
Μπορείς να το γειώσεις η να δόσης μια σταθερή η εξαρτώμενη αναφορά τάσης.
http://www.national.com/ds/DC/ADC0801.pdf

Κάνε αν θες μια ανάλυση για την λειτουργία του κυκλώματος που χρειάζεσαι να το δούμε.

[ΓΙΑΝΝΗΣ 456]

απλα θελω να μετατρεψω μια αναλογικη ταση σε ψηφικη και να δω την τιμη της μεσα στον υπολογιστη.
επισης για το ιδιο κυκλωμα εχω το παρακατω προγραμμα σε basic

Cls
port =&378
out (port +2), 4
10 y= inp(port+2)
lsb =y and & Hf
Msb =inp (port +1) and &Hf0
Byte = (Msb or Lsb) xor & H84
locate 10 ,10 : print byte
goto 10

αυτο που θελω ειναι να μετατρεψω αυτο το προγραμμα σε VB6
και να ξεκιναει πατωντας ενα μπουτον και να μου εμφανιζει την τιμη της τασης σε ενα textbox.

[ΓΙΑΝΝΗΣ 456]

Ενω μπορω να εξαγω δεδομενα απο τον καταχωρητη Data (pin 2-9)
δεν ξερω πως μπορω να εισαγω δεδομενα μεσω του καταχωρητη Status(10-13,15) και του καταχωρητη Control (1,14,16,17) σε VB6 .

[Thansavv]

Γιάννη μια ερώτηση...Ποια συνάρτηση χρησιμοποιείς στη VB6 για "γράψιμο και διάβασμα" της παράλληλης θύρας?

[ΓΙΑΝΝΗΣ 456]

Aυτο που ξερω μεχρι τωρα ειναι να δινω εναν αριθμο(0-255) σε ενα textbox
και με την εντολη
x=text1.text
out &H378 ,x
να παραγω των αντιστοιχο δυαδικο αριθμο στον καταχωρητη data που ειναι για εξοδο δεδομενων.
επισης με την εντολη
text2.text= inp(&H37
να εχω στο τεχτ2 των αριθμο που εχει ο καταχωρητης Data.

[Thansavv]

Απ΄ οτι ξερω η out δεν παίζει στη VB.Ούτε βέβαια η inp .. Παίζει στην Qbasic για παράδειγμα... Θα δώ ποιό dll υποστηρίζει in και out στην VB όταν πάω στο σπίτι

[ΓΙΑΝΝΗΣ 456]

μεσω του DLL inpout32 τις δουλευω.

[ΓΙΑΝΝΗΣ 456]

αλλη μια ερωτηση ειναι ο διακοπτης μεταξυ 8 και 5 τι κανει?

[ΓΙΑΝΝΗΣ 456]

το προγραμμα τελικα το εφτιαξα και στην απλουστερη του μορφη ειναι το παρακατω περιλαμβανει ενα μπουτον και ενα text box

Private Sub Command1_Click()
Port = &H378
Out (Port + 2), 4
y = Inp(Port + 2)
Lsb = y And &HF
Msb = Inp(Port + 1) And &HF0
b = (Msb Or Lsb) Xor &H84
Text1.Text = b
End Sub

ως μη καλα οργανομενος δεν εχω το ποτενσιομετρο των 10Κ και αντι για αυτο βαζω μια αντισταση 3300Ω και ο κεραμικος πυκνωτης που χρησιμοποιω γραφει επανω 151 (μαλλον ειναι σωστος)
οταν βαζω το τροφοδοτικο στο on και παταω το μπουτον στο προγραμμα το text box περνει κατευθειαν την τιμη 255 κλεινωντας το τροφοδικο που δεινει σε ολο το κυκλωμα τα 5V και πατωντας συνεχωμενα το μπουτον στο προγραμμα βλεπω οτι η ταση μειωνετε εως οτου τελικα γινετε απο 255 0