C# If Else Kullanımı

Hız limiti 100 km olan bir yolda hızı;

                 hız limitinin %10 ile %20 arasında bir oranla hız limitini aşan araçlara 25 TL,

           hız limitinin %20 ile % 30  arasında  bir oranla hız limitini aşan araçlara 55 TL,

           hız limitinin %30 ile %40 arasında   bir oranla hız limitini

aşan araçlara 70 TL,

           hız limitinin %40 ile %50 arasında  bir oranla hız limitini aşan araçlara 90 TL,

           hız limitinin %50 ile %60 arasında bir oranla hız limitini aşan araçlara 150 TL,

                 hız limitinin %60 ve üzeri bir oranla hız limitini aşan araçlara 250 TL ceza yazılmaktadır.

Aracın hızını ekrana girdiren ve  kesilecek cezayı hesaplayan ve ekrana yazdıran program.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace calisma_2
{

class Program
{

static void Main(string[] args)
{

double hiz = 0;

Console.Write("Lütfen hız bilgisini giriniz= ");
hiz = Convert.ToDouble(Console.ReadLine());
int limit = 100;

if (hiz < 110)
{

Console.WriteLine("tebrikler hız limitini aşmadınız :");
}

else if (hiz >= limit *110/100 && hiz < (limit * 120 / 100))
{

Console.WriteLine("Ceza tutarınız 25 TL'dir");
}

else if (hiz >= limit * 120 / 100 && hiz < (limit * 130 / 100))
{

Console.WriteLine("Ceza tutarınız 55 TL'dir");
}

else if (hiz >= limit * 130 / 100 && hiz < (limit * 140 / 100))
{

Console.WriteLine("Ceza tutarınız 70 TL'dir");
}

else if (hiz >= limit * 140 / 100 && hiz < (limit * 150 / 100))
{

Console.WriteLine("Ceza tutarınız 90 TL'dir");
}

else if (hiz >= limit * 150 / 100 && hiz < (limit * 160 / 100))
{

Console.WriteLine("Ceza tutarınız 150 TL'dir");
}

else if (hiz >= limit* 60 / 100)
{

Console.WriteLine("Ceza tutarınız 250 TL'dir");
}

}

}

}

Girilen 3 Sayıdan En Büyüğünü Bulan Program

• İç içe if kullanımı_örnek

Yapıcı (Constructor) Metot

Yapıcı (Constructor) Metot
Yapıcı metotlar , herhangi bir sınıftan tanımlanan bir nesne sonrasında çalışan metottur. Nesne tanımlaması esnasında new operatörünü görüldüğünde o sınıfın içerisindeki constructor çalışır.

Yapıcı metot geriye değer göndermeyeceği için herhangi bir şekilde geriye döndürmek için veri tipi tanımlamamıza gerek yoktur.

• Örnek:

Köy ve organik yaşam :)

Salatalık.

Böğürtlen 

Kabak

Domates

Hanımeli

Üzüm

Finduk :)

Patlıcan 

Ardışık çift sayıların toplamını hesaplayan program

Sub ciftsayitoplami()
       
        Dim i, ciftsayi As Integer
          ciftsayi = 0
         
            For i = 30 To 80 Step 2
                ciftsayi = ciftsayi + i
            Next
          
        MsgBox "30 ile 80 arasındaki çift sayıların toplamı " & ciftsayi
   
    End Sub

Klavyeden girilen sayının faktöriyelini hesaplayan program

Sub faktoriyel()
       
        Dim i, sayi As Integer
            sayi = InputBox("bir sayı giriniz")
            tpl = 1
        For i = 1 To sayi Step 1
            tpl = tpl * i
        Next
            MsgBox tpl
   
    End Sub

Klavyeden girilen 10 sayıdan çiftlerin toplamının teklerin toplamına oranını hesaplayan program.

Sub cift_tek_oran()

   Dim i, sayac, a, cift, tek, cifttop, tektop As Integer
    Dim sonuc As Double
          sayac = 0
          cift = 0
          tek = 0
          cifttop = 0
          tektop = 0
   
        For i = 1 To 10 Step 1
            sayac = sayac + 1
            a = InputBox(sayac & ". sayıyı giriniz")
          
                If a Mod 2 = 0 Then
                    cift = cift + 1
                    cifttop = cifttop + a
                   
                 Else
                   
                    If a Mod 1 = 0 Then
                    tek = tek + 2
                    tektop = tektop + a
                
                End If
                End If
        Next i
               
                sonuc = cifttop \ tektop
                MsgBox "çift sayılar toplamının tek sayılar toplamına oranı " & sonuc
   
    End Sub

