Hirdetés

Új hozzászólás Aktív témák

  • T_bee
    aktív tag

    köszi...

    megin nem akar menni a kivonás a listából, de rájöttem hogy a számok hosszával van kapcsolatban a probléma. valakinek ötlete hogy lehetne megoldani? jelenleg így néz ki a programsor: Private Sub szamit_Click()
    'Számítás
    Dim p900 As Double
    If ossz <> 0 And tabhosssz <> 0 And tabbszel <> 0 And tabch = False And tebch = False Then
    table = tabhossz * tabszel
    tabter.Text = table
    szam = ossz / table
    proba = Int(szam)
    p900 = szam - proba
    If p900 = 0 Then tabszam.Text = szam
    If p900 <> 0 Then tabszam.Text = proba + 1

    Else
    Dim c As Integer
    c = MsgBox(''Add meg az adatokat'', vbInformation, ''Hiba'')
    End If
    End Sub

    köszi

    hoppá... most olvasom és rájöttem hogy ez nem a kivonnó eljárás...

    Private Sub Command4_Click()


    If List1.Text <> '''' Then
    If mag >= 10 And szele >= 10 Then
    s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
    s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 1)
    listitem = Val(s1) * Val(s2)
    List1.RemoveItem List1.ListIndex
    ossz = ossz - listitem
    mem.Text = ossz
    i = i - 1
    ElseIf mag >= 10 And szele <= 10 Then
    s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
    s2 = Right(List1.Text, InStr(List1.Text, ''x'') - 2)
    listitem = Val(s1) * Val(s2)
    List1.RemoveItem List1.ListIndex
    ossz = ossz - listitem
    mem.Text = ossz
    i = i - 1
    ElseIf mag <= 10 And szele >= 10 Then
    s1 = Left(List1.Text, InStr(List1.Text, ''x'') - 1)
    s2 = Right(List1.Text, InStr(List1.Text, ''x''))
    listitem = Val(s1) * Val(s2)
    List1.RemoveItem List1.ListIndex
    ossz = ossz - listitem
    mem.Text = ossz
    i = i - 1
    End If
    Else
    d = MsgBox(''Nincs kijelölt adat!'', vbInformation, ''Hiba'')
    End If

    End Sub

    na ez lenne az, ha valaki rájön hogy mi benne a hiba annak megköszönném.

Új hozzászólás Aktív témák