Visual Basic Forum

slayer616_ · Coder Anmeldedatum: 16.05.2007 Beiträge: 90

Ein freund aus der Türkei hat ein programm geproggt jedoch komm er nicht weiter:
[code]
Private Sub Command1_Click()
Dim i
For i = 0 To 9
List1(i).AddItem Text1(i)
Next
Text1(0).SetFocus
Label12 = List1(0).ListCount

End Sub

Private Sub Command10_Click()
Dim i
For i = 0 To 9
List1(i).List(List1(i).ListIndex) = CVar(Text1(i).Text)
Next

End Sub

Private Sub Command2_Click()
Dim cevap, i, j, bulundu
cevap = InputBox("Bulmak istediðiniz kaydý giriniz", "Kayýt arama", List1(0).List(0), 0, 0)
For i = 0 To List1(0).ListCount - 1
If Trim(UCase(cevap)) = Trim(UCase(List1(0).List(i))) Then
bulundu = i
MsgBox "Aranan kayýt bulundu"
For j = 0 To 9
List1(j).ListIndex = bulundu
List1(j).TopIndex = bulundu
Text1(i).Text = List1(i).Text
Next
Exit For
End If
Next
End Sub

Private Sub Command3_Click()
Dim cevap, secind, i
Dim Index As Integer
secind = List1(Index).ListIndex
If secind < 0 Then
MsgBox ("Silinecek elemaný seçiniz")
Else
cevap = MsgBox("Elemaný silmek istediðinizden eminmisiniz?", vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal, "Kayýt silinecek")
If cevap = vbYes Then
For i = 0 To 9
List1(i).RemoveItem List1(i).ListIndex
Text1(i) = ""
Next
Label12 = List1(0).ListCount
End If
End If

End Sub

Private Sub Command4_Click()
Dim secilen, elemansay
Dim i, j, k, l
elemansay = List1(0).ListCount
Static dizi(0 To 1000, 0 To 1000)
Dim cevap
cevap = MsgBox("Araya eleman eklemek istediðinizden eminmisiniz", vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal, "Programdan Çýkýþ")
If cevap = vbYesNo Then Exit Sub
For i = 0 To List1(0).ListCount - 1
If List1(0).Selected(i) Then secilen = i
Next
For k = 0 To secilen - 1
For l = 0 To 9
dizi(k, l) = List1(1).List(k)
Next
Next
For j = secilen To elemansay - 1
For l = 0 To 9
dizi(j, l) = List1(1).List(j)
Next
Next
For l = 0 To 9
List1(1).Clear
Next
For k = 0 To 9
List1(1).AddItem dizi(k, l)
Next

For i = 0 To 9
List1(i).AddItem Text1(i)
Next
For j = secilen To elemansay - 1
For l = 0 To 9
List1(1).AddItem dizi(j, l)
Next
Next
Text1(0).SetFocus
Label12 = List1(0).ListCount
End Sub

Private Sub Command6_Click()
Dim cevap1, cevap2
cevap1 = MsgBox("Çýkmak istediðinize eminmisiniz?", vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal, "Programdan çýkýþ")
If cevap1 = vbYes Then
cevap2 = MsgBox("Deðiþiklikleri kaydedecek misiniz?", vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal, "Programdan çýkýþ")
If cevap2 = vbYes Then
Dim i, j
For i = 0 To List1(0).ListCount - 1
For j = 0 To 9
taksatis.tak(j) = CVar(List1(j).List(i))
Next
Put #1, i + 1, taksatis
kayitsay = kayitsay + 1
Next
Close #1
End
End If
End If

End Sub