Vize_Final Notu Hesaplama Programı

Sub Not_Hesaplama()
    Dim vize1, vize2, final, vizeortalamasi, finalnotu, notortalamasi As Double
    Dim ogrencisirasi, toplamogrenci As Integer
        Dim islemedevam As Boolean
        ogrencisirasi = 0
        islemedevam = True
    
        toplamogrenci = InputBox("Kaç öğrenci için not hesaplamak istiyorsunuz ?")
       
            Do While toplamogrenci > 0
                ogrencisirasi = ogrencisirasi + 1
                toplamogrenci = toplamogrenci - 1
   
                vize1 = CInt(InputBox(ogrencisirasi & ".öğrenci için 1. vize notunu giriniz")) 'Cint string dönüştürür integer
                vize2 = CInt(InputBox(ogrencisirasi & ".öğrenci için 2. vize notunu giriniz"))
                final = CInt(InputBox(ogrencisirasi & ".öğrenci için final notunu giriniz"))
               
                        vizeortalamasi = ((vize1 + vize2) / 2) * 0.4
                        finalnotu = final * 0.6
                        notortalamasi = vizeortalamasi + finalnotu
                   
                        MsgBox ogrencisirasi & ". öğrencinin dönem sonu notu " & notortalamasi
   
               
                If islemedevam = toplamogrenci < 0 Then
                    islemedevam = False
                End If
                Dim yaziNotu, harfnotu As String
               
                Select Case notortalamasi
                    Case Is < 50: yaziNotu = "kaldı"
                    Case Is >= 50: yaziNotu = "geçti"
                    Case Else: yaziNotu = "hadi bu da geçti"
                End Select
                    Select Case notortalamasi
                        Case 0 To 30
                        harfnotu = "E"
                        Case 30 To 50
                        harfnotu = "D"
                        Case 50 To 60
                        harfnotu = "C"
                        Case 60 To 80
                        harfnotu = "B"
                        Case 80 To 100
                        harfnotu = "A"
                    End Select
       
                MsgBox ogrencisirasi & ".ögrenci " & harfnotu & " ile " & yaziNotu
            Loop
  
    End Sub

Sayi_Tahmin_Oyunu

İlk çalışmam hayırlı olsun diyorum... : )


Sub sayi_bulma()
    If MsgBox("Benimle oyun oynamak ister misin?", vbYesNo) = vbNo Then
        MsgBox ("Oyunbozan :)"), vbOKOnly
    Else
        MsgBox ("Hadi aklından 1 ile 10 arasında bir sayı tut !"), vbOKCancel
       
        If MsgBox("Tuttuysanız Evet'e basın", vbYesNo) = vbYes Then
       
            Dim enBuyuk, enKucuk, tahmin, kere As Integer
            Dim aramayadevamet As Boolean
            aramayadevamet = True
           
            kere = 0
            enBuyuk = 10
            enKucuk = 0
           
            Do While aramayadevamet
                tahmin = Int((enBuyuk - enKucuk + 1) * Rnd + enKucuk)
                If MsgBox("Tuttuğunuz sayı " & tahmin & " idi değil mi?", vbYesNo) = vbYes Then
                    aramayadevamet = False
                Else
                    If MsgBox("Tuttuğunuz sayı tahmin edilenin üzerinde ise Evet'i altında ise  _
& " Hayır'ı seçiniz."    ,vbYesNo) = vbYes Then
                        tahmin = enBuyuk
                    Else
                        tahmin = enKucuk
                    End If
                End If
            Loop
           
            If kere = kere + 1 Then
             MsgBox "Beni tebrik etmelisin, ilk seferde bildim"
            Else
             MsgBox "Biraz uğraştırdın beni ama sonunda buldum :)"
            End If
        End If
    End If
End Sub

Periton Diyaliz Yöntemleri

Periton Diyalizi iki şekilde gerçekleştirilir:

