Munkhoo's page

Delphi RAD STUDIO 2010

2011-01-18T21:11:00.000-08:00

RAD STUDIO 2010
DELPHI 2010

Download links:

http://hotfile.com/dl/97678207/ef88cc9/delphicbuilder_2010_3513_win.part1.rar.html
http://hotfile.com/dl/97677953/cc47a50/delphicbuilder_2010_3513_win.part2.rar.html
http://hotfile.com/dl/97678305/c369590/delphicbuilder_2010_3513_win.part3.rar.html
http://hotfile.com/dl/97678635/304aa0b/delphicbuilder_2010_3513_win.part4.rar.html
http://hotfile.com/dl/97664737/39b6579/delphicbuilder_2010_3513_win.part5.rar.html

Guide to Install Windows From USB Flash Disk

2011-01-18T19:22:00.000-08:00

Here’s what you’ll need:

1 USB flash drive, 1GB or larger
1 Windows XP installation disc
Assorted files that I’ll describe as we go along.

Preparing the flash drive

First up, we need to prepare the flash drive.

Download and unzip this file, which should contain 2 folders: 1 titled Bootsect, and the other USB_prep8.
Navigate to the USB_prep8 folder and click on usb_prep8.cmd. This will bring up a Windows console window.
Press any key to continue and a PeToUSB window will open.
Make sure your flash drive is selected, and click start to format your flash drive.
When the format is complete, click OK, but do not close the PeToUSB window or the Windows Console.
Open a new console window by typing “cmd” into the run box in the Windows Start Menu.
Find your Bootsect folder (if you’re not used to DOS commands, you can type “dir” to list directories and files, type “cd foldername” to navigate to a folder name – called foldername in this example, and if there’s a long folder name you can save time by typing the “cd” and just the first few letters and then hitting the Tab key to fill in the rest of the name).
Once you’re in the Bootsect folder, type “bootsect.exe /nt52 g:” if “g” is the letter assigned to your flash drive. If it’s E, then change the letter to e. If it’s Z, make it z. Get it?
When this is done, you should see a message letting you know that the bootcode was updated, and you can close this console window (but not the other console window).
Close the PeToUSb Window, but make sure not to close the remaining console window yet
You should now see a list of 8 options in the console.
Select one and find the drive with your Windows installation disc.
Select 2 and pick a random drive letter (but not one that’s already on your PC, since this will be a virtual drive used for copying your files).
Select 3 and enter the drive letter for your USB flash drive.
Select 4 and follow the rest of the on-screen directions and you should be all set.

The process should take about 15-20 minutes. When it’s done, you should have a bootable USB stick that you can use to install Windows XP the same way you would if you had a CD/DVD drive.

A few notes here. First of all, there’s a chance you may get down to step 15 and the program will tell you that it can’t create the virtual drive. This may happen if you’ve already gone through the whole process and are trying to do it again to fix problems. The solution seems to be rebooting your computer and trying again. Or at least that’s what worked for me.

Second, if you use NLite to shrink/slipstream/otherwise modify your Windows XP installation file, make sure you do not remove “manual installation files,” or your USB stick will be pretty much useless.

Source: http://liliputing.com/2008/04/install-windows-xp-on-mini-note-usb.html

Корни - Наперегонки с ветром

2010-09-06T20:42:00.001-07:00

Сайн байцгаана уу?

Хэдэн сарын өмнө UBS ээр гараад байсан Цэргийн сургууль /Кадетство/ киноны дууг болох Корни хамтлагийн Наперегонки с ветром дууны клипийг та бүхэнд бичлэгийн өндөр чанартайгаар хүргэж байгаадаа баяртай байна. Гоё дуу байна лээ.

Татаж авах линк: http://hotfile.com/dl/67570597/7661889/Korni-Naperegonki_s_vetrom.rar.html
http://rapidshare.com/files/417539131/Korni-Naperegonki_s_vetrom.rar

Нууц үг нь: http://mprogr.blogspot.com

Nova Era - Virtuosi

2010-08-31T18:23:00.000-07:00

