Ödev Yardımları

data4use
11-09-2007, 09:36   |  #1  
OP Üye
Teşekkür Sayısı: 0
60 mesaj
Kayıt Tarihi:Kayıt: Tem 2006

Dağınıklığı ve düzensizliği ortadan kaldırmak için istenen ödevlerinizi ve/veya ödevlerle ilgili sorularınızı bu konuya yazın. ben de size elimden geldiği kadar yardımcı olmaya çalışacağım.Cool

sehmus
07-01-2008, 00:59   |  #2  
Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: Oca 2008

selam!!1
biz basic 2005 görüyoruz
onun veri tabanıyla bağlantısını öğrenmek istiyorum onu oğrendikten sonra
text box1'e girdiklerimi kaydedeni öğrenmek istiyorum
yardım ederseniz sevinirim...

Son Düzenleme: sehmus ~ 07 Ocak 2008 01:00
data4use
24-02-2008, 19:59   |  #3  
OP Üye
Teşekkür Sayısı: 0
60 mesaj
Kayıt Tarihi:Kayıt: Tem 2006

sana da selam arkadaşım
hangi veritabanı bağlantısını kullanmak istiyorsun onu da yazarsan sevinirim
kolay gelsin

mehmetasik008
25-02-2008, 00:39   |  #4  
Yıllanmış Üye
Teşekkür Sayısı: 0
100 mesaj
Kayıt Tarihi:Kayıt: Eyl 2006


Öncelikle bu bölüm için çok teşekkürler.Hocamız visual basic 6.0 da henüz yeni başlamamıza rağmen bilerek zor bi ödev verdi.Uzunca süre uğraşmama rağmen tam olarak çıkaramadım.Benim sorum : Bir formda iki command button olacak ve birine tıkladığımızda diğeri ekranın sağına gidecek,sonra kenara geldiğinde yukarı,yukarı geldiğinde sola,yine kenara geldiğinde aşağı..yani kısaca buttonlardan birine tıklandığında,diğeri saat yönünün tersi tarafa dikdötgenin kenarları boyunca gidecek..Ama şunu da söylemeden  de geçmeyeyim: benim ihtiyacım olan kısım button kenara geldiğinde yönünü belirleme algoritması.Yardımcı olursanız çok sevinirim..  :D

KuaforPlus
25-02-2008, 17:41   |  #5  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

Aşağıdaki Kod İşini Görecektir.

Private Sub Command1_Click()
Dim i As Integer

' sağa
For i = 1 To Me.ScaleWidth - Command1.Width
    Command1.Move i, Me.ScaleHeight - Command1.Height
    DoEvents: DoEvents
Next i

'yukarı
For i = 1 To Me.ScaleHeight - Command1.Height
    Command1.Top = (Me.ScaleHeight - Command1.Height) - i
    DoEvents: DoEvents
Next i

'sola
For i = 1 To Me.ScaleWidth - Command1.Width
    Command1.Left = (Me.ScaleWidth - Command1.Width) - i
    DoEvents: DoEvents
Next i


'aşağı
For i = 1 To Me.ScaleHeight - Command1.Height
    Command1.Top = i
    DoEvents: DoEvents
Next i

End Sub

Son Düzenleme: KuaforPlus ~ 25 Şubat 2008 17:43
mehmetasik008
25-02-2008, 20:12   |  #6  
Yıllanmış Üye
Teşekkür Sayısı: 0
100 mesaj
Kayıt Tarihi:Kayıt: Eyl 2006


   Tüm samimiyetimle beraber "Çok teşekkürler"

hamide_d84
26-02-2008, 10:58   |  #7  
Yeni Üye
Teşekkür Sayısı: 0
39 mesaj
Kayıt Tarihi:Kayıt: Tem 2007

merhaba arkadaşlar,

bende bir soru sormak isityorum.vb.studio 2005 de bir ödev hazırlıyorum.pek bildiğim söylenemez...:(
neyse ilk sorum şu bir textbox kutusuna bilgi nasıl girebilirim? örneğin.ad...?
ben bu işlemi textbox kutusuna hiç birşey tanımlamadan formun içinde bir modül açarak orda yapmak istedim.yani tanımlamayı ordan yapıp modül de örn:textbox1.ad=giriş.ad şeklinde yaptım fakat hata verdi.tabi bu kısmı oluşturmadan önce değişkeni de tanımladım.örn:ad as string*12.textbox lar ayrı bir modülden yönetilemezler mi?

KuaforPlus
27-02-2008, 09:14   |  #8  
KuaforPlus avatarı
Yıllanmış Üye
Teşekkür Sayısı: 1
223 mesaj
Kayıt Tarihi:Kayıt: Nis 2007
mehmetasik008
   Tüm samimiyetimle beraber "Çok teşekkürler"
Önemli Değil, Önemli Olan Paylaşımdır.

Bu Arada vb.studio 2005 den hiç anlamıyorum. Bu Konudaki Soruları Cevaplayamıcam Haberiniz Olsun.

data4use
27-02-2008, 21:28   |  #9  
OP Üye
Teşekkür Sayısı: 0
60 mesaj
Kayıt Tarihi:Kayıt: Tem 2006

Şimdi formda bir tane buton, bir label ve textbox olduğunu düşünelim. Label'in text'i "Ad:" olsun ve textbox'un solunda bulunsun. Butonda da "Tamam" yazsın ve en altta bulunsun. Program şu şekilde çalışacak; kullanıcı textbox'a adını yazacak ve sen de "Tamam" butonuna tıklanınca "Adınız [kullanıcı_adı]" yazan bir mesaj göstereceksin (mesajdaki [kullanıcı_adı] textbox'a yazılan isimdir). Kodlar aşağıda;


Button1_Click olayına da

MsgBox(TextBox1.Text, MsgBoxStyle.Information, "Merhaba")   yaz

Bu kadar. İyi çalışmalar.

mehmetasik008
27-02-2008, 22:29   |  #10  
Yıllanmış Üye
Teşekkür Sayısı: 0
100 mesaj
Kayıt Tarihi:Kayıt: Eyl 2006

Option Explicit
Dim Delta As Integer

Private Sub Cikis_Click()
End
End Sub

Private Sub Cmd_Hesapla_Click()
    Delta = (TxtInput_b.Text) ^ 2 - 4 * TxtInput_a.Text * TxtInput_c.Text
    If Delta > 0 Then
       Txt_kok1 = (-TxtInput_b.Text + (Delta) ^ (1 / 2)) / (2 * TxtInput_a.Text)
       Txt_kok2 = (-TxtInput_b.Text - (Delta) ^ (1 / 2)) / (2 * TxtInput_a.Text)
       Txt_Kok_Varligi = "iki farkli reel kök vardir"
    ElseIf Delta = 0 Then
       Txt_kok1 = (-TxtInput_b.Text / (2 * TxtInput_a.Text))
       Txt_Kok_Varligi = "Tek reel kök vardir"
    ElseIf Delta < 0 Then
       Txt_Kok_Varligi = "Reel kök yoktur"
    End If
        
End Sub

Private Sub Text2_Change()

End Sub

Burada ikinci dereceden bi denklemin kökleri bulan bi programın kodlarını yazmaya çalıştım.Fakat kafama şöyle bi durum takıldı..Bu kodu ilk yazdığımda (TxtInputa_.Text,TxtInput_b.Text,TxtInput_c.Text) gibi girdileri(denklemdeki başkaysayılar) a,b ve c gibi Integer değişkenlere Option Explicit
bölümünde atamıştım.Sonra denklemimde ise a,b ve c gibi sayılar kullandım ve programın çalışmadığını gördüm.Fakat nezaman ki yukarıdaki kodu yazdım yani a,b ve c gibi değişkenlere değer atamadan yaptım ozaman çalışıyor.Bunun
nedeni hakkında bana yardımcı olabilir misiniz?

(Bi incelemek isterseniz programın linki aşağıda)


mehmetasik008
28-02-2008, 22:43   |  #11  
Yıllanmış Üye
Teşekkür Sayısı: 0
100 mesaj
Kayıt Tarihi:Kayıt: Eyl 2006

Kimse cevaplamıyor..Bari kendim cevaplayayım:"Değer atama işlemi Option Explicit bölümünde değil de kendi privatesub bölümünde yapılıyomuş."

vuslatsızsevda
29-02-2008, 09:00   |  #12  
Yeni Üye
Teşekkür Sayısı: 0
25 mesaj
Kayıt Tarihi:Kayıt: Eki 2007

S.A BENDE VİSUAL BASİCDE PEK FAZLA BİLMİYORUM FAKAT PROJE YAPMAK ZORUNDAYIM YARDIMCI OLURMUSUNUZ..

ESRARLI
02-03-2008, 18:45   |  #13  
Taze Üye
Teşekkür Sayısı: 0
1 mesaj
Kayıt Tarihi:Kayıt: Mar 2008

Elbette yardımcı oluruz; elimizden geldiği kadar.