Programlama yapalım ve Öğrenelim.

dillerin karşılaştırılması

dilleri kullanım oranı örnek aynı uygulama

assembler delphi c++ vbasic python flash

2,5 bayt 345kb 18kb 17kb 5,35mb 1,86mb boyutları

0,1 0,5 0,8 1,2 3,6 1,80 çalışma süreleri

%1 %3 %7 %42 %15 %80 bozulma yüzdeleri

%10 %92 %65 %47 %34 %5 kullanılabilirlik

1.assembler

2.delphi

3.c++

4.vbasic

5.python

6.flash

arkadaşlar gördüğünüz üzere delphi kullanılabilirlik açısından %92 gibi büyük fark atmıştır

bir de kalkmış burda vbasici övüyorsunuz..ben 16 yaşındayım ve 4 yıllık programlama tecrübem var

bu süre çok uzzzzzuuuun bi süre değil ama tüm dilleri aşağı yukarı kullandım

ve vbasic kadar zevzek bir dil görmedim.

İngilizcesi orta seviye olan biri bile rahatlıkla yazılabilir.O kadar küçülmüş bir dilki

"unload me" yazınca program kapanıyor.

"application.terminate"ise daha profesyönelce gözüküyor.

---bir çoğunuz diyecektirki ne kadar iyi işte ingilizce ile yazılıyor abuk subuk bir sürü

kelime öğrenmemize gerk yok--ama gerçek bundan ibaret değil visual basic ile amatörler ---delphi ile

profesyoneller--assembler ile ise kendini aşmış insanlar uğraşır.

z++ dili dahi çıksa tabanının assembler olacağını unutmayınız

saygılarımla ~~hsn~~

2 mart 2008

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

tabiki bu kadar değil şimdide ekranın arkasını tasarım yapma kodunu verelim

formun on paint olayına

2 adet spin edit koymayı unutmayınız!

procedure TForm3.FormPaint(Sender: TObject);

var x,y:integer;

axa:integer;

begin

x:=0;

axa:=form3.SpinEdit2.Value;

while (x<form3.Width) do

begin

x:=x+form3.SpinEdit2.Value;y:=0;

while (y<form3.Height) do

begin

y:=y+form4.SpinEdit2.Value;

form3.Canvas.Pen.Mode:=pmMaskPenNot;

form3.Canvas.Pixels[x- axa -1,y- axa -1]:=clWindow;

end;

Delphi - .....................................

Butonu klasore yonledırme kodu

Selam arkadaşlar,

Butonu klasore yonledırme kodunu aşağıda 2 çeşit veriyorum.

Bulamayan arkadaşlar Codebankta kodlar zaten mevcut lütfen biraz arayın...

*******************************************************

Eğer Dosya aç diyaloğu ile isteniyorsa

Dialogs sekmesinden TOpenDialog bileşeni eklenir

procedure TForm1.Button1Click(Sender: TObject);

begin

opendialog1.InitialDir:='C:'; // Açılacak dizin

opendialog1.FileName:='';

opendialog1.Filter:='*.exe'; // Dosya filtresi

opendialog1.DefaultExt:='*.exe'; // Geçerli dosya uzantısı

if opendialog1.Execute then yolyeni:=opendialog1.FileName;

end;

*******************************************************

//Windows Gezginini istediğiniz bir klasörle açma

uses kısmına ShellApi unitini ekleyin.

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(0,'explore', 'C:WINDOWS', //buraya açmak istediğiniz klasörü yazın.

nil, nil, SW_SHOWNORMAL);

end;

Delphi - .....................................

DevExpress Scheduler2 Türkçeleştirmesi

{********************************************************************}

{ Bu kodukopyalayıp cxSchedulerStrs.pas içerisine yapıştırın }

{ ..devexpressScheduler2 klasörü içerisinde bulabilirsiniz }

{ Bu Türkçeleştirme www.urve.com.tr tarafından yapılmıştır. }

{ }

{ Developer Express Visual Component Library }

{ ExpressScheduler }

{ }

{ The entire contents of this file is protected by U.S. and }

{ International Copyright Laws. Unauthorized reproduction, }

{ reverse-engineering, and distribution of all or any portion of }

{ the code contained in this file is strictly prohibited and may }

{ result in severe civil and criminal penalties and will be }

