put komutu ile ilgili bir sorunum var kayıt bilgilarini kaydetmiyor acaba neden olabilir hata satırı
Put #1, gösteriyor yardım edin lütfen
Kodların tümünü yollarsan yardımcı olabiliriz.Sadece bu bilgiyle bir cevap vermek imkansız
evet doğru söylüyorsun
Private Type Registration
Name As Integer
Surname As String
Age As String
End Type
Dim isci As Registration
Private Sub cmdExit2_Click()
MsgBox "Exit successful"
End
End Sub
Private Sub cmdFind_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
ara = Val(InputBox("Aradığınız Ürün Numarasını Giriniz", "ARA"))
Get #1, ara, isci
If isci.Name <> ara Then MsgBox " Böyle bir kayıt yapmadınız daha önce"
Text1.Text = isci.Name
Text2.Text = isci.Surname
Text3.Text = isci.Age
Close #1
Exit Sub
End Sub
Private Sub cmdRefresh_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub cmdSave_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
If Text1.Text = isci.Name Then
MsgBox "You have..."
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
GoTo 100
End If
isci.Name = Text1.Text
isci.Surname = Text2.Text
isci.Age = Text3.Text
Put #1, isci.Name, isci <----- HATALI KOD
100:
Close #1:
Exit Sub
End Sub
sorun bu bir kayıt programı olacak ama put komutunda sorun yaşıyorum
ve sizden bir yardım daha login konusunda da problemim var bana bir login kodu verebilirseniz sevinirim login konusundada sorunum kod yanlış olsada programa giriyor şimdiden teşekkürler :) :)
Alıntı YapPrivate Type Registration
Name As Integer
Surname As String
Age As String
End Type
Bana bu kodları bi yerlerden kopyalayıp da üzerinde değişiklik yapmışsın gibi geldi çok karışmış kodlar :D Ama bu kısımda
Name As String
Surname As String
Age As Single
olarak düzeltmeyi dene
..
+login olarak bişi hazırladım ama tam olarak belirtmemişsin nasıl bir login istediğini.Bu işini görür mü acaba ?
Login :
www.geocities.com/necrocapo/LOgin.zip
Private Type Registration
Name As Integer
Surname As String
Age As Single
End Type
Dim isci As Registration
Private Sub cmdSave_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
If Text1.Text = isci.Name Then <<<--------------HATALI
MsgBox "You have..."
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
GoTo 100
End If
isci.Name = Text1.Text
isci.Surname = Text2.Text
isci.Age = Text3.Text
Put #1, isci.Name, isci
100:
Close #1:
Exit Sub
End Sub
şimdi yeni bir hata çıktı bunu nasıl giderecem acaba :(
Name i de string olarak tanımlayacaksın Age de single olacak söylemiştim bir üstteki mesajı tekrar oku istersen:)
tamam onlarıda yaptım ama sorun devam ediyor :(
Bu sefer ne sorunu var _?
Private Type Registration
Name As String
Surname As String
Age As Single
End Type
Dim isci As Registration
Private Sub cmdSave_Click()
Open "C:\Documents and Settings\Owner\Belgelerim\VBasic\Kayıt\elkayit.dat" For Random As #1
If Text1.Text = isci.Name Then [color=red]<<<--------------HATALI [/color]
MsgBox "You have..."
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
GoTo 100
End If
isci.Name = Text1.Text
isci.Surname = Text2.Text
isci.Age = Text3.Text
Put #1, isci.Name, isci
100:
Close #1:
Exit Sub
End Sub
sizin dediklerinizi uyguladım ve yukarıda gösterdiğim yerde hata vermeye başladı sizide çok yordum ama
mod notu: lütfen kod tagını(#) kullanın arkadaşlar.
If Str(Text1.Text) = isci.Name Then
dene
Alıntı yapılan: "NecroCapo"If Str(Text1.Text) = isci.Name Then
dene
bence
if text1.text=str(isci.name) then
daha doğru olur ama zaten type'in içinde string olduğundan ona bile gerek yok bence.tanımlamalrda yada okuma bölümündeki bi hatadan kaynaklananıyor olabilir.
en iyisi sen vb nin verdiği hata mesajını buraya yaz...