Jump to content

croteam

Üye
 View Profile  See their activity

  • Posts

    294

  • Joined

  • Last visited

 Content Type 

Posts posted by croteam

    Soru Programı Yapımı ?

    in AutoIT

    Posted · Edited by croteam

    [quote name='blue_life' date='24 September 2011 - 08:37 ' timestamp='1316853424' post='1084700']
    Böyle bir program yapılır ve yapması zor deyil. Tabi haliyle sorular ya bir dosyadan okuncak, yada scriptin içine yazılacak.
    Ben şimdi basit bir kodlama yaptım ve scriptin içine 3 soru ekledim. Tabi örnekten yola çıkarak soru sayısını arttırabilirsin...
    Neyse kolay gelsin...
    [codebox]
    #include <Array.au3>

    Global $SORU_SAYISI = 3 ;Soru Sayısı

    ;Soru,BirinciSeçenek,IkinciSecenek,Üçüncü Seçenek,Dördüncü Seçenek,Doğru Cevap,Seçilen Cevap
    Global $SORULAR[$SORU_SAYISI +1][8] = [[$SORU_SAYISI], _
    ["Türkiye'nin başkenti neresidir?","Adana","Istanbul","Ankara","Atina",3] , _
    ["2+7= ? işleminin sonucu kaçtır?","8","9","7","10",2], _
    ["Yılın en soğuk mevsimi hangisidir?","Kış","Ilk Bahar","Son Bahar","Yaz",1] _
    ]


    Global $BlueForm = GUICreate("BlueLife Soru Matik", 600, 160)
    Global $Icon1 = GUICtrlCreateIcon("user32.dll", -3, 5, 5, 32, 32)

    Global $Soru = GUICtrlCreateLabel("", 50, 7, 545, 32)
    GUICtrlCreateLabel("", 2, 2, 595, 40,1,1)
    GUICtrlSetState(-1,128)
    GUICtrlSetBkColor(-1,-2)

    Global $Radio1 = GUICtrlCreateRadio("", 10, 45, 580, 17)
    Global $Radio2 = GUICtrlCreateRadio("", 10, 65, 580, 17)
    Global $Radio3 = GUICtrlCreateRadio("", 10, 85, 580, 17)
    Global $Radio4 = GUICtrlCreateRadio("", 10, 105, 580, 17)

    Global $Tamam = GUICtrlCreateButton("Tamam",5,130,590,25)

    GUISetState(@SW_SHOW)

    _SIRADAKI_SORU()
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    Exit
    Case $Tamam

    If GUICtrlRead($Radio1) = 1 Then
    $SORULAR[$SORULAR[0][1]][6] = 1
    GUICtrlSetState($Radio1,4)

    ElseIf GUICtrlRead($Radio2) = 1 Then
    $SORULAR[$SORULAR[0][1]][6] = 2
    GUICtrlSetState($Radio2,4)

    ElseIf GUICtrlRead($Radio3) = 1 Then
    $SORULAR[$SORULAR[0][1]][6] = 3
    GUICtrlSetState($Radio3,4)

    ElseIf GUICtrlRead($Radio4) = 1 Then
    $SORULAR[$SORULAR[0][1]][6] = 4
    GUICtrlSetState($Radio4,4)

    EndIf

    _SIRADAKI_SORU()
    If @error Then _Sonuc()
    EndSwitch
    WEnd

    Func _Sonuc()
    For $I = 1 to $SORULAR[0][0]
    If $SORULAR[$I][5] = $SORULAR[$I][6] Then
    $SORULAR[$I][7] = "Doğru"
    Elseif $SORULAR[$I][6] = "" Then
    $SORULAR[$I][7] = "Boş"
    Else
    $SORULAR[$I][7] = "Yanlış"
    EndIf
    Next

    _ArrayDisplay($SORULAR)
    Exit
    EndFunc

    Func _SIRADAKI_SORU()
    $SORULAR[0][1] += 1
    If $SORULAR[0][0] < $SORULAR[0][1] Then Return SetError(1,0,0)
    GUICtrlSetData($Soru,$SORULAR[$SORULAR[0][1]][0])

    GUICtrlSetData($Radio1,$SORULAR[$SORULAR[0][1]][1])
    GUICtrlSetData($Radio2,$SORULAR[$SORULAR[0][1]][2])
    GUICtrlSetData($Radio3,$SORULAR[$SORULAR[0][1]][3])
    GUICtrlSetData($Radio4,$SORULAR[$SORULAR[0][1]][4])


    GUICtrlSetState($Radio2,4)
    GUICtrlSetState($Radio3,4)
    GUICtrlSetState($Radio4,4)

    Return True
    EndFunc[/codebox]
    [/quote]


    'blue_life' Kardeşim Haklı.. Böyle Programlar Yapılabilir..

    Ben Zaten Yapılamaz Demedim..

    işte Burada Yanlış Anlamıştım Ben Sandım ki : 5 Bin veya Daha Fazla Cümle-Kelime Soru-Cevap Programı.. Yapılamaz Değil.. İmkansız Hiç Değil.. Sadece Bayağı Zaman Alır.. Demiştim.
    Sanmıştım. Yanlış Anlamıştım Kusuruma Bakmayınız Kardeşler..

    Soru Programı Yapımı ?

    in AutoIT

    Posted · Edited by croteam

    'LifeSux' Kardeşim Bence Böyle Bir Programla Hiç Uğraşma Derim.. Yapılabilir. ama Yapılması Bayağı Bir Zor Çünki (İmkansız Değil) ;

    Misal : İçerisine Sorulu ve Cevaplı Olarak 5 Trilyon veya Bin Cümle veya Daha Çok, 10 Trilyon veya Bin Kelime (Sözcük) veya Daha Çok Programa Ekle men Gerekir. Not: Bunları PC ne veya Büyük Bir Deftere Kayıta Alman Gerekmekte Yani.. Çok Uğraşman Gerekir. Mükemmel Olması İçin.

    Not: Bunu Sen 5 Trilyon Olarak ta Yapabilir, 5 Bin Olarak ta Yapabilir vs.. Bu Senin Ekliyeceğin Cümle ve Kelimeye Bağlı Olarak Değişebilir. Kardeş Çok Uzun Bir Süreçtir Böyle Programlar..


    Sözlük Programı İçin İçine 5 Bin Tane Sözcük Koyuyorlar vs..

    Senin Yapacağın Programı Ne Kadar Dikkatli Yapsan da Yinede Hata Yapma Olasılığın Yüksektir.

    !!!Hiç Bir Şey İmkansız Değildir.!!! !!!Önemli Olan Başaracağım Diye bilmendir.!!!

    Yıllık Msdn Üyeliği 85 $ -Stokla Sınırlı

    in Alım-Satım

    Posted · Edited by croteam

    [quote name='istanbul82' date='23 September 2011 - 20:42 ' timestamp='1316810545' post='1084551']
    8 i bile yollar tr sürümlerin sızması için gavurlara yalvarmaya ihtiyaç yok:) msdne konduğu anda çeker imajı gondermek kendi insiyatifine kalir tabi:) kişinin burda onemli olan keydir zaten crack derdi olmadan yazılımları ömür boyu kullanabilir reatil keyle a dan z ye kadar:)....48 saat içinde aktif olur hesabın belli bi prosodürü var karşıdan onay alınıyo filan yarın aktif olur bence...hayırlı olsun..
    [/quote]

    'istanbul82' Kardeş..

    Tabi ki Öyle Ama Malumunuz Adamlar Windows Vista ve Windows 7 Ürün Anahtarlarını Bulamayınca.. Mecburen Crack Baş Vuruyor Dimi.. :pardon:

    Ama Benim Kafam Rahat.. Orjinal Serialler Elimde Mevcut Windows 7 SP1 Kadar Serial Elimde Mevcuttur. :dribble:

    Yıllık Msdn Üyeliği 85 $ -Stokla Sınırlı

    in Alım-Satım

    Posted · Edited by croteam

    [quote name='Sirius' date='23 September 2011 - 20:14 ' timestamp='1316808855' post='1084531']
    yok istanbul82 nin arkadaşı başka forumdan ben bugün kendisi,nden aldım 1 yıllık msdn üyeliğpi onu diyorum.
    [/quote]

    Tamam 'Sirius' Kardeş.. Kusura Bakmazsan.

    Bu Arada 'Sirius' Kardeş.. msdn Sürüm Format CD vs.. Yollarsın Artık Nete Dimi.. :) Yollamazsan da Darılmayız Merak Etme Kardeşim. ;)

    Tnctr 5 Yaşında!

    in Duyurular

    Posted · Edited by croteam

    [quote name='casira' date='23 September 2011 - 19:49 ' timestamp='1316807345' post='1084523']
    Forever TNCTR :)
    [/quote]

    'casira' Kardeşim.. Cümleten (Hep Birlikte)..

    Ablamda Bu Gün Doğdu.. Onada Mutlu Yıllar ve Doğum Günü Kutlu ve Mutlu Olsun, Hepimize de (Tüm tnctr) ye.

    Tnctr 5 Yaşında!

    in Duyurular

    Posted · Edited by croteam

    [color="#FF0000"]Nice Yıllara ve Hep Birlikte, iyi ki Varsın tnctr.[/color] :) :rolleyes: :D :lol:

    [img]http://img163.imageshack.us/img163/1949/birthdayx.gif[/img]

    [color="#8B0000"]5. Yılın Kutlu ve Mutlu Olsun.. ve Herkese.[/color] :)

    [color="#000080"]"Bu Gün Ben Çok Mutluyum"[/color] [color="#0000FF"]Diye Kalkın Yatağınızdan..[/color]

    Yıllık Msdn Üyeliği 85 $ -Stokla Sınırlı

    in Alım-Satım

    Posted · Edited by croteam

    Kardeşim Sende Beni Yanlış Anladın! Ben Saçmalamıyorum.. Sadece Dediğim O Parayı Bulamayan Çok Diyorum.. Sakın Beni Yanlış Anlama. Bu Hayat.. Sende Bunu Çok İyi Biliyorsun..

    Hele ki Hayatın Zorluklarını Çok İyi Bilirim.. Meslek Lisesi Son Sınıf Öğrencisi (4) Metal İşleri, Metal (Biz Şöyle Deriz.. Geneli Teneke) Doğrama, Kaynak İşi Yapıyorum, Staj Görüyorum.. Adam Gibi İşimi Yapıyorum.. Hadi Hayırlısı İnşallah Biyere Varırım (Makina Yüksek Mühendisliğini Okumayı Planlıyor, Aynı Zamanda Bilgisayar Destekli Tasarım Programıyla Da Evime Ekmek Götürmeyi Planlıyorum) İlerimi - Hedefimi Düşünüyorum.. :glare: <_< :rolleyes2:

    Şunu Hiç Unutmayın Arkadaşlar.. Hayat Zor, Hayat Adil Değil ve Hiç Birimiz Eşit Yaratılmadı.. ama Bunu Düzene Sağlamak Yine Bizlerin Elinde.. :nea: :rolleyes: :rolleyes2:

    Yıllık Msdn Üyeliği 85 $ -Stokla Sınırlı

    in Alım-Satım

    Posted · Edited by croteam

    [quote name='istanbul82' date='23 September 2011 - 17:28 ' timestamp='1316798925' post='1084476']
    espiri yaptığını anladım sorun değil :lol: gelecekte bi gün free olcağına bende inanıyorum ama uzub bi süre sonra belki torunum -_-
    [/quote]

    Haydi Bakalım, Biz Göremedik ama Torunlarımız, Çocuklarımız (Geleceğimiz) Görsün Bari.. :DD

    Yaptığım Tüm Arşivleri Torunlarımız, Çocuklarımız (Geleceğimiz) Saklıyorum. Asıl Amacım (Sırrım) Bu idi Kendimi Tutamadım Sır, Mır Bitti valla :DD :rofl:

    Espriyi Araya Katıydım.. (Bir Önceki Mesajda) Nasıldı. :) Bir Espri Daha Patlatayalım mı? abi ;) :drinks: :rofl:

    Bu Arada 7 Üye Konuya Dalmış :DD, Herkes MSDN Üyesi mi? Olacak :).. 70$ Boru Değil 70$ aman ha.. Nettede Çok Geziyor Microsoft Yazılımları CD leri vs.. Paranıza Yazık Valla, O Parayı Bulamayanlar Var. (Yanlış Anlama Kardeşim, İsteyen Paralı Üye Olur İstemeyen Paralı Üye Olmaz.. Ama Ben Söyleyeyim Dedim..) ;)

    !!!Beni Sakın Yanlış Anlama Kardeşim.!!!

    Yıllık Msdn Üyeliği 85 $ -Stokla Sınırlı

    in Alım-Satım

    Posted · Edited by croteam

    [quote name='istanbul82' date='23 September 2011 - 17:08 ' timestamp='1316797702' post='1084463']
    vista zamanından beri net ortamında çalışan bi tane çalışan retail key gosterirmisin hepsi şahsa ozeldir sızdırdığın an banlanır ortada dolaşan crackler oemdir slic sertifika(loader crack v.s) veya kms dir tek keyle hiç bi mic warezi yoktur ortalıkta..onuda battığında bakarız artık :yahoo:
    [/quote]

    'istanbul82' Kardeşim Benim Demek İstediğim.. Bu Konuyla İlgili Serial Paylaşım Konusu vs.. Değil.. Benim Demek İstediğim Eğer Microsoft un Pili Biterse (Ki Bu Çok Uzun Zaman Sonra ve Hiç İstemem ve veya Başka Bir Şirket Olur ise Hiç Bitmeyecek vs.. Aklına Ne Gelirse) O Zaman Bu Programları Parasız Kullanabiliriz. (Not: Bu Hiç Bir Zaman Olmuyacak Diye Bir Şart Koşmamak Gerek) Yani Benim Söylemek İstediğim Buydu Kusura Bakma Kardeşim.. Asla Bende Olan Crack, Serial Paylaşmam Kullanır veya Satarım Aga.. :DDD

    !!!Beni Sakın Yanlış Anlama Kardeşim.!!!

    Çarkıfelek

    in Sohbet-Chat

    Posted · Edited by croteam

    Çarkıfelek Bu Ara Sanki.. (Bu Arada Çok İzlemem Haftada 2 veya 3 Kez) 3 Aşağı 5 Yukarı, Günde 1 Adet veya 2 Adet Araba (Otomobil) Veriyor. Not: Yanlış Bilgi Vermek İstemem..

    Gereksiz Bir Konu ama Bilgilendirim Dedim.. :pardon:

    Belki Sizlere de 1 Araba Çıkabilir Arkadaşlarım, Kardeşlerim.. :shifty:

    :clapping: :clapping: :D :lol: :yahoo: :yahoo:

    Ttnetin Yaptığına Bak

    in Sohbet-Chat

    Posted · Edited by croteam

    Ttnet 8Mbit Net Limitsiz.

    [img]http://www.speedtest.net/result/1490690470.png[/img]

    Benim Nette Bir Problem (Sıkıntı) Yok!

    Bence Senin Problem Alt Yapıdan.. Santrale Uzaklık-Yakınlık ile Alakalı Problem! vs..

    Ttnet Bu! Her İnternet Problemi de Geneli Ondan Çıkar. :DD

    Windows Server 2003 Sp2 32 - 64

    in Program-Appz - Ebook İstek

    Posted

    Ozan Kardeş..

    Evet Haklısın.. Windows Server 2003 64 Bit, Windows XP 64 Bit Boyutu Yüksek ve İngilizce Olur.. Nette ve Torrent Sitelerinde Arattığımda Windows Server 2003 R2 Var, Ben R2 İstemiyorum ilk Windows Server 2003 SP2 32 ve 64 Bit Enterprise, Standard İstiyorum..


    Ozan Kardeş..

    Windows Server 2003 Enterprise Edition SP2 (TÜRKÇE) 32 Bit İndirecem..

    Mümkünse 64 Bit Varmı acaba..

    Windows Server 2003 Sp2 32 - 64

    in Program-Appz - Ebook İstek

    Posted · Edited by croteam

    [quote name='ozanaus' date='19 September 2011 - 17:40 ' timestamp='1316454010' post='1082457']
    bende sp'siz olanı var
    hızlı upload edeceğim bi site önerin yüklerim

    sp2 yide burdan yüklersin
    ya da nlite ile entegre edersin
    [code]http://www.microsoft.com/download/en/confirmation.aspx?id=41[/code]
    [/quote]

    'ozanaus' (Ozan) Kardeş Sağol Bende Windows Server 2003 SP2 Var ama.. Format CD si yok mu?? Varsa Rica Etsem Verebilir mi sin..

    Bu Arada Çalışmalarına Takip Ediyorum.. Eline, Koluna ve Emeğine Sağlık. ;)

    Doğum Günün Kutlu Olsun : Bilinchard!

    in Sohbet-Chat

    Posted · Edited by croteam

    [quote name='pcusta_99' date='19 September 2011 - 14:32 ' timestamp='1316442742' post='1082349']
    Doğum Günün Kutlu Olsun...

    Bu gün benim de doğum günüm ama kimse kutlamadı. :cray:
    [color="#FF8C00"][b]
    Bilinchard : Doğum günün kutlu olsun :)[/b][/color]
    [/quote]

    Kimse Seni Kutlamamış.. Üzüldüm Valla. :(

    İlk Kutlayan Kişi Olarak.. 'pcusta_99' Kardeşim.. Doğum Günün Kutlu ve Mutlu Olsun.. Nice Yıllara ve Tüm TncTr ye.. :)

    Ttnet ' Ten Bıkanlar ! Buyrun Superonline Farkı ..

    in Sohbet-Chat

    Posted · Edited by croteam

    Arkadaşlar Muhabbetiniz Bol Olsun İnşallah..

    [img]http://www.speedtest.net/result/1490690470.png[/img]

    Benim Net Bu..

    Ttnet Sevmem ama İdare Ediyoruz İşte. ;)

    Yabancılar 500 Mbit 1000 Mbit vs... Biz ise 1, 4, 8, 10, 50, 100 Mbit vs... Yinede Buna da Şükür ama Böyle Nete Ben Daha Ne Diyim, Rezil Net.. Ttnet, Diğer Netlere de Aynı Durumda Bence, Sadece Ttnet Değil, Ne Ttnet, Ne Süper Online Fiber İnternet, Ne Uydu Net, Ne Smile Adsl, Ne De Koç Net vs.. Hepside Aslında Rezil İnternet.. Yabancılar Bu Hızları Görünce Dalga Geçiyorsunuz Bu Ne Yavaş İnternet Diyorlar.. Ha Bire Rezil İnternet, Duyduğum Kadarı ile Araplar Bile Bizden Hızlı Net Kullanıyor.. Tam Bi Rezalet. :nea: :angry2:

×
×
  • Create New...