Šta je novo?
Od:
Filteri

Treba mi program najjednostavniji!!!!!!!

dr.Tiristor

dr.Tiristor

Slavan
Učlanjen(a)
12.01.2005
Poruke
2,642
Poena
379
Da li neko zna neki program ili aplikaciju u kojem cu imati dva ili vise on/off tastera koji ce da mi menjaju stanje pinova 0/1 na comm portu?Znaci kliknem na on i na portu se pojavi Ux,pa kliknem na off a na portu U 0V ili -Ux?Ima li tako sta i ko bi to mogao da mi napise ako nema?Neki linkovi...Nesto bar...
Thanks! :whip:
 
Prosto ne verujem da niko ne zna,ali ja se nadam odgovoru i dalje!
 
Uh uh uh uh uh...Ja sam trazio gotov program koliko sam trazio toga nema...Pa sad sam kao uzeo onu DEBELU KNJIGETINU Java za 21 dan...Burazer mi je nesto kao objasnjavao kako se to radi pa smo krenuli...Pa nikako da skontam kako iz ultra edita da ubacim to u javu,tj.kako da nateram javu da cita iz ultra edita,ako to uopste treba tako...Nemam pojma...
evo ovako nesto,ako to uopste jeste za javu...

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i, j As Integer

i = 4

j = 0

If (X >= 720) And (X < 1695) And (Y > 720) And (Y < 2055) Then i = 2

If (X >= 2400) And (X < 3375) And (Y > 720) And (Y < 2055) Then i = 1

If (X >= 4080) And (X < 5055) And (Y > 720) And (Y < 2055) Then i = 0



If i <> 4 Then

If i = 2 And (Shape1(2).BackColor = RGB(255, 255, 255)) Then

Shape1(2).BackColor = RGB(255, 0, 0)

j = 1

End If

If i = 2 And j = 0 And (Shape1(2).BackColor = RGB(255, 0, 0)) Then

Shape1(2).BackColor = RGB(255, 255, 255)

j = 1

End If

If i = 1 And (Shape1(1).BackColor = RGB(255, 255, 255)) Then

Shape1(1).BackColor = RGB(255, 255, 0)

j = 1

End If

If i = 1 And j = 0 And (Shape1(1).BackColor = RGB(255, 255, 0)) Then

Shape1(1).BackColor = RGB(255, 255, 255)

j = 1

End If





If i = 0 And (Shape1(0).BackColor = RGB(255, 255, 255)) Then

Shape1(0).BackColor = RGB(0, 255, 0)

j = 1

End If

If i = 0 And j = 0 And (Shape1(0).BackColor = RGB(0, 255, 0)) Then

Shape1(0).BackColor = RGB(255, 255, 255)

j = 1

End If

End If



Broj = 0

For i = 0 To 2

j = 0

If (Shape1(i).BackColor <> RGB(255, 255, 255)) Then j = 1

Broj = Broj + 2 ^ i * j

Next i



Call Out(LPTadresa, Broj)



End Sub

_____________________________________________________

Private Sub Form_Load()

Anjan

LPTadresa = &H378

Call Out(LPTadresa, 0)

End Sub

.

.

http://milan.milanovic.org/skola/parport/parport-00.htm

Evo i linka pa ako neko hoce da pogleda...Radi se o PARALELNOM portu,ne o serijskom,mada nema veze i onako nemam slobodan serijski...
Ako neko ima volje da mi nesto vise kaze o tome bicu mu veoma zahvalan... :wave:
 
Prvo, nije ti bas srecan izbor, ako hoces da menjas stanja na pinovima, za to ti je bolji paralelni port nego serijski jer ima vise pinova koje mozes da menjas i koji drze stanje koje postavis. Drugo, za tako nesto iz XP-a treba drajver za pristup portu (serijski bi mozda i mogao bez drajvera). Potrazi ipak za paralelni, sigurno ima vise projekata tog tipa.
 
Kol'ko se ja secam, ovo gore je visual bejzik...
A pod NT-om nema ceprkanja direktno po portovima, nego mora drajver...
 
Pa prvo sam hteo serijski port dok nisam zauzeo oba {jedan za irda a drugi za ic} pa mi ostaje samo paralelni na raspolaganju.
Znaci dosli smo do zakljucka da je to visual basic ali nemam program samo run-time.evo dole sta imam i sta je na raspolaganju.
Mora drajver.Gde ja da ga iskopam?Kako se zove kako da ga trazim?
Sta kazete za onaj projekat sa linka gore.Nesto su mi rekli da te aplikacije pod javom rade samo u dos-u {lupam,odvaljujem,slobodno se smejte} ja bas i nisam nesto dobar drug sa tim programskim jezicima i programiranjem uopste,a muka me naterala i sad je pocelo i da me interesuje.Znaci da nije aplikacija pod dosom nego pod windowwwwsom?
Ima li smisla ovo sto pisem i pitam ili se odvaljujete od smeha? :D :D :D
 

