pascal.935sfilip,
e, probao sam sve po starom sa arj--om verzija 2.50 (oktobar '95) i radilo
je ok. Probao sam isto sa onom verzijom koju sam pre imao i opet je puklo.
Dakle, reč je u verziji arj-a. To je neka 2.8 verzija, velika 244.188
bajtova. Mogu da se pošaljem ako ikoga zanima?
svejedno, svi moji problemi su rešeni ;)
btw, pošto mi je trebalo dosta memorije u programu, nisam smanjivao heap,
već koristio SetMemTop pre i posle startovanja arj-a. Naravno, probao sam
i bez toga. Sa ovom 2.5 verzijom sve radi ok i bez problema, a ne znam
uopšte otkud mi ova 2.8? strašno...
pascal.936goxi,
-> #933, firusMa kakvih 4 dinara
????
Rekli su mi neki da staje na 11 disketa.Ali onaj strava pascal!
pascal.937janko,
-> #936, goxi
> Ma kakvih 4 dinara
> ????
> Rekli su mi neki da staje na 11 disketa.Ali onaj strava pascal!
..i tako smo izgubili još jednog budućeg programera u Paskalu. :)
Stvarno, 22 dinara je previše dati da bi naučio nešto. Bolje da kupiš
pet-šest igrica.
pascal.938epson,
-> #935, sfilip
│ uopšte otkud mi ova 2.8? strašno...
└─────────────────────────────────────────────────
To je ili trojanac ili samo prepravljena 2.5 verzija od strane nekih
'hakera' . Inače imam ga skoro na svakom hack sajtu na internetu .
pascal.939sfilip,
-> #938, epson>│ uopšte otkud mi ova 2.8? strašno...
>└─────────────────────────────────────────────────
>
> To je ili trojanac ili samo prepravljena 2.5 verzija od strane nekih
e, nemo' me plašiš trojancima... sad sam zbog tebe skenirao ceo disk, i
naravno nisam ništa našao ;)
a kad bolje pogledam, veći je stotinak kilobajtova od starog, tu je svašta
moglo da se metne. I ne znam otkud mi uopšte... ali koga više boli uvo za to :)
thanx enivej :)
pascal.940epson,
-> #939, sfilip
│ e, nemo' me plašiš trojancima... sad sam zbog tebe skenirao ceo disk, i
│ naravno nisam ništa našao ;)
└─────────────────────────────────────────────────
Neću, ali je tako bilo i sa verzijom PKZIPa na koju sam se i ja
'napalio' .
│ a kad bolje pogledam, veći je stotinak kilobajtova od starog, tu je svašta
└─────────────────────────────────────────────────
Ma imam (ja) programče koje ti poveća program za koliko bajtova oćeš a to
bude samo gabage .
pascal.941supers,
-> #937, janko>>> Rekli su mi neki da staje na 11 disketa.Ali onaj strava pascal!
>> Stvarno, 22 dinara je previše dati da bi naučio nešto. Bolje da
>> kupiš pet-šest igrica.
Ma najveći je štos što on očekuje da mu neko uploaduje 11 disketa
kako bi uštedeo 22 dinara.
pascal.942dekik,
-> #936, goxi
D->> Rekli su mi neki da staje na 11 disketa.Ali onaj strava pascal!
To na 11 disketa je pascal dos 7.0 + win 1.0
pascal.943firus,
-> #936, goxi Go> Rekli su mi neki da staje na 11 disketa.Ali onaj strava pascal!
Ne čitaš, ne čitaš. Lepo sam rekao da je to sve jedan te isti pascal.
Cela verzija Borland Pascala 7.0 ide na 13 disketa, ta isečena ide na 11.
Imaš i maksimalno isečenu verziju koja ide na 2 diskete.
Iskreno rečeno ne kapiram šta će tebi verzija koja ima podršku za Windows
programe i za protected programe. Ako učiš pascal tebi je onda ovaj od dve
diskete sasvim dovoljan.
X
pascal.944firus,
-> #939, sfilip Sf> e, nemo' me plašiš trojancima... sad sam zbog tebe skenirao ceo disk,
Sf> i naravno nisam ništa našao ;)
A čime si skenirao? Virus kilerom?
Trojanac nije virus. Preslišaj se malo. Kod trojanaca, nema skeniranja.
X
pascal.945firus,
-> #940, epson Ep> Neću, ali je tako bilo i sa verzijom PKZIPa na koju sam se i ja
Ep> 'napalio' .
Da pogađam verzija 4.11?
Ne moraš ništa da se plašiš, ona nije trojanac, to je samo prepravljena
adresa da bi se pokupile pare.
Ep> Ma imam (ja) programče koje ti poveća program za koliko bajtova
Ep> oćeš a to bude samo gabage .
Pa uradi jedno type bilo_koli_fajl >> arj.exe i eto ti arj koji radi,
a ima onoliko više koliko ima taj fajl.
X
pascal.946firus,
-> #942, dekik De> To na 11 disketa je pascal dos 7.0 + win 1.0
Pascal for Win 1.0 je kompatibilan je sa TP 6.0, a ne sa TP 7.0.
Šta onda rade zajedno?
X
pascal.947pvlada,
-> #944, firusPV>Trojanac nije virus. Preslišaj se malo. Kod trojanaca, nema
PV>skeniranja.
A šta je onda Heruistic scan :)
pascal.948qpele,
-> #943, firus Fi> Cela verzija Borland Pascala 7.0 ide na 13 disketa, ta isecena ide na
Fi> 11. Imas i maksimalno isecenu verziju koja ide na 2 diskete.
Da razresim dilemu Pascal(13) =Pascal(11) + Run Time Libraries (2)
pascal.949dekik,
-> #946, firus
D->> Sta onda rade zajedno?
Ja stvarno ne znam ali tako je...
pascal.950firus,
-> #947, pvlada Pv> A šta je onda Heruistic scan :)
Nova metoda za otkrivanje VIRUSA. Pronalzi VIRUSE koje nema u
svojoj bazi potpisa na osnovu sličnosti sa postojećima.
Trojanac možeš da skeniraš sa jedino snoopdosom ili informerom,
odnosno da vidiš šta radi kad se pokrene, a kad se pokrene onda
je obično kasno.
X
pascal.951pvlada,
-> #950, firusPV>Trojanac možeš da skeniraš sa jedino snoopdosom ili
PV>informerom, odnosno da vidiš šta radi kad se pokrene, a kad
PV>se pokrene onda je obično kasno.
Nemora da znači, ja sam napravio trojanca u Trojan mejkeru, i
kada sam disk prekledao heruistički on ga je našao :)
pascal.952sfilip,
-> #951, pvlada>Nemora da znači, ja sam napravio trojanca u Trojan mejkeru, i
>kada sam disk prekledao heruistički on ga je našao :)
nisam čitao dugo, pa da se ubacim na ovu poslednju...
el beše trojanac program na koj je nakačeno programče koje "instalira" neki
virus po sistemu? Dakle, kod drži u sebi i može da ga kriptuje kako god 'oće,
a kad ga startuješ onda ga otkriptuje i razbaca ga po disku?
pascal.953zeljkoj,
-> #948, qpele> Da razresim dilemu Pascal(13) =Pascal(11) + Run Time Libraries
> (2)
Hm... ja videh neku verziju na 11, 10+1 RTL
pascal.954firus,
-> #952, sfilip Sf> el beše trojanac program na koj je nakačeno programče koje "instalira"
Sf> neki virus po sistemu? Dakle, kod drži u sebi i može da ga kriptuje
Sf> kako god 'oće, a kad ga startuješ onda ga otkriptuje i razbaca ga po
Sf> disku?
Trojanac je program koji simulira da radi nešto korisno, a prava svrha
mu je da nanese štetu. Naravno moguće je da program stvaro radi nešto
korisno, recimo arhivira podatke, ali da radi i nešto što ne bi trebalo,
recimo da briše neke fajlove.
X
pascal.955sfilip,
-> #954, firus>Trojanac je program koji simulira da radi nešto korisno, a prava svrha
>mu je da nanese štetu. Naravno moguće je da program stvaro radi nešto
hm... a kako se zovu onda oni "ubacivači" virusa? kolko ja znam, trojanci
ubacuju viruse, a postoji neki drugi naziv za programe sa prikrivenim
destruktivnim idejama. Uostalom, zar sama reč trojanac ne asocira na program
koj ubacuje virus?
pascal.956dekik,
Jel ima neko neki unit za rad sam com portovima ?
BTW: jel moguche TPU "prekompajlirati" u unit za delphi ?
pascal.957acafaca,
-> #943, firus-=> Cela verzija Borland Pascala 7.0 ide na 13 disketa, ta isečena ide na 11.
Može li 7.0 da se instalira sa diska?
pascal.958supers,
-> #955, sfilip>>> Trojanac je program koji simulira da radi nešto korisno, a prava
>>> svrha mu je da nanese štetu. Naravno moguće je da program stvaro
>> radi nešto
>>
>> hm... a kako se zovu onda oni "ubacivači" virusa?
Dropperi. Na ovu temu nije loše pročitati PCUTIL:virusi iz vremena
kada se kriss raspisivao :)
pascal.959emajsijuen,
-> #957, acafacaAc>> Moze li 7.0 da se instalira sa diska?
-Moze...Easy install rulez :)
pascal.960vector,
-> #957, acafaca
Ţ -=> Cela verzija Borland Pascala 7.0 ide na 13 disketa, ta isecena ide na 11.
Ţ
Ţ Moze li 7.0 da se instalira sa diska?
Ţ
▀▀▀▀▀▀▀▀▀
Moze. Najlakse preko programa "Easy Install".
pascal.961bokir,
Borland Pascal 7.0 i Delphi sorsovi za LZSS kompresiju i dekompresiju...
chflz100.zippascal.962firus,
-> #956, dekik De> BTW: jel moguche TPU "prekompajlirati" u unit za delphi ?
Samo ako imaš sors. Ne možeš TPU direktno da prebaciš u DCU.
X
pascal.963space.ace,
-> #955, sfilip>> hm... a kako se zovu onda oni "ubacivači" virusa? kolko ja znam, trojanci
>> ubacuju viruse, a postoji neki drugi naziv za programe sa prikrivenim
Najn, ti "ubacivači" virusa, kako ih nazva, su samo jedna od vrsta
trojanaca, kojih ima previše :). Npr, jedna od prvih verzija trojanca
na UNIX-u je program koji simulira login prompt, pa kada neko ukuca
svoj username i password, program to lepo zapamti i pošalje autoru,
a jadnom korisniku izbaci neku glupu grešku, tipa "buss error" ili
tako nešto i predloži mu da resetuje stanicu. Kada korisnik to učini,
pojavi se normalan login prompt, i sve lepo prođe...
U poslednje vreme su najmasovniji oni trojanci koji podmeću viruse,
ali se oni lako otkrivaju, jer AV programi otkrivaju virusni kod.
Sad, taj kod može i da se maskira ili kriptuje, čime ga je teže
otkriti.
pascal.964acafaca,
-> #960, vector-=> Moze. Najlakse preko programa "Easy Install".
Je li ga ima ovde. Tražio sam al' nisam mogao da nađem.
pascal.965emajsijuen,
-> #964, acafacaAc>> Je li ga ima ovde. Trazio sam al' nisam mogao da nadem.
Ima. Evo saljem ga uz poruku.
ei.exepascal.966emajsijuen,
Zna li neko kako da procitam serijski broj hard diska, ali da to radi i
iz 95-ice i iz DOS-a ?
pascal.967bokir,
-> #966, emajsijuen> Zna li neko kako da procitam serijski broj hard diska, ali da to radi i
> iz 95-ice i iz DOS-a ?
Mislim da možeš da čitaš direktno iz boot sektora. Ne znam tačno na kom
ofsetu se nalazi, ali piše u HelpPC 2.1.
pascal.968pvlada,
-> #967, bokir ali piše u HelpPC 2.1.
Da li neko zna da li i gde ima na sezamu HelpPC ?
pascal.969bokir,
-> #968, pvlada> Da li neko zna da li i gde ima na sezamu HelpPC ?
\DOS\PROG\INFO\helppc21.zip
pascal.970pvlada,
-> #969, bokir> ĐDOSĐPROGĐINFOĐhelppc21.zip
Hvala :)
pascal.971acafaca,
-> #965, emajsijuen-=> Ima. Evo saljem ga uz poruku.
'vala ti!
pascal.972olio,
Treba da mi se resi sledeci zadatak:
Sastaviti program za racunanje
kvadratne sredine clanova niza
X1: : K=KV.koren(x12+x22+...+xn2)/n )
x12 je x jedan na kvadrat
Drugi zadatak:
Sastaviti progra za odredjiva za odredjivanje
drugog najveceg clana niza i
njegovog indeksa.
Ovo su neki zadaci za drugi razrd
srednje skole. Ja neznam da ovo radim
pa mi treba pomoc
Pozdrav Oliver.
pascal.973stameni,
Mislim da je Olio tražio program za nalaženje drugog najvećeg
broja u datom nizu. Evo jedne verzije u Pascalu.
Program za nalaženje sredine je lakši, a ako treba, neka javi,
će napišemo :)
program DrugiNajveci;
{$R+}
const
MaksimalnoElemenata = 100;
var
niz: array[1..MaksimalnoElemenata] of integer;
prvi, drugi, tekuci: integer;
indeks1, indeks2: 1..MaksimalnoElemenata;
BrojElemenata, brojac: 3..MaksimalnoElemenata;
procedure UnosNiza;
var
i: 1..MaksimalnoElemenata;
begin
write('Koliko elemenata ima niz? ');
readln(BrojElemenata);
for i := 1 to BrojElemenata do
begin
write('n[', i, '] = ');
readln(niz[i])
end
end;
procedure swap(var x, y: integer);
var
z: integer;
begin
z := x;
x := y;
y := z
end;
begin
UnosNiza;
prvi := niz[1];
drugi := niz[2];
indeks1 := 1;
indeks2 := 2;
if prvi < drugi then
begin
swap(prvi, drugi);
indeks1 := 2;
indeks2 := 1
end;
for brojac := 3 to BrojElemenata do
begin
tekuci := niz[brojac];
if tekuci > prvi then
begin
drugi := prvi;
prvi := tekuci;
indeks2 := indeks1;
indeks1 := brojac
end
else
if tekuci > drugi then
begin
drugi := tekuci;
indeks2 := brojac
end
end;
writeln('Drugi najveci je n[', indeks2, '] = ', drugi);
readln
end.
pascal.974stameni,
Ovo bi trebalo da radi kvadratnu sredinu.
program KvadratnaSredina;
{$R+}
const
MaksimalnoElemenata = 100;
var
niz: array[1..MaksimalnoElemenata] of real;
BrojElemenata, brojac: 1..MaksimalnoElemenata;
zbir: real;
procedure UnosNiza;
var
i: 1..MaksimalnoElemenata;
begin
write('Koliko elemenata ima niz? ');
readln(BrojElemenata);
for i := 1 to BrojElemenata do
begin
write('n[', i, '] = ');
readln(niz[i])
end
end;
begin
UnosNiza;
zbir := 0;
for brojac := 1 to BrojElemenata do zbir := zbir + sqr(niz[brojac]);
zbir := zbir / BrojElemenata;
writeln('Kvadratna sredina zbira je ', zbir, '.');
readln
end.
pascal.975obren,
-> #972, olio> Sastaviti program za racunanje kvadratne sredine clanova niza
> X1: : K=KV.koren(x12+x22+...+xn2)/n )
> x12 je x jedan na kvadrat
Program KvadratnaSredina;
Var x : Array[1..100] of Real;
k, suma : Real;
n, i : Integer;
Begin
Write('Unesi broj clanova niza:');
Readln(n);
suma := 0;
For i:=1 to n do
Begin
Write('x[', i, ']=');
Readln(x[i]);
suma := suma + x[i]*x[i]
End;
k := sqrt(suma/n);
Writeln('Kvadratna sredina clanova niza je: ', k)
End.
pascal.976obren,
-> #972, olio> Drugi zadatak: Sastaviti program za odredjiva za odredjivanje drugog
> najveceg clana niza i njegovog indeksa.
Var x : Array[1..100] of Integer;
max : Real;
n, i, ind : Integer;
Begin
Write('Unesi broj clanova niza: ');
Readln(n);
Write('x[1]='); Readln(x[1]);
max := x[1];
ind := 1;
For i:=2 to n do
Begin
Write('x[', i, ']=');
Readln(x[i]);
if max<x[i] then max:=x[i];
if x[ind]>x[i] then ind:=i;
End;
For i:=1 to n do
if (x[i] > x[ind]) and (x[i] < max) then ind := i;
Writeln('Drugi najveci element je ', x[ind], ' a njegov indeks je ', ind);
End.
Sledeći put ipak probaj sam da se potrudiš... ;)
pascal.977olio,
-> #976, obren> Sledeci put ipak probaj sam da se potrudis... ;)
Ma ovo su zadaci koji su dobili ucenici da rese u 2-oj godini
gimnazije iz informatike.
A ja neznam pascal, pa da pitam ovde,
valjda necete zameriti.
Pozdrav Oliver.
pascal.978obren,
-> #977, olio> Ma ovo su zadaci koji su dobili ucenici da rese u 2-oj godini
> gimnazije iz informatike. A ja neznam pascal, pa da pitam ovde,
> valjda necete zameriti.
Sorry, ja mislio da si školarac koga mrzi da radi domaći... O:)
pascal.979vector,
sblast09.zip Informacije o programiranju zvucnih kartica
sblast09.zippascal.980emajsijuen,
-> #979, vectorVe>> sblast09.zip Informacije o programiranju zvucnih kartica
Ne fercera. :(
Isprobao sam funkciju DetectSoundBlaster, ili kako se vec zove, i nece da
ga detektuje... :( Doduse imam Opti Mad 16 zvucnu karticu, koja je navodno
100% kompatibilna...
BTW. da li je jos neko isprobao gore pomenutu komandu ?
pascal.981stifa.jordan,
HITNO!!!
---------
Potrbna pomoc za resenje PASCAL programa, mojoj cerkici koja
sutra polaze za kraj godine.
Evo ih:
1) Napisati program koji vrsi prikazivanje i prebrojavanje svih
3-cifrenih brojeva kod kojih je:
A) Cifra stotina paran broj
B) Cifra jedinica neparan broj
C) Cifra stotina >5 a cifra desetica <7
Drugi zadatak:
Napisati program koji ucitava dvodimenzionalni niz A(m,n) i
racuna:
A) Proizvod svih elemenata na glavnoj dijagonali
i zbir svih elemenata ispod sporedne dijagonale.
B) Racuna vrednost najveceg elementa na glavnoj
i sporednoj dijagonali.
Puno vam hvala unapred i ako moze sto pre tj. do sutra u 11h.
Marko i Marina
pascal.982petarg,
-> #981, stifa.jordanEvo potrebnih programa, urađeni su bez procedura i bilo čega (nadam
se) što bi moglo da zbuni one koji ne znaju Pascal dobro...
JG
pascal.983petarg,
-> #982, petargKo radi taj i greši, a sada je 3 AM, pa dakle evo fajla :)
JG
zad.arjpascal.984clown,
Narode evo jednog programcica...inace to je First help za
seminarski koji moram da zavrsim do sutra u 12
!!!!!!!!!!
Ima jedan bagic,kada kupujem kola on mi skida poslednjeg iz baze,a
ne onog koji je izabran!
HAJDE pomagajte!!!!!!!!!!!!!!!
unapred tnx,
Ana
a evo ga i program
autop.pa2pascal.985emajsijuen,
*HITNO*
Zna li neko kako da na matricnom stampacu odstampam graficki ekran, u
screen modu 640x480x16, ogranicen koordinatama x1,y1,x2,y2 ?
Zahvaljujem, unapred :)
pascal.986dzakic,
-> #985, emajsijuen> Zna li neko kako da na matricnom stampacu odstampam graficki
> ekran, u screen modu 640x480x16, ogranicen koordinatama
> x1,y1,x2,y2 ?
Možda ti pomogne:
Procedure Dump(x,y,xl,yl,lmarg:integer);
Gde je (x,y) gornji levi ugao, xl širina, yl visina i lmarg leva
margina (offset) prilikom štampe. Pisano je '91, imao sam Herkules
pa ćeš morati da se snalaziš da GetPixel koji tamo vraća 0 ili 1,
dovedeš u red jer ćeš ovde zavisno od video moda dobijati 0-15 ili
0-255. Ako hoćeš da kolor sadržaj ekrana štampaš na matričnom, imaće
više posla da se svaka tačka prikaže u nekom rasteru. U svakom
slučaju, nadam se da će biti od pomoći.
dump.paspascal.987zuleika,
Poruka za druga. Potrebna mi je knjiga D. Savica "Paskal - turbovizija ...",
ili informacija gde se moze naci. Takodje mi je potrbna funkcija za ucitavanje
celih i relanih brojeva (u razlicitim vrstama zapisa).
Hvala unapred, :).
pascal.988dekik,
Problem : Async.Pas (program za rad sa comm portovima)
Ne znam da li je problem do unit-a ili do modem-a ili...do mene.
Kada startujem program posaljem modemu initstring (ili bilo sta drugo), a kada
ocu posle toga opet da posaljem nesto modem to vrati(znaci da je primio) ali
nista ne uradi sto se vidi kod komande "ATA". Da li treba posle svake komande
da resetujem port ili tako nesto?
Unapred Hvala.
pascal.989mmilosh,
*************************HITNO!!!HITNO!!!HITNO*******************************
je potrebno da uradim seminarski iz Osnova programiranja, tačnije do sutra!!!
Ako to propustim moraću da branim rad tek u septembru i onda ništa od izlaska
na ispit sad u ponedeljak! (ne pitajte me šta sam čekao >|))
Elem, evo kako glasi zadatak:
Polja šahovske table označiti parom čije su komponente:
- slovo iz intervala ['A','H'],
- prirodni broj iz intervala [1,8],
pri čemu prva komponenta predstavlja oznaku vertikale (gledano s leva na
desno), a druga broj horizontale (gledano odozdo nagore). Za zadate parove
(k,l) i (m,n) ispitati:
(a) da li su zadata polja iste boje;
(b) da li dama sa polja (k,l) napada polje (m,n);
(c) koji najmanji broj poteza treba da napravi konj da bi sa polja
(k,l) stigao na polje (m,n), i koji su to potezi.
Sad, ovo pod (c) je očigledno najproblematičnije pa bih molio samo za rešenje
datog dela, mada neću odbiti ni bilo šta drugo jer mi je baš frka.
Nagrada se podrazumeva :) Pivo ili šta već, gajba piva :), pola litre krvi :))
...
Naravno, radi se u Turbo Pascalu 7.0.
Grafički prikaz, čini mi se, nije neophodan. Važan mi je samo algoritam za pod
(c) ostalo ću već sam ubudžiti. :)
FRKA!!!FRKA!!!FRKA!!!
pascal.990sfilip,
-> #989, mmilosh>Sad, ovo pod (c) je očigledno najproblematičnije pa bih molio samo za
>rešenje datog dela, mada neću odbiti ni bilo šta drugo jer mi je baš frka.
>Nagrada se podrazumeva :) Pivo ili šta već, gajba piva :), pola litre krvi
>:))
ako je već pivo u pitanju...
konji.paspascal.991sljubisic,
Subj.: Casovi iz Informatike (Pascal)
Jednoj srednjoskolki potrebni casovi iz Pascala, pa ako ste licno zaintere-
sovani ili znate nekoga ko jeste, prosledite mi vas kontakt telefon na
mail.
pascal.992zuleika,
Pitanje od druga.
Ima sledeci problem.
Zeleo bih da imam unit 1 u kome je definisana klasa A i unit 2 u kome je
definisana klasa B. Pojedini metodi klase A pozivaju metode klase B i
obrnuto. Zbog toga je neophodno da u Interface section svakog unit-a
postavim Uses clause sa imenom drugog unit-a.
Ovo dovodi do greske tipa Circular Reference. Jedan od postupaka da se
izbegne ceo problem je sigurno da stavim obe klase u jedan file, ali to
nije ono sto zelim (zbog preglednosti i daljeg razvoja).
Sta da radim? Hvala unapred, :).
pascal.993janko,
-> #992, zuleika
> Zeleo bih da imam unit 1 u kome je definisana klasa A i unit 2 u
> kome je definisana klasa B. Pojedini metodi klase A pozivaju metode
> klase B i obrnuto. Zbog toga je neophodno da u Interface section
> svakog unit-a postavim Uses clause sa imenom drugog unit-a.
>
> Ovo dovodi do greske tipa Circular Reference. Jedan od postupaka da
> se izbegne ceo problem je sigurno da stavim obe klase u jedan file,
> ali to nije ono sto zelim (zbog preglednosti i daljeg razvoja).
Teško da je dizajn pravilan ako postoji slučaj kao kod tebe.
Potreba da dve klase pozivaju jedna drugoj metode je retka u
dobrom dizajnu. Kada postoji, s obzirom na njihovu međuzavisnost,
logično je da se nalaze jedna uz drugu.
Međutim, ni puko smeštanje obe u jedan fajl ti neće rešiti problem
ako ne koristiš FORWARD deklaracije. Pogledaj Help za primere.
pascal.994zdravkod,
ljudi brzo ...
Kako proslediti komandu CD-u .... kako da mu kazem PLAY????
koji interrupt sta gde kako ???
pascal.995dekik,
Kako da iskljucim Caps i Num lock iz programa?
Pozdrav, Dejan.
pascal.996jjerry,
-> #994, zdravkodJJ=>Kako proslediti komandu CD-u .... kako da mu kazem PLAY????
JJ=>
JJ=>koji interrupt sta gde kako ???
Pogledaj,ima ovde na Sezamu spisak svih interaptova u DOS\PROG\INFO
pa vidi.Mada mislim da ce CD-ROMu pre da se komanduje preko portova
medjutim ne znam, dok ne pogledam dokumentaciju.
pascal.997jjerry,
-> #995, dekikJJ=>Kako da iskljucim Caps i Num lock iz programa?
Probaj to preko Keyboard interapta..Ne znam kako moze da se u
Paskalu (nekom procedurom) to izvede.Uostalom,vidi helpove.
pascal.998vector,
Ů│ Kako da iskljucim Caps i Num lock iz programa?
----------<cut>----------
Procedure CapsOff; Assembler;
asm
MOV BX,$0040
MOV ES,BX
MOV BX,$0017
MOV AL,ES:[BX]
AND AL,$BF
MOV BYTE PTR ES:[BX],AL
end;
Procedure NumOff; Assembler;
asm
MOV BX,$0040
MOV ES,BX
MOV BX,$0017
MOV AL,ES:[BX]
AND AL,$DF
MOV BYTE PTR ES:[BX],AL
end;
----------<cut>----------
Trebalo bi da radi. :)
pascal.999dekik,
-> #998, vector│ Trebalo bi da radi. :)
└─────────────────────────────────────────────────
Hvala puno na ovom, samo si trebao jedno conf reply, zato sto retko citam
poruke koje nisu odgovor na moje u ovoj konfi.
Pozdrav, Dejan.
pascal.1000zdravkod,
-> #996, jjerryma znam za to ... nego je fora sto je malko zeznuto ...
Odnosno sve se radi preko INT 2F koji je u stvari Multiplex Int.
tj. preko njega ide gomilu programa za device-eve ili sta vec.
Tako da nema konkretan INT za CD vec se mora formirati neki
Device Header koji je zajedniciki za sve a onda se broj funkcije
stavi u AH (ne secam se vrednosti) a u neki par registara
32-bitna vrednost na taj header... pa se onda snalazi ...
Sve u svemu ... par puta mi je izvisio emm ...
Ako neko ovo provali nek javi.
pascal.1001vector,
-> #994, zdravkod
Ů│ ljudi brzo ...
Ů│ Kako proslediti komandu CD-u .... kako da mu kazem PLAY????
Khm, ..., cini mi se da sam sa Sezama pokupio jedan source kod :)
rezidentnog CD plejera, pisanog upravo u asembleru. Medjutim, taj
fajl sam bas pre neki dan obrisao, ;) tako da ti preporucujem da
prekopas stare PCUTIL konferencije, jer sam odatle pokupio taj
source, a dok ne nadjes taj fajl evo ti source jednog drugog CD
plejera, ciji je izvorni kod vrlo nepregledan. :)
source.arjpascal.1002vector,
-> #999, dekik
Ů│ Hvala puno na ovom, samo si trebao jedno conf reply, zato sto retko
Ů│ citam poruke koje nisu odgovor na moje u ovoj konfi.
Tek kada sam poslao exec primetio sam da nisam stavio reply, vec write.
:)
pascal.1003jjerry,
-> #1000, zdravkodJJ=>Tako da nema konkretan INT za CD vec se mora formirati neki
JJ=>Device Header koji je zajedniciki za sve a onda se broj funkcije
JJ=>stavi u AH (ne secam se vrednosti) a u neki par registara
JJ=>32-bitna vrednost na taj header... pa se onda snalazi ...
Veruj mi,nemam pojma..ajd' makar cu da ti uploadujem dokumentaciju
za taj INT 2F.
Poz.
int2f.arjpascal.1004zdravkod,
-> #1001, vector
E genije ... avo skidam ... a ima ida trazim ono.
THANX a milion !!!
VAN.GOG!
pascal.1005vector,
-> #1004, zdravkod
▒Ţ E genije ... avo skidam ... a ima ida trazim ono.
Proverio sam - nije u PCUTIL. U toj konferenciji se moze naci jedino
onaj source sto sam ti vec poslao. Mozda je u nekom od direktorijuma?
U svakom slucaju, imao sam bolji (razumljiviji, citljiviji) source od
tog, ali ne znam odakle sam ga 'pokupio'... :)
pascal.1006sigmund,
-> #994, zdravkod║ ljudi brzo ...
║
║ Kako proslediti komandu CD-u .... kako da mu kazem PLAY????
║
║ koji interrupt sta gde kako ???
╚═══════════════════════════════════════
Koristi bre Visual Basic ko sav normalan svet.
MMControl.play
pascal.1007van.gog,
-> #1006, sigmund
>> koristi Visual Basic ...
Decko ti izgleda imas problema .... Ne bih tako VB ni trofaznom,
zasto koristiti VB kad postoji DELPHI !!!! the best ... i da sam
hteo nesto takvo ... isao bi u DELPHI konfu ...
Pitanje je bilo vezano za dos (ako do sada nije bilo jasno???)
... i bio sam na useru zdravkod .... inace VAN.GOG !!!
ajte ljudi ... nije valjda da niko nema nesto za CD ?!?!?
pascal.1008jjerry,
-> #1007, van.gog=> ... i bio sam na useru zdravkod .... inace VAN.GOG !!!
=>
=> ajte ljudi ... nije valjda da niko nema nesto za CD ?!?!?
Ne znam..nisam se nikad bakt'o s tim..nije mi nikad trebalo..
probacu nesto da ti izbunarim.
pascal.1009van.gog,
-> #1008, jjerry
"Izbunari" ! ;)))))
pascal.1010jjerry,
Evo vam jedna demonstracija mouse hendlera..
Ko ga natera da radi u grafickom modu ,svaka mu cast !
P.S Casticu onoga kod koga mi proradi u grafickom modu !
pascal.1011pvlada,
-> #1010, jjerry> Evo vam jedna demonstracija mouse hendlera..
> Ko ga natera da radi u grafickom modu ,svaka mu cast !
Samo ne bi bilo loše da pošalješ ;)
Pozdrav Vlada
pascal.1012jjerry,
-> #1011, pvladaJJ=>Samo ne bi bilo lose da posaljes ;)
:) Znam,isteklo mi je vreme juce :)
Btw. Proradio je u grafickom modu,ispravkom onih Hercules
bugova,ali nece da ispisuje text :( sem uz pomoc OutTextXY
ali ona nije univerzalna ,kao,recimo write ;(
mouse.paspascal.1014pvlada,
-> #1013, galjos> Potreban mi je program TURBO PASCAL. Da li neko moze da mi ga
> posalje.
Nije besplatan, a i nije baš mali (3-11 disketa, zavisi od verzije) pa
nejbolje da pogledaš kod najbližeg pirata ;)
Pozdrav Vlada
pascal.1015jjerry,
-> #998, vector> Procedure CapsOff; Assembler;
> asm
> MOV BX,$0040
> MOV ES,BX
> MOV BX,$0017
> MOV AL,ES:[BX]
> AND AL,$BF
> MOV BYTE PTR ES:[BX],AL
> end;
Sta se tacno nalazi na adresi 0040:0017 ? Ja sam video u TechHelp-u
da postoje Keyboard flegovi na adresi 0:0417 i 0:0418 gde je na
ovoj drugoj ono sto nas zanima (Caps,Num lock itd.) Na toj adresi
je 6.bit fleg za Caps Lock..E sad,ja sam pokusao da dobijem te
flegove f-jom 02h/16h ,AND-ujem sa 40h i bacim na 0:0418 ali ne
moze..
Btw. Da li je OK u TASM-u reci "mov byte ptr es:[dx],al" ?
Meni kaze nesto Illegal Indexing (??)
pascal.1016vector,
-> #1015, jjerry
Ů▀Ţ Sta se tacno nalazi na adresi 0040:0017 ? Ja sam video u TechHelp-u
Ů▀Ţ da postoje Keyboard flegovi na adresi 0:0417 i 0:0418 gde je na
Ů▀Ţ ovoj drugoj ono sto nas zanima (Caps,Num lock itd.) Na toj adresi
Ů▀Ţ je 6.bit fleg za Caps Lock..E sad,ja sam pokusao da dobijem te
Ů▀Ţ flegove f-jom 02h/16h ,AND-ujem sa 40h i bacim na 0:0418 ali ne
Ů▀Ţ moze..
Na 0040:0017 se nalazi keyboard status flags bajt (1):
bit 7 = 1 INS active
bit 6 = 1 Caps Lock active
bit 5 = 1 Num Lock active
bit 4 = 1 Scroll Lock active
bit 3 = 1 either Alt pressed
bit 2 = 1 either Ctrl pressed
bit 1 = 1 left Shift pressed
bit 0 = 1 right Shift pressed
Kod za 'ukljucivanje' Caps Locka bi izgledao ovako:
by equ byte ptr ; nikad nisam voleo da pisem 'byte ptr' ;)
;
start: ;
mov bx, 0040h ; ES:BX pokazuje na KSF1 ;) bajt
mov es, bx ;
mov bx, 0017h ;
mov al, es:[bx] ; isti bajt prenosimo u AL
and al, 0bfh ; bit 6 setujemo na 1
mov by es:[bx], al ; i vracamo ceo bajt na 0040:0017
Ů▀Ţ Btw. Da li je OK u TASM-u reci "mov byte ptr es:[dx],al" ?
Ů▀Ţ Meni kaze nesto Illegal Indexing (??)
Naravno da nije. Za indirektno adresiranje memorije 80x86 prihvata
samo BX, BP, DI i SI registre. Znaci, samo stavi '[bx]' umesto '[dx]'
i sve ce raditi kako treba. :)
BTW, uz poruku je prikacen odlican rezidentni kalkulator, ;) prava
stvar za programere - podrzava and, xor, or, not operacije, kao i bin,
oct, dec i hex brojeve. Zauzima samo 4K osnovne memorije. Jedino jos
ne znam kako se izbacuje iz memorije. :)
calc.compascal.1017jjerry,
-> #1016, vectorJJ=> Naravno da nije. Za indirektno adresiranje memorije 80x86 prihvata
JJ=> samo BX, BP, DI i SI registre. Znaci, samo stavi '[bx]' umesto'[dx]'
JJ=> i sve ce raditi kako treba. :)
10X..Nisam znao ;)
JJ=> BTW, uz poruku je prikacen odlican rezidentni kalkulator, ;) prava
JJ=> stvar za programere - podrzava and, xor, or, not operacije, kao i bin,
JJ=> oct, dec i hex brojeve. Zauzima samo 4K osnovne memorije.
JJ=> Jedino jos ne znam kako se izbacuje iz memorije. :)
Fala ti :) A sto da ga izbacujemo ako je dobar ? :)
pascal.1018vule.,
-> #1016, vector│ ne znam kako se izbacuje iz memorije. :)
└────────────────────────────────────────────────
Ja znam kako....
--------
< RESET ! >
--------
:)
pascal.1019voyager,
Da li je moguce izlistati sve fajlove u direktorijumu i
poddirektorijumima?
Voyager
pascal.1020emajsijuen,
Skoro je bila neka rasprava o pustanju muzike sa CD-a (ili sam samo nesto
utripovao...), pa evo saljem jedan odlican unit za rad sa CD-om...
cdaudio.arjpascal.1021emajsijuen,
-> #1019, voyager
Vo>> Da li je moguce izlistati sve fajlove u direktorijumu i
Vo>> poddirektorijumima?
- Moguce je... Evo ti neka procedura. Nisam je probao, ali bi trebalo da
radi. :)
Procedure WriteFiles(path: pathStr);
Var
FileInfo : searchRec;
path2 : pathStr;
begin
FindFirst (path+'\*.*', AnyFile, FileInfo);
While DosError = 0
Do begin
If (FileInfo.Name[1] <> '.')and(FileInfo.attr <> VolumeId)
Then if ((FileInfo.Attr and Directory) = Directory)
Then Begin
Path2 := Path+'\'+FileInfo.Name;
WriteFiles(path2);
End
Else
if ((FileInfo.Attr and VolumeID) <> VolumeID)
then Begin
Writeln(path+'\'+FileInfo.Name);
End;
FindNext(FileInfo);
End;
End;
Nadam se da ce ti ovo pomoci... :)
pascal.1022voyager,
Imam jedno pitanje u vezi onog unit-a za rad sa cd-om (emajsijuen
je poslao cini mi se), kako postaviti cd na odredjeni track, min,
sec ali bez play, znaci samo postaviti na odredjeno poziciju.
BTW: unit ima bug kada ocitava da li je door locked, naime uvek
kaze da je unlocked.
Voyager
pascal.1023novakovicn,
Imam jedno pitanje,
kako da program namestim da ostane
aktivan u memoriji ?
Probao sam sa KEEP-om , ali nesto
ne radi.
NovakovicN
pascal.1024emajsijuen,
-> #1022, voyagerVo>> Imam jedno pitanje u vezi onog unit-a za rad sa cd-om (emajsijuen
Vo>> je poslao cini mi se), kako postaviti cd na odredjeni track, min,
Vo>> sec ali bez play, znaci samo postaviti na odredjeno poziciju.
Imao sam slicne probleme, kada sam "ubacivao" CD-PLAYER u jedan telefonski
imenik :) BTW. probaj sa playfrom, pa pauseaudio. Te komande ce da se izvrse
toliko brzo, da cd nece ni stici da pusti muziku. Znam da je ovo malo
amaterski, ali sta ces kad nemas alternativu... :)
Vo>> BTW: unit ima bug kada ocitava da li je door locked, naime uvek
Vo>> kaze da je unlocked.
Unit nisam ja pisao, i ne odgovaram za njegovu sadrzinu...
pascal.1025emajsijuen,
-> #1023, novakovicnNo>> Imam jedno pitanje,
No>> kako da program namestim da ostane
No>> aktivan u memoriji ?
No>> Probao sam sa KEEP-om , ali nesto
No>> ne radi.
Nije to bas tako jednostavno... Pogledaj primer koji je dat uz komandu
keep. To je (valjda) rezidentan program, koji "pisne" na svaki pritisak
tastature.
pascal.1026emajsijuen,
Nabavio sam neki fenomenalan unit za komunikacije. Glavne funkcije i
procedure su napisane u assemleru radi brzeg izvrsavanja (valjda). Ocitavanje
/Slanje podataka na modem se vrsi preko interaptova i sve ide kroz input/
output bafer, koji je promenljive velicine. Mislim da je unit odlican, i da
necete zazaliti ako ga preuzmete...
BTW. skidam kapu onome ko ne bude umeo da napravi komunikacioni program
koristeci ove komande... :)
async.arjpascal.1027emajsijuen,
Koliko je "bolan" prelazak sa TP 7.0 na Delphi ?
pascal.1028emajsijuen,
C:\TEMP\TABLE>tpc table.pas
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
DEMO.INC(170)
COMMANDS.INC(394)
GRAPHIC.INC(400)
DRAW.INC(362)
SETUP.INC(238)
COMMON.INC(178)
FILLIT.INC(245)
ALG1.INC(78)
ALG2.INC(420)
OUTPUT.INC(50)
LINK.INC(40)
TABLE.PAS(1179): Error 48: Code segment too large.
End.
Kako ovo prevazici ? :(
pascal.1029emajsijuen,
-> #1028, emajsijuenEm>> Kako ovo prevazici ? :(
Uspeo sam da resim problem. :)
pascal.1030kenza,
-> #1028, emajsijuen>> TABLE.PAS(1179): Error 48: Code segment too large.
Nemam neku pametnu ideju, da probas da ga podelis u unit-e ?
pascal.1031emajsijuen,
-> #1030, kenzaKe>> Nemam neku pametnu ideju, da probas da ga podelis u unit-e ?
Hvala na odgovoru :) To sam uradio jos juce, i poslao sam poruku u kojoj
pise da sam uspeo da resim problem. Upravo je podela u unit-e i resila stvar.
Anyway, hvala na odgovoru :)
pascal.1032tomak,
-> #384, tomak> > Bas cudno jer kod mene ispisuje i pritisnuti karakter.
>
> Da, da, da, ... ovo ne radi u DOS-ovom prozoru (ili Full-screen-u), radi
> 'samo' u čistom DOS-u ... Izvini - ako te dezorjentisah ...
Evo ispravke koja radi i u prozoru i inače ali joj fali jedna stvar, kad
se kuca 'enter' pređe u drugi red.
keeplus.paspascal.1033tomcat,
-> #1032, tomak> > > Bas cudno jer kod mene ispisuje i pritisnuti karakter.
> >
> > Da, da, da, ... ovo ne radi u DOS-ovom prozoru (ili Full-screen-u), radi
> > 'samo' u cistom DOS-u ... Izvini - ako te dezorjentisah ...
>
> Evo ispravke koja radi i u prozoru i inace ali joj fali jedna stvar, kad
> se kuca 'enter' prede u drugi red.
Vidim ja da ces da doguras do v2.0
Thanx!
Vladimir Prelovac
.........................
tomcat@galeb.etf.bg.ac.yu
pascal.1035nbjvsb,
Kako da nekom programu poturim lazne podatke? Npr., program sa diskete cita
jedan od sektora, i proverava da li podatak isti kao i njegov. Ako jeste, sve
je ok, ako nije, izlazi iz programa. E sad, ja hocu da mu, cim pozove int $13
odmah u es:bx strpam taj podatak, bez da on proverava disketu.
pascal.1036duskos,
Da li neko ima komunikacione rutine za modem za BP 7.
Ako postoji na Sezamu, recite mi gde.
Pozdrav, duskos!