Private Sub Command7_Click()
Dim vademik, takmik, fark, topvadelifiyat, i
On Error Resume Next
fark = Val(Text1(2)) - Val(Text1(3))
For i = 1 To Val(Text1(3))
vademik = fark / Val(Text1(4)) * i * text2 / 100 + vademik
Next
topvadelifiyat = vademik + fark
Text1(6) = Format(tpvadelifiyat, "###,###")
takmik = Int(topvadelifiyat / Val(Text1(4)))
Text1(5) = Format(takmik, "###,###")
Text1(9) = Val(Text1(3)) + Val(Format(Text1(6), "#")) - Val(Text1( Cool

)
Label17 = Format(Val(Text1(3)) + Val(Format(Text1(6), "#")), "###,###") & "YTL"

End Sub

Private Sub Command8_Click()
Dim i
For i = 0 To 9
Text1(i) = ""
Next
Text1(7) = Date
Text1(0).SetFocus

End Sub

Private Sub Command9_Click()
Close #1
Dim i, j
Open "taksit.dat" For Random As #1 Len = Len(taksatis)
For i = 0 To List1(0).ListCount - 1
For j = 0 To 9
taksatis.tak(j) = CVar(List1(j).List(i))
Next
Put #1, i + 1, taksatis
kayitsay = kayitsay + 1
Next

End Sub

Public Sub SaydamYap(frm As Form, SeffaflikDerecesi As Integer)
Dim stil As Long
stil = GetWindowLong(frm.hWnd, GWL_EXSTYLE)

If (stil And WS_EX_LAYERED) = 0 Then
SetWindowLong frm.hWnd, GWL_EXSTYLE, stil Or WS_EX_LAYERED
SetLayeredWindowAttributes frm.hWnd, 0, SeffaflikDerecesi, LWA_ALPHA
End If

End Sub

Private Sub Form_Load()
Dim i, j
Open "taksit.dat" For Random As #1 Len = Len(taksatis)
kayitsay = LOF(1) / Len(taksatis)
For i = 1 To kayitsay
Get #1, i, taksatis
For j = 0 To 9
List1(j).AddItem taksatis.tak(j)
Next
Next
Label12 = List1(0).ListCount

End Sub

Private Sub Form_Unload(Cancel As Integer)
Close #1

End Sub

Private Sub List1_Click(Index As Integer)
Dim ecind, topind, i
On Error Resume Next
secind = List1(Index).ListIndex
topind = List1(Index).TopIndex
For i = 0 To 9
List1(i).ListIndex = secind
List1(i).TopIndex = topind
Text1(i).Text = List1(i).Text
Next
Label12 = List1(0).ListCount
aylar

End Sub

Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).SelLength = Len(Text1(Index))

End Sub

Public Sub aylar()
Dim i, basay
basay = Val(Month(Text1(7)))
For i = 0 To 11
Check1(i).Value = Unchecked
Next
If basay > Val(Text1(4)) Then Exit Sub
For i = basay - 1 To Val(Text1(4))
Check1(i).Value = Checked
Next
Label17 = Format(Val(Text1(3)) + Val(Format(Text1(6), "#")), "###,###") & "YTL"

End Sub
[/code]

Ich bekomme immer ein fehler im feld Open "taksit.dat" For Random As #1 Len = Len(taksatis)

Fehlername Run-time error '5'
könn ihr mir bitte helfe Laughing

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Also ich sehe keine Deklaration von "taksatis". Ich schätze mal das es daran liegt.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

slayer616_ · Coder Anmeldedatum: 16.05.2007 Beiträge: 90

bin ein noob wie behebt man das?

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

taksatis scheint ein string zu sein und wird in mehreren Sub's benutzt.
Schreib mal ganz oben hin: "Private taksatis as String"

Kann ich aber nur schwer sagen, ob das Problem dann gelöst ist, da so viele türkische Wörter im Code vorkommen wo ich nicht weiß was das sein soll.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Teto_ · Poster Anmeldedatum: 28.02.2007 Beiträge: 106

Ich denke mal es liegt daran das die Datei net vorhanden ist beim start,weil sie nciht angelegt wurde und er noch nciht mal Fehler abfangen lässt beim Datein auslesen und Schreiben.

Miah_ · Coder Anmeldedatum: 22.04.2007 Beiträge: 96

kleine dumme frage, aber wenn das ein freund aus der türkei gemacht hat wie du sagst, und es nicht aus irgendeinem türkischen board oder so kopiert hast was ich denke, warum fragst du ihn dan nicht einfach wo der fehler liegt? ò.Ó

nebenbei denke ich das taksatis irgendein feld oder so ist siehe

taksatis.tak(j) = CVar(List1(j).List(i))

also kann da ja vielleicht jemand was zu sagen ^.^

Teto_ · Poster Anmeldedatum: 28.02.2007 Beiträge: 106

Ne Miah das is ne Variable,die er benutz um eine Datei namens taksatis.dat mit Inhalt zu füllen oder auszulesen..

slayer616_ · Coder Anmeldedatum: 16.05.2007 Beiträge: 90

ich hab seuch m al geuppt:

http://www.megaupload.com/?d=V30887BF

slayer616_ · Coder Anmeldedatum: 16.05.2007 Beiträge: 90

bitte kann jemand das problem lösen wäre echt dankbar (mein freund hat informatik genommen und muss dieses programm als abschlussprüfung abgeben!)