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

• T_bee aktív tag

  #61

  #60 T_bee

  2004-06-12 18:59:29

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  T_bee

  aktív tag

  #60 T_bee

  #60 T_bee

  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