W obronie krzyża
;!!!!!!!!! HELLO WORLD BEZ UŻYCIA PRZERWANIA INT 21H !!!!!!
.model small
.386
.data
tekst byte "Hello World", '$'
.stack 100h
.code
.startup
mov bx, offset tekst
wys_napisu:
mov ah, 0eh
wys_nap:
mov al, [bx]
cmp al,'$' ;jesli '$' to wychodzimy z tej funkcji
je koniec
int 10h
inc bx ;zwiekszamy bx czyli odczytujemy nastepny znak
jmp wys_nap
koniec:
.exit
end
CZesc Grupie!
Mam problem polegajacy na tym, ze procedurka (ACC 20) do poruszania sie
po rekordach (w prawo i lewo) co 10 'wywala sie' w jednym i tym samym
wypadku, tj. gdy jestem dokladnie na 10 rekordzie od poczatku (lub na
10 od konca) i chce wlasnie 'poruszyc sie' o 10 w lewo (lub o 10 w
prawo). W innych sytuacjach wszystko OK.
Set recs = Me.RecordSetClone
If Not recs.bof Then
recs.bookmark = Me.bookmark
For i = 1 To 10
If Not recs.bof Then
recs.MovePrevious
Else
recs.MoveNext
Exit For
End If
Next
Me.bookmark = recs.bookmark 'tu nie moze znalezc bukmarka
End If
recs.Close
Jak sobie z tym poradzic?
Dziekuje. Maciej Wielowiejski.
| Czy można zaciągnąć podaną linię tekstu procedury?
Ja nie mam zieloneg pojecia, czy o to Ci chodzi, ale moze moja magiczna
kula
dzisiaj dziala ;-)
Niezupelnie mi o to chodzilo - bardziej o to, co zaproponowal Mariusz.
Niemniej dzieki, nie wiedzialem, ze tak mozna sie w taki sposob dobrac do
wlasciwosci modulu.
Function LinesInModule(strModuleName As String) As Long
Dim mdl As Module
On Error GoTo Error_LinesInModule
' Open module.
DoCmd.OpenModule strModuleName
' Return reference to Module object.
Set mdl = Modules(strModuleName)
' Return number of lines in module.
LinesInModule = mdl.CountOfLines
Exit_LinesInModule:
Exit Function
Error_LinesInModule:
MsgBox Err & ": " & Err.Description
' If function fails, return -1.
LinesInModule = -1
Resume Exit_LinesInModule
End Function
pozdr,
ak
On Sun, 09 Mar 2003 22:21:24 +0100, Michal Adamczak wrote:
jak wywolujesz kompilator (opcje)?
ponadto jakie jest rozszerzenie kompilowanego pliku
no i last but not least
jakei sa komunikaty gcc (opcja -Wall zwiekszy gatatliwosc)
zaczne od poczatku slackware 8.1 gcc 2.95.3 - najpierw wywala mi kilka
warningow declares a non-template function (if this is not what you
intended , make sure the function template has already been declared ,
and add <after the function name here dotyczy pliki z klasa szablonowa
:))) linijka 17 a blad jest w main - undefined reference to operator
<<(ostream & , wektor<osoba&) i na koniec cos takiego collect2: ld
returned 1 exit status . i tyle nie wiem dlaczego .. ?
Michał Strecker napisał(a):
Witam, probowalem znalezc pole o zadanej wartosci w gridzie i
podswietlic caly record. Niestety to co napisalem nie dziala, gdybyscie
napisali mi dlaczego nie dziala, jak podswietlic wybrany record oraz
podsuneli dobre rozwiazanie bylbym bardzo wdzieczny :)
for j:=1 to dbgrid1.DataSource.DataSet.RecordCount-1 do
begin
for i:=1 to dbgrid1.FieldCount-1 do
if dbgrid1.Fields[i].AsString =
szukaj.text then
begin
co3=Dbgrid1.Fields[0].asstring;
showmessage(co3);
break;
albo Exit, zależy czy chcesz znaleźć wszystkie czy tylko pierwszy
end
;
dbgrid1.DataSource.DataSet.Next;
end;
Tygrys
mam problem z linkami i wykonywaniem funkcji w window.createPopup();
var X = 0;
var Y = 0;
var Width = 200;
var Height = 100;
var PopUp = window.createPopup();
PopUp.document.body.innerHTML = "tutaj tresc html";
PopUp.show(X,Y,Width,Height,document.body);
Oczywiscie gdzies sobie to uruchamiam. I jezeli chodzi o pokazywanie
zwyklego tekstu - to wszystko ok. Ale jezeli chce zrobic linka za pomoca
<a
href="www.jakas.strona.html"strona</alub wykonac jakas metode przy
uzyciu: <a href="javascript:exit()"X</a
Popup to osobne okno stąd te problemy. Ja sobie poradziłem tak, że dodaję
handler przed wywołaniem show w taki sposób:
oPopup.document.getElementById("mojbuton").onclick = function() {
funkcjaobslugi() }
funkcjaobslugi() jest zdefiniowana w skrypcie wywołującym popup
arturm
Alekzander
Antoni Goldstein napisał(a) w wiadomości:
| exec('c:command.com','/K b.bat'), wtedy wykona batcha i wróci do
pascala,
| albo
| exec('c:command.com','/C b.bat'), wtedy wykona batcha i przejdzie do
| wiersza poleceń, a do pascala wróci, gdy wpiszesz exit.
Eeee... Przeciez po wywolaniu COMMAND /C on wraca sam, nie trzeba wpisywac
EXIT...
Zamieniłem /C i /K - po /K trzeba wpisać exit, a po /C wraca sam.
Pozdrawiam.
Piotr.
hubert depesz lubaczewski <dep@depesz.plwrote:
Mieczyslaw Pilkowski <i@promail.plwyrzeźbił(a):
[MP] za duzo. Moze mi ktos poprawic ponizszy kawalek kodu, aby w przypadku
[MP] wylaczonego serwera skrypt konczyl dzialanie?
poprawić to nie, ale obejrzyj:
perldoc -f alarm
Albo... use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua-timeout(180); # 180 sek
my $req = new HTTP::Request(GET ="http://adres");
my $res = $ua-request($req);
if ($res-is_success) {
print $res-content;
}
else {
print $res-error_as_HTML;
exit(1);
}
prosto z manuala :)
a czemu EXIT ?
mi sie wydaje ze jak masz EXIT to serwer przerywa generowanie z php kodu
html w tym miejscu (albo funkcji) (wkoncu na tym to polega z php robiony
jest kod html) czyli urywa ;) strone.
nie wiem jak wyglkada calos ale mowisz ze kod jest potezny
to podziel go na czesci, funkcje odpowiedziale za czesci i wykonuj
warunkowo
oczekiwane fragmenty ;)
Każdą część wykonuje warunkowo ale chciałbym aby w tym miejscu ominęło php i
dokończyło html
Witam,
jest sobie program glowny, ktory sie forkuje i kazdy potomek wykonuje
inny program funkcja exec. Jeden z tych potomkow powinien czytac dane ze
standardowego wejscia (gets lub scanf).
Jesli proces glowny czeka na procesy potomne za pomoca wait(), to
wszystko dziala bez problemu.
Problem w tym, ze proces glowny ma sie zakonczyc (wiem, ze to bez sensu,
ale to zadanie akademickie). Jesli zamiast serii wywolan wait() w
programie glownym napisze exit(0), to procesy potomne dzialaja
(przejmuje je init, czyli tak jak powinno byc), jednak terminal
wyswietla znak zachety i wprowadzany tekst traktuje jako komendy do
wykonania... W tym czasie jeden z procesow potomnych jest 'zawieszony'
na funkcji gets.
W jaki sposob moge pobierac dane z stdin i przekazywac je do procesu
potomnego? Albo jak zmusic terminal do 'przelaczenia' sie na tego
potomka po zakonczeniu procesu macierzystego? W archiwum znalazlem
bardzo podobny, niedawny watek (http://tiny.pl/fm2w), jednak mimo
cennych porad w nim zawartych nie moge dojsc do rozwiazania.
Dodam, ze proces glowny musi sie zakonczyc, nie moge wykonac w nim
exec() uruchamiajac program, ktory ma czytac dane z stdin.
Pozdrawiam i z gory dziekuje za rady
Czemu pppd zrywa mi polaczenie ....
najpierw dzwoni , potem pokazuje termina , po zalogowaniu ,,pisze loguje do
sieci ..a potem zrywa polaczenie
oto co pisze w logach :
Nov 1 01:53:56 rb pppd[5537]: pppd 2.3.7 started by root, uid 0
Nov 1 01:53:56 rb pppd[5537]: Using interface ppp0
Nov 1 01:53:56 rb pppd[5537]: Connect: ppp0 <--/dev/cua1
Nov 1 01:54:26 rb pppd[5537]: LCP: timeout sending Config-Requests
Nov 1 01:54:26 rb pppd[5537]: Connection terminated.
Nov 1 01:54:26 rb pppd[5537]: Connect time 0.5 minutes.
Nov 1 01:54:26 rb pppd[5537]: Exit.
P.S Mam zewnetrzny modem Zoom V.34 X - 470