freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.
 

VB6 και LPT port


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » Γλώσσες Προγραμματισμού » γλώσσες προγραμματισμού - γενικά
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [1 Μήνυμα]      Bookmarks Tags: port Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
3dakias


Μέλος από: 22 Μαρ 2008
Μηνύματα: 2

View users profile Send email to user
ΜήνυμαΣτις: 30 Σεπ 2010 22:50    Θέμα: VB6 και LPT port Απάντηση με παράθεση  Mark this post and the followings unread

Καλησπέρα !
Ασχολούμαι λίγο Με VB6 και θέλω να κατασκευάσω μια κάρτα interface η οποία θα συνδέετε με την LPT port.
Αυτό που δεν ξέρω είναι το εξής, σε δυο CommandButton που έχω βάλει στην φόρμα μου ποια είναι η εντολή που πρέπει να γράψω?


Private Sub Command1_Click()

‘Εδώ τι πρέπει να γράψω για να δώσω στο pin out 1 η pin out 2… την εντολή on?

End sub

Private Sub Command2_Click()

‘Εδώ τι πρέπει να γράψω για να δώσω στο pin out 1 η 2… την εντολή off?

End sub
--------------------------------------------------------------------------------------------------------

Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" _
(ByVal PortAddress As Integer) _
As Integer

Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" _
(ByVal PortAddress As Integer, _
ByVal value As Integer)

_________________
geia!
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [1 Μήνυμα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » Γλώσσες Προγραμματισμού » γλώσσες προγραμματισμού - γενικά
Τώρα είναι 28 Ιουλ 2014 08:14 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos