singels Kody

Widzisz posty znalezione dla hasła: singels Kody

Temat: AVR-GCC - deklaracja zmiennych pod wskazanym adresem
On Behalf Of Mister

Jeżeli wiesz co robisz to w czym problem ? Co się może namieszać?

A co, jeśli się wie, a i tak można namieszać?
Jak właśnie zauważyłem niejawne konwersje dotarły do bascom'a.
A namieszać się może bardzo dużo, w zależności od kompilatora.
Np. w bascom.
Użycie zmiennej single do wykresów bruździ. Użycie tej samej wartości
po przypisaniu jej do zmiennej word powoduje, że wykres jet prawidłowy.
Ale word= single (123) * word (2) daje bzdurę.
Musi być singel= single*single i w następnym wierszu word = single.
W C jest podobnie, niby konwersje typów są prawidłowe, ale czasami,
zdarzają się sytuacje wyjątkowe. Przypuszczam, że to jest świadome
działanie autora, który musiał wybrać pomiędzy uniwersalnością, a
długością kodu.
W sumie - zawsze wszystko trzeba sprawdzać trzy razy ;-)

pzdr
Artur

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???

sie podobnie). Największym szokiem było właśnie to, że różnica
obiektowo/strukturalnie w D5/D7 prawie się zatarła. To zasugerowało mi, że
cos się zmieniło

Kompilator? ;)
Zmienil sie i zmienia prawie w każdej wersji.
Np. używasz w kodzie single, aktualnie obliczenia na double (czyli real)
są szybsze. Zmiana nastąpiła właśnie w wersji 3 i późniejsze
usprawnienia mogły znakomicie zadziałać.
Mechanizmy zarządzania pamięcią obiektów też się mocno zmieniały.
Zwykle obiektowość kosztuje więcej pamięci i dodanie paru mega do
komputera może zmienić wynik testu.

Temat: Pamięć -> Too Many Variables

var x[liczba]:array of single;
y[liczba]:array of single;
c[liczba]:array of integer;
sx[liczba]:array of single;
sy[liczba]:array of single;
ax[liczba]:array of single;
ay[liczba]:array of single;

Zaraz zaraz.. ja tej konstrukcji nie rozumiem. Dokladnie tak to w programie
wyglada? Bo turbo pascal array of xxx nie przelknie (nie wiem jak FPC, bo
Delphi chwyci). Poza tym: x[liczba]:array of single mam rozumiec jako cos
takiego,z e wstawiles:
x1:array of single;
x2:array of single;
x3:array of single;
..
x3000: array of single;
czy jakos inaczej? Daj jakis fragment kodu cut&paste - dokladnie taki jaki
masz, lub opisz to sensownie - postaramy sie pomoc :)

Merlin

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???
Obejrzałem kod pod CPU debugiem i D3, D5 i D7 generują dokładnie taki sam
kod (oczywiście w ramach wersji strukturalnej/obiektowej/classowej). A mimo
to czasy wykonania są różne między wersjami (zależy od exeka i od tego co do
tego exeka jest wsadzone).

Czy przypadkiem nie wynika to z jakiegoś obiektu wsadzanego przez delphi
(np. TApplication), który inaczej sie porozumiewa z systemem (więcej jakiś
wywłaszczeń itp)?

w ramach tych samych doświadczeń zrobiłem kolejny test (kod programu na
końcu):

moduł Classes, który NIE JEST POTRZEBNY do kompilacji.

W D3 wersja z Classes liczy się 4550 ticków a bez classes 4380 tików
W D7 wrrsja z Classes liczy się 4870 ticków a bez classes 5020 ticków

Nie sprawdziłem kodu z debugera, ale zakładam (biorąc pod uwagę wcześniejsze
doświadczenie), że kod jest taki sam. A szybkośc jest inna ale powtarzalnie.

Kto tu miesza?

Marek

{$apptype console}
program test_cc;

uses Windows, SysUtils, Classes;

var a: array[1..1000, 1..100] of Single;

procedure Policz;
var
i, j: Integer;
s: Single;
begin
s:=Random;
for i:=1 to 1000 do for j:=1 to 100 do begin
a[i, j]:=s;
if (j mod 2 = 0) then s:=s/2 else s:=s*2;
end;
end;

var
t, k: LongInt;
begin
t:=GetTickCount;
for k:=1 to 3000 do Policz;
WriteLn(IntToStr(GetTickCount-t));
end.

Temat: Konwersja na single

Szukałem wszędzie, ale nic nie znalazłem, a może nie wiem jak tego
poszukać?

Mam cztery bajty np. : 52,B8,BE,3F. Wiem, że reprezentują sobą liczbę
typu single. Jak je zamienić na tą liczbę?

type
TConversionRecord = record
case boolean of
true:
AsSingle: single;
false:
Byte1, Byte2, Byte3, Byte4: Byte;
end;
end;

var
r: TConversionRecord;

// ...

r.Byte1:=StrToInt('$'+'52');
// B8 - analogicznie przypisac do Byte2
// BE - analogicznie przypisac do Byte3
// 3F - analogicznie przypisac do Byte4

// w tym momencie wartosc jako single moze Pan odczytac z r.AsSingle.

Uwagi:

1. Mozna to zrobic tez za pomoca shr / shl + and / or (operacje bitwise)
i jakis hard typecastow, wedle uznania.

2. To Pan twierdzi ze single ma w Delphi 4 bajty, ja nie pamietam i nie
mam za bardzo jak sprawdzic, a nie chce mi sie szukac w Google. Moj kod
opiera sie na tym, ze ma 4 bajty, przy czym mozliwe, ze pola typu Byte
powinien Pan zrobic w odwrotnej kolejnosci, jesli tak nie bedzie
dzialac. Ale raczej w tej.

Pozdrawiam,

Piotr Hosowicz

Temat: Single się zepsuł przy dzieleniu??

zrobmy taki eksperyment:

var a,b:Single;

a := 7100.11;
b := 133 * a;
b := b / a;

I kazdy normalny spodziewac sie moze wartosci b = 133 i taki tez
dostaniemy wynik.

A teraz zamiast ostatniej linijki zrobmy tak:
b := (b / a) / 1000;

Jaki bedzie wynik?
0.133?
Otoz NIE!!! Wynikiem bedzie 0.13300000131 !!
Natomiast dla Extended wszystko gra.

Przyznam ze spedzilem tydzien szukajac bledu w kodzie az dotarlem do tego
buraczka :/ Czy to jest normalne zachowanie liczb Single? Czy ktos mial
podobne
doswiadczenia i moze mi wytlumaczyc czym takie zachowanie jest podyktowane
bo
raczej nie przekroczylem zakresu Single dzielac 133 przez tysiac :/

Przekracza zakres. Bo single o ile pamietam jest zdolne zapamietac 24
najwazniejsze cyfry liczby w reprezentacji binarnej. Pozostale 7 bitow
pamieta gdzie jest przecinek w tej 24-bitowej liczbie, 1 bit to znak.
7100.11*133 = 944314.63 - osiem cyfr dziesietnych do zapamietania..

2^24 = ok 16 000 000
10^8 = 100 000 000

Pozwiodronka,
Zeman.

Temat: Single się zepsuł przy dzieleniu??
zrobmy taki eksperyment:

var a,b:Single;

a := 7100.11;
b := 133 * a;
b := b / a;

I kazdy normalny spodziewac sie moze wartosci b = 133 i taki tez dostaniemy wynik.

A teraz zamiast ostatniej linijki zrobmy tak:
b := (b / a) / 1000;

Jaki bedzie wynik?
0.133?
Otoz NIE!!! Wynikiem bedzie 0.13300000131 !!
Natomiast dla Extended wszystko gra.

Pozdrawiam,
McP

--------------------------
http://www.conspect.pl
Modelowanie Systemów Wodociągowych

Temat: Aplikacja bez UI - jak zwolnić referencje?

Witam,

Masz babo placek! Jest problem i to spory - dla mnie.

i nie widać go w Menadżerze Zadań (TaskVisible = Flase, UnnatendedApp =
True).

W Sub Main inicjuję dwa odwołania do obiektów oraz definiuję dwa Timer'y
poprzez API. Wszystko działa jak powinno... ale...
No właśnie. Czy jest jakiś odpowiednik Form_QueryUnload dla aplikacji nie
posiadających UI???? Bo niby jak mam sprzątać pamięć?

Dodatkowym problemem jest tu fakt, że Timery nie są przypisane do
szczególnego okna więc chodzą (tak mi się wydaje) jako Timer'y przypisane
wyłącznie do procedury TimerProc. Jeśli zamykam projekt z IDE podczas jego
działania... VB generuje błąd w Kernel32 i robi milusiego pada na twarz.

Poradźcie coś :-))
Dziękuję :-)

Ponieważ program nie występuje na TaskList, to nie można go zamknąć
przez CTRL+ATL+DEL i zakończ program. Natomiast przy zamknij system
program jest zamykany, problemem są te dwa timery z API.
W takich programach nie wolno stosować timerów. Należy robić to w kodzie:
Dim Czas As Single, Interval As Single
Do
DoEvents
Czas = Timer + Interval
Do
'kod wykonywany lub nic
Loop Until Timer Czas
'kod dla Timer
Loop
Po uruchomieniu takiej pentli przez RUN wszystko jest prawidłowo,
można zatrzymać program przez IDE.

Pozdrawiam
Wiesiek

Temat: wewnętrzna reprezentacja liczb, różne działania

Prymitywne operacje (dodawanie/mnożenie) wykonywane na Single
będą rzeczywiście szybsze niż na Extended, choćby z tego faktu, że mniej
bajtów trzeba przesłać do koprocesora (w architekturę koprocesorów się
nie zagłębiałem), ale jak potrzebujesz korzystać z jakiejś biblioteki
funkcji
matematycznych (czy choćby z modułu Math), to zauważysz, że zdecydowana
większość z nich nie ma odpowiednika dla argumentów Single i Double,
a jedynie występuje wersja dla Extended.

W takiej sytuacji każde wywołanie funkcji dla argumentu Single czy Double
i zapisanie wyniku do zmiennej typu Single lub Double wymaga wykonania
dwóch dodatkowych konwersji - jednej na wejściu i jednej na wyjściu. To
daje dwie dodatkowe operacje na koprocesorze i cztery dodatkowe
przesłania/pobrania danych do/z koprocesora przy każdym wywołaniu
funkcji, które są zbędne, jeśli wszystkie argumenty będą zadeklarowane
jako Extended.

Zwróciłem na to uwagę. W związku z tym, że poza podstawowymi operacjami
używam niezbyt dużo bardziej zaawansowanych funkcji będę je rozwijał do
singli (a przynajmniej próbował).

Wszystko więc zależy od tego, jakie operacje zmiennoprzecinkowe wykonujesz
najczęściej, a najlepsze efekty w optymalizacji uzyskiwałem zwykle poprzez
modyfikację przyjętego algorytmu, w którym prawie zawsze dało sie coś

ulepszyć.

Wydaje mi się, ze wszystko co miałem wyoptymalizować w kodzie już mi sie
udało zrobić (choć oczywiście moge się mylić:)

Marek

Temat: znaki specjalne
Może inaczej .
Pracuję pod IAS - oracle i tam tworząc procedure w PL/SQL mamy
zarezerwowany znak '
wszelkie kody znakow specjalnych dają w wyniku pochylone albo w jedna albo
w drugą nijak nie mogę uzyskac tego jednego znaku moze gdybym uzyl innej
strony kodowej ?

Pozdrawiam Robert

| potrzebuje kod znaku specjalnego " ' " tzn ten znak co jest na
| klawiaturze narysowany na tym samym przycisku co "

| ale nie chodzi mi o

| ‘ ‘ Left single quotation mark

| ’ ’ Right single quotation mark '

http://www.www-mag.com.pl/kurs/znaki/znaki.htm

Temat: Powiększanie bitmapy

| A to trzeba się było lepiej przyjżeć. Zapewnia mechanizmy
| skalowania jak najbardziej.

A czy możesz rzucić nazwą prcedury, klasy, itp. ?

Klasy nie ma, jest po prostu procedura, cytat z helpa CHM :

<cycat

Procedure Stretch(NewWidth, NewHeight: Cardinal; Filter:
TResamplingFilter; Radius: Single; Source, Target: TBitmap);

