Görsel Programlama I -Delphi- Dersi Final Sınavı Soruları ve Cevapları
4 Ocak 2011 Salı 22:19   Kadir Aba
Nevşehir Üniversitesi Meslek Yüksek Okulu Bilgisayar Teknolojileri Bölümü Bilgisayar Programcılığı Programı 2010 - 2011 Öğretim Yılı Görsel Programlama I Dersi Final Dersi Sınavı Soruları ve Cevapları
1. Şekilde 2 adet button (button1 ve button2), 1 adet label (label1) ve 1 adet de gauge (gauge1) bulunmaktadır. Artır butonuna basıldığı zaman gauge’ın değeri 1 artacak, Azalt butonu bastığımız zaman ise gauge’ın değeri 1 azalacaktır. Değer artırıldıktan veya azaltıldıktan sonraki değer ise labela yazılacaktır. Ayrıca eğer gauge 0 değerindeyken kullanıcı azalt butonuna basarsa “Değer zaten 0 da”, eğer gauge 100 değerindeyken kullanıcı artır butonuna basarsa “Değer zaten 100 de” uyarılarını verecektir. Anlatılanları gerçekleştiren kodları aşağıdaki ilgili yerlere yazınız.
 
Nevşehir Üniversitesi Meslek Yüksek Okulu Bilgisayar Teknolojileri Bölümü Bilgisayar Programcılığı Programı 2010 - 2011 Öğretim Yılı Görsel Programlama I Dersi Final Dersi Sınavı Soruları ve Cevapları
1. Şekilde 2 adet button (button1 ve button2), 1 adet label (label1) ve 1 adet de gauge (gauge1) bulunmaktadır. Artır butonuna basıldığı zaman gauge’ın değeri 1 artacak, Azalt butonu bastığımız zaman ise gauge’ın değeri 1 azalacaktır. Değer artırıldıktan veya azaltıldıktan sonraki değer ise labela yazılacaktır. Ayrıca eğer gauge 0 değerindeyken kullanıcı azalt butonuna basarsa “Değer zaten 0 da”, eğer gauge 100 değerindeyken kullanıcı artır butonuna basarsa “Değer zaten 100 de” uyarılarını verecektir. Anlatılanları gerçekleştiren kodları aşağıdaki ilgili yerlere yazınız.
Soru 1
Button1 Click (AZALT Butonu)
    if Gauge1.Progress = 0 then
    begin
        ShowMessage('Değer zaten 0 da...');
    end else
    begin
        Gauge1.Progress := Gauge1.Progress - 1;
        Label1.Caption := InttoStr(Gauge1.Progress);
    end;
Button2 Click (ARTIR Butonu)
    if Gauge1.Progress = 100 then
    begin
        ShowMessage('Değer zaten 100 de...');
    end else
    begin
        Gauge1.Progress := Gauge1.Progress + 1;
        Label1.Caption := InttoStr(Gauge1.Progress);
    end;
2. Şekilde bir adet panel (panel1), renk kanallar için 3 adet edit ( kırmızı [R] için Edit1, yeşil [G] için Edit2 ve mavi [B] için edit3), 2 adet RadioButton (zemin rengi için RadioButton1 ve yazı rengi için RadioButton2) ve 1 adet button (Button1) bulunmaktadır. Kullanıcı renk değerlerini ayarlayıp zemin veya yazı rengi seçeneklerinden birini seçtikten sonra AYARLA butonuna bastığı zaman panelin zemini veya yazısı seçime göre ayarlanan renk değeri ile boyanacaktır. Anlatılanları gerçekleştiren kodları aşağıdaki alana yazınız. Soru 2 Button1 Click (AYARLA Butonu)
var r,g,b : Integer;
begin
    r := StrToInt(Edit1.Text);
    g := StrToInt(Edit2.Text);
    b := StrToInt(Edit3.Text);

    if RadioButton1.Checked then
        Panel1.Color := rgb(r,g,b);
    if RadioButton2.Checked then
        panel1.Font.Color := rgb(r,g,b);
end;
3. Şekilde label üzerinde içinde bulunduğumuz saat, dakika ve saniye güncel bir şekilde durmaksızın yazmaktadır. Anlatılan olayı gerçekleştirmek için gereken bileşen veya bileşenleri, bu bileşenlerle ilgili ayarlamaları ve bileşenler içine yazmamız gereken kodları aşağıdaki alana yazınız. Soru 3 Gerekli bileşen ve bileşenler Timer bileşeni eklenir. Bileşenlerle ilgili ayarlar Timer bileşeninin Enabled özelliği True yapılır, Interval özelliği ise maksimum 1000 olacak şekilde değiştirilir. Bileşende olması gereken kodlar
    label1.Caption := TimeToStr(time);
