Programozás

[bigamer]

én arra vevő lennék

[JP]

Igen szerintem is neki állok. Vagy szövegszerkesztővel megírom vagy honlapot írok rá. Szerintem a szövegszerkesztős egyszerűbb.

De itt kérdezhet bárki a programozásról vagy küldjön nekem mail-t. Kérdezzetek ,hogy én hogy írnék meg egy feladatra egy programot stb..
Mail cím: programozo007@gmail.com

[Rudi]

Delphi7 Enterprise nyelven

Csak delphi nyelv van

ez egy ingyenes programozó

Fordítóprogram, az enterprise változat 900000 forint körül van

Az első példák meg pascal nyelven voltak.

Egyébként nem csesztetésből, csak kijavítottalak

Nagyon tetszik egyébként, csak így tovább, majd rakd ki a blogcímet is

[JP]

Igen mert a Delphi 7 egy Object Pascal nyelven alapuló programozási nyelv. Annyi a különbség Pascal és az Object Pascal nyelv között hogy az Object Pascal az object orientált nyelv és van benne egy variants változó. Az object orientált nyelv azt jelenti hogy osztályokban írjuk a nyelvet.
Példa:

Kód:

Type TOsztaly = class(TObject) // A class szó után meg lehet adni melyik ősosztályból származtatjuk (öröklődés)
                   private // Rejtett adatmezők
                    Tar: Integer; // Itt nem kell var kulcsszó 
                   protected
                    procedure Beker(szam: Integer); // Ezek eljárások de itt methodusoknak fogjuk nevezni csak ezek férhetnek hozzá az adatmezőkhöz
                    procedure Hozzaad(var s: String); //a var kulcsszó itt megváltoztatja paraméterként adott változó értékét
                   public
                    constructor Letrehoz(beall: Integer); // Ezzel hozzuk létre az osztályt
                    destructor Megszüntet; // Ezzel szüntetjük meg az osztályt
                   published
                    property Bekeres: Integer read Beker write Tar; // Ez egy tulajdonság egyszerűbb kezeléshez  a read-el olvassuk
                  end;                                                                 // a beker eljárást és a write-vel írjuk vele a Tar adatmezőt 
                  
implemation

procedure Beker(szam: Integer);
begin
 Tar:=szam;
end;

procedure Hozzaad(var s: String);
begin
 s:=IntToStr(Tar); //Ez egy eljárás ami számból stringet csinál
end;

constructor Letrehoz(beall: Integer);
begin
 Tar:=beall;
end;

destructor Megszüntet;
begin
 Tar:=0;
end;

end;

Használata:
 // Kihagyom a program fejlécét
var Szam: TOsztaly;
     Szöveg: String; 
begin
 Szam:=TOsztaly.Letrehoz(54287); // Lehet az Create constructor-t is használni ez a lehetőség mindig megvan
 Szam.Bekeres:=54287 // Ez ugyanaz az értékadás csak tulajdonsággal
 Szam.Hozzaad(Szöveg); //Szöveg változónak adjuk a szám értékét
 Szam.Megszüntet; // Ehelyet pedig a Destroy destructor-t
 writeln(Szöveg);
end.

Eredmény:

54287

Ja és szerintem van Delphi7 Enterprise verzió csak alaposabban rá kell keresni mert ez már elég régi 2000 körül jelent meg.

[Rudi]

Nem azt mondom hogy nincs. Van, de az a fordítóprogram, magák a komponensek amúgy isletölthetők/megírhatók szóval nem egy külön programnyelv.

[JP]

A Delphi 7 viszont már annyira régi hogy ingyenesen letölthető kivéve a Trial verzió utánanéztem. Csak azért mondom mert senki sem fog boldogulni ha nem látja a kezelőfelületet. Amikor még nyelv alapjait vesszük nem kell még letölteni.
U.i: A weblap php nyelven alapuló akit érdekel (küldjön levelet) annak leírom hogy fogom megoldani a felhasználói és fórum részét.

[Oli]

http://notch.tumblr.com/post/3746989361/terrain-generation-part-1
Notch írása a Minecraft programozási részleteiről - ez, az első rész a talaj generálásról. Érdekes olvasmány, még lesz folytatása.

[JP]

Oli te csak weblap készítéssel foglalkozol vagy alkalmazások készítésével is?

[kléni]

Weblap, csak játszik az mc-vel, vagy nézi notch blogját, és ott talált rá.

[Oli]

Nézem Notch blogját, és néha játszok az MC-vel. Amúgy a programozáshoz nincs sok közöm.

[JP]

Helló megint itt vagyok php-soknak egy kis részlet felhasználó adatvédelmével kapcsolatban.

Bejelentkezés:

Kód:

