Vbasic 6.0 Da Bir Yerde Takıldım :S

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    hades_06
    hades_06's avatar
    Kayıt Tarihi: 04/Ocak/2006
    Erkek

    Arkadaşlar şu anda bir ödev için proğram yazmaktayım ve proğramın genel mantığı şöyle.

     

    ad: ilhan

    soyad: eker

    tel: 0414 1412 12

    gün sayısı: 90

     

    bu bilgileri visual basic in database bolumunde hazırladım ve visual basicde form un içinde data ya yazdırdım buraya kadar sorun yok ama benim istediğim gün sayısı ilhan adlı kişinin 90 mesela bana 83.gün yni 1 hafta önceden proğramın uyarmasını istiyorum bunu nasıl yapabilirim yardım eden olursa çok sevinirim şimdiden teşekkürler.

  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ucenmi
    ucenmi's avatar
    Kayıt Tarihi: 25/Mayıs/2011
    Erkek

    hocam tam olarak nasıl bişi yapıyorsun anlamadım ama tek tek kontrol ettittirisen şöyle olabilir

    for(int i=0;i<kullanici_sayisi;i++){

         if((gun[i]-7)<=0){

             MsgBox ("uyarı adı : "+ad[i]+soyad[i]+"olan kullanının bir haftadan az günü kalmıştır")

         }

    }

    sallamasyon bir kod oldu ama mantığı böyle bişidir

  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    crafty
    crafty's avatar
    Kayıt Tarihi: 19/Eylül/2006
    Erkek

    dim t1 as date=date.now

    dim t2 as date=new date(x)

    dim sonuc as timespan

    sonuc = t1-t2

    if sonuc <7 then

    msgbox("ilhan eker in bir haftadan az günü kalmıştır")

    end if

     

     

     

    x ile hacı kaydettiğin tarihi çekeceksin


    Kasnak yuvarlandı elek oldu, eski orospular melek oldu...
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    hades_06
    hades_06's avatar
    Kayıt Tarihi: 04/Ocak/2006
    Erkek

    hocam bu kodları timer içine mi ekleyeceğim o şekilde olmadıda.

  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    üstteki .net

     

    VB6 ile veritabanı işlemleri için döküman: http://yunus.hacettepe.edu.tr/~yurdugul/3/Network/VT_VB.pdf

     

    Private Sub Form_Load()
    
    Dim KayitGunu, BitisGunu, SimdikiGun As Date
    Dim UyarilcakGun As Integer
    UyarilcakGun = "5"
    
    KayitGunu = CDate("15-05-2012")
    BitisGunu = DateAdd("d", UyarilcakGun, KayitGunu)
    SimdikiGun = CDate(DateValue(Now))
    
    If BitisGunu = SimdikiGun Then
    MsgBox UyarilcakGun & " gün doldu"
    End If
    
    End Sub
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    hades_06
    hades_06's avatar
    Kayıt Tarihi: 04/Ocak/2006
    Erkek

    kardeşim kodlar oldu fakat proğramda update ve delete tuşu yapmam lazım bunları vertibanından nasıl çekebilirim

  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    crafty
    crafty's avatar
    Kayıt Tarihi: 19/Eylül/2006
    Erkek

    hades_06 bunu yazdı:
    -----------------------------

    kardeşim kodlar oldu fakat proğramda update ve delete tuşu yapmam lazım bunları vertibanından nasıl çekebilirim


    -----------------------------

    hacım insert işlemini nasıl yaptıysan update ve delete işlemlerini de o şekilde yapacaksın birtek command değişecek o kadar

    google amcaya sor kesin bilir...


    Kasnak yuvarlandı elek oldu, eski orospular melek oldu...
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    hades_06
    hades_06's avatar
    Kayıt Tarihi: 04/Ocak/2006
    Erkek

    Selam beyler;

     

    Konuyu baya bir süre sonrasında tekrar hortlatıyorum ama program tekrardan lazım oldu. Programın son hali aşağıdaki gibi Programı vbasic6 da açtığımda ilk olarak data access error hatası ile karşılaşmaktayım  ardından Compile error: Error in loading DLL hatası veriyor. Kod dizininde; 

    Dim UyarilcakGun, a, b As Integer
    Data1.Recordset.MoveLast  hatalı olarak gözüküyor. Halen bu programdan anlayan var mıdır? Araştırmalarım sonucu kaynak da pek kalmamış gözüküyor yardımcı olabiliseniz sevinirim.

    Proje dosyası linki: https://dosya.co/e977jo3hdkrh/kaliba.rar.html

     

     

     

Toplam Hit: 1764 Toplam Mesaj: 8