4. Şekilde 1 adet memo (Memo1) ve 2 adet button bulunmaktadır (Button1 ve Button2). Kullanıcı memo içerisine yazdıklarını kaydetmek isterse KAYDET, daha önce kaydettiği yazıyı açmak isterse de AÇ butonuna basacaktır. Anlatılan olayı gerçekleştirmek için gereken ek bileşenler varsa onların isimlerini ve olayın çalışması için gereken kodları aşağıdaki alana yazınız. Soru 4 Gerekli Ek Bileşenler SaveDialog ve OpenDialog bileşenleri kullanılmalıdır. Button1 Click (KAYDET butonu)
    if SaveDialog1.Execute then
        Memo1.Lines.SaveToFile(SaveDialog1.FileName);
Button2 Click (AÇ butonu)
    if OpenDialog1.Execute then
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
5. Yandaki şekilde 1 adet image (Image1) ve 1 adet button (Button1) bulunmaktadır. Kullanıcı “Resim Seç” butonuna bastığı zaman karşına çıkan ekrandan bir resim seçecek ve seçtiği resim Image bileşeninde gösterilecektir. Anlatılanların gerçekleşmesi için gereken ek bileşenler ve kodları aşağıdaki alana yazınız. Soru 5 Gereken Ek Bileşenler OpenPictureDialog bileşeni eklenmelidir. Button1 Click (Resim Seç Butonu)
    if OpenPictureDialog1.Execute then
        Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
6. Yandaki şekil bir bilet satış otomasyonunun ufak bir parçasını temsil etmektedir. Formda 2 adet RadioGroup (RadioGroup1 [Gidilecek Yer] ve RadioGroup2 [Bilet Türü]), 1 adet Button (Button1) ve 1 adet Label (Label1) bulunmaktadır. Yolcu gideceği şehri seçtikten sonra bilet türünü belirler. Bilet sadece gidiş veya gidiş-dönüş bileti olabilir. Yolcu seçimlerini yaptıktan sonra bilet tutarı Labela yazılmaktadır. Anlatılan olayı gerçekleştiren kodları aşağıdaki alana yazınız. Şehirlerin bilet fiyatları aşağıdaki listede verilmiştir.
Ankara İzmir
Sadce Gidiş 25 40
Gidiş - Dönüş 45 80
Soru 6 Button 1Click (HESAPLA Butonu)
var tutar : Integer;
begin
    case RadioGroup1.ItemIndex of
        0: begin // Ankara
            case RadioGroup2.ItemIndex of
                0: tutar := 25;  // sadece gidiş
                1: tutar := 40;  // gidiş dönüş
            end;
        end;

        1: begin // İzmir
            case RadioGroup2.ItemIndex of
                0: tutar := 45;  // sadece gidiş
                1: tutar := 80;  // gidiş dönüş
            end;
        end;
    end;
    Label1.Caption := InttoStr(tutar)+' TL';
end;




Yazı Etiketleri



Facebook Yorumlar



Yorumlar


Sen aldın zamanında alacağın notu :)

Kadir ABA     7 Ocak 2011 Cuma 23:06    
10 2


hocamm bende soruLarı hiç cevapLamadim banada puan verirmisiniz :P htc hd2

=)     7 Ocak 2011 Cuma 21:23    
2 8


zor olan ders bıkere hocam sızın sormanızla alakası yok gercekten emek ısteyen bı ders :(

Emrah     7 Ocak 2011 Cuma 15:22    
5 2


benım sınav kagıdına yazdıgım notu dıkkate almıssınızdır demi hocam :)

Emrah     7 Ocak 2011 Cuma 02:22    
5 2


tabi oda doğru hocam haklısınız neyse :) ders olmuş olur buda bana bir daha aynısını yapmam :(

öznur     6 Ocak 2011 Perşembe 16:17    
5 1


Sizin verdiğiniz cevapların benim yayınladığım cevaplar ile bire bir aynı olmasına gerek yok, birden fazla çözüm yolu olabilir. Benim yayınladığım cevaplar sadece birer çözüm örnekleri. Sizin farklı şekilde çözdükleriniz sonuca ulaştırıyorsa puan alırsınız tabiki. Senin yazdığın çözüme de puan veririm.

Kadir ABA     6 Ocak 2011 Perşembe 15:31    
1 1


Timer eklediğimiz zaman haklısın öyle çıkıyor ama sen boş bırakınca ben senin öyle düşündüğüne anlamam ki :)

Kadir ABA     6 Ocak 2011 Perşembe 15:29    
0 1


begin if Gauge1.Progress>0 then begin Gauge1.Progress:=Gauge1.Progress-1; end else begin showmessage('0 de'); end; label1.Caption:=IntToStr(Gauge1.Progress); end; hocam 1.soruda azaltmak için bu kodu kullansak puan vermez misiniz?

öznur     6 Ocak 2011 Perşembe 15:16    
0 2