{ prosecuted to the maximum extent possible under the law. }

{ }

{ RESTRICTIONS }

{ }

{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }

{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }

{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }

{ LICENSED TO DISTRIBUTE THE EXPRESSSCHEDULER AND ALL ACCOMPANYING }

{ VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }

{ }

{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }

{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }

{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }

{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }

{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }

{ }

{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }

{ ADDITIONAL RESTRICTIONS. }

{ }

{********************************************************************}

unit cxSchedulerStrs;

{$I cxVer.inc}

interface

resourcestring

scxUntitledEvent = 'Başlıksız';

scxVertical = 'Dikey';

scxHorizontal = 'Yatay';

scxTimeGrid = 'Zaman Çizgisi';

scxMinute = 'Dakika';

scxMinutes = 'Dakikalar';

scxHour = 'Saat';

scxHours = 'Saatler';

scxOneDay = '1 Gün';

// dialogs constants

scxDeleteRecurringEventDescription = 'is a recurring event. Do you want to delete only this occurrence or the series?';

scxEditRecurringEventDescription = 'is a recurring event. Do you want to open only this occurrence or the series?';

scxGoToDateDialogCaption = 'Tarihi Git';

scxDeleteTypeDialogCaption = 'Silme Uyarısı';

scxDeleteTypeOccurrenceLabel = 'Başlangıcı Sil';

scxDeleteTypeSeriesLabel = 'Seriyi Sil';

scxEditTypeDialogCaption = 'İstisna Nesne Aç';

scxEditTypeOccurrenceLabel = 'Başlangıcı Aç';

scxEditTypeSeriesLabel = 'Seriyi Aç';

scxExitConfirmation = 'Değişiklikleri Kaydetmek İstiyormusunuz?';

scxDeleteConfirmation = 'Madde Değiştirildş. Silmek İstiyormusunuz?';

scxWrongTimeBounds = 'Başlangıç Tarihi Bitiş Tarihinden Önce Girilmiş';

scxWrongPattern = 'Geçersiz Şablon.';

scxReplaceOccurrenceDate = 'Bazı aylar bu günlere %s sahip değil. bu aylar için , bu günler ayın son gününe denk gelmektedir.';

scxInvalidRecurrenceDuration = 'The duration of the event must be shorter than how frequently it occurs. ' +

'Shorten the duration, or change the recurrence pattern in the Recurrence dialog box.';

scxConfirmLostExceptions = 'Any exceptions associated with this recurring event will be lost. Is this OK?';

scxInvalidNumber = 'Geçerli bir numara girmek zorundasınız';

scxNoAvailableFreeTime = 'Geçerli zamanlar kullanılabilir';

scxEvent = 'Olay';

scxUntitled = 'Başlıksız';

scxNoneEvent ='Basit Olay';

scxRecurrenceEvent ='Tekrarlanan Olay';

scxExceptionEvent ='İstisna Olay';

scxOccurenceEvent ='Başlangıç Olayı';

scxAdd ='&Ekle';

scxEdit ='&Düzenle';

scxDelete ='&Sil';

scxRecurrence ='&Yineleme';

scxDate ='&Tarih:';

scxShowIn ='&Göster:';

scxDayCalendar ='Günlük Takvimi';

scxWeekCalendar ='Haftalık Takvim';

scxMonthCalendar ='Aylık Takvim';

scxWorkWeekCalendar ='Çalışılan Günler Takvimi';

scxResource ='Bölüm';

scxSubject ='&Başlık:';

scxLocation ='&Yer:';

scxLabel ='Bil&gi:';

scxStartTime ='B&aşlangıç Saati:';

scxEndTime ='&Bitiş Saati:';

scxAllDayEvent ='&Tüm gün randevuları';

scxReminder ='Hatırlatma:';

scxShowTimeAs ='Göster:';

scxSuffixMinute ='dakika';

scxSuffixMinutes ='dakika';

scxSuffixHour ='saat';

scxSuffixHours ='saat';

scxSuffixDay ='gün';

scxSuffixDays ='gün';

scxSuffixWeek ='hafta';

scxSuffixWeeks ='hafta';

scxBusy ='Meşgul';

scxFree ='Serbest';

scxTentative ='Hemen Dönecek';

scxOutOfOffice ='Dışarıda';

scxRecurrenceCaption ='Olay Yineleme';

