Skocz do zawartości

ASE2.0


Dexarz

Polecane posty

kalkulator taki jest ...nie patrzy się co jest czy mnożenie czy dodawanie (robi wszystko po kolej) .Jedynie co najpierw robi to nawiasy ,na reszte juz nie zwraca uwage ..I taki bedzie ...

 

ASE nadaje sie do pisania prostych skryptów ,a nie skomplikowanych rzeczy ...Taki byl cel - uprościć ....

 

wo7 co cie boli ??Taka jest i taka będzie ..Nie mam czasu na jakies lolcode ...Dokumentacja kiedyś będzie ...ALE kiedyś nie jutro

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

Te uproszczenia są chyba tylko dla Ciebie :P, bo moim zdaniem nic nie upraszczają, poza kodem samego języka.

 

A dokumentacja to podstawa. Co za problem napisać program. Sztuką jest napisanie czegoś czego będą w stanie używać inni.

 

PS. Pisząc dokumentację systematyzujesz wszystko i możesz wyłapać błędy logiczne i nie tylko.

soon Delphi will be only for veterans and finally we all will die at the end…

delphi.dathox.com - nowinki z świata Delphi/Pascala

only programmers and drug dealers call their customers "users"

 

Oto cisza przed burzą, Chwile się dłużą.Z gór schodzi dużo chmur ku podnóżom.Ptaki milaczą, drogi suche jak wiór się kurzą, Ptaki milczą a drogi się kurzą.

Link do komentarza
Udostępnij na innych stronach

Dexarz: to, że traktujesz nas jak ciemną masę wiadomo już od dawna...

 

jednak nie rozumie czemu robisz z siebie takiego bałwana!!!!

 

HNB: o czym Ty mówisz Dexarzowi, przecież on wcale nie szuka

 

błędów w swoim kodzie (przykład: kalkulator),

 

najprawdopodobniej wisi mu to czy jego program działa czy tylko "udaje".

 

Pozdrawiam!

 

PS to niedopuszczalne aby program podający złe wyniki z obliczeń nazywać kalkulatorem :angry:

 

i jeszcze się z tego cieszyć!!

 

PS Dexarz: takie pierdolety: ''...kalkulator taki jest ...

 

nie patrzy się co jest czy mnożenie czy dodawanie...''

 

możesz wciskać na forum dla niedorozwojów typu DODA,

 

nie na forum dla programistów!!

 

PS Cenzura!!!!!!!!!!!

Link do komentarza
Udostępnij na innych stronach

Xevil ten kalkulator działa tak ,bo tak chciałem żeby działał ...To było zamierzone ...

 

EDIT

 

Analizowałem sobie ten kod według tego ,jak program oblicza

 

Analiza:

 

2*(2+4)*3+1-2*(2*4)*(3-1)-2*3+(8*2) Usuńmy nawiasy

2*6*3+1-2*8*2-2*3+16 //No a teraz wykonuje od lewej do prawej

36+1-2*8*2-2*3+16

35*8*2-2*3+16

280*2-2*3+16

560-2*3+16

558*3+16

1674+16

1690

 

 

 

@HNB : Niech se ta dokumentacja i będzie podstawą ,napisze ją ,ale teraz nie mam czasu ...

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

Poprawiłem modułowość (ta poprzednia w ogóle nie działała ) ,dodałem 2 procki i usunąłem 1

 

#ExtractFP() - Podaje ścieżke pliku ,którego interpretujemy

#ExtractFilePath('$filename') - podaje położenie pliku

 

Zamiast procki #LoadLibrary ,pojawiła sie #PFL('$lib,$proc,$argument4proc');

Procka działa na zasadzie ,że ładuje biblioteke podaną w pierwszym parametrze i wykonuje prockę oznaczoną jako $proc .Parametry do procki podaje sie w trzecim parametrze.Po wykonaniu procki z biblioteki program informuje o prawidłowym wykonaniu procki i usuwa bibliotekę z pamieci.

 

Usunąłem prockę #FreeLibrarys

 

 

Link w głownym poscie

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

To tak , jestem na etapie dodawania nowych procek do interpetatora ...No i taka prośba ,czy moglibyscie napisać jakie procki chcecie żebym dał ..Z czasem będę dawać nowe wersje ..

 

Obecnie zastanawiam sie jak zrobić moduły zewnętrzne w ASE pisane przez użytownika.

 

Myślę o procce #Include ,ale nie iwme jakby to działało ...

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

@Blind: sadysta :D

soon Delphi will be only for veterans and finally we all will die at the end…

delphi.dathox.com - nowinki z świata Delphi/Pascala

only programmers and drug dealers call their customers "users"

 

Oto cisza przed burzą, Chwile się dłużą.Z gór schodzi dużo chmur ku podnóżom.Ptaki milaczą, drogi suche jak wiór się kurzą, Ptaki milczą a drogi się kurzą.

Link do komentarza
Udostępnij na innych stronach

@Wo7: Raczej zostawie tak jak jest.

 

@Blind:

 

Obsługa Direxta - załatwione

Co do reszty to jestem zbyt dużym idiotą żeby rozumieć twój język pisany xD

MAC OS ??Oj nie ...

Szablony ,klasy - mogą pojawić sie szablony (jeśli rozumiem oco ci chodzi) ,co do klas to różnie ,ale raczej nie

 

