Yazılım ile ilgilenenler

[Erdi Yavuz]

faboniccini sayı bu sayı buldurma


int sayi dizi[10],i;
sayi=StrToInt(Edit1->Text);
dizi[0]=1;
dizi[1]=1;
for(i=2;i<=sayi;i++)
{
dizi[i]=dizi[i-1]+dizi[i-2];
}
ShowMessage(dizi[sayi]);

inanılmaz bir sonuç alacaksınız 10000 sayı içinde sadece 2 tane faboniccini
sayı var:kahve:

[Erdi Yavuz]

eğer dersinizle ilgili bilgisayar yazılımı gerek olursa yardımcı olmaya çalışırım arkadaşlar:kahve: (kod adı çapari)

[Erdi Yavuz]

verilen bir sayıyı istediğin her hangi bir tabana çevirme

{
int sayi,taban,kalan,dizi[10],sayac=0,i;
sayi=StrToInt(Edit1->Text);
taban=StrToInt(Edit2->Text);
Label3->Caption="";
while(sayi>=1)
{
kalan=sayi%taban;
sayi=sayi/taban;
dizi[sayac]=kalan;
sayac++;
}for(i=sayac 1;i>=0;i - -)
Label3->Caption=Label3->Caption+IntToStr(dizi[i]);
}

[Erdi Yavuz]

c++ yapmış olduğum sayısal loto programı

int i, dizi[6][8],j,k,m;
randomize();
k=StrToInt(Edit->Text)
ListBox1->Clear;
for(m=0;m<k;m++)
{
for(i=0;i<6;i++)
{
dizi[i][m]=random(50);
for(j=0;j<i;j++)
{
if(dizi[i]==dizi[j])
i--;
} }
}
ListBox1->Lines->Add(IntToStr(dizi[m][0])+","+IntToStr(dizi[m][1])+","+IntToStr(dizi[m][2])+","+IntToStr(dizi[m][3])+","+IntToStr(dizi[m][4])+","+IntToStr(dizi[m][5]));
}

(kod adı çapari)

[Erdi Yavuz]

Sayıların çarpımları

int carpım(int a, int b);
{
int c;
c=a*b;
return c;
}
void__fastcall üstüne yazılacak olanlar yukarıdaki tanımlar

compenetten almış olduğunuz button içine yazılacak olan kodlarda aşağıda
int sayi1,sayi2,sonuc;
sayi1=StrToInt(Edit1->Text);
sayi2=StrToInt(Edit2->Text);
sonuc=carpım(sayi1,sayi2);
Label1->Caption=sonuc;
(kod adı çapari)

[Emre Tanrıseven]

Ben bu c++ dan bu dönem kalıcam kesin:(

[Erdi Yavuz]

yok be hocam o kadar zorluğu yokk

[Kenan Ergün]

Erdi güzel çalışmalar ben de ekleyeceğim biraz ;)

[Emre Tanrıseven]

yok be hocam o kadar zorluğu yokk


Valla bilmiyorum Erdi.. takip ediyorum seni burdan temelden alırsan daha güzel olur bence:D:D ben de yararlanırım:D

[Erdi Yavuz]

temelden başlayalım ozaman compenetten bi başlarız gidebildiğimiz yere kadar gideriz

[Erdi Yavuz]

4 edit koy , 1 button aşağıdaki kodları button içine yaz
3 sayının aritmatik ortalamasını verecektir
int toplam(int a, int b, int c)
{
int k;
k=(a+b+c)/3;
return k;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int sayi1,sayi2,sayi3,sonuc;
sayi1=StrToInt(Edit1->Text);
sayi2=StrToInt(Edit2->Text);
sayi3=StrToInt(Edit3->Text);
sonuc=toplam(sayi1,sayi2,sayi3);
Label1->Caption=sonuc;
}
(kod adı çapari)

[Erdi Yavuz]

{
double asehri=8000,bsehri=12000;
int yil=0;
while(asehri<bsehri)
{
asehri=asehri+asehri*0.06;
bsehri=bsehri+bsehri*0.013;
yil++;
}
Label5->Caption=IntToStr(yil)+"yil";
Label2->Caption=ceil(asehri);
Label4->Caption=ceil(bsehri);
}

#include <math.h> tanımlayı unutma yukarıda en üstteeeeee bölgede
(kod adı çapari)

[Orhun Dalabasmaz]

tasarım örüntülerini iyi bileniniz var mı ?

"design pattern" -> observer & facade ?


java için :D

[Orhun Dalabasmaz]

daha doğrusu verdikleri ödevde
observer & facade örüntülerini
birlikte kullanacaz da ???

[Erdi Yavuz]

FORM1(KULLANICI GİRİŞİ İÇİN GEREKLİ MALZEMELER)

Standard butonun içinden 4 tane label koyuyoruz.Labellerimizi koyduktan sonra aynı buton içinden 2 adet edit alıp formumuza koyuyoruz. Bu işlemlerden sonra sıra geldi formumuzu daha önceden hazırlamış olduğumuz veri tabanına bağlamaya.Bu işlemler için ADO butonuna giderek orda bulunan sekmelerden ADOConnection-ADOQuery lerimizi alıyoruz ve formumuza koyuyoruz daha sonra Data Access butonuna giderek ordanda DataSource sekmesini alıyor ve formumuza koyuyoruz.

BAĞLAMA BÖLÜMÜ

ADOConnection’a çift tıklıyoruz karşımıza gelen formdan Build tıklıyoruz. Karşımıza gelen Veri Bağlantısı Özelliklerinden Microsoft Jet 4.0 OLE DB Provider sekemsini tıklıyoruz Açılan sayfada veritabanı adını seçin veya girin girdikten sonra bağlantımızı sınıyor ve enson işlemde ise ok basıp bağlantımızı kuruyoruz.
ADOQuery işleminde ise SQL bağlantımız yapmak için ADOQuery özelliklerinden SQL bağlantısını tıklıyoruz.Karşımıza gelen forma daha önce Accessde hazırlamış olduğumuz kullanıcı bölümü buraya yazıyoruz (select * from kullanici gibi)
Bu işlemi yaptıktan sonra gene ADOQuery özelliğinde Connection bölümünde ADOConnection 1 özelliğini seçiyoruz ve Activesini true yapıyoruz.Şimdide DataSource özelliğinde DataSet özelliğini tıklayarak ADOQuery özelliğini seçerek bağlantımızı tamamlıyoruz ve kullanıcı bölümümüzü hazırlamış oluyoruz.
Hazırladığımız Formu diğer forma gidebilmesi için Giriş butonuna şu kodları ekliyoruz
sorgu->Close();
sorgu->SQL->Clear();
sorgu->SQL->Add("select * from kullanici where kullanici_adi="+QuotedStr(Edit1->Text)+" and sifre="+QuotedStr(Edit2->Text));
sorgu->Open();
if (sorgu->RecordCount==0)
ShowMessage("böyle kullanıcı yok");
else
{
Form2->Show();

}

[Kayra Nar]

Selamlar
Paylaşımlarınız için çok teşekkürler.
Acaba Delphi 7'de yardımcı olabilir misin?