Sürekli Ayaktan Periton Diyalizi (SAPD) :Periton diyalizi işleminin manüel gerçekleştirilen şeklidir. Sürekli Ayaktan Periton Diyalizi uygulanırken yapılan işlemlerin tümüne TORBA DEĞİŞTİRME adı verilir. Bir torba değiştirme işleminin üç aşaması vardır. Bunlar BOŞALTIM - BEKLEME – DOLUM’dur. Bir değişim işlemi yaklaşık yarım saat sürer.

Aletli Periton Diyalizi (APD): Evde makine aracılığı ile uygulanan periton diyalizi işlemine Aletli Periton Diyalizi (APD) denir. Bu tedavi biçiminde hasta yatmadan önce set ve solüsyon torbalarını periton diyalizi makinesine yerleştirir ve makinesini önerilen şekilde programlar. Kişi uyurken gece boyunca (8–10 saat) makine karın boşluğuna diyaliz sıvısını verir, bekletir ve boşaltır. Gerektiğinde tedavide değişiklik yapılabilir.

Beyaz Güvercin...

Penceremize konan davetsiz misafirlerimiz.Hoş geldiler,sefa getirdiler...

BEYAZ GÜVERCİN

Süzülüp mavi göklerden yere doğru
Omuzuma bir beyaz güvercin kondu

Aldım elime, usul usul okşadım
Sevdim, gençliğimi yeniden yaşadım

Bembeyazdı tüyleri, öyle parlaktı
Açsam ellerimi birden uçacaktı

Eğildim kulağına; dur, gitme dedim
Hâreli gözlerinden öpmek istedim

Duydum; avuçlarımda sıcaklığını
Duydum; benden yıllarca uzaklığını

Çırpınan kalbini dinledim bir süre
Ve uçmak istedim onunla göklere

Ak güvercinin iri gözleri vardı
Güzelliğinden fışkıran bir pınardı

Soğuk sularından içtim, serinledim
Çağlayan bir nehrin sesini dinledim

Belki buydu sevmek hayat belki buydu
Işıl ışıldım, gözlerim dopdoluydu

Bir nağme yükseldi sevinçten ve hazdan
Bir nağme yükseldi, güzelden beyazdan

Uzattı sevgiyle pembe gagasını
Birden öğrendim hayatın mânâsını

Kaderde sevgiyi sende bulmak varmış
Seninle bir çift güvercin olmak varmış


Ümit Yaşar OĞUZCAN

Pazar Keyfi :)

Ordu Boztepe'ye teleferikle yolculuk.

Boztepe_çamlık

 Bol oksijen ve nefisss çay eşiğinde keyifli bir sohbet....

Ordu tostu..

Ve sonunda güneş yüzünü gösterdi, manzara tadına doyulmaz oldu.

Yurt dışı sigortalı müracaatları (04/05/2013 tarihli SUT değişikliği)

Almanya ile yapılan sosyal güvenlik sözleşmesi kapsamındaki kişiler için medula sistemi üzerinden provizyon alınması 04/05/2013 tarihli Sağlık Uygula Tebiği’nde yapılan değişiklik ile Kurum bilgi işlem sisteminde ilgili hastaların müstahaklık sorgulamasının yapılması sağlanıncaya kadar ertelenmiştir. Bu durumda Yurtdışı (ALMANYA) kapsamında bulunan hastalarımızın sağlık hizmetleri eskiden olduğu gibi Kurumca düzenlenmiş ve onaylanmış “Sosyal Güvenlik Sözleşmesine Göre Sağlık Yardım Belgesi”ne istinaden düzenlenmeye devam edecektir.

 

 1.7.1 - Yurt dışı sigortalı müracaatları (24/03/2013 tarihli SUT)

(1) Yabancı ülkelerle yapılan sosyal güvenlik sözleşmeleri kapsamında Kurum sağlık yardımlarından yararlandırılan kişilerin sağlık hizmetleri, Kurumca düzenlenmiş ve onaylanmış “Sosyal Güvenlik Sözleşmesine Göre Sağlık Yardım Belgesi” ne istinaden sağlanacaktır. Ancak Almanya ile yapılan sosyal güvenlik sözleşmesi kapsamındaki kişiler için MEDULA sistemi üzerinden ayrıca provizyon alınacaktır.

 

