Пятница, 2024-05-17, 12:14 PM
 
Начало Форум Регистрация Вход
Вы вошли как Mangryang
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: _l_BOO_l_  
Форум » Общение » Беседка » Кто знает Visual Basic
Кто знает Visual Basic
ShpI0nДата: Среда, 2007-05-23, 11:42 PM | Сообщение # 1
HAGAKURE
Группа: Union Member
Сообщений: 310
Статус: Offline
Помогите мне написать калькулятор очень надо на экзамен.
У меня есть скрипт только он не считает дробные числа.

Добавлено (2007-05-23, 11:42 Pm)
---------------------------------------------
Вот скрипт
Code
Private MemValue As Double
Private X As Double
Private Y As Double
Private SValue As Double
Private OpenLog As Integer

Private Sub CLRButton_Click()
     Text1.Text = ""
End Sub

Private Sub Command1_Click()
Dim Value As Double
On Error GoTo EvalError
     X = Val(Text3.Text)
     Y = Val(Text2.Text)
     ScriptControl1.ExecuteStatement "X=" & X
     ScriptControl1.ExecuteStatement "Y=" & Y
     Value = ScriptControl1.Eval(Trim(Text1.Text))
     Value2 = ScriptControl1.Eval(Trim(Text2.Text))
     Result.Caption = Value & Value2
     UpdateLog
     Exit Sub
EvalError:
     Result.Caption = " Invalid Expression!"
     MsgBox ScriptControl1.Error.Description
End Sub

Private Sub Command2_Click()
     CopyrightForm.Show vbModal
End Sub

Private Sub DelButton_Click()
     If Len(Text1.Text) = 0 Then
         Text1.SetFocus
         Exit Sub
     End If
     If Len(Text1.SelText) > 1 Then
         Text1.SelText = ""
         Text1.SetFocus
         Exit Sub
     End If
     If Text1.SelStart = Len(Text1.Text) Then
         Text1.SetFocus
         Exit Sub
     End If
     SStart = Text1.SelStart
     Text1.Text = Left$(Text1.Text, Text1.SelStart) + Right$(Text1.Text, Len(Text1.Text) - Text1.SelStart - 1)
     Text1.SetFocus
     Text1.SelStart = SStart
End Sub

Private Sub BSButton_Click()
     SStart = Text1.SelStart
     If Text1.SelStart = 0 Then
         Text1.SetFocus
         Text1.SelStart = SStart
         Exit Sub
     Else
         If Text1.SelLength > 1 Then
             Text1.SelText = ""
             Text1.SetFocus
             Text1.SelStart = SStart
         Else
             Text1.Text = Left$(Text1.Text, Text1.SelStart - 1) + Right(Text1.Text, Len(Text1.Text) - Text1.SelStart)
             Text1.SetFocus
             Text1.SelStart = SStart - 1
         End If
     End If
End Sub

Private Sub FileHideShow_Click()
     If FileHideShow.Caption = "Hide Buttons" Then
         Form1.Height = 2790
         FileHideShow.Caption = "Show Buttons"
     Else
         Form1.Height = 4935
         FileHideShow.Caption = "Hide Buttons"
     End If
End Sub

Private Sub LogBttn_Click()
     If LogBttn.Caption = "Show  Log" Then
         OpenLog = True
         LogBttn.Caption = "Hide  Log"
         LogForm.Show
     Else
         OpenLog = False
         LogBttn.Caption = "Show  Log"
         LogForm.List1.Clear
         LogForm.Hide
     End If
End Sub

Private Sub UpdateLog()
     LogForm.List1.AddItem Trim(CalculatorForm.Text1.Text)
     LogForm.List1.AddItem "For X = " + CalculatorForm.Text3.Text
     LogForm.List1.AddItem ">        " + CalculatorForm.Result.Caption
End Sub

Private Sub FunctionButton_Click(Index As Integer)
     Text1.SelText = ActiveControl.Caption + "("
     Text1.SetFocus
