Witam
Czy ktoś możę mi ktoś pomóc napisać dwa programy które mają wyglądać (i robić) to co na tej fotce 
Nie musi to być od razu cały kod po prostu chcę aby mi ktoś wytłumaczył jak to zrobić, chociaż najlepiej jak ktos napisał by mi kod z komentarzami
Pozdrawiam ;)
0
0
Ad.1)
Operacje na łańcuchach
Ad.2)
Przy rejestracji zapisujesz dane do np. pliku tekstowego lub bazy danych, a przy logowaniu sprawdzasz czy podane dane są prawidłowe.
PS. Nie mogę się powstrzymać - wybacz, ale ta jakość fotek to pozostałość po edycji w MS Paint'cie, czy skanerem skanowałeś monitor [rotfl].
0
Zdjęcia robione telefonem ;-P więc trzeba było je trochę poprawić ;) dzięki za odpowiedź może coś mi z tego wyjdzie
0
a o print screen nie słyszał? -.- :-D [rotfl]
0
aua, moja polonistka by zabiła gdyby zobaczyła użytkownik =|
0
za 650zl moge Ci napisac te dwa programy...
0
potrzebuje na pompe wtryskowa napisał(a)
za 650zl moge Ci napisac te dwa programy...
Drogo się cenisz...
0
niestety tylko kosztuje pompka :P
0
Ad.1) Oferuje program (poniżej screen, oczywiście wraz z kodem źródłowym) za jedyne 30 zł || taniej niż pompka ^^ [diabel]
Program: >> Download << (bez kodu źródłowego).
Scan: >> VirusTotal << (zobacz).
0
UWAGA! :P Pomocny do tej pory olesio zmienia swoje oblicze [diabel] Ja również oferuję Tobie
program z podpunktu pierwszego. Zrzut ekranu masz poniżej. Program w mojej wersji różni się tym,
że sortuje wyniki alfabetycznie, a kod źródłowy zawiera pełne komentarze. Swoją drogą dopisanie
do każdej procedury komentarza zajeło mi najwięcej czasu, bo to jest dla mnie trudne - tłumaczyć
oczywiste oczywiśtości. Cena - niech stracę :P 25 PLN. Kto da mniej? ;) A i drugi program też w
sumie mogę napisać, tylko to komentowanie wszystkich instrukcji mnie trochę zniechęca w tym :)
Download - plik wykonywalny spakowany UPX
Analiza na Virus Total - tylko dwóm jakimś badziewnym antywirusowym programom nie podoba się chyba że to UPX
EDIT: nie mogłem spać więc machnąłem drugi program. W kodzie również są komentarze do każdej z
procedur. Cena za drugi program powiedzmy 33 PLN, jak kupisz ode mnie oba programy to UWAGA, w
promocji :P dostaniesz oba kody źródłowe za 50 ZŁ. W bazie Użytkowników możesz wpisać maximum
dziesięciu Użytkowników, ale można to łatwo zmienić. Zapis do pliku nie robiłem, bo nie chce mi się za
bardzo, to już zostawiam Tobie. Możesz zrobić proste szyfrowanie na przykład xorem a do zapisu to
najprościej będzie użyć plików typu INI. Więcej masz na Pliki INI
Download pliku wykonywalnego spakowanego UPX
Skan z Virus Total
Jeżeli przejmujesz się tymi dwoma ostrzeżeniami to możesz rozpakowac moje exeki i sprawdzić sam
w jakimś porządnym antywirusie, że nie zawierają żadnego złośliwego kodu. Są jedynie spakowane z
użyciem metody LZMA, dlatego pewnie są podejrzane tylko dla jakiś biednych antywirusów. Dobranoc.
EDIT2: napisałem też wersję powyższego programu, który przechowuje dane w zakodowanym pliku,
korzystając z komponentu Degisy DataFile v.1.22, który dostępny jest na torry.net. Cena za te wersję
to też niech będzie 33 PLN. Jak jesteś zainteresowany to daj znać, podam numer konta ewentualnie
w grę wchodzi jeszcze wpłata na PayPala o ile dysponujesz tam kontem to mogę podać swój e-mail :)
Aha dane zapisują sie w pliku users.dat w ktalogu z programem. Screenów nie podsyłam, bo są takie
same jak dla wersji programu bez zapisu do pliku. Jedyna róźnica to właśnie zapis do pliku oraz na
pasku tytułowym do tytułu programu dodane "v2" Oczywiście wszystko w kodzie jest skomentowane.
0
Widzę, że konkurencja nie śpi.
Olesio muszę Cię rozczarować, ale twój program zabiera więcej pamięci od mojego (Zobacz sam).
BTW od kiedy to w słowie są liczby i, od kiedy to cyfra jest literą? Słowo nie może też mieć takich znaków: <> / \ ; etc. :> To tak jest jak kodzi się po nocy ;-P
0
Boże lenistwo sięga zenitu :o
,,Nie musi to być od razu cały kod po prostu chcę aby mi ktoś wytłumaczył jak to zrobić, chociaż najlepiej jak ktos napisał by mi kod z komentarzami"
Oksymoron jako szeroki string. Nie chce kodu, ale napiszcie mi kod z komentarzami.
Oferuję opensource na dwa programy :) za darmo ;d :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{Tutaj wpisz sobie wszystkie procedury}
end.
:-D ;-P
0
Grzegorz16 napisał(a)
Olesio muszę Cię rozczarować, ale twój program zabiera więcej pamięci od mojego (Zobacz sam).
BTW od kiedy to w słowie są liczby i, od kiedy to cyfra jest literą? :>
Może dlatego, że ja użyłem tablicy 255 elemetnowej, a Ty dynamicznej. Nie wnikam, w każdym razie
działa poprawnie. Bo sam nie wiem dlaczego jest różnica w używanej pamięci. ale zaq123 może jak chce
kupić pierwszy program od Ciebie, a drugi ode mnie. I obaj będziemy happy :) I teraz faktycznie widzę, że
na "screenie" pisze, że w SŁOWIE mamy wyszukiwać LITERY, także poprawiłem. A link do pliku poniżej.
przeszukaj fraze.exe
Skan z Virus Total
0
Kiedy ty odpowiadałeś, ja edytowałem poprzedni post... zapomniałem dodać coś o znakach typu @$#, że też nie występują w żadnym słowie. I jeszcze jedno, pomimo twojego zabezpieczenia przed wielokrotnym wpisywaniem tej samej litery można je ominąć, po prostu wklejając frazę 'aaaa'.
Co do tablicy masz rację - ja ją tworzę dynamicznie.
olesio napisał(a)
może jak chce kupić pierwszy program od Ciebie, a drugi ode mnie. I obaj będziemy happy
Wszystko zależy od zaq123, a dokładnie od tego czy jego lenistwo wygra czy nie. [diabel].
W każdym razie wyjdzie taniej niż pompka, a projekt OpenSource chyba nie przejdzie. ;-P
0
ten temat powinien być w perełkach za sam pierwszy post [rotfl]
zdjęcia (monitora !) zrobione nokią 3310, poprawione w paincie z błędami ortograficznymi i kółkami rysowanymi pędzlem :D
ale jakby tego było mało to do tego się prześcigają w ofertach programu na poziomie przedszkolaka i jeden chce za niego 650 zł [rotfl]
// aha jeszcze koleś chce żeby programy robiły to na fotce - czyli kompletnie nic, a wy się trudzicie z jakimś kodem, jedyny który to skumał jest tutaj (tylko zapomniał o komentarzach ;) )
0
muah =D giełda tu się zrobiła =]
0
reg4daewooS napisał(a)
// aha jeszcze koleś chce żeby programy robiły to na fotce - czyli kompletnie nic, a wy się trudzicie z jakimś kodem, jedyny który to skumał jest tutaj (tylko zapomniał o komentarzach ;) )
Jest komentarz!
{Tutaj wpisz sobie wszystkie procedury}
:-D
0
Grzegorz16 napisał(a)
Kiedy ty odpowiadałeś, ja edytowałem poprzedni post... zapomniałem dodać coś o znakach typu @$#, że też nie występują w żadnym słowie. I jeszcze jedno, pomimo twojego zabezpieczenia przed wielokrotnym wpisywaniem tej samej litery można je ominąć, po prostu wklejając frazę 'aaaa'.
Znaczki do blokowania można dodać, to nie problem, bo w moim kodzie wszystko jest skomentowane
i wyjaśnione, a w Twoim programie może i jest blokada Ctrl+V, ale nie ma na Shift+Ins lub z menu
kontekstowego wklejania. Można to łatwo zablokować, ale po co chyba że to będzie konieczne. No a
zaq123 ma w czym wybierać. Mój drugi program (Rejestracja Użytkowników) w wersji z zapisem do
szyfrowanego pliku pewnie będzie mu gorzej wytłumaczyć wykładowcy jak działa ten zapis, bo źródła
użytego modułu już nie komentowałem, sam się nie wgłębiałem w jego działanie, ważne że jako tako
szyfruje i oferuje funkcjonalność plików INI bez limitu 64 KB (chociaż domyślne dane dla 10 Userów z
pewnością zajmują o wiele mniej, a nawet jak zwiększy się rozmiar tablicy to też ciężko będzie taką
granicę przekroczyć). Dlatego zawsze może zakupić za te samą cenę wersję bez zapisu do pliku :)
Przy okazji Grzegorz16 mam pytanie. Jak ograniczyłeś wpisywane znaki? Chodzi mi szczególnie o to
jak zezwolić na wpisywanie także polskich znaków diakrytycznych, tak jak zrobiłem to poniżej czy jest
na to jakiś inny spsoób? Jeżeli tak to proszę o podanie bo nie bardzo znam, a przy okazji w całym tym
wątku orócz handlowania kodem może się ktoś poza mną też czegoś nauczy. A po zdarzeniu Edita
KeyPress są moje propozycje na zablokowanie możliwość wklejania, chyba są wystarczające :)
procedure TForm1.LiteryEditKeyPress(Sender: TObject; var Key: Char);
var
PL_Znaki : set of Char;
begin
PL_Znaki := ['ą', 'ć', 'ę', 'ł', 'ń', 'ó', 'ś', 'ż', 'ź', 'Ą', 'Ć', 'Ę', 'Ł', 'Ń', 'Ó', 'Ś', 'Ż', 'Ź'];
if (Pos(Key, LiteryEdit.Text) <> 0) then
begin
Key := Char(0);
end;
if not (Key in ['a'..'z', 'A'..'Z', #8, #32])
and not (Key in PL_Znaki) then
begin
Key := Char(0);
end;
end;
procedure TForm1.LiteryEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssShift]) and (Key = VK_INSERT) then
begin
Key := 0;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
PusteMenu : TPopupMenu;
begin
PusteMenu := TPopupMenu.Create(Self);
LiteryEdit.PopupMenu := PusteMenu;
end;
A w razie czego poprawiony exec programu jest do pobrania stąd.
A tutaj skan Virus Total
0
Koniec końców leń roku 2009 dostał kod za darmo ;d
0
Że niby ja podałem jakiś kod? Ale to tylko fragment programu, chyba że Ty pigmejek go wyręczyłęś, bo
ja podełem tylko pewien fragment do obsługi pół edycyjnych, a pozostaje jeszcze przecież kwestia nie
do przeskoczenia i niemożliwa do samodzielnego wydedykowania jak operacje na tablicy i takie tam :P
0
Olesio też użyłem zbioru typu char dla polskich znaków diakrytycznych ;-P.
I pewnie tak samo bym zablokował Shift+Ins i Popup Menu :-P.
0
Grzegorz16: zrobiłem program Przeszukaj Frazę w wersji bez użycia tablic, bo można z powodzeniem
użyć TStringList. A już wiem dlaczego Twój program zajmował mniej pamięci, bo nie był spakowany, a
jak się spakuje Twój program UPXem z metodą kompresji LZMA to i tak zajmuje o 6 KB więcej, pewnie z
powodu tego że był skompilowany w innym Delphi niż siódemka chyba. A w Menedżerze zadań Twój
program zajmuje wtedy więcej pamięci, ale przy dzisiejszych ilościach pamięci RAM w komputerach to
nawet 1 MB więcej nie robi różnicy. Tylko coś się zaq123 nie odzywa. Może zbiera potrzebną kasę ;P