Home Kimler Online Bugünki Mesajlar Forumları Okundu Kabul Et
Geri git   KralForumuz.Biz -Bedava, indir, Film, Rapid,Rapidshare, Araba, Modifiye,Trendleri, Full, Mp3, Oyun, Okul öncesi, Program, Video, Msn, Eğitim, Ödev, Bilgiler, Resimleri, Wallpaper, Avatar, Aşk, Gençler, Muhabbet, Forum > Bilgisayar - Computer Help and Free Software Sharing > Yazılım - Software > Programlama Dilleri
Sayfaya güncelle rca bilimsel hesap makinesi
Kayıt ol Yardım Üye Listesi Ajanda Arama Bugünki Mesajlar Forumları Okundu Kabul Et

Yeni Konu aç Cevapla
Add to Tagza.com: Social Bookmarking site Submit to AddThisTo Submit to Digg Submit to Reddit Submit to Furl Submit to Del.icio.us Submit to Google Submit to Yahoo! This Submit to Technorati Submit to StumbleUpon Submit to Spurl Submit to Netscape
 
Seçenekler Stil
Alt 11-30-2007, 06:03 PM   #1
Kullanıcı Profili
Kayıtlı Üye
 
QaFaDaR - ait Kullanıcı Resmi (Avatar)
Bilgiler
 
Üye No: 21
Üyelik tarihi: Nov 2007
Nerden: los angeles
Yaş: 22

Mesajlar: 1.752
Konular: 1417
Ettiği Teşekkür: 117
309 Mesajına 447 Kere Teşekkür Edlidi

Tecrübe Puanı: 2
Rep Puanı : 1436
Rep Seviyesi: QaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud ofQaFaDaR has much to be proud of
QaFaDaR - MSN üzeri Mesaj gönder
rca bilimsel hesap makinesi
Bu program bilimsel bir hesap makinesidir.Kodları aşağıda verilmiştir programa [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linkinden ulaşabilirsiniz.Programda 40 tane command buton ve 1 tane text butonu vardır arabirimi oluşturup kodları yazınız .
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

End Sub

Private Sub Command14_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
End Sub

Private Sub Command20_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) Mod Val(b)
Text1 = d
b = "0"
a = "0"
If d <> 0 Then d = Val(d) Mod Val(Text1)
Else
a = Text1.Text
Label1.Caption = "Bölümden Kalan"
Text1.Text = ""
Text1.SetFocus
End If
End If

End Sub

Private Sub Command26_Click()


If Text1 = "" Or Text1 = "0" Or Text1 < "0" Then
MsgBox "Lütfen pozitif bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Text1 = ""
Else
a = Text1.Text
b = Log(a) / Log(10)
Text1.Text = b
End If
End Sub


Private Sub Command27_Click()
If (Text1.Text = "") Or (Text1.Text = "0") Or (Text1.Text < "0") Then
MsgBox "Lütfen pozitif bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Text1 = ""
Else
a = Text1.Text
b = Log(a)
Text1.Text = b
End If
End Sub

Private Sub Command28_Click()
If (Text1.Text = "") Or (Text1.Text = "0") Or (Text1.Text < "0") Then
MsgBox "Lütfen pozitif bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Text1 = ""
Else
a = Text1.Text
b = Log(a) / Log(10)
Text1.Text = b

a = Text1.Text
b = Exp(a)
Text1.Text = b
End If
End Sub


Private Sub Command29_Click()
If Text1 = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else


If Option1.Value = True Then
a = Cos(Text1)
Text1 = Round(a, 14)
End If

If Option2.Value = True Then
b = 3.14159265358979 / 180
a = Cos(Val(Text1) * b)
Text1 = Round(a, 14)
End If

If Option3.Value = True Then
a = Text1 * 3.14159265358979 / 200
b = Cos(a)
Text1 = Round(b, 14)
End If
If (Option1.Value = True) And (Option2.Value = False) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = True) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = False) And (Option3.Value = True) Then
Exit Sub
Else
MsgBox "Lütfen bir seçim yapınız.", vbExclamation + vbOKOnly, "Uyarı"
End If
End If