Сонгодог хөгжмийн хамтлаг болох Nova Era хамтлагийн цомгуудыг хайж хайж оллоо. Та бүхэн таалан соёрхоно уу.
Бусад цомгуудыг удахгүй блогтоо нэмж оруулна. Энэ цомогт дараах дуунууд багтсан болно.

1. Canon ... J. Pachelbel
2. Seasons...A medley
3. Pavane...Gabriel Faure’
4. Concerto!...G. Pergolesi, G.F Haendel, A. Vivaldi
5. Mostly Mozart...W.A Mozart:
6. Queen of the Night... W.A Mozart
7. Moonlight Sonata Ludwig van Beethoven:
8. Double Cello Concerto G Minor...A. Vivaldi.
9. AdagioW.A Mozart:
10. A Mozart Medley...A potpourri
11. Double Vivaldi...Two Concertos in A minor...
12. Arioso ... J.S Bach
13. Canon Remix....

Download: http://rapidshare.com/files/416353230/Nova-Era-Virtuosi.rar
Password: http://mprogr.blogspot.com

FastReport 4.9.102

2010-08-30T23:17:00.000-07:00

Сайн байцгаана уу.

Блогтоо бичлэг нэмэлгүй их удлаа. Ингээд шинэ бичлэгээрээ та бүхэнд FastReport ийн шинэ хувилбар болох 4.9.102 гэсэн хувилбарыг хүргэж байгаадаа таатай байна. Дахиад шинэ хувилбар гарах болгонд та бүхэнд цаг алдалгүй хүргэж байхыг хичээх болно.

download: http://www.mediafire.com/?g466z37bmrhkh3w
password: http://mprogr.blogspot.com

2009-11-01T18:02:00.000-08:00

Сайн байна уу? Cashfiesta ч даа

Та нарт дуулгах шинэ мэдээ байна. Миний цуглуулсан доллар 50 доллар гарсан бөгөөд би мөнгөө авах хүсэлтээ илгээтэл цаанаас миний account ийг зогсоочихсон. Тэгээд юу болов, яав ийв гээд мэйл бичсэн чинь надад дараах мэйл ирсэн шүү. Та нар юу гэж бодохоо өөрсдөө л мэд. хэхэ. Би лав дахиж үүгээр оролдох хүсэлгүй болчихлоо. Хэрэгтэй зургуудыг би удахгүй хавсаргах болно. Энэ мэдээлэл та бүхэнд хэрэг болно гэж найдаж байна. Бодвол миний хийсэн програм fraudulent methods болсон юм байлгүй дээ. хэхэ. За тэгээд fraudulent methods ашиглаагүй явж байгаа хүмүүс нь юу ч болсон үргэлжлүүлээд үзнэ биздээ. Амжилт хүсье. Би лав санасандаа хүрлээ.

Dear Munkh-Erdene Ts,

Your account has been terminated according to our Terms and Conditions because you were detected to use for increasing your earnings.

You are welcome to register again with a new username, but make sure not to violate our Terms and Conditions.

Best regards,

James Bradshaw

Cashfiesta Customer Support Team

--------------------------------------------

Cashfiesta-д $45 цуглуулчихжээ

2009-05-27T18:22:00.000-07:00

Сайн байцгаана уу?
Cashfiesta руу оролгүй байж байгаад өнөөдөр орсон чинь цуглуулсан доллар маань 45 болчихсон байна. Одоо 5 доллар олчихвол чек авах эрхтэй болно. Тийм болохоор энэ сард 5 доллар олохын төлөө гүрийж байна. хэхэ. Хэрэв чек авах юм бол та бүхэнд тэр даруйд нь мэдэгднээ. Зураг дээр дарж томруул хараарай. Илүү их мэдээлэл хэрэгтэй бол коммент үлдээгээрэй

Rondo Veneziano - Visioni di Venezia

2009-01-07T17:54:00.000-08:00

Би Rondo Veneziano гэдэг сонгодог хөгжмийн хамтлагийн тоглосон аянуудад нийлээдгүй дуртай л даа. Энэ хамтлагийн хүмүүс мэдэх Visioni di venezia гэдэг цомогийг та бүхэнд хүргэж байгаадаа сэтгэгдэл өндөр байна шүү. Татаж аваад сонсоорой

