Öğretmenler Forumu
Ekim 13, 2008, 10:09:31 ÖÖ *
Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun.

Kullanıcı adınızı, parolanızı ve aktif kalma süresini giriniz
 
   Ana Sayfa   Yardım Ara GiriÅŸ Yap Kayıt  
Öğretmenler Forumu > BranÅŸlar > Meslek Dersi Öğretmenleri (Moderatör: GuReL) > PROGRAMCILAR BURAYA
Sayfa: [1]
« önceki sonraki »
  Yazdır  
Gönderen Konu: PROGRAMCILAR BURAYA  (Okunma Sayısı 788 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
rapix
Newbie
*
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2

RAP BU FAZLA SÖZE GEREK YOK


Ãœyelik Bilgileri
« : Kasım 29, 2007, 06:14:18 ÖS »
 arkadaÅŸalar programcı arkadaÅŸlarımı ve katılımlarınızı beklerim

bildiniz kodları paylaşırsanız sevinirim

               VÄ°SUAL BASÄ°C  olur inÅŸ bende lise 3 pc bolumunde okuyon programcıyım
isteyen yazdıgım programları alabilir
 msn i ekleyin yeter
Logged
TÜRKÇE KONUŞ TÜRQCE DEĞİL !!!
 
arkadaşlar türkçemizi koruyalın
rapix
Newbie
*
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2

RAP BU FAZLA SÖZE GEREK YOK


Ãœyelik Bilgileri
« Yanıtla #1 : Kasım 29, 2007, 06:17:46 ÖS »
ilk siftahı ben yapıyım
 BASÄ°T BÄ°R NOT ORTALAM PROGRAMI
gerekenler
 9 label  3 textbox ve 2 buton




Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ort As Single
        Dim notu As Byte
     
        ort = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text)) / 3
        If ort < 25 Then notu = 0

        If ort >= 25 And ort < 45 Then notu = 1
        If ort >= 45 And ort < 55 Then notu = 2
        If ort >= 55 And ort < 70 Then notu = 3
        If ort > 70 And ort < 85 Then notu = 4
        If ort > 85 Then notu = 5

        REM sonuçlar
        Label6.Text = Str(ort)
        Label7.Text = Str(notu)
        If notu >= 45 Then Label10.Text = "baÅŸarılı" Else Label10.Text = "baÅŸarısız"

    End Sub

   
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        If Val(TextBox1.Text) < 0 Or Val(TextBox1.Text) > 100 Then

            MsgBox("0'dan küçük yada 100'den büyük bir deÄŸer girildi lütfen kontrol edin")
            TextBox1.Clear()
            TextBox1.Focus()
        End If
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        If Val(TextBox2.Text) < 0 Or Val(TextBox2.Text) > 100 Then
            MsgBox("0'dan küçük yada 100'den büyük bir deÄŸer girildi lütfen kontrol edin")
            TextBox2.Clear()
            TextBox2.Focus()
        End If


    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        If Val(TextBox3.Text) < 0 Or Val(TextBox3.Text) > 100 Then
            MsgBox("0'dan küçük yada 100'den büyük bir deÄŸer girildi lütfen kontrol edin")
            TextBox3.Clear()
            TextBox3.Focus()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()

    End Sub
End Class
REM RAPÄ°X SAYGIALRIMLAR :d
Logged
TÜRKÇE KONUŞ TÜRQCE DEĞİL !!!
 
arkadaşlar türkçemizi koruyalın
Marmalade
Newbie
*
Offline Offline

Mesaj Sayısı: 1


Ãœyelik Bilgileri
« Yanıtla #2 : Åžubat 02, 2008, 04:01:59 ÖS »
Basit bir hesap makinesi.

Public Class Form1
    Dim sayı1 As Integer
    Dim sayı2 As Integer
    Dim sonuc As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 + sayı2


 

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 - sayı2
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 * sayı2
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 / sayı2
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 ^ sayı2
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        sayı1 = TextBox1.Text
        sayı2 = TextBox2.Text
        lblsnc.Text = sonuc
        sonuc = sayı1 \ sayı2
    End Sub
End Class
Logged
Sayfa: [1]
  Yazdır  
« önceki sonraki »
 
Gitmek istediÄŸiniz yer:  

hosting

 

S   0 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 

 

eğitim Edebiyat Edebiyat Edebiyat Edebiyat Okul Öncesi ÖSS KPSS Yemek Tarifleri Yemek Tarifleri Tarih Matematik Geometri Biyoloji Kimya Sağlık ÖSSSS Fizik ingilizce Gebelik Matematik Weblopedi Oteller chat sağlık
MySQL ile Güçlendirildi PHP ile Güçlendirildi Powered by SMF 1.1.6 | SMF © 2006, Simple Machines LLC
Seo4Smf v0.2 © Webmaster's Talks 		XHTML 1.0 Geçerli! CSS Geçerli!