Ĺadny brzuch
Czesc !
mam oto taki programik, nda ktorym troszke posiedzialem :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG, ComCtrls, jpeg, Grids; type TForm1 = class(TForm) numer: TEdit; haslo: TEdit; wiadomosc: TEdit; Polacz: TButton; Rozlacz: TButton; Start: TButton; odbiur: TMemo; gg: THGG; StatusBar1: TStatusBar; Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; klient: TEdit; Label4: TLabel; Button1: TButton; Lista: TMemo; Edit1: TEdit; Label5: TLabel; procedure PolaczClick(Sender: TObject); procedure RozlaczClick(Sender: TObject); procedure StartClick(Sender: TObject); procedure ggMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); procedure Button1Click(Sender: TObject); procedure ggConnected(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PolaczClick(Sender: TObject); begin gg.Number:=StrToInt(numer.Text); gg.Password:=haslo.Text; gg.Connect(502); end; procedure TForm1.RozlaczClick(Sender: TObject); begin gg.status:=0; end; procedure TForm1.StartClick(Sender: TObject); begin gg.SendMessage(StrToInt(klient.text),wiadomosc.Text); end; procedure TForm1.ggMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin if(ggnumber=StrToInt(klient.Text)) then begin odbiur.lines.add('Przyjaciel napisał: ' + MessageContent); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Lista.lines.add(Edit1.Text); end; procedure TForm1.ggConnected(Sender: TObject); begin if gg.Connected=true then odbiur.Lines.add('Polaczony!') else odbiur.Lines.add('Rozlaczony!') end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption = ('Ja ' + StrToInt(numer.Text); end; end.
Otoz mam pare spraw, z ktorymi nie moge sobie poradzic:
1. Chcialbym stworzyc cos wuala liste kontaktow z osobami oraz ich statusy jakie maja ( i po dodaniu takiej osoby zeby widniala przy kolejnym otwariu progsa cos wuala tabelka, w ktorej beda te ludki moze jeden przycisk co bedzie Dodawal wpisy i pole Edytuj do wpisywania numeru i ludka.
2. Ustawianie mojego statusu
3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
probowalem czegos takiego, ale bez wzgledu na to co zrobie wyskakuje : "polaczony"
procedure TForm1.ggConnected(Sender: TObject); begin if gg.Connected=true then odbiur.Lines.add('Polaczony!') else odbiur.Lines.add('Rozlaczony!') end;
4. Narazie mam tylko mozliwosc rozmowe z osoba jak wpisze jej numerek do mojego edita (klient) i wtedy tylko ta osoba i zadna inna moga do mnie pisac, a ja chcialbym, aby mogl rozmawiac z kazdym i zeby kazdy mogl wyslac wiadomo. do mnie.
5. Aha jeszcze chce zeby na Caprion formy pojawil sie tekst 'ja' i numer gg ktory wpisze w kontrolke. ten kod nie chce sie skompilowac:
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption = ('Ja ' + StrToInt(numer.Text); end;
Za pomoc bardzo dziekuje i pozdrawiam wszyskich forumowiczow.
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 10:51
2.
HGG1.Status - tam masz statusy;
HGG.Description - tu ustawiasz opis;
4. Wykonaj za pomocą dynamicznych okienek ;) : http://4programmers....nka_jak_te_z_GG
Hmm spoko, ale co np z pytaniem 1,3,5
5.
W delphi występuje :=, a nie = jak w php
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := ('Ja ' + StrToInt(numer.Text); end;
Ten kod jest zly, wypisuje mi: Incompatybile types : 'String' and 'Integer'
Could not compile Unit.1
Ten kod jest zly, wypisuje mi: Incompatybile types : 'String' and 'Integer'
Could not compile Unit.1
przeciez numer.text jest typu string wiec po co to StrToInt?
A na dole jak chce zrobic swoje opisy gg + opisy to najlepiej uzyzc combo box ? i jak dokladnie je wypelnic oraz jak powinien wygladac w nich kod ?
I jak stworzyc liste kontaktow ?
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 20:24
A na dole jak chce zrobic swoje opisy gg + opisy to najlepiej uzyzc combo box ? i jak dokladnie je wypelnic oraz jak powinien wygladac w nich kod ?
I jak stworzyc liste kontaktow ?
może być kombo :) do wypełnienia masz właściwość Items, a liste kontaktów możesz stworzyć przy pomocy np ListView
1.Ok skorzystalem z ComboBox'a, ale teraz jak juz go uzupelnilem jak wygenerowac kod ustawiajacy opis/ status ?
2.Zrobilem Liste kontaktow za pomoca ListView ( vsList ), dorobilem Button i 1 pole Edit, ze ludek mogl wpisac dane i kliknac przycisk po czym doda on kolejna pozycje do ListView.
Probowalem tego:
ListView1.items.additems (edit1.text);
a;e nie dalo rady.
3.3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
czy my mamy napisać za Ciebie ten program? masz bana na google i na kursy delphi? to są podstawy podstaw więc nie przesadzaj z pytaniami
czytam aktualnie kurs Adama boducha Kompendium ale, ze jestem akurat na stronie 135 ;] to jeszcze nawet tak tego nie ma dopiero klasy itp..
prosze was o pomoc ;] Bo naprawde sam duzo na tym siedze
1.Ok skorzystalem z ComboBox'a, ale teraz jak juz go uzupelnilem jak wygenerowac kod ustawiajacy opis/ status ?
Probowalem zrobic cos w u ala :
if ComboBox1.itemindex ( nie wiem jaki to index tzn danego itemu bo mam : Dostepny ,z/w, ukryty, niedostepny, czyli
if combobox1.itemsindex. ? 1 ? then ggstatus := ? ( wartosc dla Status jak jest dla dostepny ?
else if combobox1.itemsindex. ? 2 ? then ggstatus := ? ( wartosc dla Status tzn jaka jest dla z/w
2.Zrobilem Liste kontaktow za pomoca ListView ( vsList ), dorobilem Button i 1 pole Edit, ze ludek mogl wpisac dane i kliknac przycisk po czym doda on kolejna pozycje do ListView.
Probowalem tego:
ListView1.items.additems (edit1.text);
a;e nie dalo rady.
3.3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 21:00
nie wystarczy siedzieć, a jak jesteś już na 135 to powinieneś wiedzieć coś o zdarzeniach i właściwościach, to są podstawy, a jak Ci się nie chce poszukać na Google czegoś to nie pisz tu, bo forum jest od pomocy, a nie od pisania za kogos
bylo tylko wspomniane po co sa zdarzenia i kilka przykladow, ale zobacz np uzycie combo boxa musisz znac dokladnie definicje tego komponentu tzn jak wklepac ponadto jak dziala ggStatus prawda, ale to nie ejst tak zobacz probuje sam do tego dojsc- jednak bez konkretnej wiedzy nie zrobisz tego BTW ucze sie przez proby bledy i pomoc :)
Wiec jesli mozesz/mozecie pomozcie mi w tych 3 punktach i skoncze na ten temat
Dziekuje
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 21:02
kpisz czy o drogę pytasz? jeszcze sie zapytaj jak zmienna zainicjowac :|
pytanie 1. po co cos piszesz skoro nie umiesz?
pytanie 2. ambicja? to rusz doopsko i rozwiaz problem sam, a nie pytaj innych
pytanie 3. wiesz kim jest programista?
a myslalem, ze forum po to jest..
pytanie 1. zeby sie nauczyc?
pytanie2. po to jest forum ? btw. nie pytam sie o all tylko o wybrane zagadanienia, ktore trudno mi zrozumiec.
pytanie3. jest tylko czlowiekiem -.- na roznym poziomie ( ja na basic moze nawet i nie)
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 22:21
tak tylko w programowaniu chodzi o to, że tworzysz samemu, a nie lecisz z kazdym problemem do innych
Beldzio- podjreslam nie 'z kazdym' po prostu jezeli nie wiem, ktory komponent uzyc... Zalozmy ComboBox.???.?? bo jest np wiele komponentow pochodnych/innych, oraz ktore wymagaj zmiennych itp itd , albo np z tymi statusami :) Pozdrawiam
Beldzio- podjreslam nie 'z kazdym' po prostu jezeli nie wiem, ktory komponent uzyc... Zalozmy ComboBox.???.?? bo jest np wiele komponentow pochodnych/innych, oraz ktore wymagaj zmiennych itp itd , albo np z tymi statusami :) Pozdrawiam Czlowieku, ale Ty masz problemy... Tylko nie pytaj sie nas ktory przycisk wybrac - BltBtn czy Button. A moze jakis graficzny? A moze samemu napisac - e, to odpada, nie dalbys rady...
Tobie to powinni odciac internet i dac jedna, gora dwie ksiazki o delphim. Ja kiedy zaczynalem zabawe w programiste, mialem 2 ksiazki i modem, wchodzilem do 'netu' co 2 dni na 15 minut, z niczym na forum nie lecialem, bo na zadnym nie bylem zarejestrowany. Na 4p zagladalem i stamtad pobieralem kody albo artykuly. A najwiecej to spedzilem czasu na wierceniu po demach na dysku oraz /przede wszystkim!/ na kombinowaniu. Co sie stanie jak zrobie to? A jak zrobie tak? Pomysl troche i nie zadawaj naprawde plaskich pytan...
Prawdziwy programista nie leci z byle problemem do innych, tylko sam probuje go rozwiazac, czy to kombinujac, czy czytajac jakies dokumentacje itp. Bo jak z forum bedziesz mial 50% kodu, to jak program podpiszesz? :>
X oraz uzytkownicy forum Y? A jak program zrobisz platny? Kto dostanie za niego kase?
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
mam oto taki programik, nda ktorym troszke posiedzialem :
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG, ComCtrls, jpeg, Grids; type TForm1 = class(TForm) numer: TEdit; haslo: TEdit; wiadomosc: TEdit; Polacz: TButton; Rozlacz: TButton; Start: TButton; odbiur: TMemo; gg: THGG; StatusBar1: TStatusBar; Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; klient: TEdit; Label4: TLabel; Button1: TButton; Lista: TMemo; Edit1: TEdit; Label5: TLabel; procedure PolaczClick(Sender: TObject); procedure RozlaczClick(Sender: TObject); procedure StartClick(Sender: TObject); procedure ggMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); procedure Button1Click(Sender: TObject); procedure ggConnected(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PolaczClick(Sender: TObject); begin gg.Number:=StrToInt(numer.Text); gg.Password:=haslo.Text; gg.Connect(502); end; procedure TForm1.RozlaczClick(Sender: TObject); begin gg.status:=0; end; procedure TForm1.StartClick(Sender: TObject); begin gg.SendMessage(StrToInt(klient.text),wiadomosc.Text); end; procedure TForm1.ggMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin if(ggnumber=StrToInt(klient.Text)) then begin odbiur.lines.add('Przyjaciel napisał: ' + MessageContent); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Lista.lines.add(Edit1.Text); end; procedure TForm1.ggConnected(Sender: TObject); begin if gg.Connected=true then odbiur.Lines.add('Polaczony!') else odbiur.Lines.add('Rozlaczony!') end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption = ('Ja ' + StrToInt(numer.Text); end; end.
Otoz mam pare spraw, z ktorymi nie moge sobie poradzic:
1. Chcialbym stworzyc cos wuala liste kontaktow z osobami oraz ich statusy jakie maja ( i po dodaniu takiej osoby zeby widniala przy kolejnym otwariu progsa cos wuala tabelka, w ktorej beda te ludki moze jeden przycisk co bedzie Dodawal wpisy i pole Edytuj do wpisywania numeru i ludka.
2. Ustawianie mojego statusu
3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
probowalem czegos takiego, ale bez wzgledu na to co zrobie wyskakuje : "polaczony"
procedure TForm1.ggConnected(Sender: TObject); begin if gg.Connected=true then odbiur.Lines.add('Polaczony!') else odbiur.Lines.add('Rozlaczony!') end;
4. Narazie mam tylko mozliwosc rozmowe z osoba jak wpisze jej numerek do mojego edita (klient) i wtedy tylko ta osoba i zadna inna moga do mnie pisac, a ja chcialbym, aby mogl rozmawiac z kazdym i zeby kazdy mogl wyslac wiadomo. do mnie.
5. Aha jeszcze chce zeby na Caprion formy pojawil sie tekst 'ja' i numer gg ktory wpisze w kontrolke. ten kod nie chce sie skompilowac:
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption = ('Ja ' + StrToInt(numer.Text); end;
Za pomoc bardzo dziekuje i pozdrawiam wszyskich forumowiczow.
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 10:51
2.
HGG1.Status - tam masz statusy;
HGG.Description - tu ustawiasz opis;
4. Wykonaj za pomocą dynamicznych okienek ;) : http://4programmers....nka_jak_te_z_GG
Hmm spoko, ale co np z pytaniem 1,3,5
5.
W delphi występuje :=, a nie = jak w php
procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption := ('Ja ' + StrToInt(numer.Text); end;
Ten kod jest zly, wypisuje mi: Incompatybile types : 'String' and 'Integer'
Could not compile Unit.1
Ten kod jest zly, wypisuje mi: Incompatybile types : 'String' and 'Integer'
Could not compile Unit.1
przeciez numer.text jest typu string wiec po co to StrToInt?
A na dole jak chce zrobic swoje opisy gg + opisy to najlepiej uzyzc combo box ? i jak dokladnie je wypelnic oraz jak powinien wygladac w nich kod ?
I jak stworzyc liste kontaktow ?
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 20:24
A na dole jak chce zrobic swoje opisy gg + opisy to najlepiej uzyzc combo box ? i jak dokladnie je wypelnic oraz jak powinien wygladac w nich kod ?
I jak stworzyc liste kontaktow ?
może być kombo :) do wypełnienia masz właściwość Items, a liste kontaktów możesz stworzyć przy pomocy np ListView
1.Ok skorzystalem z ComboBox'a, ale teraz jak juz go uzupelnilem jak wygenerowac kod ustawiajacy opis/ status ?
2.Zrobilem Liste kontaktow za pomoca ListView ( vsList ), dorobilem Button i 1 pole Edit, ze ludek mogl wpisac dane i kliknac przycisk po czym doda on kolejna pozycje do ListView.
Probowalem tego:
ListView1.items.additems (edit1.text);
a;e nie dalo rady.
3.3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
czy my mamy napisać za Ciebie ten program? masz bana na google i na kursy delphi? to są podstawy podstaw więc nie przesadzaj z pytaniami
czytam aktualnie kurs Adama boducha Kompendium ale, ze jestem akurat na stronie 135 ;] to jeszcze nawet tak tego nie ma dopiero klasy itp..
prosze was o pomoc ;] Bo naprawde sam duzo na tym siedze
1.Ok skorzystalem z ComboBox'a, ale teraz jak juz go uzupelnilem jak wygenerowac kod ustawiajacy opis/ status ?
Probowalem zrobic cos w u ala :
if ComboBox1.itemindex ( nie wiem jaki to index tzn danego itemu bo mam : Dostepny ,z/w, ukryty, niedostepny, czyli
if combobox1.itemsindex. ? 1 ? then ggstatus := ? ( wartosc dla Status jak jest dla dostepny ?
else if combobox1.itemsindex. ? 2 ? then ggstatus := ? ( wartosc dla Status tzn jaka jest dla z/w
2.Zrobilem Liste kontaktow za pomoca ListView ( vsList ), dorobilem Button i 1 pole Edit, ze ludek mogl wpisac dane i kliknac przycisk po czym doda on kolejna pozycje do ListView.
Probowalem tego:
ListView1.items.additems (edit1.text);
a;e nie dalo rady.
3.3. Chce tez ze jak mnie polaczy z gg napisalo w memo1 ( odbiur) na czerowno "polaczono",a jak zle haslo itp to "rozlaczony"
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 21:00
nie wystarczy siedzieć, a jak jesteś już na 135 to powinieneś wiedzieć coś o zdarzeniach i właściwościach, to są podstawy, a jak Ci się nie chce poszukać na Google czegoś to nie pisz tu, bo forum jest od pomocy, a nie od pisania za kogos
bylo tylko wspomniane po co sa zdarzenia i kilka przykladow, ale zobacz np uzycie combo boxa musisz znac dokladnie definicje tego komponentu tzn jak wklepac ponadto jak dziala ggStatus prawda, ale to nie ejst tak zobacz probuje sam do tego dojsc- jednak bez konkretnej wiedzy nie zrobisz tego BTW ucze sie przez proby bledy i pomoc :)
Wiec jesli mozesz/mozecie pomozcie mi w tych 3 punktach i skoncze na ten temat
Dziekuje
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 21:02
kpisz czy o drogę pytasz? jeszcze sie zapytaj jak zmienna zainicjowac :|
pytanie 1. po co cos piszesz skoro nie umiesz?
pytanie 2. ambicja? to rusz doopsko i rozwiaz problem sam, a nie pytaj innych
pytanie 3. wiesz kim jest programista?
a myslalem, ze forum po to jest..
pytanie 1. zeby sie nauczyc?
pytanie2. po to jest forum ? btw. nie pytam sie o all tylko o wybrane zagadanienia, ktore trudno mi zrozumiec.
pytanie3. jest tylko czlowiekiem -.- na roznym poziomie ( ja na basic moze nawet i nie)
Użytkownik Terminator2 edytował ten post 06 styczeń 2007, 22:21
tak tylko w programowaniu chodzi o to, że tworzysz samemu, a nie lecisz z kazdym problemem do innych
Beldzio- podjreslam nie 'z kazdym' po prostu jezeli nie wiem, ktory komponent uzyc... Zalozmy ComboBox.???.?? bo jest np wiele komponentow pochodnych/innych, oraz ktore wymagaj zmiennych itp itd , albo np z tymi statusami :) Pozdrawiam
Beldzio- podjreslam nie 'z kazdym' po prostu jezeli nie wiem, ktory komponent uzyc... Zalozmy ComboBox.???.?? bo jest np wiele komponentow pochodnych/innych, oraz ktore wymagaj zmiennych itp itd , albo np z tymi statusami :) Pozdrawiam Czlowieku, ale Ty masz problemy... Tylko nie pytaj sie nas ktory przycisk wybrac - BltBtn czy Button. A moze jakis graficzny? A moze samemu napisac - e, to odpada, nie dalbys rady...
Tobie to powinni odciac internet i dac jedna, gora dwie ksiazki o delphim. Ja kiedy zaczynalem zabawe w programiste, mialem 2 ksiazki i modem, wchodzilem do 'netu' co 2 dni na 15 minut, z niczym na forum nie lecialem, bo na zadnym nie bylem zarejestrowany. Na 4p zagladalem i stamtad pobieralem kody albo artykuly. A najwiecej to spedzilem czasu na wierceniu po demach na dysku oraz /przede wszystkim!/ na kombinowaniu. Co sie stanie jak zrobie to? A jak zrobie tak? Pomysl troche i nie zadawaj naprawde plaskich pytan...
Prawdziwy programista nie leci z byle problemem do innych, tylko sam probuje go rozwiazac, czy to kombinujac, czy czytajac jakies dokumentacje itp. Bo jak z forum bedziesz mial 50% kodu, to jak program podpiszesz? :>
X oraz uzytkownicy forum Y? A jak program zrobisz platny? Kto dostanie za niego kase?