http://rapidshare.com/files/180897391/Rondo_Veneziano_-_Visioni_Di_Venezia.rar.html
Download

Pass: http://mprogr.blogspot.com

Delphi component: TActiveMovie cracked version

2008-11-02T17:19:00.000-08:00

TActivemovie cracked version-ийг хайж хайж л оллоо. Энэ компонентийг ашиглаад windows mediaplayer-ээр тоглож байгаа бүх видеог delphi дээр тоглуулах боломжтой. Та бүхэнд амжилт хүсье.

Download
link: http://rapidshare.com/files/160118973/TActiveMovie.v5.3.Full.Source.For.Delphi.BCB.rar.html
Pass: http://mprogr.blogspot.com

Delphi MySql components

2008-10-23T18:55:00.001-07:00

Delphi ашиглан програм бичдэг мэргэжил нэгт залуусдаа Delphi гээс MySql-ийн db-тэй шууд /direct connection/ холбогдох компонентуудыг танилцуулж байна.

1. mydac.v5.20.1.14.src.rar - download http://rapidshare.com/files/156973251/mydac.v5.20.1.14.src.rar.html

2. CoreLab.MySQL.Data.Access.Components.v5.20.for.Delphi.BCB.Full.Sources.zip - download
http://rapidshare.com/files/156975420/CoreLab.MySQL.Data.Access.Components.v5.20.for.Delphi.BCB.Full.Sources.zip.html

3. sbmc2006.4.5.rar - download http://rapidshare.com/files/156973368/sbmc2006.4.5.rar.html

Эдгээр компонентууд таны хайж байсан компонент мөн гэж найдаж байна. Мөн танд хэрэгтэй компонент олдохгүй байвал коммент бичиж үлдээгээрэй. Юмыг яаж мэдэх вэ надад тэр компонент чинь байж магад.

Та бүхэн хүлээн авч таалан соёрхоно уу.

Windows delay problem

2008-10-20T19:38:00.000-07:00

Мэргэжил нэгт нөхөд минь ээ надад нэг асуудал тулгараад байна. Delphi дээр sleep(1) гэсэн sleep(10) гэсэн хоёр ямарч ялгаагүй хугацаа зарцуулаад байна. Дан ганц Delphi биш C# дээр бас энэ асуудал гарч байсан. Уул нь sleep(1) нь 1 миллисекунд, sleep(10) нь 10 миллисекунд хугацаа зарцуулмаар юм. Гэхдээ бас дандаа ийм бишээ. Хааяа зүгээр болчихдог. Энэ их сонирхолтой байгаамаа. Яг юунаас шалтгаалаад ийм гажиг үүсээд байгааг би сайн мэдэхгүй байна. Та нарт ийм асуудал тулгарч байсан уу?

Энийг зүгээр болгодог нэг тохиолдол олсон л доо. Өөрийн компьютер дээрээ Virtual Machine (VMWare) ажиллуулахаар зүгээр болчихдог юм байна лээ.

Энэ асуудлыг шийдэх арга байна уу? Туслаарай.

Delphi код

unit Unit1;

interface

uses

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

type

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

TMProgrsThread = class (TThread)
FX, FY, FDelay: integer;
procedure Execute; override;
constructor Create(AX, AY, ADelay: integer);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

constructor TMProgrsThread.Create;
begin
inherited Create(False);
FX:=300;
FY:=AY;
FDelay:=ADelay;
FreeOnTerminate:=True;
end;

procedure TMProgrsThread.Execute;
begin
while not Terminated do begin
if FX>0 then FX:=FX-1 else FX:=300;
Form1.Canvas.Lock;
Form1.Canvas.Rectangle(FX, FY, FX+50, FY+50);
form1.Canvas.Unlock;
Sleep(FDelay);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var t1, t2: TMProgrsThread;
begin
t1:=TMProgrsThread.Create(10, 30, 1);
t2:=TMProgrsThread.Create(10, 100, 10);
end;

end.

Delphi 6 + unicode

2008-10-16T20:09:00.000-07:00