Triangulacja trójkąta ??Co to ??

 

@Xevil - kupię ci frytki xD Wysłać pocztą ??

 

 

 

 

 

Do ASE'a dałem obsługę plików tekstowych ...możliwe że pojawią się typowane i cała reszta .

Dodam także prockę include ,którą już wiem jak powinna działać .

 

Co do reszty będę pracować ..

 

Link zaktualizowany

Dodałem procki zwiazane z plikami tekstowymi i fukcje #Include :)

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

To tak :

 

Obecnie będę pracowal nad zmiennymi środowiskowymi ,do sterowania interpretatorem .Są już do obsługi błędów .Dodam jeszcze zmienne ,które bedą informować czy można stworzyć funkcje, labele ,zmienne ,stałe .

Dodam obsługę dźwięku i dam troche procek z Canvasa do grafiki .

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

Jestem bardzo ciekaw, jak będziesz chciał coś rysować (proste, odcinki, okręgi itp) skoro wszystkie znane wzory będziesz musiał zamieniać na swoją notację żeby były dobrze policzone. Zamęczysz się. Weź dorób to ONP w końcu i bądź człowiek... Przecież to zajmuje góra 30 min zapisanie takiego algorytmu.

Pozdrawiam,

vo7 (;

Link do komentarza
Udostępnij na innych stronach

Link zaktualizowany ..brakuje jeszcze obsługi Direxta i tyle ..

 

EDIT

 

No dobra macie to ONP ...Dodałem ..

 

EDIT2

 

Niema już procek d,c,s itp ,są teraz rand ,cos ,sin ,trunc ,int ,sqrt , i nowosc ! Pojawiło sie dzielenie całkowite div !

 

EDIT3

 

To raczej nie jest jeszcze odwrotna notacja ,ale pracuje nad tym ..Poprawiłem kilka błędów.

 

EDIT4

 

To tak :

 

Dodałem kilka procek m. in.

#Push - stawia coś na stos

#Pop - zabiera ze stosu

Wraz z exec'iem znajduje sie plik StackModule .Jest to moduł (jak go wykorzystać w pliku "korzytanie z modulu StackModule" ) ,za pomocą którego można tworzyć własne stosy .Wszystko jest dokładnie omówione jak wykorzystać.

 

I wiele wiele innych ..Poprawiłem również kilkanaście błędów .

ONP to znaczy jeszcze nie jest to odwrotna notacja ,a zwykla ,zostanie w przyszłości zaktualizowana na prawidłowe ONP

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

@Nvm : Mój błąd ,nie będzie ani klas ,ani szablonów ...Reszta pojawi sie w najbliższym czasie ...

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

  • 4 weeks later...

UPDATE

 

No to tak dodałem bloki {} (ktore jednak są instrukcjami więc trzeba po { i } dać ; .Można nadal używać starego sposobu z #Back).

Obsługa plików binarnych ,audio (OmegaMusic).

Poprawiłem wiele błędów zwiazanych z samym jezykiem.

Dodałem obsługe własnych prefixów (na takiej zasadzie dodałem bloki { } ,umożliwiajacych napisanie własnych instrukcji.).

Napisałem od nowa mechanizm zamiany nazwy obiektu na wartości (nie mogą zawierać sie w nazwach ,chyba że skorzystamy z specjalnych znaków).

Można zmieniać kolor tekstu w konsoli jak i tło (można również czyścić ekran)

 

Brak dokumentacji nadal ...ale pojawi sie ,jeszcze tylko obsługa grafiki (ech ten Canvas) ,uchwytów i kilka procek ogolnych na uchwytach (zmiana pozycji jakiegoś okna) .

Link w glownym poście (plik archiwum zajmuje 500 KB)

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

Lista możliwości być może zrobiłaby wrażenie gdyby nie, jak to nazwać miło, niefajna składnia, która zniechęca. Przystopuj z rozszerzaniami możliwości skoro mało kto stare potrafił użyć i nawet nie wie co wersja początkowa potrafiła. Zrób manual lub chociaż dobrze okementuj kod i zrób jakąś tabulację aby dało się to czytać

Baza tysięcy lotnisk: http://airportsbase.com

Link do komentarza
Udostępnij na innych stronach

Typowe dla mnie -nie daje tabulacji xD ...

 

Ech ,zapomniałbym dodać ,że pracuje takze nad zabezpieczeniem kodu i ,że wbudowałem w ONP funkcje trygonometryczne itp.

Aktualnie piszę 32 bitowy system operacyjny.

ASE2.0 100% ,DME (Dynamic Motion Engine) v2.0 10% ,32 bit PumaOS - 40%

Stick's Adventure 3 - 0%

Komp nr.1 AMD Duron 1,3 Ghz ,256 MB Ram DDR PC133 (na eBoostr mam jeszcze 1 GB) ,Nvidia GeForce FX 5500 256MB DDR

Komp nr.2 (laptop) AMD Athlon XP 2,0 Ghz , 192 MB Ram DDR PC2700 (na eBoostr mam jeszcze 3 GB) , Via S3 Unichrome IGP

Przykład programu w ASE2.0:

<?arg #CreateProcs; $i:?;

#For('$i,10,1,@Lab');@Lab;

#Sleep(100);

#Message("Ten komputer ulegnie autodestrukcji za $i sekund");

#Retf;

#Message('Dead'); arg?>

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...