hocam 3. soruda timer'ı koyduğumuz zaman enabled özelliği true ve invertal'i 1000 olarak çıkıyo diye düşünüp yazmayanlara not verir msiniz??

öznur     6 Ocak 2011 Perşembe 15:06    
1 0


eksik oLmayın hocam yürekten inanıyorum size ki zaten bariz ortada söyLedikLeriniz ve yaptıkLarnız öğrenciLerinize karşı emeğiniz ve katkıLarınız çok büyük aLLah razı oLsun sizden...

SaMi     5 Ocak 2011 Çarşamba 21:39    
2 0


Sizin düşük alacağınızı düşündüğüm her zaman yanılmayı isterim. Sorular bazen zor olabilir ama bunu dersten kalsınlar diye yapmıyorum. Öyle bir düşüncem olsa inan çok kolay olur yapması. Kağıtları okuması da kolay olur benim için :) Ama dediğim gibi umarım yanılırım zor gelmemiştir. Yüksek alırlar.

Kadir ABA     5 Ocak 2011 Çarşamba 21:27    
2 1


muhtemeLenn :=) ama şuan benim önüme geLse yani 0 biLgiyLe :D 100 ün 00 ını aLırdım heraLde :D ama şüpheLeriniz yanıLtabiLir bazen :D gerçekten zor değiLmiş ama zaten geneLde bu şekiLde oLur daha önce gören yapan birisi için yada cvpLarı biLen için çok basittir :D

tatil     5 Ocak 2011 Çarşamba 21:15    
1 0


Sende 100 alırım dedikten sonra biraz gülümsemişsin muhtemelen aynı şeyleri düşündüğümüz içindir, çünkü benim o konuda biraz şüphelerim var :) Yüksek not alabilirdin belki ama 100 bilemem :P Sorulara 70 dakika süre vermiştim hazırlarken zor olmasını istemedin işin gerçeği ama öğrencilere biraz zor geldi :(

Kadir ABA     5 Ocak 2011 Çarşamba 20:30    
1 0


Ben oLsam 100 aLırdım heraLde :D gerçi şimdiye kadar unuttuk ta herşeyi; cvpLarı görünce çok basit :=))

programlar     5 Ocak 2011 Çarşamba 20:19    
1 0



Benzer Yazıları





Etiket Bulutu
bilgisayar   temel bilgisayar   temel bilgisayar konuları   delphi   mesaj   showmessage   örnek   ShowMessageFmt   Label   Edit   Rastgele Sayı Üretmek   Random   Randomize   Button   TButton   Memo   TMemo   ListBox   ComboBox   TComboBox   Açılır Liste   delphi;tip dönüştürme;StrToInt;IntToStr   StrToInrDef   tip dönüştürme   StrToInt   IntToStr   StrToFloat   FloatToStr   StrToFloatDef   DateToStr   StrToDate   StrToDateDef   DateTimeToStr   StrToDateTime   StrToDateTimeDef   TimeToStr   StrToTime   uygulama   Oyun   Taş Kağıt Makas Oyunu   Image   timer   OpenDialog   SaveDialog   notepad   Mesleki İngilizce   TELEPHONING & E-MAIL   TELEPHONING   E-MAIL   Turizm Otel   Turizm Seyahat   IF TEST   Air travel - Vocabulary   “Slumdog Millionaire” Questions   Email   Final Sınavı   Conditional Sentences   First Conditional   Second Conditional   Third Conditional   air   travel   Slumdog Millionaire   Turizm Seyahat Bölümü Final Sınavı Konuları   Telephonig & Email   Ticari Matematik   Matematik   Turizm ve Seyahat işletmeciliği   Turizm ve Otel İşletmeciği   İngilizce ı   Office Word 2007   Algoritma   Algotirma   Sorular ve Çözümleri   Görsel Programlama   Sorular ve Cevapları   Soru ve Cevapları   Veri Tabanı   SQL   DELETE   UPDATE   SELECT   Mali Tablolar Analizi   skit   Excel 2007   Excel Fonksiyonları   Excel   Excel Uygulamaları   Veritabanı   ADO   ADOConnection   Access   Microsoft Access   c#   checkbox   radiobutton   mesaj işlemleri   pascal   write   writeln   read   readln   tamsayı   ondalıklı sayı   sayı biçimlendirme   if   if-then-else   karşılaştırma komutları   programlama temelleri   asp.net   repeater   onMouseMove   GetTickCount   değişken   if-else   döngü   for   for döngüsü   radiogroup   panel   groupbox   scrollbar   trackbar   case of   Vize Sınavı   TextBox   C# Örnekleri   PasswordChar   while-do döngüsü   Delphi Konsol   sayı tahmin oyunu   Dataset   Winforms   mainmenu   popupmenu   OpenPictureDialog   ColorDialog   FontDialog   dizi   array   Record Tip   Procedure   Function   sınav   adotable   datasource   dbgrid   notepad   paint   Genel