Би delphi 6-г ашиглаад 7, 8 жил болж байна. Саяхнаас unicode ашигласан програм бичих боломжтой component олоод бөөн баяр. Та бүхэнд TMS Unicode Component Pack v1.5.0.1 -ийг танилцуулж байгаадаа баяртай байна.

Энд delphi-ийн бүх стандарт component-уудыг unicode дэмждэг болгосон хувилбарууд байгаа. Та бүхэнд амжилт хүсье.

Download component

http://rapidshare.com/files/154771518/TMS_Unicode_Component_Pack_v1.5.0.1.rar.html

Delphi send mail

2008-10-16T19:52:00.000-07:00

Delphi 6 -аас email илгээх хамгийн амархан арга

var Smtp: TNMSMTP;

.....

(*************** SENDING EMAIL *****************)

if not Smtp.Connected then begin

Smtp.Host:=EmailServerHost;

Smtp.Port:=EmailServerPort;

Smtp.UserID:=EmailFromAddress;

Smtp.Connect;

end;

if Smtp.Connected then begin

with Smtp.PostMessage do begin

FromAddress:=EmailFromAddress;

ToAddress.Text:=EmailToAddress;

Body.Text:=EmailBody;

Subject:=EmailSubject;

if FileExists(ExportFileName) then Attachments.Add(ExportFileName);

end;

Smtp.SendMail;

end;

.....

Earning AdSense Revenue: How Many Websites to Build? - Part 1

2008-10-05T23:27:00.001-07:00

Google AdSense is really a great money making program for webmasters. Before the existence of AdSense program. Making money online used to be very difficult. You will need to have a high quality product, possess advanced Internet marketing skills and be willing to invest a sum of money for setting up professional sale website and launching advertising different campaigns. You either make big money because of you product is selling well or make little that not even enough for covering your cost if the product doesn't sell.

The launched of Google AdSense changed everything. People have more choices when thinking about making money online. They no longer have to sell products on the Internet in order to earn income online. With Google AdSense program, they can become an AdSense publisher and earn ad revenue by displaying AdSense ads on their content-based website.

The Basic of Google AdSense
The concept is pretty simple. You put up a website with good content, insert your AdSense ads into your content site, and then drive targeted traffic to your website. Part of your visitors who finish reading your content will read your AdSense ad and click on it. For each ad click, you usually earn anywhere between $0.10 to $0.60 depends on the niche of your site. Those publishers who gain large traffic have earned thousands or even ten thousands dollar of AdSense revenue.

Some publishers use one or two websites to make money with AdSense, some have their own networks containing a lot of websites displaying AdSense ads which make them lucrative AdSense revenue.

Why You Shouldn’t Focus on Many Websites
As an individual publisher, it is always best to focus on using only one or two websites for AdSense program. While building a network of websites such as building fifteen content websites in different niches seem to be a great idea to earn money with AdSense. The idea assumes that you can generate $3 to $5 AdSense revenue from each site daily making a daily total of $45 to $75 AdSense income if you own fifteen website. But, practically it is very hard to succeed this way.

To make AdSense works for you, each of your sites must have quality unique content. With 15 sites, it is not possible to create unique and good content for each site by you alone. Getting help from the professional writers seems to be a good solution. But those who can write quality content are often expensive to hire. You will have a lot of writer fee to pay before you earn a single dime from AdSense.

Another problem with this idea is the website-promotion part. To make each of the websites earns AdSense income; you must be able to drive a reasonable amount of targeted traffic to each site every day. With so many content sites you maintained, you will never have enough time and energy to generate consistent traffic to your all the sites. As you aren't staying focus, you could get tire and bored easily which end up none of the sites generate revenue for you.

The publishers who really make a big money with a network of websites are those who are serious about web publishing. They have a group of experts to help him/her to create unique quality content, handle web design and do AdSense optimization with sufficient financial resources to back their plan.

Cashfiesta hack буюу Cashfiesta-г автоматаар явуулагч

2008-09-30T18:28:00.000-07:00

Сайн байна уу? Cashfiesta-г автомажуулж зогсолтгүй алхуулдаг програмаа та бүхэнд тарааж байгаадаа сэтгэл өндөр байна.