End Sub


Private Sub Command30_Click()
If Text1 = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
If Option1.Value = True Then
a = Sin(Text1)
Text1 = Round(a, 14)
End If
If Option2.Value = True Then
b = 3.14159265358979 / 180
a = Sin(Val(Text1) * b)
Text1 = Round(a, 14)
End If
If Option3.Value = True Then
a = Text1 * 3.14159265358979 / 200
b = Sin(a)
Text1 = Round(b, 14)
End If
If (Option1.Value = True) And (Option2.Value = False) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = True) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = False) And (Option3.Value = True) Then
Exit Sub
Else
MsgBox "Lütfen bir seçim yapınız.", vbExclamation + vbOKOnly, "Uyarı"
End If
End If

End Sub


Private Sub Command31_Click()
If Text1 = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
If Option1.Value = True Then
a = Tan(Text1)
Text1 = Round(a, 14)
End If

If Option2.Value = True Then
b = 3.14159265358979 / 180
a = Tan(Val(Text1) * b)
Text1 = Round(a, 14)
End If

If Option3.Value = True Then
a = Text1 * 3.14159265358979 / 200
b = Tan(a)
Text1 = Round(b, 14)
End If
If (Option1.Value = True) And (Option2.Value = False) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = True) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = False) And (Option3.Value = True) Then
Exit Sub
Else
MsgBox "Lütfen bir seçim yapınız.", vbExclamation + vbOKOnly, "Uyarı"
End If
End If
End Sub

Private Sub Command32_Click()
If Text1 = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
If Option1.Value = True Then
a = Atn(Text1)
Text1 = Round(a, 14)
End If
If Option2.Value = True Then
b = 3.14159265358979 / 180
a = Atn(Val(Text1) * b)
Text1 = Round(a, 14)
End If
If Option3.Value = True Then
a = Text1 * 3.14159265358979 / 200
b = Atn(a)
Text1 = Round(b, 14)
End If
If (Option1.Value = True) And (Option2.Value = False) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = True) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = False) And (Option3.Value = True) Then
Exit Sub
Else
MsgBox "Lütfen bir seçim yapınız.", vbExclamation + vbOKOnly, "Uyarı"
End If
End If
End Sub



Private Sub Command33_Click()
If Text1.Text = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
Text1.Text = Text1.Text * -1
End If
End Sub

Private Sub Command34_Click()
If Text1.Text = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
a = Text1.Text
b = 1
For i = 1 To a
b = b * i
Next
Text1.Text = b
End If
End Sub


Private Sub Command35_Click()
If (Text1.Text = "") Or (Text1.Text = "0") Or (Text1.Text < "0") Then
MsgBox "Lütfen pozitif bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Text1 = ""
Else
a = Text1.Text
b = Exp(a)
Text1.Text = b
End If
End Sub

Private Sub Command36_Click()
If Text1 = "" Then
MsgBox "lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
If Option1.Value = True Then
a = 1 / Tan(Text1)
Text1 = Round(a, 14)
End If
If Option2.Value = True Then
b = 3.14159265358979 / 180
a = 1 / Tan(Val(Text1) * b)
Text1 = Round(a, 14)
End If
If Option3.Value = True Then
b = 3.14159265358979 / 200
a = 1 / Tan(Val(Text1) * b)
Text1 = Round(a, 14)
End If
If (Option1.Value = True) And (Option2.Value = False) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = True) And (Option3.Value = False) Or (Option1.Value = False) And (Option2.Value = False) And (Option3.Value = True) Then
Exit Sub
Else
MsgBox "Lütfen bir seçim yapınız.", vbExclamation + vbOKOnly, "Uyarı"
End If
End If

End Sub

Private Sub Command37_Click()
If Text1.Text = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
a = Text1.Text
b = Val(a) ^ 3
Text1.Text = b
Text1.SetFocus
End If
End Sub

