download.bg
 Вход Списание  Новини  Програми  Статии  Форум  Чат   Абонамент  Топ95   Архив 

Форум » Програмиране и web-дизайн » ПОМОЩ!!!!!!!

ПОМОЩ!!!!!!!

< 1 2 >

Автор
Съобщение
anonymous
Пет, 04.04.08, 11:07
Който разбира от VB да помогне,
това е един калкулатор дава ми че има грешка моля Ви помогнете ми да я намеря!!!
Private Sub btn1_Click()
Dim number1 As Integer
Dim number2 As Integer
Dim znak As String
 
number1 = nm1.Text
number2 = nm2.Text
znak = zn.Text
 
Select Case znak
   Case "*": Umnozenie number1, number2
   Case "/": Delenie number1, number2
   Case "+": Sabirane number1, number2
   Case "-": Izvazdane number1, number2
End Select
End Sub
 
Private Sub Izvazdane_Click(number1 As Integer, number2 As Integer)
MsgBox number1 - number2
End Sub
 
Private Sub Delenie_Click(number1 As Integer, number2 As Integer)
MsgBox number1 / number2
End Sub
 
Private Sub Sabirane_Click(number1 As Integer, number2 As Integer)
MsgBox number1 + number2
End Sub
 
Private Sub Umnozenie_Click(number1 As Integer, number2 As Integer)
MsgBox number1 * number2
End Sub

Отговор  За печат  
phrozencrew
Пет, 04.04.08, 12:47
Пробвай по-лесния начин:
Private Sub btn1_Click()
Dim number1 As Integer
Dim number2 As Integer
Dim znak As String
 
number1 = nm1.Text
number2 = nm2.Text
znak = zn.Text
 
Select Case znak
   Case "*"
        MsgBox (number1 * number2)
   Case "/"
        MsgBox (number1 / number2)
   Case "+"
        MsgBox (number1 + number2)
   Case "-"
        MsgBox (number1 - number2)
   Case Else
        MsgBox "Непознат символ"
End Select
End Sub

Отговор  За печат  
phrozencrew
Пет, 04.04.08, 12:59
Грешката ти е единствено в тия кликове дето си наслагал на всичките функции за операторите:
Private Sub Izvazdane_Click и т.н. Просто ги направи без _Click:
Private Sub Izvazdane
Отговор  За печат  
anonymous
Пет, 04.04.08, 13:27
защо пак нестава дава ми грешка тук: number1 = nm1.Text
Private Sub btn1_Click()
Dim number1 As Integer
Dim number2 As Integer
Dim znak As String
 
number1 = nm1.Text
number2 = nm2.Text
znak = zn.Text
 
Select Case znak
   Case "*"
        MsgBox (number1 * number2)
   Case "/"
        MsgBox (number1 / number2)
   Case "+"
        MsgBox (number1 + number2)
   Case "-"
        MsgBox (number1 - number2)
   Case Else
        MsgBox "Непознат символ"
End Select
End Sub

редактиран от anonymous на 04.04.08 13:28
Отговор  За печат  
phrozencrew
Пет, 04.04.08, 13:41

RE: ПОМОЩ!!!!!!!

Цитат на anonymous от Петък, 04.04.2008 13:27
” защо пак нестава дава ми грешка тук: number1 = nm1.Text „
Защото вероятно нямаш текстово поле, ковто да се казва nm1. Сигурен ли си, че формата ти има тези полета - nm1, nm2 и zn.
Отговор  За печат  
кака.лара
Пет, 04.04.08, 13:46
nm1.Text има тип String, а number1 е от тип Integer. Дава ти несъвместимост по тип. Май беше грешка #13 - Type mismatch, нещо такова.
Трябва да преобразуваш първо стринга в число с Val(nm1.Text) и после до Integer с Cint(). Нещо като number1 = Cint(Val(nm1.Text))

ed: Или май беше направо Cint(nm1.Text)?

редактиран от кака.лара на 04.04.08 13:49
Отговор  За печат  
anonymous
Пет, 04.04.08, 13:57
кака.лара позна точно такава грешка дава
редактиран от anonymous на 04.04.08 13:57
Отговор  За печат  
кака.лара
Пет, 04.04.08, 14:09
Хубаво, ама ако от самото начало беше казал коя е грешката щеше да стане много по-бързо.
Отговор  За печат  
anonymous
Пет, 04.04.08, 14:09
сигурен съм че съм преименувал полетата и си нямам на идея защо пак не става,
Това е което до сега съм направил:
calc.rar
Отговор  За печат  
кака.лара
Пет, 04.04.08, 14:24
Използвай това, дето Фрози ти го е дал и не забравяй да приведеш типовете:

вместо
number1 = nm1.Text
number2 = nm2.Text
сложи
number1 = Cint(nm1.Text)
number2 = Cint(nm2.Text)

Отговор  За печат  

< 1 2 >

Коментар

за нас | за разработчици | за реклама | станете автори | in english  © 1998-2024   Experta Ltd.