Програмыг ажиллуулахын тулд та дараах алхамуудыг хийнэ.
1. Зураг дээр байгаа шиг taskbar-ийг дэлгэцийн баруун талд байрлуулах хэрэгтэй.
2. FiestaBar - аа ажиллуулна.
3. Manager.exe-г ажиллуулна.

Анхаарах зүйл
Зураг дээр 1 гэж тэмдэглэсэн хүрээн дотор cashfiesta-ийн trayicon байрлаж байх ёстой шүү.

За ингээд л таны fiestaboy хэзээ ч зогсохгүй алхасаар л байх болно.

http://www.dba.mn/play/CashFiesta.rar

Нууц үг (password): http://mprogr.blogspot.com
Та бүхэнд амжилт хүсье!

Cashfiesta-д маань 35 доллар цугларсан байна.

2008-09-28T19:19:00.001-07:00

Сайн байцгаана уу? Сүүлийн хэдэн сар cashfiesta гаа ажиллуулсангүй баахан л удлаа. Өнөөдрөөс ажиллуулж эхэллээ. Нэгэнт л 35 доллар болчихсон юм яаж ийж байгаад 50 доллар болгоод үзье гэж бодлоо. Тэгээд л чек ирэх эсэхийг нь шалгахаас. Монголд чекийг нь авч үзсэн хүн байдаг болов уу? байдаг бол холбоо бариарай. Баярлана шүү. Аан тийм миний хийсэн cashfiesta-г автомараар явуулдаг програмыг удахгүй интернэтэд байрлуулнаа. Та бүхэн авч хэрэглээрэй.

Бүгдэд нь амжилт хүсье

Мөнгөө олсоор л байна уу

2008-03-17T01:21:00.000-07:00

Түрүү сард овоо доллар олно гэж найдаж байсан боловч ажил ихтэй байсаар олигтой оноо ч цуглуулж чадсангүй. Мөн жоохон эндүүрсэнээсээ болоод special offers-д бүртгүүлээгүйгээ мартчихаж. Нэг ёсондоо түрүү сард хариуцлага муутай л байлаа.

Энэ зурган дээр дарж сонирхоно уу. Миний статистик байгаа.

Миний өөрийн хийсэн програмыг хүмүүс их асууж байна. Юун түрүүнд гэж хэлэхэд би та бүхэнд энэ програмаа зүгээр л өгөхгүй ээ. Миний доор referral болсон хүнд л үнэ төлбөргүй програмаа өгнөө. Миний referral-д нэгдэх бол гэсэн линкээр орж бүртгүүлээрэй.

Энэ програм нь зөвхөн fiestaboy-ийг л тасралгүй алхуулах зориулалттайг анхаарна уу.

Амжилт хүсье! Надтай холбоотой байгаарай. Шинэ сонин мэдээг цаг алдалгүй блогтоо нийтлэх болно

Cashfiesta чинь сардаа ойролцоогоор хэдэн оноо цуглуулж байна даа?

2008-01-30T18:06:00.000-08:00

Миний cashfiesta сард 150 - 250 мянган оноо цуглуулдаг. Гэхдээ энэ оноог яг өөрөө цуглуулна гэвэл үлгэрийн далай болох юм байна лээ. Харин нэг жижигхэн програм хийгээд, тэр програм маань оноог тасралтгүй цуглуулахад тусалдаг юм. Зочин та миний өөрийн хийсэн тэр програмыг авахыг хүсвэл миний блогт comment дээр өөрийн мэйл хаягаа бичээрэй. Би ямар ч үнэ төлбөргүйгээр өгнө шүү. Та бүхэнд амжилт хүсье. Comment бичээрэй.

Cashfiesta - д маань мөнгө нэмэгдсээр л ...

2008-01-28T17:29:00.000-08:00

