Port Kontrol Uygulamaları

[Wonk]

Pascal da Port Kontrol Uygulamaları konulu arkadaşımın bir dönem ödevi var. Acele kaynak bulmamız lazım Pascal kiaplarına baktık doğru dürüst bişey yok. Yardım ederseniz sevinirim.

[acemi]

Internet'te ornek kod bulunan sitelerde oluyor. Birkac defa rastlamistim. Aklimda adres yok ama ufak bir arama ile bulunabilir.

Sunlardan birinde olabilir:
* http://www.planet-source-code.com/
* http://www.vb-bookmark.com/vbPascal.html
* http://www.epanorama.net/links/pc/programming.html#pascal

[Wonk]

Tşk ederim ama bana türkçe konu açıklamalı bir kaynak lazım.

[hmustak]

Benim aylar önce yaptığım, gerçekten de hoş bulduğum bi ufak yazılım(cık) var. Yanan HDD içinde kaynak kodları gitti ama, fikir verebileceğini düşünüyorum. İstersen Gönderebilirim.

Mail adresim

hmustak@nspm@ceviz.net <<< aradaki kısım yok haliyle :)

[hmustak]

Beğendin mi :)

[Wonk]

Program iyide bana kod lazım. Yinede tşk ederim hmustak

[TeDDy]

porta weri göndermek mi istiyorsun. benim delphi içinde asm ile yazmış olduğum bir iki kod war. pascal içinede asm eklyerek yapabilirsin. tam olarak ne yapmaya çalıştığını sölersin eminimki daha fazla yardımcı olabiliriz..

[hmustak]

Orjinal mesajı gönderen MetallicAhmeT
benim delphi içinde asm ile yazmış olduğum bir iki kod war.

hmmm :hmmm:

Asm bildiğini bilmiyordum (ASA nasıl olduda bişi yazmadı :) )

Bu "senin" yazdığın "ASM" kodunu yazda bizde bu gibi kaynaklardan faydalanalım...






------------------------- Bu "benim" copy/paste'ladığım

procedure WritePortB( ceviz : Word; kir : Byte );
begin
asm
mov dx, ceviz
mov al, kir
out dx, al
end;
end;

[TeDDy]

yaa hmustak biliyorsak dediysekde o kadar iyi değil tabii :) ( okulda ne kadar öğretebilirler ki) benim yazdığım kodda seninkinin aynısı (değişkenlr farklı sadece)

[hmustak]

:)
:super:

[Wonk]

Konu hakkında benimde başlıktan fazla bir bilgim yok öğretmen arkadaşa vermiş oda bana sordu kitaplara falan baktım ama bişey bulamadım.

[hmustak]

Aslında tam olarak açsan konuyu bilgi & kaynak sahibi birileri ilgilenir zannediyorum. Yukarıdaki ASM kodu ile porta veri gönderebileceğin gibi;


Program Send_A_To_LPT1;
Var
PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
Begin
Port[PrinterPort[1]]:=Ord('A');
End.



'la da LPT1 portuna veri gönderebilirsin. Yok ben seri portada bişiler gönderecem filan diyosan, elektronikçilerde Portlarla ilgili çok güzel uygulumalı kitaplar mevcut.
Bu konuda google'ında inanılmaz bir kaynağı mevcut :) Direkt adres istersen konu hakkında, yanlış hatırlıyo olabilirim, doğrulamak için vaktim yok; elektronikhobi.com veya .net öyle bi site olacaktı.
Yok beraber yapalım dersen onada okay, ama sedece Çarşamba ve Ctesi leri 1,5'ar saat boşluğum var :)

Kolay gelsin

[Wonk]

Çok tşk ederim hmustak verdiğin sitede işimize yarayacak bilgiler var.

[hmustak]

ok
işin görülsünde

Kolay gelsin