Knight Online Private Serverlar
Knight Online Private Serverlar

Knight Online Private Serverlar Hakkındaki Tüm Paylaşımlar.
 
AnasayfaTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Basir Bir Hesap Makinesi + Kaynak Kod

Aşağa gitmek 
YazarMesaj
Corleone
Administrator
Administrator
avatar

Tuttuğu Takım : Beşiktaşlı
Ruh Hâli : Neşeli
Mesaj Sayısı : 1541
Kullanıcı Puanı : 35001
Saygınlık : 10381
+500 Repliler
Üyelik Tarihi : 24/07/09
Yaş : 23
Şubesi : Ä°stanbul

MesajKonu: Basir Bir Hesap Makinesi + Kaynak Kod   Çarş. Ağus. 12, 2009 3:45 pm

Gerekli Objeler :

3 Tane Label ( İsteğe bağlı)
1. Sayı nın Label , 2. Sayının Label, Sonuç Label

3 Tane TextBox ( Eklenmeli )
1. Sayı nın TxtBox, 2. Sayının TextBox, Sonuç TextBox

5 Tane Buton ( Eklenmeli )
Toplama, Çıkarma, Çarpma, Bölme, Sayıları Temizle



Oluşturacağımız exe




Kaynak Kodları (Proje)

[Linkleri görebilmek için üye olun veya giriş yapın.]

İKON MİCROSOFTTAN ALINTIDIR

Kendi yazdığım kodlar bazı arkadaşlar incelesin diye paylaştım kaynak kodlarınıda
Basit bişey gerçi


VE KODLAMA




İlk önce tanıtalim

(General) - (Declarations) gelin
Forma çift tıkladığınızda açılan yer

Kod:
Dim sayi1 As Integer
Dim sayi2 As Integer
Dim sonuc As Integer


Toplama Butonuna Çift Tıklayın

Kod:
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Lütfen Bir Sayı Giriniz", 47, "Hatalı İşlem"
Else
sayi1 = Text1.Text
sayi2 = Text2.Text
sonuc = sayi1 + sayi2
Text3.Text = sonuc
End If
End Sub


Çıkartma Butonuna Çift Tıklayın

Kod:
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Lütfen Bir Sayı Giriniz", 47, "Hatalı İşlem"
Else
sayi1 = Text1.Text
sayi2 = Text2.Text
sonuc = sayi1 - sayi2
Text3.Text = sonuc
End If
End Sub


Çarpma Butonuna Çift Tıklayın

Kod:
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Lütfen Bir Sayı Giriniz", 47, "Hatalı İşlem"
Else
sayi1 = Text1.Text
sayi2 = Text2.Text
sonuc = sayi1 * sayi2
Text3.Text = sonuc
End If
End Sub


Bölme Butonuna Çift Tıklayın

Kod:
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Lütfen Bir Sayı Giriniz", 47, "Hatalı İşlem"
Else
sayi1 = Text1.Text
sayi2 = Text2.Text
sonuc = sayi1 / sayi2
Text3.Text = sonuc
End If
End Sub

Temizle butonuna Çift tıklayın

HTML-Kodu:
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Hesap makinesi olduğu için malum harf basılmasını istemiyoruz bunun için

TextBox1 in Keypress ine

Kod:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub

TextBox2 nin Keypress ine

Kod:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub


Keypress ne diyebilir bazı arkadaşlar
TextBox a çift tıklayın
Yukardaki Bar da Text1 - Change yazar
Change yi keypress yapınız
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://k2private.yetkin-forum.com
 
Basir Bir Hesap Makinesi + Kaynak Kod
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Knight Online Private Serverlar :: Programlama :: Görsel Programlama-
Buraya geçin: