(مزخرفي بيش نيست)

سلام به همگی

چند سال پیش یکی از آشنایان را دیدم که باحروف ابجد برای مردم فال ازدواج میگرفت.همین چند وقت پیش هم یه جستجو تو اینترنت زدم و دیدم خیلی ها باور دارند که این فال با بقیه فالها و به اصطلاح طالع بینی ها تفاوت داره.
منم کنجکاو شدم و یه تستی کردم.البته به دلیل داشتن محاسبات معمولاْ هر کسی فقط یک بار این کار را انجام میده چون دیگه حس و حالی براش نمی مونه که دوباره محاسبه کنه.

من این کارو چند بار برای چند ازدواج موفق تست کردم ونتیجه های بی ربطی داد.
بعد روی ازدواج حضرت علی و حضرت فاطمه تست کردم جواب کاملاْ بی ربطی داد.
بعد با یکی که به عقیده من در علم جفر و اعداد و خیلی چیزهای دیگه حرفی برای گفتن داشت مشورت کردم.ایشون گفتند : این محاسبات به چند روش انجام میشه.انجام محاسبه و گرفتن نتیجه کار هر کسی نیست.طالع هر شخص در بعضی از ماهها عوض میشه.انجام این محاسبات برای امامان و پیامبران امکان پذیر نیست وبرای اثبات اینها برای من محاسباتی کردند و نتیجه همه مطابق با واقعیتی بود که من میانستم نه اون.(البته این شخص ازاون رمالها نیست و من کارهای زیادی ازش دیدم.کارهایی که گاهی برای من هم شگفت انگیز بودن)

خلاصه بگم :
بنده به دلیل اینکه دوستان و رفقا گول این چرندیات را نخورند  بدونند که هر کاری را باید کاردان انجام بده نه اینکه هر اسبی بیاد و ادعای فضل بکنه و . . . .
يه برنامه كوچيك نوشتم كه درست همان محاسباتي که در وب سايتها و بلاگها گفته شده را انجام ميده (اگه طالع بینی با حروف ابجد را جستجو کنید به روش محاسبه میرسید-البته تو متن برنامه مشخص هست-) و شما با تست انواع اسمهای فامیلتون از صحت و یا عدم صحت این روش آشنا خواهید شد.

جهت دریافت برنامه اینجا کلیک کنید.

برای اینکه این پست مطلب مفیدی داشته باشه کد برنامه را در زیر میندازم تا شاید یک سری از دوستان از این کد استفاده کنند و به جونمون دعا کنند.

سر نوشت (ابتدای نوشته) : کد به زبان دلفی (DELPHI) نوشته شده.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function abjad (txt :string):integer;
var str : string ; len,num,sum,i:integer;
begin
sum:=0;
 Len := Length(txt);

  for i:=1 to len do
  begin
 str:= copy(txt,i,1);
   if (str='ا') then begin num:=1; sum:=sum+num; end;
   if (str='آ') then begin num:=1; sum:=sum+num; end;
   if (str='ب') then begin num:=2; sum:=sum+num; end;
   if (str='ج') then begin num:=3; sum:=sum+num; end;
   if (str='د') then begin num:=4; sum:=sum+num; end;
   if (str='ه') then begin num:=5; sum:=sum+num; end;
   if (str='و') then begin num:=6; sum:=sum+num; end;
   if (str='ز') then begin num:=7; sum:=sum+num; end;
   if (str='ح') then begin num:=8; sum:=sum+num; end;
   if (str='ط') then begin num:=9; sum:=sum+num; end;
   if (str='ي') then begin num:=10; sum:=sum+num; end;
   if (str='ک') then begin num:=20; sum:=sum+num; end;
   if (str='ل') then begin num:=30; sum:=sum+num; end;
   if (str='م') then begin num:=40; sum:=sum+num; end;
   if (str='ن') then begin num:=50; sum:=sum+num; end;
   if (str='س') then begin num:=60; sum:=sum+num; end;
   if (str='ع') then begin num:=70; sum:=sum+num; end;
   if (str='ف') then begin num:=80; sum:=sum+num; end;
   if (str='ص') then begin num:=90; sum:=sum+num; end;
   if (str='ق') then begin num:=100; sum:=sum+num; end;
   if (str='ر') then begin num:=200; sum:=sum+num; end;
   if (str='ش') then begin num:=300; sum:=sum+num; end;
   if (str='ت') then begin num:=400; sum:=sum+num; end;
   if (str='ث') then begin num:=500; sum:=sum+num; end;
   if (str='خ') then begin num:=600; sum:=sum+num; end;
   if (str='ذ') then begin num:=700; sum:=sum+num; end;
   if (str='ض') then begin num:=800; sum:=sum+num; end;
   if (str='غ') then begin num:=1000; sum:=sum+num; end;
   if (str='گ') then begin num:=5000; sum:=sum+num; end;
   if (str='چ') then begin num:=3000; sum:=sum+num; end;
   if (str='پ') then begin num:=2000; sum:=sum+num; end;
   if (str='ژ') then begin num:=4000; sum:=sum+num; end;
   end;
  abjad:=(sum);
end;
procedure TForm1.Button1Click(Sender: TObject);
var allsum,t:integer;
begin

        allsum:=(abjad(edit1.text))+(abjad(edit2.text))+(abjad(edit3.text))+(abjad(edit4.text));
     edit6.Text:=inttostr(abjad(edit1.text));
     edit7.Text:=inttostr(abjad(edit2.text));
     edit8.Text:=inttostr(abjad(edit3.text));
     edit9.Text:=inttostr(abjad(edit4.text));
     edit5.Text:=inttostr(allsum);
     if ((Edit6.text='0') or (Edit7.text='0') or (Edit8.text='0') or (Edit9.text='0')) then
begin
  Label5.Caption:='مشاهده خطا در وارد کردن اطلاعات';
    ShowMessage('لطفاً براي مشاهده نتيجه درست تمامي گزينه ها را به فارسي وارد نماييد');

    Exit ;
end;
       t:=allsum mod 5;
       edit10.Text:=inttostr(t);
       if (t=0)then Label5.Caption:='مي توانند به هم برسند ولي با قهر ودعوا';
         if (t=1)then Label5.Caption:='به هم خواهند رسيد';
           if (t=2)then Label5.Caption:='به هيچ وجه به هم نخواهند رسيد';
           if (t=3)then Label5.Caption:='به هم خواهند رسيد';
                      if (t=4)then Label5.Caption:='به هيچ وجه به هم نخواهند رسيد';
                 if (t=5)then Label5.Caption:='به هم خواهند رسيد';

  end;
procedure TForm1.N1Click(Sender: TObject);
begin
Close ;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
ShowMessage('esmailnasr@yahoo.com')
end;

end.