Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

[OSK] | VB & C# | Sayı Tahmin | Her Yönü İle |

BOMBFACTORY

Uzman Üye
Uzman Üye
Trabzonspor
Katılım
5 Ocak 2014
Mesajlar
3,333
Tepkime puanı
6
Puanları
136

Created by OMANSAK

1: Sayı Tahmin Oyunu (Visual Basic (2010) & C (#))
2: 4 İslem (Visual Basic (2010) & C (#))

--------------------------------------------



Download


Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun



PrintScreen





[/COLOR]Blue"]Code[/COLOR]

-> [C#]
Kod:

int tutulanSayi; int tahmin; Random sayiTutucu = new Random(); tutulanSayi = sayiTutucu.Next(1, 11); Console.WriteLine(" |OMANSAK|"); Console.WriteLine(" Sayı Tahmin Oyununa"); Console.WriteLine(" Hosgeldiniz"); Console.WriteLine(" Lütfen 1 ile 10 arasında bir tahminde bulunun"); do { string girilenDeger = Console.ReadLine(); tahmin = int.Parse(girilenDeger); if (tutulanSayi == tahmin) { Console.WriteLine("Tebrikler"); } else { if (tahmin < tutulanSayi) { Console.WriteLine("Daha yüksek bir değer girmelisiniz. Lütfen tekrar deneyin."); } else { Console.WriteLine("Daha düşük bir değer girmelisiniz. Lütfen tekrar deneyin."); }
->[Visual Basic]

Kod:

Public Class Form1 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.ForeColor = Color.Red End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize() Label1.Text = Int(Rnd(1) * (10)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Val(TextBox1.Text) < Val(Label1.Text) Then Label3.ForeColor = Color.Red Label3.Text = ("Lütfen Daha Büyük Bir Sayı Giriniz") End If If Val(TextBox1.Text) > Val(Label1.Text) Then Label3.ForeColor = Color.Red Label3.Text = ("Lütfen Daha Kücük Bir Sayı Giriniz") End If If Val(TextBox1.Text) = Val(Label1.Text) Then Label1.Visible = True Label3.ForeColor = Color.Red Label3.Text = ("Tebrikler") End If End SubEnd Class
İpucu:

C# İcin:

{0} Komutu " XXX " Fonkisyonunda Sonra ),yy Komutu İle Aynı Sye Sahiptir

Örn:

Console Yazıdrmak İstegimiz (Bir Gün Bir GÜn Bir Cocuk)

Console.Write(" {0} {0} {1} cocuk ",Bir Gün,Bir);

Burada ki;
{0}= Bir Gün
{1}=Bir
Sözcükleirni Tasımaktadır.

Visual Basic İcin

"Randomize;" Kodu Her Seferide Farklo Bir Deger İcin
"int(Rdn)" Kodu İse RANDOM Kodu İle Aynı İşlevdedir Ama Random Kodundan Tek Fark Sadece Tam Sayı Degeri Alır
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst