Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 1:56:57 > |
|
_____________________________
|
Bildirim
Visual Basic Örnekler
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
quote:
Elimde olan bazı örneklerin kodlarını buraya aktarmaya calısacağım
Malum mühendislik okuyan arkadaşlar basic konusunda zorlanıyor (kendimde dahil)
Hocam Basic 'te zorlanacak bi durum yok ! En basit dil. Kod için saol bu arada ne işe yaradığını çözemedim ama
_____________________________ "Data: Hayat Like Ref Null." -
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.quote:
Orijinalden alıntı: irfanmatakquote:
Elimde olan bazı örneklerin kodlarını buraya aktarmaya calısacağım
Malum mühendislik okuyan arkadaşlar basic konusunda zorlanıyor (kendimde dahil)
Hocam Basic 'te zorlanacak bi durum yok ! En basit dil. Kod için saol bu arada ne işe yaradığını çözemedim ama
Hem Basic basit de kime göre neye göre?_____________________________ we're just two lost souls swimming in a fish bowl, year after year, running over the same old ground. what have we found? the same old fears. -
aynen bencede ayrica işin mantiği aynıdır genelde anlad-ıyssan hepsi kolayquote:
Orijinalden alıntı: mandelbrot
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.
Hem Basic basit de kime göre neye göre?
Alıntıları Göster_____________________________ PALİN MAJERE -
quote:
Orijinalden alıntı: mandelbrot
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.
Hem Basic basit de kime göre neye göre?
Alıntıları Gösterquote:
Orjinalden alıntı: mandelbrot
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.
Hem Basic basit de kime göre neye göre?
Bana göre basit, bir şeyi bildiğin zaman bilmeyenin gözüyle bakmak zordur bende az bilen bir insan olarak böyle yorumladım._____________________________ "Data: Hayat Like Ref Null."
-
Arkadaşlar yukarıda zaten belirttimquote:
Orijinalden alıntı: irfanmatakquote:
Orjinalden alıntı: mandelbrot
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.
Hem Basic basit de kime göre neye göre?
Bana göre basit, bir şeyi bildiğin zaman bilmeyenin gözüyle bakmak zordur bende az bilen bir insan olarak böyle yorumladım.
Alıntıları Göster
mühendislik okuyan arkadaşlar bilir vb dersinin zorluğunu
bana normalde cok basit geliyordu ama sınavlara girdiğim zaman neyin ne olduğunu anlıyordum.
o yüzden zorluğunu belirttim. Yoksa herkes bilir basic ne var ki "dim t as integer" der gecersin.
bu arada kodlara devam edeceğim
elinde örnek kodlar olan arkadaşlar varsa yazabilirler
_____________________________
-
Uzun bir aradan sonra tekrar yeni kod yazalım. Bu sefer konu binom hesaplama n, x ve p değerlerini atadığımızda hesapla butonuyla p(x) değerini buluyoruz. İşte kodlar:quote:
Orijinalden alıntı: serseri
Arkadaşlar yukarıda zaten belirttim
mühendislik okuyan arkadaşlar bilir vb dersinin zorluğunu
bana normalde cok basit geliyordu ama sınavlara girdiğim zaman neyin ne olduğunu anlıyordum.
o yüzden zorluğunu belirttim. Yoksa herkes bilir basic ne var ki "dim t as integer" der gecersin.
bu arada kodlara devam edeceğim
elinde örnek kodlar olan arkadaşlar varsa yazabilirler
Alıntıları Göster
Public Function fak(a)
Dim i, r
r = 1
For i = 1 To a
r = r * i
Next i
fak = r
End Function
Public Function Binom()
n = Val(Text1.Text)
x = Val(Text2.Text)
Binom = fak(n) / (fak(x) * fak(n - x))
End Function
Public Function b()
x = Val(Text2.Text)
p = Val(Text3.Text)
b = (1 - p) ^ (n - x)
End Function
Public Function e()
x = Val(Text2.Text)
p = Val(Text3.Text)
e = p ^ x
End Function
Private Sub Command1_Click()
Dim sonuc
sonuc = Binom * b * e
Text4.Text = Str(sonuc)
End Sub_____________________________
-
Okek hesaplama iki sayının okekini bulmaya yarıyan vb kodları:quote:
Orijinalden alıntı: serseri
Uzun bir aradan sonra tekrar yeni kod yazalım. Bu sefer konu binom hesaplama n, x ve p değerlerini atadığımızda hesapla butonuyla p(x) değerini buluyoruz. İşte kodlar:
Public Function fak(a)
Dim i, r
r = 1
For i = 1 To a
r = r * i
Next i
fak = r
End Function
Public Function Binom()
n = Val(Text1.Text)
x = Val(Text2.Text)
Binom = fak(n) / (fak(x) * fak(n - x))
End Function
Public Function b()
x = Val(Text2.Text)
p = Val(Text3.Text)
b = (1 - p) ^ (n - x)
End Function
Public Function e()
x = Val(Text2.Text)
p = Val(Text3.Text)
e = p ^ x
End Function
Private Sub Command1_Click()
Dim sonuc
sonuc = Binom * b * e
Text4.Text = Str(sonuc)
End Sub
Alıntıları Göster
Buradaki önemli nokta obeb isminde bir alt fonksiyonu görebilmektir...
Option Explicit
Private Sub Command1_Click()
Dim a, b, k As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
k = (a * b) / obeb(a, b)
Text3.Text = Str(k)
End Sub
Function obeb(ByVal a As Integer, ByVal b As Integer)
Dim w
While b <> 0
w = a
a = b
b = w Mod a
Wend
obeb = a
End Function_____________________________
-
Sıcaklık Dönüştürme : Adı üzerinde C ve F sıcaklık değerleri arasında geçişi yapabiliroyruz. Buradaki amç ise resimde görülen scrollbar butonunu kullanabilmektir:quote:
Orijinalden alıntı: serseri
Okek hesaplama iki sayının okekini bulmaya yarıyan vb kodları:
Buradaki önemli nokta obeb isminde bir alt fonksiyonu görebilmektir...
Option Explicit
Private Sub Command1_Click()
Dim a, b, k As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
k = (a * b) / obeb(a, b)
Text3.Text = Str(k)
End Sub
Function obeb(ByVal a As Integer, ByVal b As Integer)
Dim w
While b <> 0
w = a
a = b
b = w Mod a
Wend
obeb = a
End Function
Alıntıları Göster
işte kodlar:
Private Sub VScrollBar_Change()
Function CdenFye(isiC As Integer) As Integer
CdenFye = CInt(isiC * 9 / 5 + 32)
End Function
Sub Gosterge()
Dim Sıcaklık As Integer
Sıcaklık = CInt(vscTermo.Value)
Text2.Text = Str(Sıcaklık)
Text1.Text = Str(CdenFye(Sıcaklık))
End Sub
Private Sub VStermo_Change()
Gosterge
End Sub
Private Sub vscTermo_Scroll()
Gosterge
End Sub_____________________________
-
Bu seferki programımız baslangıca hitap edecek sekilde :quote:
Orijinalden alıntı: serseri
Sıcaklık Dönüştürme : Adı üzerinde C ve F sıcaklık değerleri arasında geçişi yapabiliroyruz. Buradaki amç ise resimde görülen scrollbar butonunu kullanabilmektir:
işte kodlar:
Private Sub VScrollBar_Change()
Function CdenFye(isiC As Integer) As Integer
CdenFye = CInt(isiC * 9 / 5 + 32)
End Function
Sub Gosterge()
Dim Sıcaklık As Integer
Sıcaklık = CInt(vscTermo.Value)
Text2.Text = Str(Sıcaklık)
Text1.Text = Str(CdenFye(Sıcaklık))
End Sub
Private Sub VStermo_Change()
Gosterge
End Sub
Private Sub vscTermo_Scroll()
Gosterge
End Sub
Alıntıları Göster
basit bir hesap makinesi
Programın ekran görüntüsü resimdeki gibidir;
Programın kod kısmı işe su sekilde:
Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Double
sayı1 = Val(Text1.Text)
sayı2 = Val(Text2.Text)
If Option1 = True Then sonuç = sayı1 + sayı2
If Option2 = True Then sonuç = sayı1 - sayı2
If Option3 = True Then sonuç = sayı1 * sayı2
If Option4 = True Then sonuç = sayı1 / sayı2
Text3.Text = Str(sonuç)
End Sub_____________________________
-
Alan hesaplama:quote:
Orijinalden alıntı: serseri
Bu seferki programımız baslangıca hitap edecek sekilde :
basit bir hesap makinesi
Programın ekran görüntüsü resimdeki gibidir;
Programın kod kısmı işe su sekilde:
Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Double
sayı1 = Val(Text1.Text)
sayı2 = Val(Text2.Text)
If Option1 = True Then sonuç = sayı1 + sayı2
If Option2 = True Then sonuç = sayı1 - sayı2
If Option3 = True Then sonuç = sayı1 * sayı2
If Option4 = True Then sonuç = sayı1 / sayı2
Text3.Text = Str(sonuç)
End Sub
Alıntıları Göster
kodlar:
Private Sub Command1_Click()
Dim a, b, c As Double
If Option1.Value = True Then
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text3.Text = b
End If
If Option2.Value = True Then
a = Val(Text1.Text)
b = a ^ 2
Text3.Text = b
End If
If Option3.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
End If
If Option4.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = (a * b) / 2
Text3.Text = c
End If
End Sub
Private Sub option1_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "yarıçap(r)"
Label3.Caption = "Alan"
End Sub
Private Sub option2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "Kenar(a)"
Label3.Caption = "Alan"
End Sub
Private Sub option3_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Kenar(a)"
Label2.Caption = "Kenar(b)"
Label3.Caption = "Alan"
End Sub
Private Sub option4_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Taban(a)"
Label2.Caption = "Yükseklik(h)"
Label3.Caption = "Alan"
End Sub_____________________________
-
Sesli Harf sayısını sayan program:quote:
Orijinalden alıntı: serseri
Alan hesaplama:
kodlar:
Private Sub Command1_Click()
Dim a, b, c As Double
If Option1.Value = True Then
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text3.Text = b
End If
If Option2.Value = True Then
a = Val(Text1.Text)
b = a ^ 2
Text3.Text = b
End If
If Option3.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
End If
If Option4.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = (a * b) / 2
Text3.Text = c
End If
End Sub
Private Sub option1_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "yarıçap(r)"
Label3.Caption = "Alan"
End Sub
Private Sub option2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "Kenar(a)"
Label3.Caption = "Alan"
End Sub
Private Sub option3_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Kenar(a)"
Label2.Caption = "Kenar(b)"
Label3.Caption = "Alan"
End Sub
Private Sub option4_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Taban(a)"
Label2.Caption = "Yükseklik(h)"
Label3.Caption = "Alan"
End Sub
Alıntıları Göster
Bu program için iki text kutusu ve bir command tusu yeterlidir buna göre ilk text kutusu icine yazılan yazı içindeki sesli harf sayısı ikinci text boxda sayı olarak cıkacaktır...
Option Explicit
Private Sub Command1_Click()
Text2.Text = Seslisay(Text1.Text)
End Sub
Function Seslisay(Metin As String) As Integer
Dim sayac, i As Integer
Const Harfler = "aeıioöuü"
For i = 1 To Len(Metin)
If InStr(Harfler, LCase(Mid(Metin, i, 1))) <> 0 Then
sayac = sayac + 1
End If
Next i
Seslisay = sayac
End Function_____________________________
-
Koordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama:quote:
Orijinalden alıntı: serseri
Sesli Harf sayısını sayan program:
Bu program için iki text kutusu ve bir command tusu yeterlidir buna göre ilk text kutusu icine yazılan yazı içindeki sesli harf sayısı ikinci text boxda sayı olarak cıkacaktır...
Option Explicit
Private Sub Command1_Click()
Text2.Text = Seslisay(Text1.Text)
End Sub
Function Seslisay(Metin As String) As Integer
Dim sayac, i As Integer
Const Harfler = "aeıioöuü"
For i = 1 To Len(Metin)
If InStr(Harfler, LCase(Mid(Metin, i, 1))) <> 0 Then
sayac = sayac + 1
End If
Next i
Seslisay = sayac
End Function
Alıntıları Göster
Option Explicit
Private Sub Command1_Click()
Dim BirX, BirY, İkiX, İkiY As Integer
BirX = Val(Text1.Text)
BirY = Val(Text2.Text)
İkiX = (Text3.Text)
İkiY = Val(Text4.Text)
Text5.Text = Str(Mesafe(BirX, BirY))
Text6.Text = Str(Mesafe(İkiX, İkiY))
Text7.Text = Str(Mesafe(BirX, BirY, İkiX, İkiY))
End Sub
Function Mesafe(ByVal x1, ByVal y1 As Integer, Optional x2, Optional y2 As Integer) As Double
If IsMissing(x2) Then x2 = 0
If IsMissing(y2) Then y2 = 0
Mesafe = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function_____________________________
-
örnekler güzel olmuş ellerine sağlıkquote:
Orijinalden alıntı: serseri
Koordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama:
Option Explicit
Private Sub Command1_Click()
Dim BirX, BirY, İkiX, İkiY As Integer
BirX = Val(Text1.Text)
BirY = Val(Text2.Text)
İkiX = (Text3.Text)
İkiY = Val(Text4.Text)
Text5.Text = Str(Mesafe(BirX, BirY))
Text6.Text = Str(Mesafe(İkiX, İkiY))
Text7.Text = Str(Mesafe(BirX, BirY, İkiX, İkiY))
End Sub
Function Mesafe(ByVal x1, ByVal y1 As Integer, Optional x2, Optional y2 As Integer) As Double
If IsMissing(x2) Then x2 = 0
If IsMissing(y2) Then y2 = 0
Mesafe = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function
Alıntıları Göster
bunları saymayız devamını da bekleriz
_____________________________
-
quote:
Orijinalden alıntı: sewim
örnekler güzel olmuş ellerine sağlık
bunları saymayız devamını da bekleriz
Alıntıları Gösterquote:
Orijinalinden alıntı: sewim
örnekler güzel olmuş ellerine sağlık
bunları saymayız devamını da bekleriz
İnsan kendi kendine konusuyormus gibi hissediyordu yazın için sağol
_____________________________
-
bizim de v.basic dersimiz var ve normaldekiyle sınavdaki gerçekten farklı oluyoquote:
Orijinalden alıntı: serseriquote:
Orijinalinden alıntı: sewim
örnekler güzel olmuş ellerine sağlık
bunları saymayız devamını da bekleriz
İnsan kendi kendine konusuyormus gibi hissediyordu yazın için sağol
Alıntıları Göster
daha zor
birşey sorucam ben daha birkaç form la program yapmadım sadece next butonuyla yapılabiliniyo mu?yöntemi nedir?
< Bu mesaj bu kişi tarafından değiştirildi sewim -- 10 Ağustos 2005, 20:35:58 >_____________________________
-
yani mesela bir formda kullanıcı bilgilerini sorucam next e tıkladığında ikinci form açılıcak orada hesap yapıcak sonra diğer form ve ... işte böyle nasıl yapabilirim?quote:
Orijinalden alıntı: sewim
bizim de v.basic dersimiz var ve normaldekiyle sınavdaki gerçekten farklı oluyo
daha zor
birşey sorucam ben daha birkaç form la program yapmadım sadece next butonuyla yapılabiliniyo mu?yöntemi nedir?
Alıntıları Göster_____________________________ -
Hmm sahi bu sorunun cevabını bulabildin mi? Bişeyler söylemiştim ama...quote:
Orijinalden alıntı: sewim
yani mesela bir formda kullanıcı bilgilerini sorucam next e tıkladığında ikinci form açılıcak orada hesap yapıcak sonra diğer form ve ... işte böyle nasıl yapabilirim?
Alıntıları Göster
Bu arada topici hortlatmakta fayda var malum üniversiteler acıldı ve vb dersleri basladı umarım örnekler bir işe yarar....
_____________________________
-
saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi olduquote:
Orijinalden alıntı: serseri
Hmm sahi bu sorunun cevabını bulabildin mi? Bişeyler söylemiştim ama...
Bu arada topici hortlatmakta fayda var malum üniversiteler acıldı ve vb dersleri basladı umarım örnekler bir işe yarar....
Alıntıları Göster_____________________________ insan doğar, yaşar, ölür ama geride bıraktıkları sonsuza dek onun bi nevi dünyadaki aynası olur. -
bize 2. sınıfta gösterdiler :)quote:
Orijinalden alıntı: Floyt
saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi oldu
Alıntıları Göster_____________________________
Benzer içerikler
- armut benzeri uygulamalar
- unable to launch the application
- sensi tv
- edu uzantılı mail alma
- jnlp dosyası açılmıyor
- google güvenli arama nasıl kapatılır
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