Procedure Stretch(NewWidth, NewHeight: Cardinal; Filter:
TResamplingFilter; Radius: Single; Source: TBitmap);

TResamplingFilter = (sfBox, sfTriangle, sfHermite, sfBell, sfSpline,
sfLanczos3, sfMitchell);

</cycat

A moze fragment kodu do skalowania?

Kodu nie podaję, bo proste jak konstrukcja cepa, co zapewne Kolega widzi
z deklaracji procedury. Co do konkretnego algorytmu, to mi zależy
najczęściej na wysokiej jakości, kosztem wydajności - stosuję filtr
sfLanczos z Radius dobranym organoleptycznie = 3. I działa bardzo
łądnie, z tym że dla dużych zdjęć cyfrowych (kilka tysięcy na kilka
tysięcy pikseli) trwa to pewną chwilkę.

Aha, z tym że tu się przyznaje bez bicia, że używałem do zmniejszania a
nie do powiększania zdjęć - nie wiem jak dobre efekty dają te filtry i
który będzie najlepszy. Tak czy inaczej coś czuję że to lepsze
rozwiązanie niż StretchDraw / StretchBlt itp

Temat: MOHAA
Sory
Źle zrozumiałem
Kody masz tu

Uruchom grę z dodatkowymi parametrami ? +set ui_console 1 +set cheats 1 +set
thereisnomonkey 1?
przykładowo: ?c:grymedalmohaa.exe? +set ui_console 1 +set cheats 1 +set
thereisnomonkey 1

Następnie w trakcie gry single player naciśnij tyldę ?~? aby w konsoli pisać
kody:

dog ? God Mode
fullheal ? uzdrawia
wuss ? broń i amunicja
noclip ? przechodzenie przez ściany
notarget ? brak celu
listinventory ? lista wyposażenia
tele [x y z] ? teleport do podanych współrzędnych
coord ? podaje bieżące współrzędne
health [numer] ? ustawia zdrowie na dany numer
kill ? popełniasz samobójstwo
giveweapon weapons/"[nazwa]".tik ? daje broń

pozdrawiam
krystian001

Ma ktos kody

Temat: techniki szyfrowania.. kodu

Poza jakimis zlozonymi procedurami szyfrujacymi sprobuj wstawic
mnostwo upierdliwych detali, ktore beda zniechecaly do single
stepow i wykonywania kodu po kawalku. Polecam dosc prymitywne
sposoby, ale jesli sie tego duzo nawstawia, to strasznie wkur,
no, irytuje i meczy tego, kto to bedzie lamal.

hmmm.. nie rozumiem
to zabezpieczy przed debuggowaniem
ale jak zapuszcze Sourcera - bede mial kod na dloni?

Blacky

B-l-a-c-k-H-a-c-k----------------
pure asm coder from Sixty9

----------------------------------

Temat: Wskazniki do funkcji.

O, powiedz w takim razie proszę (albo ktoś inny), czy on już ma
poprawiony błąd polegający na tym, że g++-2.95.1 na takim programie:
template<template<typenameclass t1, typename t0void single()
{
single<t1,t0();
}
template<typename aclass T1 {};
int main()
{
single<T1,int();
}
wywala Internal compiler error? Bo nie wiem, czy warto ściągać 2.95.2.

na g++ 2.92.2 to samo, ale możesz powiedzieć co to ma robić, bo dla mnie to wygląda
dziwacznie?

PS
Złapałem 2.95.2 na tym, że optymalizuje czasem nawet o 30%
lepiej (szybszy kod) niż 2.95.1.

Rafał

Temat: Diablo2 Exp!

| Niema do D2 !.09 pliki postaci są szyforwane 32bitowym kodem (prawie nie
do
| przebicia).

| Marek.com
A czy ShadowMaster jest do tej wersji??? A jeśli nie to czy istnieje jakiś
sposób by odaktywnić wykonane misje??? Bo bez tego to gra w single po
przejściu piekła stenie się trochę nudna :-((( a ja już takie fajne
przedmioty znalazłem :-)
Pozdrawiam DimmuR

Jak masz fanny stuff to graj na open battle.necie albo expa z ludźmi (8 osób
w grze i 8 razy więcej expa) albo duelki. Diablo powstał do gry na bn a
single jest dadatkiem tak jak single player w Q3. Nic dziwnego, że ci się
nudzi :)

Pozdro
Ajantis

1. Czemu nie skopiowałeś kodu z programu bo ten się nie skompiluje nawet?

2. Brak załączonych deklaracji wszystkich zmiennych uniemożliwia
interpretację kodu, a jasnowidzem nie jestem bo gdybym był to bym się
programowaniem nie zajmował.

W sumie to nie wiem, czy program wysypuje się w tej pętli w końcu czy nie bo
po ostatecznej interpretacji Twojego tekstu, nie jestem już niczego pewien.

Zablokuj ten kod w pętli wstaw tylko jakąś pętlę opóźniającą, zamiast niego
(wyłącz optymalizację) typu

for czekaj := 1 to 100000 do;

Na jakiej podstawie sądzisz, że to się dzieje właśnie tutaj?

-m

Temat: wewnętrzna reprezentacja liczb, różne działania
Szukam i szukam i nie mogę znaleźć:

1. Wiem, że single, double i extended mają różna reprezentację wewnętrzną
(odpowiednio 32, 64 i 80 bitów z różną szerokością cechy i mantysy). Jak
wygląda konwersja liczb w przypadku wołania funkcji o innej szerokości np
funkcja ma nagłówek:

function Funkcja(X1, X2: Extended): Extended;

a wołamy ją:

var
a, b, c: Single;
begin
UstawAiB(a, b);
c:=Funkcja(a, b)
end;

W obu kierunkach następuje konwersja, ale jak to jest zrobione (szperałem
troche po Googlach i trochę po kodach źródłowych bibliotek i nie nie
potrafię znaleźć.

2. Jak Delphi robi zwykłe mnożenie albo dodawanie liczb
(zmiennoprzecinkowych IEEE) np:

c:=a*b;

Czy zależy to od rodzaju zmiennej (inaczej dla singli, inaczej dla double
inaczej dla extended) czy zawsze woła mnożenie kooprocesora? Czy mnożenie
kooprocesorem (gdyby w delphi było robione software'owo) można wymusić?

Marek

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???

| Po takim zabiegu okaże się, że kod "obiektowy" jest 3 razy
| wolnieszy od kodu "strukturalnego" na każdej wersji Delphi,
| a przyczyną jest właśnie sposób wyznaczania adresu efektywnego
| dla każdego elementu tablicy.

U mnie nie ma większych efektów różnicujących (oczywiście poza
przyspieszeniem działania)

Może to kwestia mojej terminologii :-)
Korzystałem z Pana pierwszego przykładu, gdzie były tylko dwie
wersje nazywane przeze mnie tak jak w temacie tego wątku:
strukturalna i obiektowa, którą teraz Pan nazywa "classową" :-)
Po usunięciu obliczeń na liczbach typu single otrzymywałem wyniki
jak 260 do 760.

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???
Nie wiem, jak odpowiedzieć na Twoje zasadnicze pytanie, ale zauważyłem w
Twoim kodzie kilka ciekawych elementów:

for i:=1 to 1000 do for j:=1 to 100 do begin

Sugeruję, żeby zmienić kolejność zagnieżdżania

for j:=1 to 100 do
for i:=1 to 1000 do begin

Będzie trochę szybciej, bo pętla wewnętrzna inicjowana będzie 100 razy, nie
1000.

Poza tym:

zamiast "j mod 2 = 0" po prostu "not odd(j)" albo "j and 1 = 0"

Twój zasadniczy problem też mnie ciekawi. Jakim kompilatorem kompilowałeś
obliczenia strukturalne? Ile RAM-u masz w kompie, w którym puszczasz wersję
obiektową?

Zapewniam Cię, że globalne funkcje i procedury są niezależne i nie są
metodami jakiegoś globalnego obiektu.

Być może zmiana typu z Single na Double może trochę przyspieszyć sprawę.

Jest jeszcze jedno podejrzenie: czy w opcjach kompilacji masz ustawione
zabezpieczenie przed błędnym FDIV na Pentium? Jeśli tak, to usuń.
Prawdopodobieństwo trafienia dziś na wadliwe Pentium jest raczej zerowe, a
kod będzie trochę efektywniejszy, bo "normalny" (generowane czyste FDIV, bez
żadnych testów).

No i oczywiście zamiast s := s*2 dałbym s := s+s

Tyle hipotez

pozdrowienia

Temat: Długość instrukcji

zy istniej jakiś sposób/algorytm na sprawdzenie długości kolejnej instrukcji
w kodzie MCU? Pozszukuje rozwiązania tego problemu w HC11 :). Zczytuje sobie
PC i znam adres następnej instrukcji, czy mogę jakoś sprawdzić ile ona ma
bajtów?

Przeczytaj, co pod tym adresem siedzi w pamięci - dwa kolejne bajty.
To wystarczy do określenia długości instrukcji (dla części rozkazów
wystarczy już pierwszy bajt).

Sam używałem debuggera do HC11, działającego wg podobnej zasady - na
podstawie PC określał możliwe adresy następnej instrukcji (dla skoków
warunkowych mogą być dwa) i ustawiał tam pułapki (invalid opcode).
Ale nie korzystał z zawartości pamięci programu i disasemblacji,
tylko z informacji wygenerowanych przez asembler. Był podgląd kodu
źródłowego, single-step, step-over/into, podgląd pamięci itp.
Disasemblacja nigdy nie była na tyle potrzebna, żeby warto było ją pisać.

Pozdrawiam
Jarosław Szynal

Temat: Problem

<--ciach--
if ((not (edit2.text)) and (edit5.text)) then
edit2.text:=string(wspolczynnik*single(edit5.text))
else if (edit2.text) and (not (edit5.text)) then
edit5.text:=string(wspolczynnik/single(edit2.text))
<--ciach--

Dlaczego powyższy fragment nie chce sie kompilowac? Kompilator zglasza
bledy:
[Error] Wymiary.pas(66): Operator not applicable to this operand type
[Error] Wymiary.pas(66): Operator not applicable to this operand type
[Error] Wymiary.pas(67): Invalid typecast
[Error] Wymiary.pas(67): Operator not applicable to this operand type
[Error] Wymiary.pas(68): Invalid typecast
[Fatal Error] przelicznik.dpr(5): Could not compile used unit
'Wymiary.pas'

Uuu. Po pierwsze Edit2.Text i Edit5.Text nie są zmiennymi typu Boolean, więc
w Twoim kodzie nie ma w ogóle wyrażeń boolowskich, które musza wystąpić po
'if' (czyli brak warunku). Po drugie nie możesz rzutować Edit2.Text na
liczbę, do tego stosuje się StrToFloat, i wreszcie po trzecie nie możesz
rzutować liczby na string, do tego używasz FloatToStr. Słowem: wszystko jest
źle!

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???

Proponuję zakomentarzować następną linikę
if (j mod 2 = 0) then s:=s/2 else s:=s*2;
bo jest ona identycznie liczona w obydwu przypadkach
(operuje tylko na zmiennych lokalnych), a z powodu
użycia zmiennych typu single jest znacznie bardziej
czasochłonna od całej reszty kodu i tylko zaciemnia
wyniki testów.

O!!!!!!!

Wywaliłem tą część i we wszystkich wersjach delphi liczy się to teraz tak
samo szybko (Różnice są około 1 procenta na niekorzyść obiektów, co może być
prawdą).

Ale sprawdziłem wyremowaną linię (obliczeniową) i wszędzie jest taka sama.
Czyżby wina więc leżała po stronie windy? Ale dlaczego ten sam kod chodzi
tak różnie?

Marek

Temat: AT91SAM7 i US0

Po załadowaniu wszystkiego do flasha(czyli tak, jak ma być docelowo) pojawia
się błąd overrun, czyli wygląda jakby program nie nadążał z odczytywaniem
US0_RHR. Z prostego rachunku wynika, że odebranie 1 bajtu to 88 taktów
zegara, a obsługa przerwania rx zajmuje max ze 40 taktów.

