search
Categories
Sponsors
VirtualMetric Hyper-V Monitoring, Hyper-V Reporting
Archive
Blogroll

Badges
MCSE
Community

Cozumpark Bilisim Portali
Camasir Yikama Sihirbazi – V1
Posted in Windows Powershell | 1 Comment | 2,329 views | 09/09/2009 23:43

Annem uzun bir süredir kardeşimle birlikte tatilde olduğu için çamaşırlar bu aralar bana kaldı. Fakat hep ayni soru var bende. Renkli ise kac derecede ve kac devirde yikanmali? Ayrica devir nedir ki? Süreyi mi kısaltır yoksa motor gürültüsü gibi bir şeydir de bazıları bu sesi duymak için mi devir arttırır? Bunlara bir son vermek ve otonom hale getirdiğim yaşantımı biraz daha otonomlaştırabilmek için oturdum Powershell scripti yazdım.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
# Camasir yikamak eziyet olmasin,
# Gencler gelecege umutla baksin projesi
 
# Camasir Yikama Sihirbazi v1.0
# Yusuf Ozturk - ysfozy@gmail.com
# Her camasiri saklidir - Copyright 2009-2010
 
[void][System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic')  
 
$CamasirTuru = [Microsoft.VisualBasic.Interaction]::InputBox("Ne tur camasir yikayacaksin? (Renkli ya da Beyaz)", "Camasir Turu", "Renkli")
 
$Cogunluk = [Microsoft.VisualBasic.Interaction]::InputBox("Cogunlugu ne ki? (Pamuklu ya da Narin)", "Camasir Orani", "Pamuklu")
 
$Kirderecesi = [Microsoft.VisualBasic.Interaction]::InputBox("Kirlilik derecesi? (Felaket ya da Normal)", "Camasir Orani", "Normal")
 
if ($CamasirTuru -eq "Renkli")
{
 
if ($Kirderecesi -eq "Felaket")
{    
    $Onyikama = "Onyikamali";
}
Else
{
    $Onyikama ="Onyikamasiz";
}
 
    $Yipranabileer = [Microsoft.VisualBasic.Interaction]::InputBox("Yipranmalarindan korkuyor musun? (Cok, Biraz ya da Hayir)", "Amman ha!", "Biraz")
    if ($Yipranabileer -eq "Cok")
    {
        $Devir = "Dortyuz";
            $Renkatmasi = [Microsoft.VisualBasic.Interaction]::InputBox("Renkleri atarsa uzulur musun? (Cok uzulurum hem de bunlar bana hediye geldi icin Evet, Atarsa atsin yenisini aliriz icin Hayir)", "Renk Atabileer!", "Evet")
            if ($Renkatmasi -eq "Evet")
            {
                if ($Cogunluk -eq "Pamuklu")
                {
                    $Derece = "otuzbes";
                }
                Else
                {
                    $Derece = "otuz";
                }
            }
            Else
            {
                $Derece = "kirk";
            }
    }
    Elseif ($Yipranabileer -eq "Biraz")
    {
        $Devir = "sekizyuz";
 
            $Renkatmasi = [Microsoft.VisualBasic.Interaction]::InputBox("Renkleri atarsa uzulur musun? (Cok uzulurum hem de bunlar bana hediye geldi icin Evet, Atarsa atsin yenisini aliriz icin Hayir)", "Renk Atabileer!", "Evet")
            if ($Renkatmasi -eq "Evet")
            {
                if ($Cogunluk -eq "Pamuklu")
                {
                    $Derece = "otuzbes";
                }
                Else
                {
                    $Derece = "otuz";
                }
            }
            Else
            {
                $Derece = "kirk";
            }
    }
    Else
    {
        $Devir = "bin";
            $Renkatmasi = [Microsoft.VisualBasic.Interaction]::InputBox("Renkleri atarsa uzulur musun? (Cok uzulurum hem de bunlar bana hediye geldi icin Evet, Atarsa atsin yenisini aliriz icin Hayir)", "Renk Atabileer!", "Evet")
            if ($Renkatmasi -eq "Evet")
            {
                if ($Cogunluk -eq "Pamuklu")
                {
                    $Derece = "otuzbes";
                }
                Else
                {
                    $Derece = "otuz";
                }
            }
            Else
            {
                $Derece = "kirk";
            }
    }
 
Write-Host Camasirlarinizi $Derece derece sicaklikta, $Devir devirde ve $Onyikama olarak yikamalisiniz.
 
}
Else
{
    $Derece = "doksan";
    $Devir = "bin";
 
    Write-Host Camasirlarinizi $Derece derece sicaklikta, $Devir devirde yikamalisiniz.
 
}

Scripti çalıştırdığımızda aşağıdaki gibi size sorular sorduğunu göreceksiniz.

Gördüğünüz gibi çamaşır türüne, tipine ve rengine göre size uygun sıcaklık, devir ve ön yıkama değerlerini veriyor. Bana yaklasik değerleri ögrenmemde yardımcı olan sevgili Oya ve Hatice’ye teşekkürlerimi bir borç bilirim :D Teşekkürler.


Comments (1)

Can

September 10th, 2009
18:36:22

30 derecede renkli/beyaz karisik yikayabilirsin. cok kirliyse on yikamali, degilse on yikamasiz yikayabilirsin.

Gerek yoktu be scripte bana soraydin =p

Ayrica inputlari text yerine radio button yaparsan rahat edersin kanaatindeyim.



Leave a Reply