scxEventTime ='Olay Saati ';

scxRecurrencePattern ='Yinelenen Biçim ';

scxRangeOfRecurrence ='Yenileme Sıralaması ';

scxStart ='&Başla:';

scxStart1 ='B&aşla:';

scxEnd ='&Bitiş:';

scxDuration ='S&üre:';

// Pattern

scxDaily = '&Günlük';

scxWeekly = '&Haftalık';

scxQuarterly = '&3 Aylık';

scxMonthly = '&Aylık';

scxYearly = '&Yıllık';

// daily

scxEvery = 'He&r';

scxEveryWeekDay = 'Haftanın Her &Günü';

scxDays = 'gün(günler)';

// weekly

scxWeeksOn = 'Hafta(hafanın) üzeri:';

scxRecurEvery = 'Her Tekrarlama';

//monthly

scxOfEvery = 'her';

scxMonths = 'ay(lar)';

// yearly

scxThe = 'Bu&';

scxOf = 'nun';

// other

scxFirst = 'ilk';

scxSecond = 'sonraki';

scxThird = 'üçüncü';

scxFourth = 'dördüncü';

scxLast = 'önceki';

scxDay = 'D&ay';

scxDay1 = 'day';

scxWeekday = 'weekday';

scxWeekendday = 'weekend day';

scxNoEndDate = '&No end date';

scxEndAfter = 'End a&fter:';

scxEndBy = 'End &by:';

scxOccurences = 'occurrences';

// buttons

scxFindAvailableTime = 'Müsait Zaman Ara';

scxOk = '&Tamam';

scxCancel = '&Vazgeç';

scxClose = '&Kapat';

scxDown = '&Aşşağı';

scxRemoveRecur = '&Sil Yinelemeyi';

scxUp = '&Yukarı';

scxResourceLayoutCaption = 'Aktif Sayfa Düzenleyici';

// popup menu resources

scxpmNewEvent = '&Yeni Olay';

scxpmNewAllDayEvent = 'Yeni Bütün Gün için &Olay';

scxpmNewRecurringEvent = 'Yeni &Tekrarlanan Olay';

scxpmToday = 'Bugün';

scxpmGotoThisDay = 'Bugüne Git';

scxpmGoToDate = 'Tarihe Git...';

scxpmResourcesLayout = 'Kaynak Düzenleme Editörü...';

// for event

scxpmOpen = '&Aç';

scxpmEditSeries = 'Se&riyi Düzenle';

scxpmShowTimeAs = 'T&üm Zamanlar';

scxpmDelete = '&Sil';

scxpmFree = '&Boşalt';

scxpmTentative = '&Deneme';

scxpmBusy = '&Busy';

scxpmOutOfOffice = '&Ofis Dışında';

scxpmLabel = '&Label';

scxEventsConflict = '&Hatırlatma';

scxRecurrenceLabel = 'Yineleme';

// event label captions

scxEventLabelNone = 'Yok';

scxEventLabel0 = 'Önemli';

scxEventLabel1 = 'Meşgul';

scxEventLabel2 = 'Kişisel';

scxEventLabel3 = 'Taktik';

scxEventLabel4 = 'Toplantıda';

scxEventLabel5 = 'Gezide';

scxEventLabel6 = 'Hazırlan';

scxEventLabel7 = 'Doğumgün';

scxEventLabel8 = 'Yıl Dönümü';

scxEventLabel9 = 'Ara';

// for time ruler menu items

scxpmTimeZone = 'Chan&ge Time Zone';

scxpm60Minutes = '6&0 Dakika';

scxpm30Minutes = '&30 Dakika';

scxpm15Minutes = '&15 Dakika';

scxpm10Minutes = '10 &Dakika';

scxpm6Minutes = '&6 Dakika';

scxpm5Minutes = '&5 Dakika';

//navigator hints

scxFirstButtonHint = 'İlk Kaynak';

scxPrevPageButtonHint = 'Önceki Sayfa';

scxPrevButtonHint = 'Önceki Kaynak';

scxNextButtonHint = 'Sonraki Kaynak';

scxNextPageButtonHint = 'Sonraki Sayfa';

scxLastButtonHint = 'Son Kaynak';

scxShowMoreResourcesButtonHint = 'Tüm Kaynakları Göster';

scxShowFewerResourcesButtonHint = 'Daha Az Kaynak Göster';