Nie znam się na ARMach Atmela, ale od razu nasunęła mi się odpowiedź.
Aby się upewnić ściągnąłem sobie 42 stronicowy dokument
,,AT91SAM7S256/128/64/321/32 Preliminary Summary''.

,,Single Cycle Access at Up to 30 MHz in Worst Case Conditions'',

,,Prefetch Buffer Optimizing Thumb Instruction Execution at Maximum Speed''

Z powyższych wnioskuję że wprowadzane są waitstate-y podczas dostępu
do pamięci flash. Jako że twój procek taktowany jest 48MHz, to przy
założeniu że dostęp do flash'a trwa dwa cykle, twój program wykonuje
się tak samo szybko jak gdybyś taktował procesor zegarem 24MHz.

widzę trzy rozwiązania:
1. To które zaproponowałeś, tj. załadowanie kodu do ramu i uruchamiane
go z tamtąd.
2. Uruchomić kod w trybie Thumb (patrz ,,Prefetch Buffer Optimizing
Thumb....'')
3. Zmień procesor na LPC2xxx Philipsa - tam program może pracować
z flasha bez waitstate-ów do 55MHz.

Temat: Deklarowanie wlasnych zmiennych

| Skompilowany kod modułu bas ze względu na brak grafiki
| (kontrolek) zabiera bardzo mało miejsca w pamieci RAM, a procedury w nim
| umieszczone wykonują się najszybciej.

Tu mnie zaskoczyłeś. Dlaczego najszybciej?

Dlaczego? Ponieważ dla modułu bas kompilator tworzy kod najbardziej zbliżony
do assemblera i DOS.

Najprosciej to sprawdzić:
Public Sub KontrolaSzybkości()
Dim Czas As Single
Dim i As Integer, j As Integer
Dim a As Integer

Czas=Timer
For i=1 To 10000
For j=1 To 10000
a=a
Next j
Next i
Debug.Print Timer-Czas
End Sub

Uruchom z modułu bas, formy, klasy.
Aby wynik był jednoznaczny musi byc powtarzalny, czyli czas wykonania
procedury zależny od i,j musi byc dłuższy od 30 sek - czyli max i,j w pentli
można zmieniać w zależności od szybkości PC.

Wiesiek

Temat: Ładne kwiatki :)
Witam!
Czy ktoś mi może wytłumaczyć dlaczego poniższy kod nie działa (w VB5
SP3) - sypie się z błędem OVERFLOW (Bez Csng() też się sypie...):

Dim EUser as Long 'Liczba stacji roboczych
Dim Ram() as Single 'Tablica przechowując ilość wymaganego RAMu dla
serwera - niezaokrąglona w kB
ReDim Ram(7) 'mamy 7 składników
[...]
Select Case EUser
Case Is 0 And EUser < 100
Ram(6) = Csng(EUser * 400)
Case Is 100 Or EUser = 100 And EUser < 250
Ram(6) = Csng(40000 + ((EUser - 100) * 200))
Case Is 250 Or EUser = 250 And EUser < 500
Ram(6) = Csng(70000 + ((EUser - 250) * 100))
Case Is = 500 And EUser <= 1000
Ram(6) = Csng(95000 + ((EUser - 500) * 50))
Case Else
Err.Description = "Podano zbyt dużą lub zbyt małą liczbę stacji
roboczych !!"
Err.Raise 1003
End Select
[...]

działa natomiast takie coś (co wygląda tragicznie i równie szybko
działa):

Dim EUser as Long
Dim Ram() as Single
ReDim Ram(7)
[...]
If EUser 0 And EUser < 100 Then Ram(6) = EUser * 400
If EUser = 100 And EUser < 250 Then Ram(6) = 40000 + ((EUser - 100) *
200)
If EUser = 250 And EUser < 500 Then Ram(6) = 70000 + ((EUser - 250) *
100)
If EUser = 500 And EUser <= 1000 Then Ram(6) = 95000 + ((EUser - 500)
* 50)
If EUser < 0 Or EUser 1000 Then
Err.Description = "Podano zbyt dużą lub zbyt małą liczbę stacji
roboczych !!"
Err.Raise 1003
End If
[...]

Dzięki z góry za wyjaśnienie tego kwiatka.

Temat: znaki specjalne
potrzebuje kod znaku specjalnego " ' " tzn ten znak co jest na
klawiaturze narysowany na tym samym przycisku co "

ale nie chodzi mi o

‘ ‘ Left single quotation mark

’ ’ Right single quotation mark '

pomocy proszę
pozdrawiam Robert

Temat: znaki specjalne

potrzebuje kod znaku specjalnego " ' " tzn ten znak co jest na
klawiaturze narysowany na tym samym przycisku co "

ale nie chodzi mi o

‘ ‘ Left single quotation mark

’ ’ Right single quotation mark '

http://www.www-mag.com.pl/kurs/znaki/znaki.htm

Temat: Hooki windowsowe - o co chodzi?

Hooki strikes back ;/

dokladnie :)

Zdaje sie ze miales zrobic czysty projekcik z samym hookiem, wiec teraz
chyba nie problem z dostepnoscia zrodel... pokaz/podeslij to sie zobaczy

nowy projekcik dziala bez zarzutu... ale jest to aplikacja single-threaded
wiec jej struktura jest bardzo prosta, a w mojej apce robie wiele innych
rzeczy, tworze wiele watkow, laduje full dll'ek, itd). Dlatego pytam czy
musze tworzyc dla hooka osobny watek (i ew. wywolywac jakas funkcje
czekajaca, np WaitFor*Object()), czy tez moge zainstalowac hooka, a pozniej
robic inne rzeczy np. uzywac funkcji synchronicznych dzialajacych na
socketach. Pytam o szczegoly zwiazane z hookami, bo skoro moj projekt nie
dziala jak powinien (a nowy projekt z *identycznym* kodem instalujacym
hooka dziala), to szukam mozliwej tego przyczyny.

PS. Co to znaczy osobny watek dla hooka? HookProc wykonuje sie w
kontekscie procesu&watku ktory wywolal GetMessage albo podobna

Hmm... i to jest dziwne bo taki kod:

SetWindowsHookEx(...);
Sleep(10000);

bedzie dzialal nawet bez GetMessage podczas 10-sekundowego spania... w takim
wypadku ja juz naprawde nie mam pojecia w jakim kontekscie jest wywolywana
funkcja hooka...

Pozdrawiam

Temat: Zamiana real na binary

[...]

type
TCast = record
case boolean of
true: (ASingle : single);
false: (ACardinal : cardinal);
end;

var
c: TCast;
begin
c.ASingle:=123456.789;
// na przyklad :
Caption:=IntToHex(c.ACardinal and $0000ffff or $80000000, 8);
end;

Witam!

Ja osobiście ćwiczyłem klauzule absolute do dostawania do tego samego
obszaru pamięci przez różne typy:

Przykład:

function MjRoundCurrency(AValue: Currency; ADigits: Integer): Currency;
const
CurrPrecision = 4; // CurrScale = 10000
var
I: Integer;
E: Int64;
ResInt: Int64 absolute Result;
begin
E := 1;
for I := 1 to CurrPrecision - ADigits do
E := E * 10;
Result := AValue;
ResInt := ((ResInt + Sign(AValue) * (E div 2)) div E) * E;
end;

Ciekawe jak to będzie w .NET/Javie. Tam wirtualne maszyny pilnują takie
sprawy, a oznaczać kod jako niebezpieczny trochę łyso.

Temat: zaokraglanie
Hej,

Zreszta wyniki pomiarow nie moga byc dokladniejsze od urzadzenia
pomiarowego.

No wlasnie, a zapis mowi z jaka dokladnoscia liczysz.

Upieram sie jednak przy
swoim: wartosc dla kompa jest ta sama!

Dobra, ale w przedstawionej procedurze tak byc nie moglo, bo wynik byl
w realu, a jak wiesz komputer nie liczy dziesietnie wiec wlasciwie
wszystkie "ludzkie" sa przeksztalcane do potworkow.

Facet zaokraglil np. 12.3678 (single) do dwoch miejsc i
myslal, ze zobaczy 12.37 a tu np. 12.3699998885.

No i podalem wlasciwe dwie linijki kodu. "/" zawsze Ci wyprodukuje
tyyyyle miejsc.

Tak czy inaczej watek nudzi juz pewnie wszystkich.

Mozliwe, ale lubie byc scisly ;-)

milego dnia zycze
hej

Temat: Klopoty z instrukcja FOR.
Witam,

Zamiast pisac :

Tak wiec zapis:
Dim i%,j&,k!,m# oznacza
Dim i As Integer, j As Long, k As Single, m As Double
to poprostu oszczędza palce programisty.

