Jump to content

blackman12

Emekli
  • Posts

    5349
  • Joined

  • Last visited

Posts posted by blackman12

  1. kocamanadam doğru söylüyor, hiç şikayet falan da edemez, zırnık kuruşta alamaz senden. Yapman gereken tek şey pay ölçer teklifini yinelemek ve bunun için bir toplantı tertip etmediği takdirde şikayette bulunacağını söylemek. Gerekirse de şikayet etmek, apartman deprem sonrası yönetmeliğiyle yapıldıysa ve bina enerji performansı yeterliyse ısı pay ölçer sistemi ve termostatik vana taktırmak zorunluluğu var son çıkan yasalarla. Bu koşullar yoksa zaten siz binayı mütehaite vermeseniz bile toki yakın zamanda yıkacaktır.

  2. Sana cevabın Help dosyasında olduğunu söylemiştim:

     

    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    
    GUI()
    
    Func GUI()
        Local $checkbox, $checkbox_def_style, $buton_def_text = "CheckBox'u salt okunur hale getir", $buton_text = "CheckBox'ı varsayılan hale getir"
    
        GUICreate("GUI", 200, 100)
    
        $checkbox = GUICtrlCreateCheckbox("CHECKBOX 1", 10, 10, 120, 20)
        $Button_1 = GUICtrlCreateButton($buton_def_text, 10, 40, 170)
        GUISetState()
    
        While 1
            $msg = GUIGetMsg()
            Select
                Case $msg = $GUI_EVENT_CLOSE
                    ExitLoop
                Case $msg = $Button_1
    				if GUICtrlRead($Button_1) = $buton_def_text Then
    					GUICtrlSetStyle($checkbox, $BS_3STATE)
    					GUICtrlSetData($Button_1,$buton_text)
    				Else
    					GUICtrlSetStyle($checkbox, $BS_AUTOCHECKBOX)
    					GUICtrlSetData($Button_1,$buton_def_text)
    				EndIf
            EndSelect
        WEnd
    EndFunc

    GUICtrlCreateCheckbox'a bakarsan style bölümünde bunları görebilirsin:

     

    default ( -1) : $BS_AUTOCHECKBOX.
    forced styles : $WS_TABSTOP, and $BS_AUTOCHECKBOX if no checkbox style defined.

  3. AutoIT formatındadır, geliştirilebilir ama en basit şekliyle durum bundan ibaret, fonksiyonu çalıştırman yeterli msgbox ı silip, compile ettikten sonra da başlangıca ekledin mi tadından yenmez ;)

     

    MsgBox(0,"",_GunlukKlasor())
    
    Func _GunlukKlasor($kYolu = @DesktopDir)
    	Local $kAdi = @MDAY & "." & @MON & "." & @YEAR
    	if StringRight($kYolu,1) <> "\" Then $kYolu &= "\"
    	if  FileExists($kYolu) and StringInStr(FileGetAttrib($kYolu),"D") Then
    		if FileExists($kYolu&$kAdi) Then
    			Return SetError(2)
    		Else
    			DirCreate($kYolu&$kAdi)
    			Return SetError(0)
    		EndIf
    	Else
    		Return SetError(1)
    	EndIf
    EndFunc
  4. [quote] bakın  :) sizin bilmediğiniz şeylerde varmış demekki  :)[/quote]

     

    o kadar iticisin ki insanın yardım edesi kaçıyor. ama kısaca şunu söylim evet bizim bilmediğimiz çok şey var kesinlikle, ama bu bilmediklerimiz arasında değil ;)

  5. ah azizim şimdiki genliğe matematik öğretmiyolar 20 derecelik bi yer çizmek istiyosan ve elinde iletki yoksa tan(20) yi kullanırsın. şimdi senin hesap makinende yoktur. tan(20) = 0,364 yapar

    yani

     

    hvk0x.png

     

    10 mm yse diğer dik kenar 3,64 mm olacak şekilde çizmelisin kendi uzunluğuna göre de oran orantıyı sen kur artık.

  6. O %20,46 firefox visitin %20si bana ait geri kalan %0,46 kim merak ettim şimdi :D Alışkanlıklardan kolay vazgeçilmiyor firefox ve eklentilerim olmazsa internetten zevk alamıyorum o derece vahim durumum :D ama bazen sitelere girerken çıldırtıyo özellikle facebooka girerken chrome kullanıyorum.

  7. tam başlığa bakıp mesaj olarak "değilsin, önce bi' türkçeni düzelt" diye mesaj yazıcaktım ki konu içerisindeki mesajları okuyunca anladım. Adam başlıkta aslında psikolojik durumunu yansıtmış ve sizden de buna benzer şeyler duymak istiyo :D Çünkü şu anda aslında kendisinin başarılı olduğunu düşünüyo, siz de "he he başarılısın ow yeay mean sana puanım dohuz kanka" deseydiniz kendini tatmin edecekti ama olmadı yar.

×
×
  • Create New...