Visual Basic Te 100 Sistem İle Geçti Kaldı Hesaplarının Kodları

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Visual Basic Te 100 Sistem İle Geçti Kaldı Hesaplarının Kodları

09/Ara/08 20:11 Kısayol Şikayet Özel Mesaj

kafkefhacker

Kayıt Tarihi: 09/Aralık/2008

Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim notu As Byte
            notu = InputBox("notunuzu girin")
            If notu <= 100 Then
                If notu < 44 Then
                    MsgBox("kaldınız")
                ElseIf notu > 44 Then
                    MsgBox("geçtinzi")
                End If
            Else
                MsgBox("notu 100'den küçük olmalı")
            End If
        Catch ex As Exception
            MsgBox("yanış değer girdiniz")
        End Try

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim notu As Byte
        Try
            notu = InputBox("notunuzu girin")
            If notu >= 0 And notu < 25 Then
                MsgBox("0-kaldınız")
            ElseIf notu >= 25 And notu < 45 Then
                MsgBox("1-kaldınız")
            ElseIf notu >= 45 And notu < 55 Then
                MsgBox("2-geçtiniz")
            ElseIf notu >= 55 And notu < 70 Then
                MsgBox("3-geçtiniz")
            ElseIf notu >= 70 And notu < 85 Then
                MsgBox("4-geçtiniz")
            ElseIf notu >= 85 And notu < 100 Then
                MsgBox("5-geçtiniz")
            End If
        Catch ex As Exception
            MsgBox("yanlış değer girdiniz")
        End Try

    End Sub
End Class

Y4 S3V Y4 T3RK 33T.

Alıntı yap
10/Ara/08 22:35 Kısayol Şikayet Özel Mesaj

kafkefhacker

Kayıt Tarihi: 09/Aralık/2008

bu programın projesinin linki : http://rapidshare.com/files/172174990/WindowsApplication2.sln

Y4 S3V Y4 T3RK 33T.

Alıntı yap
11/Ara/08 00:08 Kısayol Şikayet Özel Mesaj

Asker

Banlanmış Üye

Kayıt Tarihi: 02/Ekim/2005

sen yenisin galiba ;) devam et program yazmaya internetten örneklere falan bak kendini geliştir

Alıntı yap
11/Ara/08 00:11 Kısayol Şikayet Özel Mesaj

Asker

Banlanmış Üye

Kayıt Tarihi: 02/Ekim/2005

:D yanlışlıkla 2 kere göndere basmışım

Alıntı yap
11/Ara/08 00:39 Kısayol Şikayet Özel Mesaj

kafkefhacker

Kayıt Tarihi: 09/Aralık/2008

hayr yanlış değll :S program doğruuu ...dikkatli incele

Y4 S3V Y4 T3RK 33T.

Alıntı yap
11/Ara/08 00:43 Kısayol Şikayet Özel Mesaj

Asker

Banlanmış Üye

Kayıt Tarihi: 02/Ekim/2005

kafkefhacker bunu yazdı:
-----------------------------
hayr yanlış değll :S program doğruuu ...dikkatli incele
-----------------------------
ben program yanlış demedim sen git biraz uyu bence (cittiyim)

Alıntı yap
11/Ara/08 10:55 Kısayol Şikayet Özel Mesaj

FCN

Kayıt Tarihi: 28/Eylül/2007

Asker bunu yazdı:
-----------------------------
:D yanlışlıkla 2 kere göndere basmışım
-----------------------------
kafkefhacker bunu yazdı:
-----------------------------
hayr yanlış değll :S program doğruuu ...dikkatli incele
-----------------------------
Asker bunu yazdı:
-----------------------------
ben program yanlış demedim sen git biraz uyu bence (cittiyim)
-----------------------------

zuahhaha muhabbete bak :) :D

Alıntı yap

Toplam Hit: 3399 Toplam Mesaj: 7

Cevapla