Yuck! Skutecznie utrudnia to tez czytanie kodu =(. To tak jakby
powiedziec, ze wystarczy nazwac zmienna jako "x" albo "z" - po co
narazac programiste na pisanie dlugich nazw w rodzaju "strBuffer",
"lngReturnedSize" czy "bPurchaseOrderOverdue".

Pozdrawiam,

obwPawel_TuWstawInicjalSrodkowegoImienia_Zabza

Temat: Niech mi to ktos wyjasni

Najpierw mnożysz przez 100, co daje 100,02345...
potem zaokrąglasz (masz 100), a potem dzielisz przez 100, co daje 1
Ważna jest kolejno ć wykonywania działań - tzw priorytet operatorów
| Mam nastepujaca linie kodu:
| Value := Round(Value *100)/100; gdzie Value : Single
| Niech Value ma 1,00023456. W watchu po wykonaniu tej lini widze co
| nastepuje:
| Value : 1,00023456
| Round(Value *100)/100 : 1,00
| Czemu to tak dziala ?
| --
| Paweł Kołoszko
| ZETO Olsztyn

--
Jacek Wołczuk
\_/
|ACooL
__,,..~'""'~..,,..__

Temat: co to za blad ?
A ja bym obstawial, ze masz w obsludze Query_Unload cosik co celowo
powoduje wlasnie taki efekt.

| Dlaczego "znacznik" do zamykania formy (krzyzyk na pasku)
| jej nie zamyka - program dalej jest dalej widoczny wsrod
| uruchomionych procesow ?
| A skąd mamy wiedzieć bez kodu?
Chyba dosc nie precyzyjnie opisalam zagadnienie.
Otoz forma ma BorderStyle = Fixed Single.
Wowczas pojawia sie standardowy pasek, a w prawy gornym
rogu "krzyzyk" taki jak w kazdej aplikacji, sluzacy do zamykania jej.
I wlasnie chodzi mi o to, ze nacisniecie go skutkuje ukryciem formy,
a w task manager widnieje ona dalej jako uruchomiony proces.
I to wlasnie jest problem, bo uruchomienie w tym momencie mojego
programu skutkuje "sklonowaniem" procesu - task manager pokazuje
juz dwa uruchomione procesy.
Jak sie z tym uporac ? Mozna oczywiscie dodac na formie przycisk
"Koniec" i podpiac pod niego form1.unload, ale zwykle uzytkownik
bedzie i tak klikal w pasek, bo tak robi we wszystkich aplikacjach.

Pzdr
Anet

Temat: numerowanie stron raportu

Declaration

property Data : TQRSysDataType

Purpose

The data property is used to select what system data item the TQRSysData
component will print.

Value
qrsColumnNo - Current column number (always 1 for a single column report)
qrsDate - Current date
qrsDateTime - Current date and time
qrsDetailCount - Total number of records in your dataset. If you have
several tables in your report this is the record count for the master table.
This data is not always available when you are using a SQL server
qrsDetailNo - The current record number in your dataset. If you have several
tables in your report this is the record number for the master table
qrsPageNumber - Current page number
qrsPageCount - Displays the total number of pages in the report. Note that
this requires that the report is prepared as a two pass report
(TQuickRep.Options.TwoPass). This might take significantly longer time.
qrsReportTitle - The report title (TQuickRep.ReportTitle)
qrsTime - Current time

Mam u Ciebie pifko.

chcialbys (ja tez). mam <PRZYZNANIE TYPE="DO WINY"pirata</PRZYZNANIE
delphi 3.0 pro. u mnie qrspagecount nie dziala ! tzn. nie umozliwia
wpisania tekiej danej. albo nie potrafie. czy ktos ma moze kawalek kody
do tego? tak samo albo nie moga albo nie wiem jak wpisac tego twopassa do
options. chwilowo rozwiazalem problem liczac rekordy, ale to jest brutal
force (choc szybkie).

DePeSz

Temat: liczba nieskonczenie duza

A wywala sie? Dzielenie przez 0 jest jaknajbardziej dozwolone i prowadzi
do nieskonczonosci (mowie o jednostce zmiennoprzecinkowej - tej ktora
operuje na single i double)

Cells(1, a) = 5 / 0

MsgBox (5 / 0)

(dim as double)
m = 5 / 0

Każde z tych trzech poleceń powoduje:
"Run-time error'11': Division by zero."

Czy cos robię nie tak?

W turbo pascalu, "writeln(5/0)" wywoluje "invalid floating point
operation". Zdaje mi sie, ze da sie to dzielenie przez zero tak umiescic w
kodzie (pośrednio), ze sie wogole komputer zawiesi, zdaje mi sie ze w cos
takiego w c++ sie na cwiczeniach bawilismy... albo to w pascalu bylo.
Pierwszy raz sie spotykam ze stwierdzeniem, ze mozna cos przez zero
dzielic, ale ja te jezyki ktore liznelam, liznelam bardzo powierzchownie i
byc moze cos zle rozumiem.

[dodam, że gdy w tych przykładach wpiszę (5/1), błędy nie występują]

LMB

Z tym że jest to kiepski sposób, bo wstrzymuje nie tylko program ale
wszystko. Jeżeli chcesz zatrzymac tylko program, ale tak aby zdarzenia które
w tym czasie powstają, były obsługiwane, a ekran odświerzany to nalezy
zastosować kod:
Wstrzymanie na 250 ms:
Dim Czas As Single
Czas=Timer + 0.25 '[sekundy]
Do
DoEvents
Loop Until Timer Czas
gdzie Timer to nie kontrolka tylko instrukcja VB.

Pozdrawiam
Wiesiek

Temat: jdbc, optymalne połączenie
Dnia 20 May 2006 09:32:47 GMT, Brzezi wystukał(a):

| W przypadku servletów można to zrobic w funkcji:
| public void init(ServletConfig config) ?

a dlaczego mialoby sie nie dac? tylko pamietaj w takim przypadku o
oznaczneniu servleta jakos single thread

jakie to niesie skutki?

| jest ona wywolywana w momencie uruchomenia servleta. jak to się ma do
| wykonywania innych servletów przechodząc np. z <form action= ...

he?

mialem na myśli cos takiego:
mam glowny servlet [quiz.java] (pytania quizowe), w ktorym tworze obiekt
nawiazujacy polaczenie. gdy uzytkowik kliknie na przycisk przechodzi do
strony JSP, ktorej zadaniem jest sprawdzenie poprawnosci odpowiedzi z tej
samej bazy. Czy mozna wykorzystac polaczenie uzyte w servlecie quiz.java?
jesli tak to jak? (nie chodzi mi o kod polaczenia)
Wydaje sie, ze kazdorazowe laczenie z baza w aplikacji zbudowanej z kilku
servletow czy jsp nie bedzie optymalne. jak to wyglada w przypadku
wiekszych aplikacji?

| Czy
| połączenie będzie trzymane, czy trzeba się łączyć ponownie?

a to zalezy od ciebie...

tzn? cos wiecej moze...

Temat: jak to przerobić na stringbuffer...

czyli tu nic nie przyspieszę..

Pamietaj, ze lepsze jest wrogiem dobrego - optymalizuj jedynie wtedy
kiedy z profilera wynika, ze trzeba to cos przyspieszyc.

| Pisze się wtedy przyjemnie:

| public String GetNapis()
| {
| StringBuffer strBuf = new StringBuffer("Ala");
| strBuf.append(" ma").append(" kota");
| return strBuf.append(" i psa").ToString();
| }

hmmm.. jeszcze się przyjrzę...

Musisz sie tylko przestawic - zamiast + pisac ).Append( i wystarczy

Powodzenia :-)

Reik.

PS. A tak gwoli scislosci - najwazniejsze, zebys pisal prosty kod, a nie
szybki - stosujac tzw. dyrektywe KISS - "Keep It Single Stiupid" (po
polsku BUZI, ale zapomnialem jak sie rozija ten skrót) - najprostsze
klasy jak tylko potrafisz i bez zadnych udziwnien.

Temat: jdbc, optymalne połączenie

| a dlaczego mialoby sie nie dac? tylko pamietaj w takim przypadku o
| oznaczneniu servleta jakos single thread
jakie to niesie skutki?

takie, ze servlet bedzie wykorzystywany tylko przez jeden watek, wiecej
szczegolow w ksiazkach o servletach w odpowiednim rozdziale, np. w mojej
ksiazce "Java Servlet i Java Server Pages" odpowiednie inf znajduja sie w
rozdziale o cyklu istnienia servletu

| jest ona wywolywana w momencie uruchomenia servleta. jak to się ma do
| wykonywania innych servletów przechodząc np. z <form action= ...
| he?
mialem na myśli cos takiego:
mam glowny servlet [quiz.java] (pytania quizowe), w ktorym tworze obiekt
nawiazujacy polaczenie. gdy uzytkowik kliknie na przycisk przechodzi do
strony JSP, ktorej zadaniem jest sprawdzenie poprawnosci odpowiedzi z tej
samej bazy. Czy mozna wykorzystac polaczenie uzyte w servlecie quiz.java?
jesli tak to jak? (nie chodzi mi o kod polaczenia)

zmienne statyczne/singleton

Wydaje sie, ze kazdorazowe laczenie z baza w aplikacji zbudowanej z kilku
servletow czy jsp nie bedzie optymalne. jak to wyglada w przypadku
wiekszych aplikacji?

wlasnie wydales sie, ze nie skorzystales z moich rad i nie poszukales nic o
pulach polaczen

| Czy
| połączenie będzie trzymane, czy trzeba się łączyć ponownie?
| a to zalezy od ciebie...
tzn? cos wiecej moze...

jezeli je zamkniesz to bedzie zamkniete, jezeli pozostawisz otwarte, to tak
tez zostanie...

Pozdrawiam
Brzezi

Temat: kilka pytan o jace

no fajny komponet ( classa ) -- tylko ze nie ma np takeigo czegos jak
powiekszania wykresu !!! -- a podejrzewam ze ja nie podolam w modyfikacji
tak
zeby byl taki bajer .

Mozna powiekszac wykres.
Patrz na wykresy na:
http://bossa.pl
Oni tam udostepniaja ISPAG chyba w wersji profesjonalnej.
Mozesz dac wykres na cala strone, ze wskaznikami (maks. 2)
lub bez, z obrotami lub bez.
Mankamenty jakie widze:
- brak mozliwosci druku
- brak przesywania srednich (chcialbym srednia cofnac o n-dni)

a jeszcz 2 pytania

1. czy da sie w javie ukryc kod zrodlowy apletu ?? bo przeciez aplet to
skopresowane zrodlo !!.???

Aplet to skompilowana Java.
Natomiast nawet skompilowana Jave mozna "deasemblowac".
Ale i na to sa sztuczki, by to utrudnic.

2. w jakim formacie sa zapisywane/odczytywane np na dysku liczby typu
float (
zmienno przecinkowe jak w dellphi single, double ) ?????

To zalezy od aplikacji.
Ale szczegolow odnosnie typow prostych nie znam.
Nie wiem czy zapisywane sa typy maszynowe czy jakos inaczej.
Aby zapewnic kompatybilnosc w takich sytucjach korzysta
sie z mechanizmu serializacji obiektu.

Temat: Jak zderzac kulki :-) ?
Czesc

w fizyce, np przy kodowaniu odbijania sie kul. Po rozrysowaniu wszystkiego
na kartce doszedlem do wniosku, ze zderzenie bil polega na rozlozeniu
wektora ich predkosci na dwie skladowe, jedna dzialajaca wzdluz linii
laczacej srodki obu bil i druga dzialaja prostopadle do niej. Pierwsze
skladowe obu bil 'poprostu' trzeba wymienic i zlozyc wszystko w calosc.
Czy ktos wie jak to zrobic, nie chodzi mi o podeslanie gotowego kodu,
ale o jako taka pomoc (np. wzorki :-). Niebawem bile beda sie odbijac,
ale moze sie okazac, ze moja teoria nie byla sluszna i wszystko pojdzie
do kasacji.

Dane o bili to: x, y, kat i predkosc : Single . Masy sa jednakowe.

Pozdrawiam
Piotr Szymura

Mam nastepujaca linie kodu:
Value := Round(Value *100)/100; gdzie Value : Single

Niech Value ma 1,00023456. W watchu po wykonaniu tej lini widze co
nastepuje:
Value : 1,00023456
Round(Value *100)/100 : 1,00
Czemu to tak dziala ?

Temat: Problem z DLLem
1. Jako atrybut DLL'ki może być tylko typ prosty (integer, byte, single,
double etc.), prosty wskaźnikowy (PChar, wskaźnik na tablicę, wskaźnik na
strukturę), wariantowy (OleVariant) lub interfejsowy (wskaźnik na interfejs
obiektu). Stąd płynie wniosek, że nie można przekazać jako argumentu żadnego
obiektu (w tym również TMemo)
2. Niektórzy twierdzą, że wystarczy dodać sharemem jako pierwszy unit
projektu i wszystko będzie banglać. ja uważam na tomiast, że to zły pomysł z
dwóch powodów: a) redundancja kodu; b) konieczność kompilowania wszystkiego
w jednej wersji kompilatora co imho czyni bezsensownym tworzenie dll'ek
(natywne biblioteki)

.. a więc radzę zrobić coś takiego

IMemo = interface
['xxx-xxx-xxx-xxx']
procedure setText(Value: WideString); safecall;
function getText: WideString; safecall;
property Text: WideString read getText write setText;
end;

TMemoWrapper = (TMemo, IMemo)
procedure setText(Value: WideString); safecall;
function getText: WideString; safecall;
end;

... a póżniej przekazać do biblioteki interfejs:

procedure(sciezka:WideString; obszar: IMemo); safecall;
// string zamieniamy na WideString
// TMemo zamieniamy na IMemo
// stdcall zamieniamy na safecall

pozdrawiam...
Andrzej Wąsik

Temat: varArray - zapis do pliku
"Marcin Tusiewicz":

| BlockWrite(F, Wynik, SizeOf(Wynik));
sizeof powinno raczej zwrocic rozmiar zmiennej wskaznikowej
sprobuj z length(tablica)

kompilator wprawdzie puszcza "Length(varArray)", ale soft sypie
się przy wywołaniu... chyba nie tu jest problem, BlockWrite nie jest
w stanie zapisać varArray, jako że taki typ nie zajmuje jednego
kawałka pamięci...

można nieco oszukać Delphi,
zadeklarować statyczną tablicę o długości max. jakiej potrzebujemy,
zaś przy zapisie obcinać niewykorzystaną cześć parametrem Count,
tak by uzyskać mały plik wynikowy....

wówczas musimy przechowywać parametr Count na początku rekordu
(inaczej po obcięciu tablicy, nie odczytamy już Count z końca rekordu ;)

type
Rekord = record
Count: Integer;
Dane: array[1..N] of Single
end;
var
Wynik: Rekord;
f: File;
Count: Integer;

BlockWrite(f, Wynik, Count);

Może jakieś inne pomysły ?
W/w kod działa, jest max. prosty, ale średnio elegancki.... ;)))

Temat: kilka pytan o jace

| 2. czy do javy suna jest cos takiego jak IDE znane z delphi ????

Poszukaj w googlach tematy:
netbeans
eclipse

oki zerkne i sie znowu odezwe .

| 3. czy jest Â klasa robiaca wykres ( najlepiej wykrs gieldowy ) Â --
wersjia
| free ????

Poszukaj:
JFreeChart (lub JFreeCharts)

Poza tym jesli idzie o gielde+Java, to moze Cie zainteresuje strona:
http://www.wdsoftware.com/index.php

no fajny komponet ( classa ) -- tylko ze nie ma np takeigo czegos jak
powiekszania wykresu !!! -- a podejrzewam ze ja nie podolam w modyfikacji tak
zeby byl taki bajer .

a jeszcz 2 pytania

1. czy da sie w javie ukryc kod zrodlowy apletu ?? bo przeciez aplet to
skopresowane zrodlo !!.???

