[Помогите!] Хочу стать программистом

[barmatula]

Хочу научится программировать на дельфи ,но в этом я нуб нубом,могу писать только автологины и месэджбоксы,и то на автоите,уважаемые пользователи,не могли бы вы мне посоветовать что-нибудь,дать простенькие программки из раздела "Разработка ПО для Perfect World".Естественно за полезные ответы вам "Спасибо"

[flekko]

Аналогичная просьба... Посоветуйте что-нибудь

Ну а для ТС Авто-поттер

[ЧеловечЭ]

Черт побери, открываешь ютуб, набираешь в строке поиска (беленькая такая, черными полосками обведена) "Уроки Delphi для новичков", учишь. Так тяжело, что ли?

[barmatula]

Цитата: Сообщение от flekko Аналогичная просьба... Посоветуйте что-нибудь Ну а для ТС Авто-поттер

я даже писать не знаю куда это нужно

[BeFreee]

так делфи тот же паскаль но с ньюансами..
паскаль тебе в помощь )))

[barmatula]

пытался сделать этот кальк,
вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Perem1, Perem2 : Integer;
  Perem3 : Double;
begin
Perem1 := StrToInt(Edit1.Text);
  Perem2 := StrToInt(Edit2.Text);

  If Perem2 = 0 then begin
    ShowMessage('Ну нульзя же на 0 делить!');
        Edit3.Text := '0';
  end
  else begin

Edit3.Text := FloatToStr(Perem1 / Perem2);

end;

end.

он ругался сначало ,что после энда точка стоит,потом ругался на пустые строчки.Это как понимать?
Мб после установки дельфи комп не перезагрузил?

[Mars']

два энда, убери один энд и оставь один с точкой в конце

[mistik1]

Цитата: Сообщение от barmatula Он ругался сначало ,что после энда точка стоит,потом ругался на пустые строчки.Это как понимать? Мб после установки дельфи комп не перезагрузил?

Если ругается на end проверь их количество. Если на пустые строчки После end. сохрани программу (save project ass).

Для 1 раза прога достаточно хорошая=), все с этого начинали =)
На будущее подключай манифест XP (вкладка win32 =>XPManifest(кинь на форму и забудь) или так =>

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,XPman;

Прога не будет "Квадратной" =) улучшится внешний вид.

Если надо скину кучу исходников,тебе для обучения.

Вот для начала (исходники не мои, но учился основам по ним=))
[Ссылки могут видеть только зарегистрированные пользователи. ] При этом Avast,Kaspersky,NOD32 молчат =)
[Ссылки могут видеть только зарегистрированные пользователи. ]

[ЧеловечЭ]

Калькулятор? 5 секкунд писанины. (VB.Net)

Public Class Form1
    Private A, B As Double



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        A = TextBox1.Text
        B = TextBox2.Text
        TextBox3.Text = (A + B).ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        A = TextBox1.Text
        B = TextBox2.Text
        TextBox3.Text = (A - B).ToString
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        A = TextBox1.Text
        B = TextBox2.Text
        TextBox3.Text = (A * B).ToString
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        A = TextBox1.Text
        B = TextBox2.Text
        TextBox3.Text = (A / B).ToString
        If TextBox2.Text = "0" Then
            Label4.Visible = True
            Label4.Text = "На ноль делить нельзя"
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub
End Class

В итоге получилась [Ссылки могут видеть только зарегистрированные пользователи. ].
Няшка с секретом, кто найдет, получит спасибку
(В исходник не включил секретик)

[Bосh]

Учись с помощью гугла. Он почти всегда поможет.
Захотел что нибудь сделать в плане разумного, набрал в гугл и дальше ищешь.
Или просто почитай какие нибудь книжечки, для основ достаточно.
Возможно сначала будет не получаться, главное не бросать, а учить дальше, со временем все придет.
И начинай учить с самого простого, а не с программ для PW.
Обязательно скачай и посмотри вот эти видео уроки, как раз для начала самое то.
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

[ЧеловечЭ]

Ну, раз уж так, то лучше скачай себе исходники (желательно с комментариями), и разбирайся в них. По лучше многих книг будет.

[Bосh]

Цитата: Сообщение от ЧеловечЭ Ну, раз уж так, то лучше скачай себе исходники (желательно с комментариями), и разбирайся в них. По лучше многих книг будет.

Разбираться самому, не у многих получается.
Так что лучше Книги или Видео Уроки с объяснениями.

[ЧеловечЭ]

Цитата: Сообщение от Bосh Разбираться самому, не у многих получается.

Это да, бывают такие личности
Тогда, бери видеоуроки (в них все наглядно показано), по ним выучи основы, потом, с уже более сложными примерами, разбирайся на чужих исходниках, и пополняй ряды программистов.

[barmatula]

вчера это читал [Ссылки могут видеть только зарегистрированные пользователи. ]

[ЧеловечЭ]

[Ссылки могут видеть только зарегистрированные пользователи. ], но там найдешь много чего интересного