<?php

  $kapcsolat = mysql_connect("127.0.0.1","felhasznalo neved","jelszavad");
  mysql_select_db("adatbazisod", $kapcsolat);  

  $fh = $_POST["bfh"];

  $sql_1 = "SELECT * FROM `adatbazis`.`adattabla`";

  $eredmeny_1 = mysql_query($sql_1);

  $sorok = mysql_num_rows($eredmeny_1);
  
  $index_1 = 0;
  $index_2 = 1;
 
  $szamlalo_1 = 0;
  $szamlalo_2 = 0;
  $szamlalo_3 = 0;

  $byte_1 = 255;

  $ment = "";
  
  while ($szamlalo_2 <= $byte_1) {
    
    $szamlalo_2 += 1;

    $karakter[] = chr($szamlalo_2);

    if ($szamlalo_2 <= 50) {
      
      $code[] = chr($szamlalo_2+50) . chr($szamlalo_2+60) . chr($szamlalo_2+80) . chr($szamlalo_2+80);
    
    }

    elseif ($szamlalo_2 > 50) {
      
      $code[] = chr($szamlalo_2-50) . chr($szamlalo_2-25) . chr($szamlalo_2-45) . chr($szamlalo_2-10);
    
    }

   }

  while (strlen($fh)>=$szamlalo_1) {    

    $szamlalo_1 += 1;

    $betu = substr($fh, $index_1, $index_2);

    while ($szamlalo_3 <= $byte_1) {
      
      $szamlalo_3 += 1;

      if ($karakter[$szamlalo_3] == $betu) {
        
        $ment .= $code[$szamlalo_3];

       }

     }

    $index_1 += 1.75; 
    $index_2 += 1;    
    
   }

  $sor = mysql_fetch_array($eredmeny_1);
  if ($ment == $sor["Felhasznalo"]) {

    $nev = $sor["Felhasznalo"];

   }
  elseif ($ment !=$sor["Felhasznalo"]) {
  
    while ($sorok>0 and $ment != $sor["Felhasznalo"]) {

      $sor = mysql_fetch_array($eredmeny_1);
      if ($ment == $sor["Felhasznalo"]) {

        print "Üdvözlöm " . $_POST["bfh"];

       }

     }

    if ($ment != $sor["Felhasznalo"]) {

      print "A felhasznalonev nem letezik!";      

     }

  }

  mysql_close($kapcsolat);

?>

Annyit most írtam le hogy már nem is tudom hogy van-e benne hiba szóljatok ha van és kijavítom. Regisztrációt most nem írom le de hasonló ehhez egyébként meg az ebben különbözik:
$sql_2 = "INSERT INTO `adatbazis`.`adattabla` (`Felhasznalo`) VALUES ('$ment')";

Javítsatok ki ha valamiben tévedek. Szerintem van ennek egyszerűbb változata is de a programozás lényege, hogy mindenki azokkal a parancsokkal oldja meg a feladatot amiket már ismer. Az én programom alapparancsok használ így remélhetőleg mindenki érteni fogja.

EDIT: Na átírtam a $ment-et el is felejtettem felhasználni.

[kléni]

Öhm. Jelszóval mi lesz? Valahogy azt is meg kéne nézni...
Azon kívül ha már lefuttattad azt a kód ellenőrző vackot, amit amúgy 4 sorban el lehet intézni sokkal gyorsabban, miért nem csináltál vele semmit? A $ment nincs felhasználva sehol.
Azon kívül, ha már beleraktad a mysql_select_db()-t, akkor miért írod bele a query-be az adatbázis nevét? Arról nem is beszélve, hogy a ` elhanyagolható, csak a phpmyadmin marhasága.

A programozásnak meg nem pont az a lényege. Főleg az, a lehető leggyorsabban a legjobbat a legszebben csináld meg. Erre a kódra pl egyik sem mondható rá.

Egy tipp, amit javaslok:

Kód:

<?php
	mysql_connect("", "", "");
	mysql_select_db("");
	$sql = mysql_query("SELECT jelszo FROM felhasznalo WHERE nev='".mysql_real_escape_string($_POST["nev"])."'");
	if (mysql_num_rows($sql) == 0)
		echo "Ilyen felhasználó nem létezik";
	else
	{
		$sor = mysql_fetch_array($sql);
		if ($sor["jelszo"] != sha1($_POST["jelszo"]))
			echo "Hibás jelszó";
		else
			echo "Üdv".htmlentities($_POST["nev"]);
	}
?>

[JP]

Én már így szoktam meg és a $ment illetve ezt a program kódott egy oldalamból másoltam ki és ott regisztrációnál használtam úgy alakítottam most át bejelentkezővé elfelejtettem kitörölni mindjárt módosítom a program kódot a $ment lett volna a lekódolt rész.

[JP]

De a lekódolás érthetően modellezi nem? Szerintem meglehet érteni belőle, hogy mit akartam megmutatni.

[kléni]

Hát hogy őszinte legyek, nem igen jött le. Regisztrálásnál van értelme, de belépésnél minek? Átalakítod a betűket, vagy kiszeded a nem kellőt. De ez pont hogy csak regisztrálásnál kell, ha belépésnél nem egyezik, már nem is engeded belépni. Ugyan nem néztem meg, mi átváltva a betű, de gondolom valami speciális karakter. Annak meg belépésnél nincs értelme.