2. w jakim formacie sa zapisywane/odczytywane np na dysku liczby typu float (
zmienno przecinkowe jak w dellphi single, double ) ?????

Temat: Poszukiwany edytor...

Uzywalem przez jakis czas WinEdit, ale przeszedlem na EditPlus, miedzy
innymi dlatego ze:
- WinEdit'owi kaszani sie niekiedy undo/redo
- po wklejeniu tekstu kursor przenoszony jest na poczatek wklejonego
tekstu.
- Przycisk home przenosi cie zawsze na poczatek linii a nie na poczatek
tekstu w danej linii (nie jest to wygodne gdy mam sformatowany kod)
Bugow i niedogodnosci jest jeszcze sporo ale juz wszystkich nie pamietam. W
kazdym razie przeszkadza to w pracy.
A w Script Worx mozna pracowac tylko w trybie SDI (Single Document
Interface) czyli nie mozna otworzyc wielu dokumentow w jednym otwartym
programie. Nie da sie chyba tez dodawac nowych typow plikow do modulu
podswietlania skladni.

Polecam Edit Plus

Temat: " "

Czytalem gdzies ze wszedzie powinno sie
stosowac cudzyslowy jesli podajemy jakis
parametr czy cos.
np. <img src="nazwa.gif"

"By default, SGML requires that all attribute values be delimited
using either double quotation marks (ASCII decimal 34) or single
quotation marks (ASCII decimal 39). [...]

In certain cases, authors may specify the value of an attribute
without any quotation marks. The attribute value may only contain
letters (a-z and A-Z), digits (0-9), hyphens (ASCII decimal 45),
periods (ASCII decimal 46), underscores (ASCII decimal 95), and colons
(ASCII decimal 58). We recommend using quotation marks even when it is
possible to eliminate them."

Oczywiscie to tylko rekomendacja, wiec zrobisz jak chcesz. Ja ""
uzywam zawsze, za to staram sie innymi metodami "wyszczuplac" kod (np.
pozbywajac sie i ).

Temat: Zamiana elementów miejscami w pionie

I teraz to właściwe:
znacie jakiś sposób (CSS oczywiście), aby dwa elementy, znajdujące się w
kodzie w kolejności <element1 /<element2 /wyświetlić na stronie tak:
<element2 /
<element1 /
?

Znamy, ale jest brzydki jak pyta nietoperza.

Wysokość <element2 /jest różna (tam są wpisy do księgi). <element1 /
możemy uznać, że ma height:1.2em;

http://free.of.pl/m/mrru/single-float.html

HARY

Znamy, ale jest brzydki jak pyta nietoperza.

A pokażcie (sposób, nie pyte) ;P

| Wysokość <element2 /jest różna (tam są wpisy do księgi). <element1 /
| możemy uznać, że ma height:1.2em;

http://free.of.pl/m/mrru/single-float.html

Dzięki, masz może pomysł jak to zrobić bez żadnych dodatkowych
elementów: dla <element1 /= <dt /i <element2 /= <dd /, oczywiście
pomysł z pakowaniem wszystkiego w nowe <dl /odpada, chociaż...

Temat: nowa strona randkowa

Heh, ciesze sie ze pierwsza opinia nie powalila mnie ostra krytyka. Z tymi
inputami masz racje i juz to zmienilem :)
Jest jeszcze kilka rzeczy do poprawki no i przede wszystkim sukces stronki
zalezy od uzytkownikow i ich ilosci..

Szkoda ze tak malo osob sie wypowiedzialo, ale moze jeszcze ktos cos
napisze kreatywnego ;)

Dzieki i pozdrawiam...

Bardzo pozytywnie odbieram. Profesjonalizm. Szkoda ?e kod na tabelkach.
Grafika bardzo ?adna.

Jedyne do czego bym si? przyczepi? to ustawienie kursora w polach
input...
Ma?o u?ytecznie jest dawa? go do prawej - u mnie wywo?a?o pocz?tkowo
niepokój czy pole dzia?a, gdy? przyzwyczajony jestem do standardowych
ustawie? pól formularzy. Gdy klikam i nic z lewej si? nie pojawia
(sympatyczna kreseczka zwana kursorem), mam mieszane odczucia.

To samo gdzie kursor ustawiany jest na ?rodku (pola wieku) - efekt jest
nie
wielki a szkoda zaprz?ta? tym g?owe u?ytkownika.

Pozdro,
Greg

Flirtcaffe.com - Single Dating Service
http://www.flirtcaffe.com
flirtcaffe(at)flirtcaffe(dot)com

Temat: Szesciobitowy zapis liczb (?!)

BYTE (1bit)
INTEGER (2 bity)
SINGLE (4 bity)
LONG (8 bitow)

i inne, ale wsrod nich nie ma 6 bitowych. Przypuszczam, ze jakis inny
jezyk
programowania stosuje zapis 6 bitowy. Moze ktos zna strukture tego innego
zapisu, albo wie, jak zrobic konwersje?

chlopie! Zacznijmy od tego - Ty to wogole wiesz czym sie rozni bit od bajtu
?

pomysl:
bit moze przyjmowac 2 wartosci : 1 albo 2.. A bajt ma 256 roznych mozliwych
wartosci - od 0 do 255..

6 bajtowy (nie bitowy) to jest na przyklad zapis realow w pascalu..
W C++ float'y maja po 4 bajty.. Na koprocesorze (x87) masz mozliwe
(4,8,10)-cio
bajtowe floaty..

A tak pozatym - do wlasnego wykorzystania, jesli zalezy Ci na kodzie to
najlepiej nie uzywac zapisu zmiennoprzecinkowego, bo to dla procesora
bardzo
czasochlonne.. Fixed point to podstawa.. Jak kogos to interesuje to moge mu
to wytlumaczyc. To jednak odpada przy bardziej dokladnych obliczeniach.

Temat: Kiedy nie mozna wywolywac dialogu?
cze,

Również, gdy masz w kodzie

takie sytuacje, że np. w DLL przydzielasz pamięć, a w EXE zwalniasz
lub vice versa (to może być niejawnie - np. przekazujesz std::string
jako parametr lub wynik) - wtedy Multithreaded DLL (zarówno w EXE
jak i w DLL).

O ile pamietam w powyzszym przypadku nie jest istostne czy jest to multi czy
single biblioteka, wazne by byla SHARED, czyli wspolna dla dll i aplikacji
glownej.
Czyli o ile pamietam to musi byc "MFC Shared":). Czyli Twoj dll musi
sie przeprosic z MFC:( .
Ale nie wiem czy ma to cos wspolnego z Twoim problemem z dialogiem.

MHCMega
/MGC

Temat: Niech mi to ktos wyjasni
To chyba jakiś żart, ale możliwe że jesteś zmęczony zbyt długą pracą, więc
wyjaśnię w kilku krokach:
Po pierwsze: 1,00023456 * 100 = 100,023456
Po drugie: round(100,023456) = 100
Wreszcie: 100/100 = 1

Grzegorz Skoczylas

Mam nastepujaca linie kodu:
Value := Round(Value *100)/100; gdzie Value : Single

Niech Value ma 1,00023456. W watchu po wykonaniu tej lini widze co
nastepuje:
Value : 1,00023456
Round(Value *100)/100 : 1,00
Czemu to tak dziala ?

Temat: Diablo2 Exp!

Niema do D2 !.09 pliki postaci są szyforwane 32bitowym kodem (prawie nie
do
przebicia).

Marek.com

A czy ShadowMaster jest do tej wersji??? A jeśli nie to czy istnieje jakiś
sposób by odaktywnić wykonane misje??? Bo bez tego to gra w single po
przejściu piekła stenie się trochę nudna :-((( a ja już takie fajne
przedmioty znalazłem :-)
Pozdrawiam DimmuR

Temat: cd-key Wolfenstein

Czy ktos mógłby mi podac cd-key'a?

--
Pozdrawiam -- Tomek (Crazy John)
GG: 1862788
http://www.cjs.prv.pl

o to kilka kodow do wolfa dzialaja tylo na single.

JCPT-HJLG-CTTA-LLWL-A2

PACP-DWTH-HHHJ-RHRG-F3

RRWG-GCJH-AWGJ-PCPH-64

LCSH-TSDC-RPTH-WDHJ-72

Pozdrawiam
Marek

Temat: ...::: Programiści gier :::...
Brytyjska firma Micazook wiodący twórca i wydawca wysokiej jakości gier
single oraz multiplayer 3D, partner firm takich jak Sony-Ericsson,
NVIDIA, Disney, w związku z dynamicznym rozwojem poszukuje osób do pracy
w oddziale w Polsce:

Programista gier na urządzenia mobilne

Miejsce pracy:

* Wrocław

Wymagania:

* Znajomość języka: Java (J2ME) lub C++
* Orientacja w optymalizacji kodu
* Znajomość zagadnień z zakresu tworzenia gier 2D oraz 3D
* Mile widziana umiejętność tworzenia modeli fizycznych
* Pasja do gier i ich tworzenia

Oferujemy:

* Stałą pracę w międzynarodowej firmie
* Atrakcyjne wynagrodzenie w zależności od umiejętności programisty
* Nowoczesne narzędzia programistyczne oraz możliwość rozwijania
kwalifikacji
* Pracę w młodym, pełnym inwencji zespole

Kontakt:

Wojciech Charysz

tel. +48-692131110
http://www.micazook.com

Temat: wewnętrzna reprezentacja liczb, różne działania

Czy to (single) jest szybsze czy wolniejsze od Extended (rozumiem, że
wewnętrznie mnoży i tak liczby 10 bitowe), ale chyba (nie wiem) jest jedno
wrzucanie na stos mniej?

Marek

Z tego co się orientuje to jest to wszystko jedno, generealnie i tak
procesor musi czekac na wynik operacji koprocesora, poniewaz mnozenie
zajmuje u niego zwykle(jak nie zawsze)ponizej jednego taktu procesora!
Jak spojzysz sobie w kod zrodlowy twojego programu, to sie okaze, ze po
kazdej operacji wykonanej na koprocesorze, wykonywane jest polecenie wait.
Przynajmniej tak powinno byc.

Temat: arkusz zalezny od podanej liczby
witam,

mam taki maly problem

dotyczace powiedzmy sprzedazy dla roznej ilosci firm

czyli bedzie to wygladalo tak:

klikamy na button start i pojawia sie pytanie dla ilu firm mamy to
liczyc (to juz zrobilem)

no i teraz w zaleznosci od tej liczby musimy zbudowac arkusz, w ktory
bedzie mozna wpisac dane
(to tez juz mam)

dla 2 firm wyglada to tak:
jan feb mar ...
firma 1
firma 2
dla trzech oczywiscie p prostu dodajemy nowy wiersz

no i teraz trudny fragment: w kolejnym wierszu chce miec sume dla
kazdego miesiaca - jak to zrobic?

problem sprowadza sie do tego ze vb nie potrafi przerobic takiego kodu:

ActiveCell.FormulaR1C1 = "=SUM(r[-x]c,r[-1]c)"
gdzie x to liczba firm zadeklarowana na poczatku

problem ma zapewne z r[-x] ale nie wiem jaki i dlaczego, bo x jest
zdefiniowany jako single i tak chyba powinno byc

Mam tez pytanie jak zaznaczyc obszar w zaleznosci od x - np zaczynajacy
sie w a1 a konczacy w kolumnie m i o x w dol

probowalem range("a1: "m" & x") ale to jest zle moze jakos przez cells?
tylko ze nie wiem jak :(

na sam koniec chce wiedziec jak okreslic liczbe serii w wykresie w
zaleznosci od zmiennej x - no bo chce wyniki przedstawiac na wykresach
i beda sie zmienialy w zaleznosci od podanej na poczatku wartosci

z gory dziekuje za pomoc :))

el_horse

Temat: switch quantity not an integer

| switch przyjmuje za argumet int lub char ale wtedy jest rzutowany do
| int, mozna dac char jako znak ale jest on odczytywany jako liczb z
| tablicy kodow ASCII.

Zdaje się że działa dla czegokolwiek co się da niejawnie przekonwertować
na inta (w tym enum, przy czym w C++ nie da się niejawnie przekonwertować
enum na inta ;) ). Przy okazji... Czy switch powinien działać dla typów
które mają przeciążony operator int() ?

Standard mowi, ze:
"The condition shall be of integral type, enumeration type, or of a class
type for which a single conversion function to integral or enumeration type
exists (12.3). If the condition is of class type, the condition is converted
by calling that conversion function, and the result of the conversion is
used in place of the original condition for the remainder of this section."
wiec odpowiedz brzmi tak :)