Private Sub Command38_Click()
If Text1.Text = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
If a <> 0 Then
b = Text1.Text
d = Str(Val(a) * Val(b))
d = d / 100
Text1 = d
b = "0"
a = "0"
If d <> 0 Then d = Val(d) + Val(Text1)
Else
a = Text1.Text
Label1.Caption = "Yüzde"
Text1.Text = ""
Text1.SetFocus
End If
End If

End Sub




Private Sub Command39_Click()
If Text1.Text = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
a = Text1.Text
b = Val(a) * 18 / 100
Text1.Text = b
Text1.SetFocus
End If
End Sub

Private Sub Command40_Click()
If Text1.Text = "" Then
MsgBox "Lütfen ilk önce üssü alınacak sayıyı ve sonra üssü'nü girinz.", vbExclamation + vbOKOnly, "Bildiri"
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 = "Üssü"
Text1.Text = ""
Text1.SetFocus
End If
End If


End Sub




Private Sub Command6_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
End Sub


Private Sub Command7_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
End Sub




Private Sub Command18_Click()
If Text1 = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
a = Text1.Text
b = Val(a) * Val(a)
Text1.Text = b
Text1.SetFocus
End If
End Sub


Private Sub Command15_Click()
b = Text1.Text
If a = 0 Then MsgBox "Gereksiz yere eşittir butonuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "+") Then
Text1.Text = Val(a) + Val(b)
a = "0"
Else
If a = 0 Then MsgBox "Gereksiz yere eşittir butonuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "-") Then
Text1.Text = Val(a) - Val(b)
a = "0"
Else
If a = 0 Then MsgBox "Gereksiz yere eşittir butonuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "/") Then
Text1.Text = Val(a) / Val(b)
a = "0"
Else
If a = 0 Then MsgBox "Gereksiz yere eşittir tuşuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "*") Then
Text1.Text = Val(a) * Val(b)
a = "0"

Else
If a = 0 Then MsgBox "Gereksiz yere eşittir tuşuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "Bölümden Kalan") Then
Text1.Text = Val(a) Mod Val(b)
a = "0"
Else

If a = 0 Then MsgBox "Gereksiz yere eşittir tuşuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "Yüzde") Then
Text1.Text = Val(a) * Val(b)
Text1.Text = Val(Text1.Text) / 100
a = "0"

Else
If a = 0 Then MsgBox "Gereksiz yere eşittir butonuna basmayınız", vbExclamation + vbOKOnly, "Uyarı"
If a <> 0 Then
If (Label1.Caption = "Üssü") Then
Text1.Text = Val(a) ^ Val(b)
a = "0"

End If
End If
End If
End If
End If



End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub





Private Sub Command16_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command19_Click()
If Text1.Text = "" Then
MsgBox "Lütfen bir sayı giriniz.", vbExclamation + vbOKOnly, "Uyarı"
Else
a = Text1.Text
b = Sqr(a)
Text1.Text = b

End If
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
End Sub

Private Sub Command21_Click()
a = Text1.Text
Text1 = "3.1415926535897932384626433832795"
Label1.Caption = "pi"
End Sub

Private Sub Command22_Click()
mesaj = MsgBox("Hesap Makinesinden Çıkmak İstiyormusunuz?", vbYesNo + vbQuestion, "Hesap Makinesi")
If mesaj = vbNo Then
Form1.Show
Else
End
End If
End Sub

Private Sub Command23_Click()


If Text1 = "" Then Exit Sub
Dim s As String
s = Text1.Text
Text1.Text = s - 1
End Sub

Private Sub Command24_Click()
If Text1 = "" Then Exit Sub
Dim s As String
s = Text1.Text
Text1.Text = s + 1

End Sub

Private Sub Command25_Click()
a = "0"
b = "0"
Text1.Text = ""
Label1.Caption = "İşlem"
Option1 = False
Option2 = False
Option3 = False
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & 3
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & 4
End Sub