End Sub

Private Sub MemoryMinus_Click()
On Error Resume Next
     MemValue = MemValue - Result.Caption
End Sub

Private Sub MemoryPlus_Click()
On Error Resume Next
     MemValue = MemValue + Result.Caption
End Sub

Private Sub MemoryRecall_Click()
On Error Resume Next
     Text3.Text = MemValue
     MemValue = 0
End Sub

Private Sub Num_Click(Index As Integer)
     Text1.SelText = ActiveControl.Caption
     Text1.SetFocus
End Sub

Private Sub NumPeriod_Click()
     Text1.SelText = ActiveControl.Caption
     Text1.SetFocus
End Sub

Private Sub CalculateButton_Click()
     Call Command1_Click
End Sub

Private Sub Operator_Click(Index As Integer)
     If ActiveControl.Caption = "%" Then
             Text1.SelText = " mod "
         ElseIf ActiveControl.Caption = "x" Then
             Text1.SelText = "*"
     Else
         Text1.SelText = ActiveControl.Caption
     End If
     Text1.SetFocus
End Sub

Злой нюкер
 
MidnightCatДата: Четверг, 2007-05-24, 0:16 AM | Сообщение # 2
RL
Группа: Проверенный
Сообщений: 760
Статус: Offline
blink мамочки родные...
сори я вообще пень в этом,помочь не могу,а так,если что,я с радостью biggrin
Birds go flying at the speed of sound,
to show you how it all began.
Birds came flying from the underground,
if you could see it then you'd understand,
ah, when you see it then you'll understand...
 
NiKoNДата: Четверг, 2007-05-24, 0:37 AM | Сообщение # 3
SLAVYANE
Группа: Union Member
Сообщений: 144
Статус: Offline
Ниодного коментария в коде... визуалом ниразу не страдал, но по анологиям почемубы не сделать переменную дробную(float(real?)) в которую сначала занесёться результат, а потом всё это переделать в строку (вроде ты всё строками (text 2 и 3- понимаю что ето поля ввода, если не ошибаюсь то 2 и 3 - это значения который пользователь вводит а потом тыркает разные кнопки и они то суммируються то деляться и т.д., а рез выводиться в техт1, так ?). Токо всё равно без каментов тяжеловато... чтото понятно , а чтото из за незнания вб нифтыкаю к сожалению. Завтра если сдам зачёт посмотрю поподробней.
cЯaZy
 
MidnightCatДата: Четверг, 2007-05-24, 0:48 AM | Сообщение # 4
RL
Группа: Проверенный
Сообщений: 760
Статус: Offline
Quote (NiKoN)
Завтра если сдам зачёт посмотрю поподробней.

ох уж эти зачеты cry
целую неделю,каждый день!! шарики за ролики заезжают уже wacko
Birds go flying at the speed of sound,
to show you how it all began.
Birds came flying from the underground,
if you could see it then you'd understand,
ah, when you see it then you'll understand...
 
Charley_estДата: Четверг, 2007-05-24, 2:14 AM | Сообщение # 5
BASTEON_RU
Группа: Union Member
Сообщений: 806
Статус: Offline
ты бы весь проект выложил удобнее былобы =)
а то не понятно что не работает и что нада =))))

если тебе нада из строки дабл получить то нада функцией CDbl(строка) пользоваться.

если юзер набрал весь пример то тогда eval() катит.

...проходит ММОРПГ "жизнь в реале"... (куча скилов, свободный выбор развития и терпимая графика.... ботов почти нету)
 
ShpI0nДата: Четверг, 2007-05-24, 12:52 PM | Сообщение # 6
HAGAKURE
Группа: Union Member
Сообщений: 310
Статус: Offline
Charley_est, подскажи мне куда можно выложить архив с проэктом??
Злой нюкер
 