Pozdrawiam

Temat: static i multithreading
Witam
Jaka mam gwarancje, ze nastepujacy kod poprawnie wykona sie w wielowatkowym
programie

void g() {
static Xxx xxx;
///

}

tzn. czy rzeczywiscie obiekt xxx zostanie utworzony raz. standard mowi cos w
stylu:
If a local variable is declared static, a single, statically allocated
object will be used to represent that variable in all calls of the function.
It will be initialized only the first time the thread of execution reaches
its definition
Czy to daje mi wg Was gwarancje, ze dwa watki nie zrobia tego jednoczesnie??

Temat: Unix vs Linux

Czy komercyjne Uniksy nadal pod jakimikolwiek względami są lepsze od
Linuksa, czy może jest wręcz przeciwnie - obecnie Linux wygrywa i to
producenci systemów komercyjnych uprawnieni przez The Open Group do
nazywania ich Uniksami czerpią z niego wzorce? Czy Linux Standard Base
staje się specyfikacją, do której wszyscy dążą, a Single UNIX
Specification
powoli traci na znaczeniu? Czy to Uniksy obecnie ewoluują w stronę, którą
wyznacza Linux, a nie odwrotnie? Co o tym sądzicie?

Linux niemalże jako całość jest zbitkiem kodu powstałego w inspiracji
systemami komercyjnymi (czego nikt się wcale nie wypiera). A ponieważ
czerpano i _porównywano_ z różnych systemów, Linux jest systemem łączącym
(co najmniej w teorii) najlepsze cechy tych systemów.

A czy systemy komercyjne mimo wszystko są lepsze? Porównaj sobie Solarisa z
Linuxem na Sparcu...

Temat: static i multithreading

Witam
Jaka mam gwarancje, ze nastepujacy kod poprawnie wykona sie w
wielowatkowym
programie

void g() {
static Xxx xxx;
///
}
tzn. czy rzeczywiscie obiekt xxx zostanie utworzony raz. standard mowi cos
w
stylu:
If a local variable is declared static, a single, statically allocated
object will be used to represent that variable in all calls of the
function.
It will be initialized only the first time the thread of execution reaches
its definition
Czy to daje mi wg Was gwarancje, ze dwa watki nie zrobia tego
jednoczesnie??

Moim zdaniem kazdy watek ma własne zmienne lokalne - takze statyczne.
Więc mogą to zrobić jednoczesnie, ale to nie ma znaczenia bo to są 2 rózne
obiekty dla 2 różnych watków.
Pozdr
jfk

Temat: na p200 400razy wolniej niz na Athlon1400

....... to akurat dzialanie SIMD
/single int. multi data/ - byc moze kompilator uzywa do twojego
programu multimedialnych polecen, ktore na procesorze p200 sa
symulowane i zajmuja wiele wiecej czasu;

o czym ty w ogole mowisz?? nie ma czegos takiego jak emulowanie
instrukcji SIMD na wczesniejszych procesorach. chyba, ze sam to
napiszesz - kompilator tego za ciebie nie zrobi. poza tym praktycznie
zaden kompilator nie generuje kodu SIMD sam z siebie - musi byc
wyrazna wskazowka w zrodle, gdzie i jak tego uzyc (vide Intel
Compiler).

rusty

Temat: IntelliSense w 2008
A sprawdz jeszcze pare rzeczy:

jak wyglada slowo controlne fpu na msvc a jak na gcc
chodzi mi o to czy fpu jest w obydwu wypadkach w tym samym trybie precyzji
(w trybie single precision divy sa szybsze)

w asmie ktory wyzej zapodales nie widze 'na oko' niczego strasznie glupiego.

to ComplexD to jest

class ComplexD
{
double re, im;

};

czy
class ComplexD
{
float re, im;

};

bo tej dosc istotnej informacji nie podales (patrzac na asma stawiam na to
pierwsze)
Jakie opcje kompilacji na msvc ?
w sczegolnosci w tabie code generation czy masz 'float strict' czy 'float
fast'
(czy jakos tak)

jak masz wlaczone /SSE albo SSE2 w visualu
a tryb w ComplexD to float
to na 50% to nie poleci na fpu tylko na sse

jednym slowem wiecej informacji albo kompilujacy sie kod potrzebny aby na
temat tego fenomenu
powiedziec cos wiecej.

Temat: Mnożenie wektorów przez macierz. Assembler?

Potrzebuję przemnożyć dość sporą ilość wektorów o długości 4 przez macierz
o
rozmiarach 4x4. Zastanawiam się czy wśród zbioru rozszeżeń typu MMX, 3D
Now!, SIMD, etc. nie znajdzie się coś odpowiedniego na tę okazję? Tak
więc,
czy istnieje rozkaz (najlepiej MMX lub SIMD) który wykona takie mnożenie?
A
jeśli tak to jaki? Lub gdzie poszukać o tym informacji?

jezeli bedziesz dzialal na liczbach zmiennoprzecinkowych to zwykle MMX
odpada (nie wiem jak 3d now). musialbys siegnac do SSE a najlepiej do SSE2.
obie jednostki moga przeprowadzac dzialania na liczbach rzeczywistych, tylko
ze SSE2 z wieksza dokladnoscia. Proponuje wybrac sie na strony Intela,
znajdziesz tam opis oraz przyklady uzycia (gotowe przyklady na mnozenie
macierzy!).
Instrukcje za ktorymi musialbys
sie rozejrzec w SSE to: addps, addss, mulps, mulss - czyli dodawanie i
mnozenie na spakowanych i skalarnych. Moze ktos rzuci na grupe kawalek
sprawdzonego kodu (ja niestety nie mam SSE :-(). Oczywiscie wykonujac takie
mnozenia maxierz-wektor na SSE zyskasz sporo, a na pewno wiecej niz na
koprocesorze lub jednostce staloprzecinkowej.
przy okazji SIMD to nie jest nazwa rozszerzen, tylko oznacza ogolna
charakterystyke jednostek typu MMX, a oznacza: Single Instruction Multiple
Data.

pozdrawiam

Temat: Dodawanie wielu rekordow z jednego formularza - mozliwosci
Witajcie,

Zastanawiam sie aktualnie nad najlepszym sposobem dodawania kilku rekordow z
jednego formularza.

Projektuje tabele, ktora bedzie przechowywac wyniki serii pomiarow. Kazda
seria moze miec od 1 do 12 wartosci. Serie pomiarow sa (jak na razie) dla
trzech roznych wielkosci fizycznych.

Struktura tabeli tblPomiary jest trywialnie prosta:
ID - Autonumer 'przechowuje numer serii pomiarowej
typ - byte 'przechowuje kod wielkosci (jak na razie 1, 2 lub 3)
pomiar - byte 'numer pomiaru od 1 do 12.
wartosc - single 'wlasciwa wartosc danego poamiaru

Poniewaz liczba pomiarow dla serii moze byc rozna, wiec kombinuje z
formularzem, ktory ma grupe opcji (jak na razie trzy) i 12 (slownie
dwanascie) pol tekstowych dla poszczegolnych pomiarow.

Po wpisaniu pomiarow naciska przycisk cmdSave i zapisuje do tabeli
tblPomiary wyniki - tyle rekordow ile pomiarow.

Jak na razie mam pomysl:

For i=1 to 12
varP = Me("txtP" & i).Value
If Not IsNull(varP) Then
If IsNumeric(varP) Then
DoCmd.OpenQuery "INSERT INTO..."
...
Next i

Macie inne propozycje?

Temat: Czy dyspozycje bankowe przez telefon są bezpieczne?

1) Z artykulu wynika, ze dotyczy to tylko nielicznych klientow TPSA
2) Logujac sie do systemu zazwyczaj podajesz jedynie kilka cyfr z calego
kodu - czyli musialby ktos troche dluzej cie podsluchiwac.

Zwykle. W serwisie kont BPH - całość.
A w tymże banku w biurze maklerskim, gdy chciałem zrealizować pierwsze zlecenie
telefoniczne z powodu padu wielokrotnie nagradzanej, powszechnie lubianej,
charakteryzującej się rewolucyjną technologią "single sign-on" platformy
internetowej, krótki dialog z maklerem:

- poproszę hasło
- mam panu powiedzieć moje hasło do serwisu telefonicznego?
- tak

No to powiedziałem. Miętki jestem. Nie?

Jacek

Temat: różnice dat w formacie np. 2 lata, 245 dni

| Dim Lat As Byte, Dni As Integer

To co ten kazik wielki namieszał ze jest odporny na kod KP.?

Cytujac za pomoca pomocy (w inglisz):

"Byte Variables are stored as single, unsigned, 8-bit (1-byte) numbers
ranging in value from 0-255."

dets ol folks.

Temat: SQLString
Mam nadziejĂŞ, Âże siĂŞ przyda...

QutedStr

Returns the quoted version of a string.

Unit

Sysutils

Category

String handling routines

function QuotedStr(const S: string): string;

Description