cashfiesta - д маань 11-р сард $9, 12-р сард 8 доллар орлоо. Нийтдээ 30 орчим доллартай болчихсон байгаа. Чек авахын тулд доод тал нь 50 доллартай байх хэрэгтэй. Нэгдүгээр сард 20 орчим доллар орно гэж найдаж байгаа. Хэрэвээ чек аваад чекээ бэлэн мөнгө болгоод үзчихвэл ч сайхан. Тэр мөчийг үзэхэд сар гаруй хугацаа үлдээд л байна даа. Энэ сардаа яагаад 20 доллар олно гээд найдаад байгаа вэ гэвэл нөгөө л нэг special offers-тэй холбоотой л доо. Өмнө нь дандаа нэг special offers - д бүртгүүлж чаддаг байсан /өөрөөр хэлбэл individual rate = 0.04/. Харин энэ сард 2 special offers авсан гэж найдаж байна /өөрөөр хэлбэл individual rate = 0.33$/. Энэ сарын individual rate нь дараа сарын сүүлээр батлагдаж оноогоо үржүүлдэг л дээ. Individual rate гэдэг нь таны цуглуулсан онооны 1000 оноо бүрт олгох долларын хэмжээ юм. Дараа сониноо бичнээ.

Cashfiesta - гаар мөнгө олох

2008-01-22T17:31:00.000-08:00

Монголчууд интернэтээр дүүрэн яг ийм cashfiesta-ийн сурталчилгаа хийсэн байх юм. Яг тэгээд үүнийгээ ашиглаад тэдэн доллар авлаа гэсэн юм нэг ч үгүй байх юм. Миний хувьд бүртгүүлээд 4 сар орчим болж байгаа. Одоо миний авах доллар $21 болчихсон байгаа. энэ сард дор хаяж 10 доллар олно гэдэгтээ итгэлтэй байгаа. Учир нь яаж special offer -д бүртгүүлэх аргаа олчихсон. Өмнөх сард $9 авсан. Мөн оноогоо цаг алдалгүй цуглуулах боломжтой програм зохиосон. Хүсвэл энэ програмыг та нарт үнэгүй өгч болно. Хамгийн гол нь та нар миний referal болох л хэрэгтэй. Би монголд анх удаа cashfiesta-гаас мөнгө авсан хүн болно гэдэгтээ итгэлтэй байгаа шүү. та бүхэнд амжилт хүсье. Http://mprogr.blogspot.com - руу зочилж дэлгэрэнгүй мэдээлэл аваарай

Pascal дээрх график горим ба түүнтэй ажиллах №1

2008-01-08T21:39:00.000-08:00

Сайн байна уу? Та бүхэнд энэ өдрийн мэнд хүргэе. Програмчлалын pascal хэл сонирхон судалж буй сурачидад болон хүүхэд залуучууддаа зориулан өөрийн мэддэг өчүүхэн зүйлсээ хуваалцахаар шийдлээ. Энэ удаадаа би та бүхэнд pascal-ийн стандарт биш график горимын талаар хэдэн зүйл сонирхуулъя.

График горим тогтоох

Procedure SetGraphMode(aMode: byte); Assembler;

Asm

Mov ah, 00

Mov al, aMode

Int 10h

End;

Энд байгаа процедур нь DOS-ийн дэлгэцийн стандарт горимуудыг тогтоох зориулалттай юм. Үүний aMode гэсэн аргументд дараах утгуудыг өгч болно. Үүнд:

Утга	Төрөл	Хэмжээс	Үсэг	Өнгө	Нэр	Хаяг
$0	Text	40x25	8x8	16	CGA,EGA	B800
$1	Text	40x25	8x8	16	CGA,EGA	B800
$2	Text	80x25	8x8	16	CGA,EGA	B800
$3	Text	80x25	8x8	16	CGA,EGA	B800
$4	Graphic	320x200	8x8	4	CGA,EGA	B800
$5	Graphic	320x200	8x8	4	CGA,EGA	B800
$6	Graphic	640x200	8x8	2	CGA,EGA	B800
$7	Text	80x25	9x14	16	MDA,EGA	B000
$d	Graphic	320x200	8x8	16	CGA,VGA	A000
$e	Graphic	640x200	8x8	16	CGA,VGA	A000
$f	Graphic	640x350	8x14	3	CGA,VGA	A000
$10	Graphic	640x350	8x14	4	CGA,VGA	A000
$11	Graphic	640x480	8x16	2	VGA	A000
$12	Graphic	640x480	8x16	16	VGA	A000
$13	Graphic	320x200	8x16	256	VGA	A000