//for reminder

scxrCaptionReminder = '1 Hatırlatma';

scxrCaptionReminders = '%d Hatırlatma';

scxrDismissButton = '&Çıkar';

scxrDismissAllButton = 'Tümünü Çıkar';

scxrDueIn = 'Tarih İçindeki';

scxrOpenItemButton = '&Öğeyi Aç';

scxrSnoozeButton = '&Ara(Uyku,Dinlenme)';

scxrSubject = 'Başlık';

scxrSnoozeLabel = '&Diznen';

scxrSelected = '%d Seçilenleri Hatırlar';

scxrStartTime = 'Başlangıç Saati: %s';

// time

scxTime0m = '0 Dakika';

scxTime5m = '5 Dakika';

scxTime10m = '10 Dakika';

scxTime15m = '15 Dakika';

scxTime20m = '20 Dakika';

scxTime30m = '30 Dakika';

scxTime1h = '1 saat';

scxTime2h = '2 saat';

scxTime3h = '3 saat';

scxTime4h = '4 saat';

scxTime5h = '5 saat';

scxTime6h = '6 saat';

scxTime7h = '7 saat';

scxTime8h = '8 saat';

scxTime9h = '9 saat';

scxTime10h = '10 saat';

scxTime11h = '11 saat';

scxTime12h = '12 saat';

scxTime18h = '18 saat';

scxTime1d = '1 gün';

scxTime2d = '2 gün';

scxTime3d = '3 gün';

scxTime4d = '4 gün';

scxTime1w = '1 Hafta';

scxTime2w = '2 hafta';

// advance time

scxAdvance0h = '0 saat önce başlat';

scxAdvance5m = '5 dakika önce başlat';

scxAdvance10m = '10 dakika önce başlat';

scxAdvance15m = '15 dakika önce başlat';

// for export

secxExportStorageInvalid = 'Depolama onaylanmadı';

// card field names

secxYes = 'Evet';

secxNo = 'Hayır';

secxSubject = 'Konu';

secxLocation = 'Yer';

secxDescription = 'İçerik';

secxAllDay = 'Tüm Gün';

secxStart = 'Başlat';

secxFinish = 'Bitir';

secxState = 'State';

secxReminder = 'Hatırlat';

// table fields

secxStartDate = 'StartDate';

secxStartTime = 'StartTime';

secxEndDate = 'EndDate';

secxEndTime = 'EndTime';

secxAlldayevent = 'Alldayevent';

secxReminderonoff = 'Reminderonoff';

secxReminderDate = 'ReminderDate';

secxReminderTime = 'ReminderTime';

secxMeetingOrganizer = 'MeetingOrganizer';

secxRequiredAttendees = 'RequiredAttendees';

secxOptionalAttendees = 'OptionalAttendees';

secxMeetingResources = 'MeetingResources';

secxBillingInformation = 'BillingInformation';

secxCategories = 'Categories';

secxMileage = 'Mileage';

secxPriority = 'Priority';

secxPrivate = 'Private';

secxSensitivity = 'Sensitivity';

secxShowtimeas = 'Showtimeas';

secxNormal = 'Normal';

// storage

scxRequiredFieldsNeeded = 'The following required fields'#13#10'%sare not assigned!';

scxInvalidFieldName = 'Invalid field name';

scxInvalidCustomField = 'Invalid custom field';

const

sRangeNames: array[0..4] of Pointer =

(@scxFirst, @scxSecond, @scxThird, @scxFourth, @scxLast);

sDayNames: array [0..9] of string =

(scxDay, scxWeekday, scxWeekendday, '', '', '', '', '', '', '');

sEventLabelCaptions: array[0..10] of Pointer = (

@scxEventLabelNone, @scxEventLabel0, @scxEventLabel1, @scxEventLabel2,

@scxEventLabel3, @scxEventLabel4, @scxEventLabel5, @scxEventLabel6,

@scxEventLabel7, @scxEventLabel8, @scxEventLabel9);

procedure cxSchedulerInitStrings;

implementation

uses

SysUtils;

procedure cxSchedulerInitStrings;

var

I: Integer;

begin

for I := 1 to 7 do

sDayNames[2 + I] := LongDayNames[I];

end;

initialization

cxSchedulerInitStrings;

end.

Delphi - .....................................