1. interruptlar hazır fonksiyonlardır.Bios ve dos interruptları olarak ikiye ayrılırlar. Aşağıda pascalda interrupt kullanımına bir örnek verdim. Eğer pascalın komutları senin için pek kullanışlı gelmiyorsa oturur bu interruptlarla daha hızlı ve kullanışlı fonksiyonlar yazabilirsin.
Procedure ShowCursor;
Var
regs : registers;
begin
regs.ax := 1;
intr($33,regs);
end;
burada 33 . interruptın 1. fonksiyonunu kullandık.
2. Program Shift_bayraklari_Kontrolu;
Uses Crt;
procedure tus_kontrolu;
Const bayraklar :Array[0..7] Of String[7]
=(‘SagShft’, ‘SolShft’, ‘Ctrl’, ‘Alt’, ‘ScrollL’, ‘NumL’, ‘CapsL’, ‘Ins’ );
MenuX:Array[0..7] Of Integer=(2, 10, 18, 26, 34, 42, 50, 58);
MenuY=23;
Type BayrakDizi=Array[0..7] Of Boolean;
Var k, sonuç:Byte;
Begin
Asm
Mov Ah,2
Int 16
Mov Sonuç, Al
End;
For k:=7 DownTo 0 Do
Flags[k]:= ((Sonuç Shr k) And 1)=1;
End;
Begin
ClrScr;
Writelen(‘Çıkış için Ctrl+Alt tuşlarına birlikte basınız…’);
Repeat
BayrakDurumu(FI);
For k:=0 to 7 Do
Begin
GoToXY(MenuX[k], MenuY);
If FI[k] Then WriteLn(Bayraklar[k]:7);
Else WriteLn(‘ ’:7);
End;
Until FI[2] And FI[3];
End;
begin
tus_kontrolu;
readln;
end.
3.Bak arkadaşım INITGRAPH(GD,GM, ' '); burası graphı unitinin hdd ki yerini söyler sana ama eğer bu pro graphı hatası vermiyorsa sorun yok ..demektir..
eğer sorunda varsa o zaman graph. unınin yolunu yazarsın .ekran çıktısı yok bunun yanı ekran simsiyah çünkü burda ekrana yazılıacak bişi yok setcolor ile ekranın renk ayarı yapılmış o kadar..
4..uses crt,graph;
var
gd,gm:integer;
begin
initgraph(gd,gm,'');
if graphresult<>0 then halt;
line(100,10,10,100);
line(100,100,10,10);
readln;
closegraph;
end.
evet kardeşim bu kadar ...bu arada üstadıma(salih) sonsuz teşekkürler...
Ağaç şeklinde