Sayfayı Yazdır | Pencereyi Kapat

Ufak bir yardım ( ders proğramı )

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1912
Tarih: 27.Nisan.2024 Saat 00:18


Konu: Ufak bir yardım ( ders proğramı )
Mesajı Yazan: PaLeSTiNe
Konu: Ufak bir yardım ( ders proğramı )
Mesaj Tarihi: 07.Mayis.2010 Saat 19:11
Selam arkadaslar forumlarda gezinirken burasi denk geldi genis kapsamlida hem,hosuma gitti. Ben univ 2.sinif bilg.programciligi okuyorum. Proje odevim var otomatik ders dagitim programi.
Suanda %85 i bitmis durumda ama ufak bir sorunum var yardımcı olabilirseniz sevinirim.
 
form1 de 2 listbox um var , birinde ders adı-ogretmenadı-ders sınıfı, digerınde saatleri mevcut durumda..
 
        LİSTBOX1               LİSTBOX2
delphi-ali veli - lab3             4
asp-ali ali -lab2                   2

seklinde..
 
forum 2 de de 1 adet Stringgrid im var , burda dersleri dagıt dedigimde suanda dersleri haftanın degisik gun ve saatlerine dagitiyorum , sizden ricam bu stringgrid e derslerin karsisindaki ders saati kadar yazilmasidir , bir turlu yapamadim..
 
Yardimci olabilirseniz cok sevinirim,gerekirse mail adresimi verebilirim uzun surer derseniz..
 
Simdiden cok tesekkurler , iyi forumlar..


Cevaplar:
Mesajı Yazan: murat turan
Mesaj Tarihi: 08.Mayis.2010 Saat 12:43

merhabalar. derslerin karşısındaki ders saati kadar yazilması.  burada demek istediğin x dersinde 5 saat varsa x dersini 5 defa mı yazdırmak. bunu mu demek istedin?



-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil

Mesajı Yazan: PaLeSTiNe
Mesaj Tarihi: 08.Mayis.2010 Saat 13:23
Orjinalini yazan: murat turan

merhabalar. derslerin karşısındaki ders saati kadar yazilması.  burada demek istediğin x dersinde 5 saat varsa x dersini 5 defa mı yazdırmak. bunu mu demek istedin?

 
Evet abi aynen onu demek istedim.. yani delphi dersinde 4 saat yazıyorsa 4 kere yazdırılsın istiyorum.

Mesajı Yazan: murat turan
Mesaj Tarihi: 08.Mayis.2010 Saat 18:52

derslerin olduğu liste kutusu içerisindeki nesne adedine göre döngü aç

ör: delphi, vb, c#  (üç ders varsa üçlü döngü aç. listbox.items.count)  sonra döngü içi bir döngü daha aç. buda aktif ders için ders saatini öğren okadarda iç döngü aç ve iç döngüde stringgrid in rowcount'u+1 yap ve yeni eklenen satıra aktif dersi yazdır. çaktın?

-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil

Mesajı Yazan: PaLeSTiNe
Mesaj Tarihi: 08.Mayis.2010 Saat 19:30
Orjinalini yazan: murat turan

derslerin olduğu liste kutusu içerisindeki nesne adedine göre döngü aç

ör: delphi, vb, c#  (üç ders varsa üçlü döngü aç. listbox.items.count)  sonra döngü içi bir döngü daha aç. buda aktif ders için ders saatini öğren okadarda iç döngü aç ve iç döngüde stringgrid in rowcount'u+1 yap ve yeni eklenen satıra aktif dersi yazdır. çaktın?
 
Abi anladım, dediğinizi denedimde daha önce ufakdan ama bir türlü randımana oturtamadım. Size yaptığım örneği mail atsam bir göz geçirirmisiniz ? Tek eklenecek şey o ilgilenebilirmisiniz?

Mesajı Yazan: murat turan
Mesaj Tarihi: 09.Mayis.2010 Saat 09:53
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I, I2: Integer;
  ax:SmallInt;
begin
 StringGrid1.RowCount := 2;
 StringGrid1.FixedRows := 1;
 StringGrid1.Cells[0,0] :='Dersler';
 for I := 0 to ListBox1.Count - 1 do
 begin
    ax := StrToIntDef( ListBox2.Items.Strings,0);
    for I2 := 0 to ax - 1 do
    begin
      StringGrid1.RowCount := StringGrid1.RowCount + 1;
      StringGrid1.Cells[0,StringGrid1.RowCount-2] := ListBox1.Items.Strings;
    end;
 end;
 if StringGrid1.RowCount > 2 then
  StringGrid1.RowCount := StringGrid1.RowCount -1 ;
end;


-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil

Mesajı Yazan: PaLeSTiNe
Mesaj Tarihi: 09.Mayis.2010 Saat 10:23
Orjinalini yazan: murat turan

 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  I, I2: Integer;
  ax:SmallInt;
begin
 StringGrid1.RowCount := 2;
 StringGrid1.FixedRows := 1;
 StringGrid1.Cells[0,0] :='Dersler';
 for I := 0 to ListBox1.Count - 1 do
 begin
    ax := StrToIntDef( ListBox2.Items.Strings,0);
    for I2 := 0 to ax - 1 do
    begin
      StringGrid1.RowCount := StringGrid1.RowCount + 1;
      StringGrid1.Cells[0,StringGrid1.RowCount-2] := ListBox1.Items.Strings;
    end;
 end;
 if StringGrid1.RowCount > 2 then
  StringGrid1.RowCount := StringGrid1.RowCount -1 ;
end;
 
 
 
Çok sağol abi yardımların için,bailığı kilitleyebilirsiniz yardımınız için tekrar teşekkür ederim

Mesajı Yazan: murat turan
Mesaj Tarihi: 13.Mayis.2010 Saat 17:05
kodda    ListBox2.Items.String   olan kısımlar aşağıdaki gibi olacak. delphiden kopyala yapıştır yaptım nedense köşeli parantezler uçmuş.

ListBox2.Items.Strings[ I ]


-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil

Mesajı Yazan: turknetyazilim
Mesaj Tarihi: 20.Mayis.2010 Saat 11:32

Murat abi nerelerdesin döndün mü ?



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


Sayfayı Yazdır | Pencereyi Kapat