Private Sub Command5_Click()

If Text1.Text = "" Then
MsgBox "Bir sayı girmeden virgül koyamasınız.", vbExclamation + vbOKOnly, "Uyarı"

Else

If InStr(Text1.Text, ",") Then Exit Sub

Text1.Text = Text1.Text & ","
End If
End Sub







Private Sub Command8_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Form_Load()
Text2 = "Rıza ACAR"
Text3 = "11/H 1286"
Text1 = ""
Command13.ToolTipText = "Temizle"
Command22.ToolTipText = "Çıkış"
Command19.ToolTipText = "Karekökü Alır"
Command18.ToolTipText = "Karesini Alır"
Command20.ToolTipText = "Bölümden Kalanı Alır"
Command15.ToolTipText = "Eşittir"
Command14.ToolTipText = "Bölü"
Command6.ToolTipText = "Çarpı"
Command7.ToolTipText = "Eksi"
Command17.ToolTipText = "Artı"
Command8.ToolTipText = "Dokuz"
Command9.ToolTipText = "Sekiz"
Command10.ToolTipText = "Yedi"
Command11.ToolTipText = "Altı"
Command12.ToolTipText = "Beş"
Command4.ToolTipText = "Dört"
Command3.ToolTipText = "Üç"
Command2.ToolTipText = "İki"
Command1.ToolTipText = "Bir"
Command21.ToolTipText = "pi sayısı"
Command5.ToolTipText = "Nokta"
Command16.ToolTipText = "Sıfır"
Command23.ToolTipText = "Sayıyı bir azaltır"
Command24.ToolTipText = "Sayıyı bir arttırır "
Command25.ToolTipText = "Bütün fonksiyonları ve metin kutusunu temizler "
Command26.ToolTipText = " Giriilen sayının logaritmasını hesaplar"
Command27.ToolTipText = "Giriilen sayının doğal logaritmasını hesaplar"
Command28.ToolTipText = "Girilen sayının alogaritmasını hesaplar"
Command29.ToolTipText = "Girilen sayının cosinüsünü hesaplar"
Command30.ToolTipText = "Girilen sayının sinüsünü hesaplar"
Command31.ToolTipText = "Girilen sayının tanjantını hesaplar"
Command32.ToolTipText = "Girilen sayının arctanjantını hesaplar"
Command33.ToolTipText = "Sayıyı pozitif yada negatif yapar"
Command34.ToolTipText = "Girilen sayıların faktoriylini hesaplar"
Command35.ToolTipText = "Girilen sayının doğal alogaritmasını hesaplar"
Command36.ToolTipText = "Girilen sayının cotantanjantını hesaplar"
Command37.ToolTipText = "Girilen sayının küpünü alır"
Command38.ToolTipText = "Girilen sayının yüzdesini hesaplar"
Command39.ToolTipText = "Girilen sayının kdv sini hesaplar"
Command40.ToolTipText = "Girilen sayının üssünü hesaplar"
End Sub



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
Hayat Kisa Degmez Bir Kiza !!


Bazen arkada$lik bazen sevili olmakti a$k
Bana gore a$k fedakarlikti
Bazen susmayi bilmek bazende dogru $eyleri konu$makti
A$in icinde engeller oyunlar firtinlar yoktu
A$k birbirini yipratmak degildi cunku
A$k sinirsizca sorgusuzca sonsuzca sevmekti

blok sıteme gırıs : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
QaFaDaR isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Yeni Konu aç Cevapla
Tags: , , ,


« Visual Basic Nedir ? | VB 6 Görev Yöneticisi »

Seçenekler
Stil
Normal Normal

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz aktif değil dir.
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı


Bütün Zaman Ayarları WEZ olarak düzenlenmiştir. Şu Anki Saat: 09:02 PM .

İletişim - KraLForumuz.biz - Arşiv - Yukarı git

Powered by KralForum
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
kralforum.
eXTReMe Tracker

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 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247