1.7.1 - Yurt dışı sigortalı müracaatları (04/05/2013 tarihli SUT değişikliği)

 “(1) Kurum bilgi işlem sisteminde müstahaklık sorgulamasının yapılması sağlanıncaya kadar; yabancı ülkelerle yapılan sosyal güvenlik sözleşmeleri kapsamında Kurum sağlık yardımlarından yararlandırılan kişilerin sağlık hizmetleri, Kurumca düzenlenmiş ve onaylanmış “Sosyal Güvenlik Sözleşmesine Göre Sağlık Yardım Belgesi”ne istinaden sağlanacaktır.”

Online Protokol_ Değişilik

15/04/2013 Değişiklikler;

1-     MHRS işlemi olan vatandaşlar için MHRS (Merkezi Hastane Randevu Sistemi) alanı 1 olarak değil HRN (Hasta Randevu Numarası ) alanı olarak gönderilmelidir.

Not: Merkezi Hastane Randevu Merkezi; vatandaşların Sağlık Bakanlığına bağlı 2. ve 3. basamak Hastaneler ile Ağız ve Diş Sağlığı Merkezleri için 182 Hastane Randevu Merkezini arayarak canlı operatörlerden veya web üzerinden kendilerine istedikleri hastane ve hekimden randevu alabilecekleri bir uygulamadır.

2-     Hekim_TCK alanı zorunlu alan olarak eklenmiştir.

3-     Hasta tipi alanı zorunlu alan olarak eklenmiştir.

          4-  USVS Paket Numaraları Sağlık.Net uyumlaştırma çalışmaları yapılmıştır.

Medula Kullanım Kılavuzu_30.04.2013 Değişiklik

30/04/2013 Tarihli Değişiklikler;

1-  Provizyon tipine 3713/21 seçeneği eklendi.Bu provizyon tipi katılım payından muaf olup %100 incelenecektir.

3713 S.lı Terörle Mücadele Kanunu MADDE 21 (Malul olanlarla aylığa müstehak dul ve yetimlere yardım) http://www.turkhukuksitesi.com/mevzuat.php?mid=9937

2- Özel Duruma "Z" ,”Moleküler ödenmesi için preimplantasyon var” eklendi.Bu özel durum ya da “0” “Organ,doku ve kök hücre nakli uygulanan hasta” gönderilmesi durumunda moleküler tetkiklerin ödenmesi sağlandı. (Diyalizden bağımsız)

3-     Özel Duruma "X", "60 dakika altı FTR seansı" eklendi., Gönderilmesi durumunda %50 fiyat dönülecek. (Diyalizden bağımsız)

4-  ProvizyonGirisDVO sınıfına istinaiHal alanı eklendi. (Kılavuzda ilgili alan bulunamamıştır.)

5- ProvizyonGirisDVO sınıfına yesilKartSevkEdenTedaviTipi alanı eklendi (HBO ve Hemodiyaliz için)  (Kılavuzda ilgili alan bulunamamıştır.)

6- ProvizyonGirisDVO sınıfına yesilKartSevkEdenTakipTipi alanı eklendi (yoğun bakım için)  (Kılavuzda ilgili alan bulunamamıştır.)

7- TedaviIslemBilgisiDVO sınıfına evHemodiyaliziRaporBilgisi alanı eklendi.

8-  Tedavi Rapor Turu seçeneklerine 8 = Ev Hemodiyalizi eklendi.

9-  Yeşil kart e-sevk uygulamasında sevk edilen hastane ve tesis kodu girilmesi için alan açıldı ve 250 karakterlik açıklama yapılması için bölüm eklendi. Bu kısımlarla ilgili giriş zorunluluğu bulunmaktadır.

10-  Özel hastanelerin ve üniversite hastanelerinin yeşil kartlı kişilere e-sevk yapabilmesi için düzenleme yapıldı.

11-  Akkiz immün yetmezlik kapsamında yeşil kartlı kişilerin doğrudan hasta kabulu yapabilmesi için ekteki tanıların gönderilmesi zorunlu hale getirildi. (sgk.gov.tr/Duyurular bölümünden ICD-10 kodları duyurulacaktır.)  (Diyalizden bağımsız)

12-  SUT eki Ek-2A listesindeki branşların ve diğer branşların ayrıntılı bilgisi sgk.gov.tr/Duyurular bölümünden duyurulacaktır.

