Public Class Form1 Private Sub Button2_Click Handles Button2. Click Try Dim notu As Byte notu = InputBox If notu <= 100 Then If notu < 44 Then MsgBox ElseIf notu > 44 Then MsgBox End If Else MsgBox("notu 100'den küçük olmalı") End If Catch ex As Exception MsgBox End Try End Sub Private Sub Button1_Click Handles Button1. Click Dim notu As Byte Try notu = InputBox 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 End Try End SubEnd Class Y4 S3V Y4 T3RK 33T.

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

: hayr yanlış değll :S program doğruuu... dikkatli incele ben program yanlış demedim sen git biraz uyu bence

:D yanlışlıkla 2 kere gndere basmışım

bu programın projesinin linki : http://rapidshare.com/files/172174990/WindowsApplication2. sln Y4 S3V Y4 T3RK 33T.

: :D yanlışlıkla 2 kere gndere 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 zuahhaha muhabbete bak :) :D

hayr yanlış değll :S program doğruuu... dikkatli incele Y4 S3V Y4 T3RK 33T.