Use QuotedStr to convert the string S to a quoted string. A single quote
character (') is inserted at the beginning and end of S, and each single
quote character in the string is repeated.

Note: When working with multi-byte character systems (MBCS), use
AnsiQuotedStr instead.

pzdr

Hal

Witam raz jeszcze.
Pytanie nastepne.
POtrzebuje zadac pytanie
SELECT * FROM TABLICA WHERE NE='ZMIENNA'
niestety nie moge zrobic tak:
SELECT * FROM TABLICA WHERE NE=':parametr'
bo nie widzi parametru
tak tez nie:
SELECT * FROM TABLICA WHERE NE=:parametr
a w kodzie
ParamByName('pesel').AsString:='pesel.text';
kombinacja
s:=' ' ';
s:=s+pesel.text;
s:=s+' ' ';
tez jest do kitu
wiec co zrobic aby w SQLStringu znalazly sie znaki: '
?
Dzieki za pomoc

Temat: Niech mi to ktos wyjasni
Mam nastepujaca linie kodu:
Value := Round(Value *100)/100; gdzie Value : Single

Niech Value ma 1,00023456. W watchu po wykonaniu tej lini widze co
nastepuje:
Value : 1,00023456
Round(Value *100)/100 : 1,00
Czemu to tak dziala ?

Temat: Rozdzielczosc

Czy ktoś może zna sprytny(efektywny) sposob na zmiane wielkosci i
polozenia
kontrolek
przy pracy z roznymi rozdzielczosciami monitora.

Witam
Znam dwa sposoby, troche pracochlonne, ale widocznie tak musi byc.
1.Przez scale np:
form1.Width = Screen.Width
form1.Height = Screen.Height
form1.Scale (0, 0)-(800, 600)
masz wspolrzedne ekranu od 0 do 800 obojetnie w jakiej rozdzielczosci.
Ustawiasz polozenie kontrolek na swojej rozdzielczosci i na innej sie nie
rozjedzie.
2. Podobny, ustawiasz jeden element i w wymiarowaniu nastepnych odwolujesz
sie do niego.
Kawalek kodu, moze cos ci przyblizy. Ustawialem 128 kontrolek, 16 kolumn po
8 kontrolek w 2 rzedach.
Dim margin As Single, szerStrefy As Single, odstStrefy As Single, _
szerLcd As Single, heightStrefy As Single, _
odstPionStrefy As Single
Dim kolumna As Integer, Index As Integer
frmTso.Width = Screen.Width
frmTso.Height = Screen.Height
margin = 0.01 * frmTso.Width
odstStrefy = 0.01 * frmTso.Width
szerStrefy = (frmTso.Width - (frmTso.Width * 0.33)) / 8
odstPionStrefy = 2
heightStrefy = (frmTso.ScaleHeight * 0.9) / 16
szerLcd = frmTso.ScaleWidth * 0.2
With frmTso
.textLCD.Height = frmTso.ScaleHeight * 0.2 'wysokość
.textLCD.Width = szerLcd 'szerokość
'odstęp od prawej krawędzi 10%
.textLCD.Left = frmTso.ScaleWidth - (.textLCD.Width * 1.1)
' odstęp od góry
.textLCD.Top = 5 * margin '.textLCD.Height * 0.05
.cmdKod.Height = .textLCD.Height / 2
.cmdKod.Width = .textLCD.Width
.cmdKod.Left = .textLCD.Left
.cmdKod.Top = 5 * margin + .textLCD.Height + 5 * margin
Nie chcialo mi sie ustawiac dokladnie kontrolek na formie, i sa ustawiane w
kodzie. Nie myslalem wtedy nawet o roznych rozdzielczosciach. Efekt koncowy
mozesz obejrzec na www.aktis.alpha.pl -widoki ekranu.
Pozdrawiam
MarekF

Temat: Pamięć -> Too Many Variables
konkretnie to to wyglada w ten sposob

const liczba=3000;

przy takiej ilosci pokazywalo juz ten komunikat
i nie wiem jak to obejsc bo potrzebuje 3000 czasteczek na ekranie :(

| Zależy pod czym kompilujesz. Pascal niestety ma do wykorzystania tylko
| 64 kb pamieci. Możliwe, że przekroczyłeś ten limit. Jeśli nie
| kompilujesz pod FPC to spróbuj skompilować pod FPC (www.freepascal.org)
| ponieważ ten kompilator pracuje w trybie chronionym (tzn. można
| wykorzystać całą pamięć)

Hmm.. przy 64KB nie wystapiloby raczej "Too many variables", a jakis inny
komunikat (niestety - nie pamietam jaki - dawno temu programowalem w Turbo
Pascalu/FPC).
Poison - przyznaj sie, zastosowales cholernie duzo zmiennych globalnych w
swoim programie, nie? Na pewno da sie to jakos obejsc, gdyz nie wierze w
to,
aby ktorykolwiek program wymagal tak ogromnej ilosci zmiennych, ktorych
nie
przelknalby kompilator. Sprobuj zastosowac tablice i rekordy w kilku
miejscach - oprocz poprawienia czytelnosci kodu zlikwiduje to problem.
A.. i podrzuc prosze na grupe sekcje z zadeklarowanymi zmiennymi na grupe
(lub na priv) - jestem ciekaw jak wyglada :)

Merlin

--
Tomasz 'Merlin' Kolinko
E-mail: tom[at]mensa.org.pl
Zdobywac szczyty. Kazdy po jednym razie.

Temat: Kod EXE

Hi !!!

Wiele slyszalem, ze VB generuje dupny kod, a plik EXE to tylko zbior
odwolan
do DLLi przez co programy pisane w VB sa az takie wolne.

Az takie wolne!?
No nie AŻ tak bardzo...

ale teraz mi wpadla taka mysl : Czy nie mozna jakosc skompilowac projektu
do
OBJa a potem zlinkowac jakims TLINK32.EXE ???? Czy to cos da ???

assemblerowych w kodzie VB.
Jest to sposób skomplikowany (jak ktoś nie zna asma to i tak mu to nic nie
da) - z mojego punktu widzenia.
Myślę, że w ten sam sposób możnaby skompilować "zwykły" projekt. Tylko pada
pytanie PO CO?

Kompilator VB to nic innego jak ten sam kompilator, którego używa VC.
M$ wprowadzili tylko lekkie modyfikacje tak aby obsługiwał on P-Code oraz
specyfikację VB.
(powyższe oparłem o informacje z FAQ'a)

Wiem, ze VB
podczas komilacji tworzy duzo plikow przejsciowych (sprouj skompilowac

plik
[ciach]
Kompiluje wsio do OBJ a potem linkuje...
To chyba nic niezwykłego. VC też tak robi.

Gdzie znalezc dane na temat optymalizacji programow pisanych w VB
(szybkosc)
??? Pisanie wlasnego jezyka programowania nie ma sensu, tym bardziej, ze
mam
juz jeden na koncie ;)

Nie używaj Variantów (lub się ograniczaj)
Zmienne numeryczne stałoprzecinkowe deklaruj jako long bo to jest naturalny
system numeryczny procesora (odpadają konwersje).
Zmiennoprzecinkowe deklaruj jako single chyba, że potrzebujesz większego
zakresu. Unikaj jak ognia typu Currency!
Zeruj stringi i usuwaj obiekty gdy nie są już potrzebne. Stosuj
minimalizację funkcji o ile to możliwe.

Unija deklarowania odrębnych procedur o ile jest to możliwe (wywołanie
zewnętrznej procedury - nawet w tej samej formie - spowalnia program).
Czasami lepiej jest zdublować kod w programie niż stosować jedną procedurę
zewnętrzną. Zwiększa to wprawdzie objętość kodu ale przy wielkrotnym
wywoływaniu - długie pętle - widać korzyści wynikające z tego faktu.

Wszystko powyższe wynika z mojego własnego doświadczenia (3 lata w VB) i
wcale nie musi być prawdą gdyż są to obserwacje jak najbardziej subiektywne.

Temat: Kod EXE

[TK] Albo używaj Variantów przy kompilacji w p-code, tam są szybsze!

Zgadza się.
Jednak większość osób, które dysponują możliwością kompiacji do n-code chce
z tego skorzystać.
Stąd moja porada :))

[TK] No ale i tak zarówno Single, jaki i Double liczy koprocesor. Nie
mierzyłem, ale chyba zysk będzie mniejszy niż problemy z
zaokrągleniami (jak ktos już uprze się robić met. numeryczne w VB...)

Racja. Jednak przy przy baaaaardzo długich pętlach, gdzie wynik jest
zaokrąglany na końcu widać różnice.
Niewielkie (rzędu 0.1 sekundy przy 1mln wywołań - dodawanko + dzielenie)...
ale zawsze :)

[TK] I pisz aplikacje finansowe które licza coś na liczbach
zmiennoprzecinkowych. A błędy zaokrąglań przelewaj na własne konto
:)))
Tak na poważnie - Currency jest wolne, ale za to _dokładne_

Chodziło mi o to, że używanie Currency w aplikacjach NIE FINASOWYCH mija się
z przeznaczeniem tego typu.
Jednak w aplikacjach czysto finansowych jest to chyba jedyny typ danych,
który powinien być używany przy przeliczaniu kasy :))

| Zeruj stringi i usuwaj obiekty gdy nie są już potrzebne.
[TK] Gdzieś tak 1.5 temu pisałem o pewnej ciekawej cesze recordsetu
ADO. Mianowicie, po close przez "chwilę" pamięć nie jest jeszcze
zwalniania...

Z tego co zauważyłem w obecnej wersji problem nie istnieje.

Poza tym VB zwalnia obiekt w momencie, gdy nie ma do niego referencji.

że musisz...

Oj z tym unikaniem to ciężko bywa...
W tym punkcie chyba niewiele się da zrobić, albo?

| Stosuj
| minimalizację funkcji o ile to możliwe.
[TK] A tu bym prosił o rozszerzenie. Nie rozumiem

Źle to trochę nazwałem.
Dla przykładu:

Mamy cztery buttony o indeksach 0 1 2 3
Dla 0 i 2 robimy to samo. Dla 1 i 3 też.
Zamiast pisać kod dla 0 1 2 i 3 robimy tylko dla 0 i 1 a resztę rozwiązujemy
poprzez dobranie warunków.
Może to się wydaje oczywiste ale spotkałem się z ludźmi, którzy o tym nie
wiedzieli...

[TK] Nie zawsze! Jeżeli masz wiele podprocedur, robnych, to mogą one
siedzieć w cache procesora (i pewno już tam siedzą). A kod - zawsze od
nowa bedzie zczytywany. Poza tym - utrzymanie kodu robionego "kopiuj i
wklej"......

Teraz ja nie rozumiem :)

Temat: formatowanie kodu

+0200' AND author='keczerad'

| że w HTML możesz używać '' zamiast "",
ciekawe skad wziales takie rewelacje, mozna tez powiedziec, ze mozesz
krasc, ale czy to jest zgodne z prawda ?!
| twój kod, będzie jeszcze czytelniejszy:
heh dobre, a z czym ?
| [php]
| echo "<td style='width: ${width_new}px;'
| <div style='width: ${width_new}px;'
| <img src='$upload_files/$v' width='$width_new'
| height='$height_new' alt='$v' /
| <br style='clear: both' /$v<br /($width x $height)<br /</div
| </td
| ";
| [/php]
zapraszam na strony w3c.org. Walczmy z partactwem pseudo webmasterów.

Witaj keczardzie

Rozumiem, że należysz do tej grupy zarozumiałych idiotów, którzy wiecznie
wszystkich odsyłają do specyfikacji, a sami przy tym gówno wiedzą.

Idź poczytaj, doucz się, poćwicz.
A kiedy już zrobisz swoją pierwszą stronę to wróć tutaj i wszystko
odszczekaj.

P.S.
Coby ci żyłka nie pękła przy szukaniu, wstawiam odpowiedni cytat:

"By default, SGML requires that all attribute values be delimited using
either double quotation marks (ASCII decimal 34) or single quotation marks
(ASCII decimal 39). Single quote marks can be included within the attribute
value when the value is delimited by double quote marks, and vice versa.
Authors may also use numeric character references to represent double
quotes (") and single quotes ('). For double quotes authors can
also use the character entity reference "."

oraz jego źródło:
http://www.w3.org/TR/html4/intro/sgmltut.html#h-3.2.2

Na pohybel burakom.

Temat: strukturalnie/obiektowo D3/D5/D7 - inny kompilator???

W tym konkretnym przypadku, który Pan zamieścił jako przykład,
to wszystko może rozbijać się o 1 instrukcję: a[i, j] := s, a dokładniej,
o sposób wyznaczania adresu efektywnego, pod który należy zapisać
wynik, a ten jest mocno zależny od miejsca zadeklarowania zmiennej 'a',
ilości wolnych rejestrów i działań optymalizatora.

Po takim zabiegu okaże się, że kod "obiektowy" jest 3 razy
wolnieszy od kodu "strukturalnego" na każdej wersji Delphi,
a przyczyną jest właśnie sposób wyznaczania adresu efektywnego
dla każdego elementu tablicy.

U mnie nie ma większych efektów różnicujących (oczywiście poza
przyspieszeniem działania)

Usuwając jedną linijkę obliczeń z
wnętrza pętli prawdopodobnie dla wersji "strukturalnej" zwolniliśmy
jeden rejestr i optymalizator mógł go wykorzystać do szybszego
wyznaczania adresu efektywnego dla kolejnych elementów tablicy.
Szczegóły do obejrzenia przez View-Debug Window-CPU.

Wersja "obiektowa" prawie zawsze będzie potrzebowała jednego
rejestru więcej do przechowania adresu bazowego obiektu (Self),
względem którego adresuje poszczególne pola obiektu i optymalizator
ma mniejsze pole do popisu.

Muszę popatrzeć

Jeśli moje rozważanie są prawidłowe, to nasuwa mi się jeden wniosek:
W Delphi 3 optymalizator był bardziej wyrafinowany niż w Delphi 5 i 7
i potrafił nawet bez zakomentarzowanej linijki obliczeń na liczbach Single
zorganizować efektywniejszy zapis kolejnych elementów tablicy, ale
chodziły też wtedy słuchy, że działanie optymalizatora może w pewnych
sytuacjach prowadzić do błędów w obliczeniach i być może to właśnie
zostało poprawione w kolejnych wersjach Delphi poprzez wyeliminowanie
pewnych zbyt wyrafinowanych działań optymalizatora.

To może być wyjaśnienia dlaczego kompilat D3 jest szybszy od D5 i D7

Marek

Temat: Single się zepsuł przy dzieleniu??
Cześć.

[...]

| To sprawa zapisu
| dwójkowego ułamków dziesiętnych. Zauważ, że ułamki, które w mianowniku
nie
| mają potęgi dwójki mają nieskończone rozwinięcie dwójkowe. Spróbuj
| prostszego przykładu:
| b := 0.133;
| // już w tym momencie, bez żadnych obliczeń, b będzie "miało wartość"
| 0.13300000131
[...]
Przyznaje sie bez bicia ze szczegolow zapisywania Single nie pamietam, nie

zgrubsza rzuciwszy na to okiem takze mowisz o tym ze jest za malo bitow
zeby
zapamietac liczbe z cala dokladnoscia. Cos musi byc obcinane - jakies
dwojkowe cyfry - bo sie nie mieszcza wszystkie.

Zgoda, chodzi o bity, które się nie mieszczą. A nie mieszczą się wszystkie,
bo w ułamku jest ich nieskończenie wiele. Ja chcę jedynie zwrócić uwagę na
fakt, że to nie liczba miejsc znaczących liczby tylko jakikolwiek ułamek
"nie-dwójkowy" powoduje takie zachowania. Wydaje mi się, że to istotna
różnica. Tym bardziej, że dotyczy każdego z omawianych typów, choć w typie
Extended trudniej to zauważyć, bo jest on najdokładniejszy z obsługiwanych
przez procesor. Przykładowo (tylko jedna cyfra znacząca, a efekt mimo to
występuje):

var x : Single_lub_Double_lub_Extended;
begin
x := 10;
x := x - 6;
x := x - 4;
// x jest równe zeru

a teraz to samo, tylko 10 razy mniejsze:

x := 1;
x := x - 0.6;
x := x - 0.4;
// i już x nie jest zerem

"Przyznam ze spedzilem tydzien szukajac bledu w kodzie".

Jako ciekawostkę dodam, że McP nie znalazłby nic niepokojącego gdyby do
zmiennej b wpisał np. 125, a nie 133. A to dlatego, że 0,125 to inaczej 1/8
więc doskonale da się przedstawić nawet w Single.

Temat: Wypełnianie liczbami losowymi - VBA

Funkcja mi zadzialala. Wszelako mialem problem, bo uzywam liczb z dwoma
miejscami po przecinku, a tu w wynikach tylko liczby calkowite.
Rozwiazalem to przez zamiane "As Long" na "As Single".

no tak oczywiscie long dotyczy długich liczb typu integer czyli
całkowitych

Probowalem to robic z wykorzystaniem arkusza posredniego. Tym arkuszem
pośrednim (Arkusz1) jest ten w ktorym funkcja dziala. W innym arkuszu
(Arkusz2) makro polaczone z przyciskiem pobieraloby dane z konkretnej
komórki z Arkusz1 i wklejalo do konkretnej komorki w Arkusz2.

a bez przycisku nie możesz poprostu w konkretnej komórce w arkuszu2
wpisac formuły odwołującej sie do komórki w arkuszu1??
np. w arkusz2 w komórce A1 wpisac formułę =arkusz1!a1

Konkretnie to chciałem wczytac dane z komorki do zmiennej, a potem z niej
wkleic do innej komorki.

Popełnilem takie makro:

Sub los01p(ByVal Celss As Range, P01 As Single)
P01 = Worksheets("Arkusz1").Celss(8, 5)
Worksheets("Arkusz2").Cells(8, 5).Value = P01
End Sub

nie zadziałało bo po nazwie procedruy w nawiasach podaje sie parametry
które należy przekazac procedurze (np. z innej procedury lub funkcji)
aby mogła byc wykonywana. W Twoim przypadku jest to niepotrzebne,
skasuj wszystko co masz w nawiasach i zostaw je puste czyli ().
Swoja drogą nie musisz kopiować zawartości poprzez zmienną (choc
oczywiście możesz). Aby skopiować wartość jednej komórki do drugiej
(lub całych zakresów) wystarczy np. kod:
Sub kopiowanie()
sheets("Arkusz1").Range("b2").Copy Sheets("Arkusz2").Range("b2")
End Sub

oczywiscie wiedząc że w momencie uruchamiania makra aktywny jest
arkusz 2 możesz skrócic kod do:
sheets("Arkusz1").Range("b2").Copy Range("b2")

Temat: Jak stworzyć klasę współdzieloną?

| Tyle że ja mam do przekazania referencje do obiektów.
| Przez rejestr i sockety można przekazać tylko jakieś wartości,
| co jednak zrobić gdy musisz przekazać jakieś obiekty,
| na przykład z plagina wpiętego w Outlook'a do macierzystego
| programu. Com byłby do tego idealny, gdyby to w końcu ruszyło.

Napisz coś więcej, bo sie zapentliłeś.
Jezeli myślisz o kodzie np:
Dim Klasa As MojaKlasa
Dim JakisObiekt As MojaKlasa.Objekt

Set Klasa=New MojaKlasa
Set JakisObiekt=MojaKlasa.Obiekt

to kod ten jest błędny.

Chcesz coś więcej, dobrze.

Tworze bibliotekę ActiveX DLL wątki ustawione na Single.
Biblioteka zawiera między innymi:
- klase typu IAddinDesigner do połączenia z Outlookiem (np. klasa1)
- moduł zawierający dwie zmienne globalne
- własną klasę eksportująca property odnoszące się do tych zmiennych
, kilka zdarzeń określających obecny stan Outlooka i
pare funkcji, by wymiana mogła być dwukierunkowa. (np. klasa2)

Biblioteka uruchamiana jest przez Outlooka, dodaje własny
pasek narzędziowy, przejmuje związane z nim zdarzenia i
ustala wartości zmiennych globalnych.

Następnie poprzez CreateObject("<nazwa mojej biblioteki.<nazwa klasy")
tworze w innym programie instancje klasy2.
Wszystko jest dobrze gdy uruchomie dwa Visuale, w jednym biblotekę, a w
drugim
program korzystający z niej, zdarzenia są przekazywane, jest dostęp do
zmiennych
globalnych ustawionych w momencie połaczenia z Outlookiem, działa idealnie.
Gdy wyłącze wszystko i pozwolę Outlookowi podłączyć się bezpośrednio do
pliku dll i uruchomie pod debugerem program klienta nie mam dostępu do
zmiennych globalnych biblioteki, a zdarzenia nie dochodzą.
To chyba jest wszystko.
Wygląda to tak jakby biblioteka uruchamiała się w trybie Apartment a nie
Single Threaded.

Temat: Nowe podejście do funkcji Round().

|
| P.S. A'propos artykułu na:
|
| http://www.delphiqa.org.pl/techniques/qa067.html
|
| i zaokrąglania "księgowo-statystycznego", stosowanego ponoć przy
| obliczaniu finansów w USA (hm, nie bywałem...). Jak zatem potraktować
| artykuł na:
| http://support.microsoft.com/support/kb/articles/Q97/5/24.ASP ?
| Czyżby M$ (wbrew prawu w USA?) zaokraglał jednak kwoty "po polskiemu",
| czyli x.5 zawsze w górę? (może to jest tajemnica sukcesu finansowego
| Billa G.? Cencik do cencika... ;-)

Nie sądzę.
Raczej podali sposób (skądinąd dobrze znany) na zaokrąglanie
matematyczne. W końcu nawet w USA czasami ktoś może chcieć coś policzyć
zgodnie z regułami matematycznymi, a nie księgowymi.
A po drugie, Accessa używają nie tylko w USA, ale na całym świecie,
więc MS powinien to uwzglądniać.

funkcję typu RoundU(), a obecną przemianować na RoundN().
Względnie, można by dodać w Accessie jakąś właściwość .RoundingMode,
którą użytkownik ustawiałby sobie w opcjach lub z kodu.

Przy okazji mały cytacik:

<cite
These functions should only be used with Currency data. If used with Double or Single numbers, you may still receive minor rounding
errors. The reason for this is that Single and Double numbers are floating point. They cannot store an exact binary representation o
f decimal fractions. Therefore there will always be some error. However, Currency values are scaled integers and can store an exact
binary representation of fractions to 4 decimal places.
</cite

Obawiam się, że powyższa uwaga odnosi się także do funkcji Round(),
nawet "przestawionej" na zaokrąglanie matematyczne.
Nie testowałem tego dokładnie, ale chyba mogą być małe błędy.

Temat: 1 mb ramu
Przepraszam za tak "wspaniały" refleks, ale rzadko zaglądam...

| ...
| Tutaj rozwiazaniem moze byc CLI, a skoro o tym mowa,
| to kiedy nalezy urzyc tego rozkazu i dlaczego?
Tej instrukcji uzywamy, gdy nie chcemy, aby zadne przerwanie
wystapilo w krytycznej sekcji kodu. Przyklady:

mov ss, ax
mov sp, 400h

Ten przykład nie jest najlepszy. Po modyfikacji rejestru SS następna
instrukcja wykonuje się bez przerwań. Dlatego akurat w tym przypadku
objęcie fragmentu parą CLI/STI nie jest konieczne. Ale dla "dobrej
praktyki programowania" w asemblerze oczywiście można.
Ponieważ blokowany jest także int01h "single step", polecam sprawdzić
pod Turbo Debuggerem (F7):

loc_1:
mov dx, offset loc_1
push dx

mov ax, ss ; aby nie popsuć SS ;)
mov ss, ax
retn ; instrukcja "z CLI"

Program wykona retn "razem z mov ss,ax" (debugger będzie "omijał"
retn). Gdyby zamiast SS bawić się z SP:
mov ax, sp
mov sp, ax
retn
to debugger "zaliczy" RETN - po modyfikacji SP jest normalnie.
No oczywiście można na RETN postawić breakpointa...

Ten trick stosowano przy ochronie kodu przed automatycznym
debuggowaniem, np. przed uniwersalnymi programami rozpakowującymi
/odszyrowującymi. W "nieprzerywalnej" instrukcji wyłączało się
debugger rozpakowywaczki i program "uciekał" debuggerowi.

Tak było od czasu 8086. Jeżeli na nowszych procesorach jest inaczej
(nie ma gwarancji nieprzerywania nast. instr. po modyfikacji SS) to
proszę mnie poprawić.

Temat: umiejętności programisty

| Czemu uwazasz, ze to banialuki?

| Moze niezbyt subtelnie, ale usiluje podac w watpliwosc sensownosc podzialu
| programistow na super i zwyklych na podstawie tempa produkcji
| oprogramowania. To dlatego, ze to bardzo sliskie kryterium podzialu.

Cytat:
[CUT]
The studies that measured programmer productivity were based on giving the
same specification to a large group of programmers, and recording the amount
of time they took, among other metrics such as defects and lines of code.

It was common to find differences of 10X between the time taken by the upper
quintile and lowest quintile, sometimes even as high as 20X.

Unfortunately, there isn't any long-term similar study because of the
expense; these things typically took place in a single day or a weekend.

But that kind of productivity difference can be imprecisely observed in the
real world - look at some pieces of software produced by a small company.
If you had a similar sized set of average or poor programmers and gave them
10X the amount of time, would they be able to produce it? Â Or could 10X the
number of programmers produce it in the same time?

Doom for example, was written by only 3 or 4 programmers. Â A set of 30, or
even 300 average programmers could not create it.

[/CUT]
A pod tym adresem znajdziesz tego wiecej:
http://discuss.fogcreek.com/joelonsoftware/default.asp?cmd=show&ixPos...
3

| Hmmm, jesli to wynika z tekstu, ktory zamiescilem to moze przeczytaj go
| jeszcze raz. Zaczyna sie od ozdobnika, ktory sugeruje inny podzial
| programistow (to ten kawalek z 'tak naprawde'), i nastepnie nazywa ten

A, czyli stwierdziles, ze programisci piszacy 5-55 razy szybciej kod nie
wiedza co robia. I stwierdziles to na podstawie jakis badan, czy tez
zdrowego rozsadku, na podstawie ktorego opierali sie ludzie twierdzacy, ze
ziemia jest plaska?

Stwierdzilem to na podstawie doswiadczenia. Zauwaz, ze ty nie opierasz sie
na badaniach tylko na opiniach ludzi, ktorzy nawet sie nie podpisali.
Musisz myslec krytycznie, to wazna umiejetnosc programisty.
Moze zwroc baczniejsza uwage na nastepujacy fragment tekstu, ktory sam
znalazles i zacytowales:
"
Unfortunately, there isn't any long-term similar study because of the
expense; these things typically took place in a single day or a weekend.
"
Mozesz tez w tym samym miejscu skad to wyciales poczytac inne opinie,
ktore powinny zwrocic twoja uwage na bezsensownosc pomiaru zdolnosci do
super-programowania.

Strona 1 z 3 • Znaleziono 119 rezultatów • 1, 2, 3

singels Kody

Widzisz posty znalezione dla hasła: singels Kody

Linki