13-  Yeşil kartlıların e-sevk işlemi yapılması aşamasında hemodiyaliz branşından sevk yapılabilmesi için tedavi tipi hemodiyaliz eklendi. Hemodiyaliz sevklerinin 3 ay süre ile geçerli olması sağlandı.

14-  Yeşil kartlıların yoğun bakıma sevk edilebilmeleri için takip tipi yoğun bakım eklendi. (Diyalizden bağımsız)

15-  Yeşil kartlı kişilerin doğrudan müracatlarda (özel hastaneler haricinde) tedavi tipi HBO dan tedavi verebilmesi sağlandı. (Diyalizden bağımsız)

16-  Diş hekimliği uygulamalarında günübirlik tedavi tipinde hizmet kaydı yapılabilmesi (ortodontik tedavi tipi kapsamı hariç olmak üzere) ek-2Ç listesinde yer alan 405.370 ve/veya Ek-2B listesinde yer alan 551340 işlem kodlarından birisinin gelmesi ve/veya özel durum “Y” gönderilmesi gerekmektedir. (Diyalizden bağımsız)

17-  Özel durum 7 (İş kazası, trafik kazası veya adli vaka'da nükseden veya devam eden tedavi) uygulaması 01.05.2013 tarihi itibari ile kaldırılmıştır.

18-  Mayıs 2013 döneminden ekim 2013 dönemine kadar (ekim dahil) faturalandırma süresi 3 ay olarak değiştirilmiştir.

SUT_5.2 - Fatura düzenlenmesi

5.2.1 - Sağlık kurum ve kuruluşları faturalarının düzenlenmesi

(1) MEDULA sistemini kullanan sağlık kurum ve kuruluşları, Kurum sağlık yardımlarından yararlandırılan tüm kişiler için, her ayın başı ile sonu arasında verdikleri sağlık hizmetlerine ilişkin hem kendi sistemleri üzerinden Kurum adına basılı olarak hem de MEDULA sisteminden elektronik olarak; tek bir fatura düzenleyeceklerdir. Ancak herhangi bir nedenle döneminde faturalandırılamayan bir sağlık hizmeti olması halinde bu sağlık hizmeti işleminin bittiği tarih itibariyle faturalandırılması gereken dönemi takip eden en geç 2 ay içerisindeki dönem sonlandırılmasına dâhil edilecektir. Ancak bu Tebliğin yürürlüğe girdiği tarihten itibaren 6 ay süresince, herhangi bir nedenle döneminde faturalandırılamayan bir sağlık hizmeti olması halinde bu sağlık hizmeti, işleminin bittiği tarih itibariyle faturalandırılması gereken dönemi takip eden en geç 3 ay içerisindeki dönem sonlandırılmasına dâhil edilebilecektir. Bu maddenin ikinci fıkrasının a bendinde sayılan trafik kazası nedeniyle verilen sağlık hizmetlerine ilişkin faturalar için dönem sonlandırma süresi dikkate alınmaz. Ayrıca Kurumdan kaynaklanan sebeplerden dolayı elektronik ortamda Kuruma fatura edilemeyen sağlık hizmeti bedelleri ile provizyon alma süresi içerisinde vefat eden hastaların tedavi bedelleri manuel olarak fatura edilebilecektir.

  

Medula E-Reçete Kullanım Kılavuzu_30/04/2013

18/04/2013-25/04/2013-30/04/2013 Değişiklikler;

                            

Not; Daha önce değişiklik yapılan 18-25 Nisan tarihli değişiklik metinleri de aşağıdaki gibi güncellenmiştir;

1.15 Sürüm -18.04.2013

1- Rapor teşhis listesi sorgulama servisi ve Etkin Madde SUT listesi sorgulama servisi eklendi.

2- Test ortamında yeni hata kodları aktif hale getirildi. Bir süre sonra yeni hata kodları gerçek ortamda da aktif olacaktır.

1.16 Sürüm -25.04.2013

- “Elektronik Reçete Onay Servisi” ve “Elektronik Reçete Onay İptal Servisi” kullanıma açıldı.

- Tüm onay işlemleri için bu servis kullanılabilir. İleriki tarihlerde diğer onay servisleri kapatılacaktır.

 1.17 Sürüm -30.04.2013

- Dokümana sonuç kodları ile ilgili açıklama eklendi.