Хүснэгтэд буй $0 - $13 гэж тэмдэглэгдсэн багана нь дээрх процедурын aMode гэсэн аргументд өгөх утга юм. $13 = 19 гэдгийг та нар мэдэх байхаа. $ гэсэн тэмдэг нь тухайн тоо 16тын тооллын системийнх гэсэн үг шүү дээ.

$13 горим нь тоглоом хийхэд хамгийн тохиромжтой нь гэж би боддог. Учир нь энэ хамгийн их өнгөтэйд л байгаа юм.

Дээрх горимуудаас график төрлийн горимуудыг ашиглан програм бичих гэж байгаа бол pascal хэлний стандарт GRAPH модулийн ямар ч функц ажиллахгүй. Тийм болохоор та бүхэнд дээрх горим дээр цэг зурах процедурыг хийж өгье.

Procedure MyPutPixel(x, y: integer; c: byte);

Begin

Mem[$a000: (x-1)+(y-1)*320] := c;

End;

Энд x, y нь зурах гэж буй цэгийн координат, c нь зурах цэгийн өнгө юм.

Өнөөдрийн хувьд энэ хүргээд дуусгая. Цайны цаг дуусчихлаа. Дараа үргэлжлүүлье.

Паскал хэл дээр тоглоом хийх сонирхолтой хүүхэд залуучуудад туршлагаасаа хуваалцах юмсан.

2007-12-06T20:22:00.000-08:00

Би анх 9-р ангид байхдаа паскал хэл дээр Battle city буюу Tank-ийг хийе гэж бодоод баахан олон янзын юм хийсэн. Анхны хэд нь болохоор Pascal-ийн GRAPH-ийг ашиглаж байсан. Та нар мэдэж л байгаа байх л даа pascal-ийн Стандарт функцуудээр зураг зурах болон хөдөлгөхөд ямаршуу удаан байдагийг. Мөн дээрээс нь keyboard ны давхар даралт, олон танкийг зэрэг хөдөлгөх гээд л баахан асуудлууд тулгарч байсан юм.

Графикийн асуудлаа шийдэхдээ dos-ийн 13h горим тогтоож түүн дээрээ цэг тавих, шулуун татах, тэгш өнцөгт зурах гэх мэт стандарт модульд байдаг бараг бүх процедуруудыг хийг өгсөн дөө. Энэ горим нь 320x200 гэсэн нягтралтай 256 өнгөтэй байдаг юм. Харин pascal-ийн стандарт график горим нь 640x400 16 өнгөтэй.

Харин гарны давхар даралтыг авах гэж баахан оролсоон. port[$60]-ийг л ашигласан даа. Үүнийг ашиглаад анх нэг давхар даралтыг авчихаад бөөн баяр болж байж билээ. Даанч жоохон дутагдалтай байсан. Учир нь keyboard buffer нь дүүрээд жоохон удаан дарахаар компьютер маань дуугараад болдоггүй байсан. Тэгж тэгж интернэтээс нэг юм олж тавиад болсон.

Эдгээр асуудлуудаа шантралгүй даван туулсаар 10-р ангиа төгсдөг зун нь миний хийсэн танк гэдэг тоглоом жинхэнээсээ ялгарахааргүй л болсон доо. Pascal хэл дээр ч бас чамгүй туршлагатай болсон гэж боддог.

За тэгээд жижиг том янз бүрийн асуудлууд л гардаг юм билээ. Та яг одоо pascal хэл дээр ямар нэгэн тоглоом хийхэд тань хүндрэл гараад шийдэж чадахгүй байгаа бол надад хандаарай. Мэддэг л зүйл байвал чадлын хэрээр туслах болно.

Интернэт ашиглан мөнгө олох

2007-12-04T23:23:00.000-08:00