Charley_estДата: Четверг, 2007-05-24, 1:26 PM | Сообщение # 7
BASTEON_RU
Группа: Union Member
Сообщений: 806
Статус: Offline
ой не знаю даже. стукай мне в асю..... посочуствую =)
...проходит ММОРПГ "жизнь в реале"... (куча скилов, свободный выбор развития и терпимая графика.... ботов почти нету)
 
MOKCДата: Четверг, 2007-05-24, 1:38 PM | Сообщение # 8
HAGAKURE
Группа: Union Member
Сообщений: 1334
Статус: Offline
Quote (ShpI0n)
куда можно выложить архив с проэктом??

Млжно сюда или сюда

Всё будет хорошо!

ps. да просто обязано!

 
partizzaninДата: Четверг, 2007-05-24, 4:20 PM | Сообщение # 9
HAGAKURE
Группа: Union Member
Сообщений: 156
Статус: Offline
ShpI0n, спроси чё по легче biggrin

Добавлено (2007-05-24, 4:20 Pm)
---------------------------------------------
Кто нить знает Техническую механику??? biggrin

Носорог бодается рогом
Не шутите с носорогом:):):)
 
NoratДата: Четверг, 2007-05-24, 5:20 PM | Сообщение # 10
HAGAKURE
Группа: Модераторы
Сообщений: 1097
Статус: Offline
Я конечно не спец в VB, но мне кажется, что скрипт уже написан так, что правильно работает с плавающей запятой. У тебя на кнопке с запятой точка стоит: "."? Если запятая ",", то работать с дробными не будет.
_Norat_ cleric 5x [HAGAKURE] (Norat_trader)
 
partizzaninДата: Четверг, 2007-05-24, 6:14 PM | Сообщение # 11
HAGAKURE
Группа: Union Member
Сообщений: 156
Статус: Offline
???
Носорог бодается рогом
Не шутите с носорогом:):):)
 
ShpI0nДата: Пятница, 2007-05-25, 0:43 AM | Сообщение # 12
HAGAKURE
Группа: Union Member
Сообщений: 310
Статус: Offline
partizzanin, если не знаешь то иди лесом

Добавлено (2007-05-25, 0:22 Am)
---------------------------------------------
Вот тут лежит весь проэкт: http://up-file.com/download/4a816a248674/Calc.rar.html

Добавлено (2007-05-25, 0:43 Am)
---------------------------------------------
Или вот здесь

Прикрепления: 13032196.rar (12.0 Kb)

Злой нюкер

Сообщение отредактировал ShpI0n - Пятница, 2007-05-25, 0:44 AM
 
Charley_estДата: Пятница, 2007-05-25, 2:45 AM | Сообщение # 13
BASTEON_RU
Группа: Union Member
Сообщений: 806
Статус: Offline
мндя. я понимаю что тут все крутые програмисты и могут читать и понимать асм прямо из ехе файлов...... но лично я бы предпочел почитать все таки именно исходник на бейсике.....

если не сложно - пришли мне просто архив папки проекта С подпапками... асю знаешь....

...проходит ММОРПГ "жизнь в реале"... (куча скилов, свободный выбор развития и терпимая графика.... ботов почти нету)
 
ShpI0nДата: Пятница, 2007-05-25, 1:38 PM | Сообщение # 14
HAGAKURE
Группа: Union Member
Сообщений: 310
Статус: Offline
Вот сам файл
Прикрепления: 89927267.vbp (0.7 Kb)

Злой нюкер
 
Charley_estДата: Пятница, 2007-05-25, 2:25 PM | Сообщение # 15
BASTEON_RU
Группа: Union Member
Сообщений: 806
Статус: Offline
ShpI0n, используя только то что ты выложил я тебе помочь не могу.
...проходит ММОРПГ "жизнь в реале"... (куча скилов, свободный выбор развития и терпимая графика.... ботов почти нету)
 
Форум » Общение » Беседка » Кто знает Visual Basic
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск: