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

Автор

Съобщение

anonymous
Пет, 04.04.08, 14:37

значи ще стане така ли? защото пак не става:
Private Sub btn1_Click() Dim number1 As Integer Dim number2 As Integer Dim znak As String number1 = CInt(nm1.Text) number2 = CInt(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, 14:41

Нещо си омазал целия проект ми се струва. Аз не разполагам с компилатора, но ето ти работеща програмата в Excel с VisualBasic for Application:
calculator.xls
Предполагам знаеш, че трябва да си разрешиш макросите за да я ползваш.
Отговор За печат
anonymous
Пет, 04.04.08, 14:57

незнам как да си разреша макросите
Отговор За печат
phrozencrew
Пет, 04.04.08, 15:29
RE: ПОМОЩ!!!!!!!

Цитат на anonymous от Петък, 04.04.2008 14:57
” незнам как да си разреша макросите „
Ето така можеш да настроиш Excel-а да те пита винаги, когато отваряш файл с макроси:

Сега след като затвориш ексела и се опиташ отново да отвориш файла ще те пита дали да зареди макроса или не:

Отговор За печат
electric_cc
Пет, 04.04.08, 16:03

Трябва да дефинираш znak в началото на модула за да се вижда навсякъде. Ти си го дефинирал в самата процедура и стойността му винаги ще е празен символ.
Отговор За печат
anonymous
Пет, 04.04.08, 16:27

аз съм със офис 2007 и не мога да се ориентирам
Отговор За печат
electric_cc
Пет, 04.04.08, 17:53

Изтрий всички бутони. Направи един бутон btn. Копирай го няколко пъти като го оставиш да създаде индекси. Смени променливите на Double за да може да работи и с дробни числа. Вместо MsgBox можеш да създадеш един етикет, в който да записваш резултатите. След това използвай следната процедура:
Private Sub btn_Click(Index As Integer)
Dim number1 As Double
Dim number2 As Double
number1 = Val(nm1.Text)
number2 = Val(nm2.Text)
Select Case Index
     Case 0: Umnozenie number1, number2
     Case 1: Delenie number1, number2
     Case 2: Sabirane number1, number2
     Case 3: Izvazdane number1, number2
End Select
End Sub
Private Sub Izvazdane(number1 As Double, number2 As Double)
   MsgBox number1 - number2
End Sub
Private Sub Delenie(number1 As Double, number2 As Double)
   MsgBox number1 / number2
End Sub
Private Sub Sabirane(number1 As Double, number2 As Double)
   MsgBox number1 + number2
End Sub
Private Sub Umnozenie(number1 As Double, number2 As Double)
   MsgBox number1 * number2
End Sub
Отговор За печат
anonymous
Пет, 04.04.08, 18:15

името или caption да сменя btn и double не разбрах къде да го напиша
Отговор За печат
electric_cc
Пет, 04.04.08, 18:33

Името на бутоните е btn, такава е и процедурата, която следи натиснатия бутон. Caption може да бъде Умножение, X, * - няма значение. Според мен най-подходящо е X. Double са променливите Number1, Number2. Още по-просто е само с една процедура.
Private Sub btn_Click(Index As Integer)
Dim number1 As Double
Dim number2 As Double
number1 = Val(nm1.Text)
number2 = Val(nm2.Text)
Select Case Index
     Case 0: MsgBox number1 * number2
     Case 1: MsgBox number1 / number2
     Case 2: MsgBox number1 + number2
     Case 3: MsgBox number1 - number2
End Select
End Sub
редактиран от electric_cc на 04.04.08 18:37
Отговор За печат
anonymous
Пет, 04.04.08, 18:39

малее съвсем се обърках????
Отговор За печат
electric_cc
Пет, 04.04.08, 18:42

Напиши e-mail да ти изпратя проекта. Остави по-един интервал преди и след @ за да не те намерят спамаджиите, аз ще го напиша правилно.
Отговор За печат
anonymous
Пет, 04.04.08, 20:09

stefan192 @ abv.bg
редактиран от anonymous на 05.04.08 17:31
Отговор За печат
anonymous
Съб, 05.04.08, 06:43

мерси много на всички които ми помогнаха
Отговор За печат

<1 2 >

Коментар

за нас | за разработчици | за реклама | станете автори | in english

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

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

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