Prilozi

  • Capture_10.jpg
    Capture_10.jpg
    67.7 KB · Pregleda: 119
Poslednja izmena:
@Lukija Hvala na linku pregledacu sajt sutra sad sam nesto mnogo umoran pa cu se javiti.
Poz :wave:
 
Pre izvesnog vremena sam prebacivao staru dos aplikaciju, koja je pristupala direktno portovima, na winnt. Elem, kao najlakse resenje se pokazao userport - kernel mode driver, jednostavno ga instaliras, kazes mu koje portove da otvori, i direktni pristup radi bez problema. Mislim da je bolje/lakse resenje od ovog paraport-a (narocito za nekog ko ne razlikuje java/vb, NHF ;)). Inace free je, dolazi u sorsu, i lako se nalazi uz pomoc google-a.
 
Evo pregledao sam sajtove i poskidao aplikacije ali nije to to!Nasao sam to sto mi treba ali ne znam sta mi treba sve da to proradi,znaci neko krace {ili duze} objasnjenje ako vas ne mrzi!
Inace gledao sam i one sajtove sto su stavili Vitez mlata i lukija poskidao nesto ali to nije to.Znaci,konkretno hocu ovo da napravim>


Public Broj, LPTadresa As Integer

____________________________________________________________

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim i, j As Integer

i = 4

j = 0

If (X >= 720) And (X < 1695) And (Y > 720) And (Y < 2055) Then i = 2

If (X >= 2400) And (X < 3375) And (Y > 720) And (Y < 2055) Then i = 1

If (X >= 4080) And (X < 5055) And (Y > 720) And (Y < 2055) Then i = 0



If i <> 4 Then

If i = 2 And (Shape1(2).BackColor = RGB(255, 255, 255)) Then

Shape1(2).BackColor = RGB(255, 0, 0)

j = 1

End If

If i = 2 And j = 0 And (Shape1(2).BackColor = RGB(255, 0, 0)) Then

Shape1(2).BackColor = RGB(255, 255, 255)

j = 1

End If

If i = 1 And (Shape1(1).BackColor = RGB(255, 255, 255)) Then

Shape1(1).BackColor = RGB(255, 255, 0)

j = 1

End If

If i = 1 And j = 0 And (Shape1(1).BackColor = RGB(255, 255, 0)) Then

Shape1(1).BackColor = RGB(255, 255, 255)

j = 1

End If





If i = 0 And (Shape1(0).BackColor = RGB(255, 255, 255)) Then

Shape1(0).BackColor = RGB(0, 255, 0)

j = 1

End If

If i = 0 And j = 0 And (Shape1(0).BackColor = RGB(0, 255, 0)) Then

Shape1(0).BackColor = RGB(255, 255, 255)

j = 1

End If

End If



Broj = 0

For i = 0 To 2

j = 0

If (Shape1(i).BackColor <> RGB(255, 255, 255)) Then j = 1

Broj = Broj + 2 ^ i * j

Next i



Call Out(LPTadresa, Broj)



End Sub

_____________________________________________________

Private Sub Form_Load()

Anjan

LPTadresa = &H378

Call Out(LPTadresa, 0)

End Sub

.

.


Samo nisam siguran kako.
Opet link,po drugi put... http://milan.milanovic.org/skola/parport/parport-00.htm

Pozdrav i hvala na dosadasnjim odgovorima! :wave: :wave: :wave:
 
Znaci Visual Basic ali ne mogu da nadjem instalaciju da skinem samo runtime.Sta mi jos treba pored toga da bi to proradilo?
 
Mozes da skupis sve fajlove na jedno mesto i das nekom da ti iskompajlira, ali bolje bi bilo da sam nabavis VB pa da mozes da menjas u kodu nesto kad ti zatreba...
 
Hvala ljudi u medjuvremenu sam se snasao, a ako nekom treba naka se javi!
Pozdrav!
 
Ako imas "najminimalnijeg" znanja u C++ - u ili VB6 ..skini kontrolu koja se zove PinPortFinder.Kontrola je odlicna koristi se za bas takve stvari.

Pozdrav !!
 
Evo ako nekom treba ja cu da okacim...
 

Prilozi

  • Trkokanalni interfejs.rar
    70.3 KB · Pregleda: 64
  • port pins.jpg
    port pins.jpg
    44.1 KB · Pregleda: 90
Poslednja izmena:
Semafor...
 

Prilozi

  • semafor.rar
    4.4 KB · Pregleda: 57
Kontrola paralelnog porta...
 

Prilozi

  • port05x.rar
    7.7 KB · Pregleda: 62
Poslednja izmena:
Morate se prijaviti ili registrovati da odgovorite ovde.
Nazad
Vrh Dno