Aralık
11th 2007
Matematik İşlemleri

Posted under Visual Basic

Visual BASIC altında matematiksel işlemler çok kolay. O kadar kolay ki
GWBASIC ten bu yana BASIC dilinin bu özelliğini kaybetmemiş olması en
harika özelliklerinden biridir. Şimdi bir noktada şunu da kabul etmek
gerekir ki matematiksel işlevler her programlama dilinde kullanılması
çok kolay olmasına karşın o işlevleri nerede ve nasıl, hamgi şartlar
altında kullanışlı hale getirmeyi tasarlamak kadar da zor bir iş yoktur.

Matematiksel işlevlerin sadece dört işlemine burada tanık olacaksınız.
Yalnız matematiksel işlevleri çok kolay kullanabilmeniz için de o kadar
iyi bir matematiksel zekaya sahip olmanız gerekiyor.Örneğin bir pencere
üzerindeki nesnelerin pencerenin boyut değiştirmesi üzerine nasıl bir hal
alacaklarını hesaplamak VB altında matematiksel fonksiyonların nasıl
kullanılması gerektiğini bilmekle alakalı birşey değildir.

Ben burada sizlerin matematiksel zekasını programlara nasıl aktarabileceğiniz
konusunda bir kaç öneride bulunacağım o kadar.

Şimdi ufak ufak başlayalım ve “Dört İşlem” diyelim…

DÖRT İŞLEM

VB altında dört işlem en kolay matematiksel işlemler olup bunun haricinde de sizlere anlatacağımız ya da anlatmamız gereken bir işlev pek bulunmamaktadır.
Aşağıdaki örnek ile sizlere bütün işlevleri anlatıyoruz ;

Dim Sonuç As Double ‘Ondalık bir sayı tanımlanıyor..
Dim sayı1 As Integer
Dim sayı2 As Integer ‘ 2 Tane TamSayı tanımlıyoruz..

Continue Reading »

No Comments »

Aralık
11th 2007
Rca Bilimsel Hesap Makinesi

Posted under Visual Basic

Dim a, b, c, d As Double

Private Sub Command1_Click()
     Text1.Text = Text1.Text & 1
  
End Sub

Private Sub Command10_Click()
    Text1.Text = Text1.Text & 7
End Sub

Private Sub Command11_Click()
    Text1.Text = Text1.Text & 6
End Sub

Private Sub Command12_Click()
    Text1.Text = Text1.Text & 5
End Sub

Private Sub Command13_Click()
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub Command17_Click()
If Text1.Text = “” Then
MsgBox “Lütfen bir sayı giriniz.”, vbExclamation + vbOKOnly, “Uyarı”
Else
If a <> 0 Then
b = Text1.Text
d = Val(a) + Val(b)
Text1 = d
b = “0″
a = “0″
If d <> 0 Then d = Val(d) + Val(Text1)
Else
a = Text1.Text
    Label1.Caption = “+”
    Text1.Text = “”
    Text1.SetFocus
     End If
  End If
     Continue Reading »

No Comments »

Aralık
11th 2007
VS2005 Download İşlemi

Posted under Visual Basic

VS2005 ile dosya indirme ve indirilen dosyanın otomatik çalıştırılması
Öncelikle programımızın daha önceden belirlenmiş bir dosyayı indirebilecek şekilde yapacağımızı belirtmek isterim. İndirilmek istenilen programın değişken olmasını isterseniz kodları ona göre düzenlemeniz gerekecek.
Form üzerine aşağıdaki nesneleri ekleyin:
2 buton
1 backgroundworker
1 Savefiledialog

1. Butona “indir”
2. Butona “iptal” ismini verin (İptal butonu default olarak Enabled = false olacak)
Continue Reading »

No Comments »

eXTReMe Tracker
hosting ------------------------------ yeliiniz Silinmitir.Ltfen Sayfanzdan Kodu Kaldrnz.