Visual Basic - Basic - PicBasic ve Türevleri
Vbasic 6.0 Da Bir Yerde Takıldım :S
Vbasic 6.0 Da Bir Yerde Takıldım :S
-
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.
-
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
-
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
-
hocam bu kodları timer içine mi ekleyeceğim o şekilde olmadıda.
-
ü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
-
kardeşim kodlar oldu fakat proğramda update ve delete tuşu yapmam lazım bunları vertibanından nasıl çekebilirim
-
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...
-
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