Toggle Width

EndFRM
 
Konuyu Oyla:
  • Toplam: 24 Oy - Ortalama: 2.54
  • 1
  • 2
  • 3
  • 4
  • 5
Sorularınız ve Sorunlarınız
LosTeam Çevrimdışı Yeni Üye
*
Yeni Üye
Üye No: 426
Konu Sayısı:
Yorum Sayısı: 91
49
Yorum: #1
Sorularınız ve Sorunlarınız
Visual Basic İle İlgili Soru ve Sorunlarınız Olursa Bu Konu Altına Yazarsanız Hep Birlikte Çözeriz.

Sözler yerine kaba kuvvet kullanılabilse de kelimeler kudretini hep koruyacaktır !
Kelimeler anlama ulaşmanın yollarını ve dinleyenlere hakikatin telaffuzu gösterir
-V for Vendetta


Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
29-06-2012 0:50
Bul Alıntı
Oyuncu Çevrimdışı Unity 3d - Ses & Dj
*
Yeni Üye
Üye No: 129
Konu Sayısı:
Yorum Sayısı: 2,693
811
Yorum: #2
RE: Sorularınız ve Sorunlarınız
Bana hesap makinesi yapmayı öğretir misin?

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
29-06-2012 20:32
Bul Alıntı
LosTeam Çevrimdışı Yeni Üye
*
Yeni Üye
Üye No: 426
Konu Sayısı:
Yorum Sayısı: 91
49
Yorum: #3
RE: Sorularınız ve Sorunlarınız
tabi

visual basicde anlatmıştım ama

Sözler yerine kaba kuvvet kullanılabilse de kelimeler kudretini hep koruyacaktır !
Kelimeler anlama ulaşmanın yollarını ve dinleyenlere hakikatin telaffuzu gösterir
-V for Vendetta


Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Bu konu en son: 29-06-2012 tarihinde, saat: 21:34 düzenlenmiştir. Konuyu düzenleyen: LosTeam.
29-06-2012 21:34
Bul Alıntı
Oyuncu Çevrimdışı Unity 3d - Ses & Dj
*
Yeni Üye
Üye No: 129
Konu Sayısı:
Yorum Sayısı: 2,693
811
Yorum: #4
RE: Sorularınız ve Sorunlarınız
Yok 4 işlem değil yani böyle butonlu, uyarılı bir hesap makinesi.

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
30-06-2012 15:32
Bul Alıntı
LosTeam Çevrimdışı Yeni Üye
*
Yeni Üye
Üye No: 426
Konu Sayısı:
Yorum Sayısı: 91
49
Yorum: #5
RE: Sorularınız ve Sorunlarınız
Tamam Yapmaya Başlıycam Ama Geç Yaparım Çalışmaya Başladım

Sözler yerine kaba kuvvet kullanılabilse de kelimeler kudretini hep koruyacaktır !
Kelimeler anlama ulaşmanın yollarını ve dinleyenlere hakikatin telaffuzu gösterir
-V for Vendetta


Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
30-06-2012 23:10
Bul Alıntı
aboo67 Çevrimdışı Acemi Üye
*
Acemi Üye
Üye No: 415
Konu Sayısı:
Yorum Sayısı: 91
70
Yorum: #6
RE: Sorularınız ve Sorunlarınız
(30-06-2012 15:32)Oyuncu Nickli Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Yok 4 işlem değil yani böyle butonlu, uyarılı bir hesap makinesi.

ben yardım edebilirim !

basit olarak yapıcaz geliştirmesi sana kalmış

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Dim a, b As Integer
Private Sub Command10_Click() ' ekran.text de var olan sayının yanına 0 ekle
ekran.Text = ekran.Text & "0"
End Sub
Private Sub Command1_Click() ' ekran.text de var olan sayının yanına 1 ekle
ekran.Text = ekran.Text & "1"
End Sub
Private Sub Command11_Click() ' toplama işlemi
işlem = "toplama"
a = ekran.Text
ekran.Text = ""
End Sub
Private Sub Command12_Click() ' çıkarma işlemi
işlem = "cıkarma"
a = ekran.Text
ekran.Text = ""
End Sub
Private Sub Command13_Click() ' bölme işlemi
işlem = "böl"
a = ekran.Text
ekran.Text = ""
End Sub
Private Sub Command14_Click()
b = ekran.Text
If işlem.Text = "toplama" Then
ekran.Text = a + b
End If
If işlem.Text = "cıkarma" Then
ekran.Text = a - b
End If
If işlem.Text = "böl" Then
ekran.Text = a / b
End If
If işlem.Text = "çarp" Then
ekran.Text = a * b
End If
End Sub
Private Sub Command15_Click() ' Clear yani text ve degelerlerimizi sildik
ekran.Text = ""
a = 0
b = 0
End Sub
Private Sub Command16_Click() ' çarpma işlemi
işlem = "çarp"
a = ekran.Text
ekran.Text = ""
End Sub
Private Sub Command2_Click()
ekran.Text = ekran.Text & "2"
End Sub
Private Sub Command3_Click()
ekran.Text = ekran.Text & "3"
End Sub
Private Sub Command4_Click()
ekran.Text = ekran.Text & "4"
End Sub
Private Sub Command5_Click()
ekran.Text = ekran.Text & "5"
End Sub
Private Sub Command6_Click()
ekran.Text = ekran.Text & "6"
End Sub
Private Sub Command7_Click()
ekran.Text = ekran.Text & "7"
End Sub
Private Sub Command8_Click()
ekran.Text = ekran.Text & "8"
End Sub
Private Sub Command9_Click()
ekran.Text = ekran.Text & "9"
End Sub

Proje = Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Anlamadıgın yer olursa sorabilirsin bir acıkmala yapmadım üzgün basit bir mantık

ek olarak aynı şekilde karakök alma gibi özelliklikler ekliyip devam edebilirsin onada yarım ederim Gülümseme
Bu konu en son: 01-07-2012 tarihinde, saat: 0:05 düzenlenmiştir. Konuyu düzenleyen: aboo67.
01-07-2012 0:04
Bul Alıntı
LosTeam Çevrimdışı Yeni Üye
*
Yeni Üye
Üye No: 426
Konu Sayısı:
Yorum Sayısı: 91
49
Yorum: #7
RE: Sorularınız ve Sorunlarınız
Kardeş Proje Derken Exe Değil Demi Şuan Bakamıyorum Evimizde Değilimde.
Çünkü Command 10 Sen X yapmışındır o - Yapmıştır Belki bazıları Çözer Ama Yeniler Çözemeyebilir.
Ama İyi Olmuş.
Geliştirip Konu Açabilirsin.

Sözler yerine kaba kuvvet kullanılabilse de kelimeler kudretini hep koruyacaktır !
Kelimeler anlama ulaşmanın yollarını ve dinleyenlere hakikatin telaffuzu gösterir
-V for Vendetta


Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
01-07-2012 1:47
Bul Alıntı


Hızlı Menü:


Şu anda bu konuyu okuyanlar: 1 Ziyaretçi