Сайн байцгаана уу?
Интернэт ашиглан мөнгө олох гэсэн сэдвээр монголын бараг блог болгон дээр, мөн томоохон сайтуудын сэтгэгдэл бичих хэсгүүд дүүрсэн харагдаж байна. Тэдгээрийн нэгэн адил би бас интернэт ашиглан мөнгө олох л санаатай cashfiesta -г баахан ухлаа. Cashfiesta-г монголд надаас өөр тууштай судалж, ажиллуулсан хүн бараг байхгүй гэдэгт итгэж байна. Би эхлээд бараг 10 сар болж байна. Голоор нь ганц хоёр сар засварласан нь ч байгаа л даа. Гэхдээ энэ хугацаа надад хангалтгүй л санагдаж байна. Би сардаа 200,000 гаруй оноо цуглуулдаг. Тэгсэн хэрнээ л одоо болтол мөнгө аваагүй л байна. хэхэ. Жоохон бүтэл муутай л байна. Гэхдээ л мөнгө авна л гэж бодож байгаа. Миний жаал дандаа л алхаж байдаг. Учир нь би нэг жижигхэн програм хийсэн юм. Тэр програмаа ажиллуулаад орхихоор миний хэрэг ч гэж үгүй л дээ. Нэг өдөрт бүтэн ажиллуулвал 14400 оноо авдаг. Сардаа 14400*30=432000 оноо цуглуулах боломжтой гэсэн үг. Энэ 432000 онооны 1000 бүр нь 0,01 доллар гээд бодохоор сардаа 4,32 доллар олж байгаа юм. Би дундажаар сардаа 1,5 - 2 орчим доллар олдог. 1000 оноо бүрд ноогдох долларын хэмжээг өөрчлөх боломж ч байгаа л даа. Тэр нь нилээд ноотой. special offers гэж нэг юмнуудад бүртгүүлвэл 1000 оноонд авах доллар их болно. За тэгээд баахан юм нуршчихлаа. Сонирхосон хүнд нь янз бүрийн арга хэлж өгнөө. Надад одоо нийт 15 орчим доллар л цугларсан байгаа. Инээдтэй байгаа биз? Гэхдээ сардаа дор хаяж 50 доллар олдог болно гэдэгтээ итгэлтэй байгаа шүү. та бүхэн бүртгүүлээд үзээрэй. Миний хийсэн гэх програмыг авахыг хүсвэл миний сүлжээнд орох хэрэгтэй шүү. Тэгсэн тохиолдолд би шууд програмаа өгөх болно. Амжилт хүсье

Yahoo messenger connection problem

2007-07-30T19:16:00.000-07:00

Манай байгууллага yahoo messenger-ийг орохыг нь болиулчихлаа. Надад ямар нэгэн аргаар yahoo messenger -т орох боломж байгаа болов уу? энэ тухай мэддэг чаддаг хүн байвал надад туслаач. Ямар нэгэн proxy ч юмуу?

PostMessage - ийг баахан ухлаа

2007-07-18T02:54:00.000-07:00

Өнөөдөр би ажил дээрээ Delphi - гийн sendmessage-ийг ашиглаад өөр нэг application-руу давхар товчны хослол илгээх гээд баахан ухлаа. Интернэт гэдэг их ахаасаа ч бас баахан шалгаалаа. Ер чадсангүй шүү. Яг юу хийх гээд байсан маань гэвэл notepad-руу CTRL+A гэсэн товч дарагдлаа гэсэн мессэж илгээх гээд л байсан юм. Үүнийг хийж байсан хүн байвал надад нэг тус болооч. Сүүлдээ бүр боломжгүй мэт санагдаад явчихлаа. Өөрийнхөө кодын зарим хэсгийг та бүхэнд үзүүлье.

procedure TForm1.Button2Click(Sender: TObject);
var a: TKeyboardState; h: Cardinal;
begin
h:=FindWindow('notepad', nil);
GetKeyboardState(a);
a[VK_CONTROL]:=128;
SetKeyboardState(a);
PostMessage(h, WM_KEYDOWN, 17, 1900545);
PostMessage(h, WM_KEYDOWN, 65, 1966081);
PostMessage(h, WM_KEYUP, 65, 1966081);
PostMessage(h, WM_KEYUP, 17, 1900545);
Application.ProcessMessages;
GetKeyboardState(a);
a[VK_CONTROL]:=$1;
SetKeyboardState(a);
end;

2007-07-18T02:03:00.000-07:00

Блогт маань тавтай морил!

Энэхүү блог маань мэрэгжил нэгт нөхдөд маань бага ч гэсэн тус болох болтугай.