Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2011, 23:08   #1
рома_93
Новичок
Джуниор
 
Регистрация: 14.11.2011
Сообщений: 2
По умолчанию Visual Basic. конвертер велечин измерения

Помогите написать программу для создания конвертера велечин.
чтоб из метра переводились в км, мм, мили... и точно также чтоб когда вводишь в км(мм, мили) выбивал остальные.
рома_93 вне форума Ответить с цитированием
Старый 14.11.2011, 23:17   #2
С.М.С
Участник клуба
 
Аватар для С.М.С
 
Регистрация: 29.12.2008
Сообщений: 1,598
По умолчанию

Выкладывайте ваши наработки, поможем.
С.М.С вне форума Ответить с цитированием
Старый 14.11.2011, 23:25   #3
рома_93
Новичок
Джуниор
 
Регистрация: 14.11.2011
Сообщений: 2
По умолчанию

Private Sub CommandButton1_Click()
m = Val(TextBox1.Text)
mm = m * 1000
TextBox3.Text = Str(mm)
yd = m * 1.09
TextBox4.Text = Str(yd)
ft = m * 3.28
TextBox5.Text = Str(ft)
km = m / 1000
TextBox7.Text = Str(km)
mi = m / 1600
TextBox8.Text = Str(mi)
End Sub
рома_93 вне форума Ответить с цитированием
Старый 14.11.2011, 23:36   #4
С.М.С
Участник клуба
 
Аватар для С.М.С
 
Регистрация: 29.12.2008
Сообщений: 1,598
По умолчанию

Думаю стоит для начала определиться то ли вам надо на VBA, толи на VB, а то я выложу, а вы не сможете отладить.
С.М.С вне форума Ответить с цитированием
Старый 15.11.2011, 00:56   #5
С.М.С
Участник клуба
 
Аватар для С.М.С
 
Регистрация: 29.12.2008
Сообщений: 1,598
По умолчанию

Ладно, раз VB, тогда вот, для длин(миллиметр, сантиметр, метр) и веса(грамм, килограмм, тонна).

Код:
Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False

Combo1.AddItem "Миллиметр"
Combo1.AddItem "Сантиметр"
Combo1.AddItem "Метр"

Combo1.AddItem "Грамм"
Combo1.AddItem "Килограмм"
Combo1.AddItem "Тонна"

Combo1.ListIndex = 0


Combo2.AddItem "Миллиметр"
Combo2.AddItem "Сантиметр"
Combo2.AddItem "Метр"

Combo2.ListIndex = 0


End Sub
 

Private Sub Combo1_Click()
If Combo1.Text = "Миллиметр" Or Combo1.Text = "Сантиметр" Or Combo1.Text = "Метр" Then
Combo2.Clear
Combo2.AddItem "Миллиметр"
Combo2.AddItem "Сантиметр"
Combo2.AddItem "Метр"
End If

If Combo1.Text = "Грамм" Or Combo1.Text = "Килограмм" Or Combo1.Text = "Тонна" Then
Combo2.Clear
Combo2.AddItem "Грамм"
Combo2.AddItem "Килограмм"
Combo2.AddItem "Тонна"
End If

Combo2.ListIndex = 0
End Sub


Private Sub Combo2_Click()
Text1.Enabled = True
Text2.Enabled = True

If Combo1.Text = "Миллиметр" And Combo2.Text = "Миллиметр" Then
Text2.Text = Val(Text1.Text) * 1
End If
If Combo1.Text = "Миллиметр" And Combo2.Text = "Сантиметр" Then
Text2.Text = Val(Text1.Text) * 0.1
End If
If Combo1.Text = "Миллиметр" And Combo2.Text = "Метр" Then
Text2.Text = Val(Text1.Text) * 0.001
End If

If Combo1.Text = "Сантиметр" And Combo2.Text = "Миллиметр" Then
Text2.Text = Val(Text1.Text) * 10
End If
If Combo1.Text = "Сантиметр" And Combo2.Text = "Сантиметр" Then
Text2.Text = Val(Text1.Text) * 1
End If
If Combo1.Text = "Сантиметр" And Combo2.Text = "Метр" Then
Text2.Text = Val(Text1.Text) * 0.01
End If

If Combo1.Text = "Метр" And Combo2.Text = "Миллиметр" Then
Text2.Text = Val(Text1.Text) * 1000
End If
If Combo1.Text = "Метр" And Combo2.Text = "Сантиметр" Then
Text2.Text = Val(Text1.Text) * 100
End If
If Combo1.Text = "Метр" And Combo2.Text = "Метр" Then
Text2.Text = Val(Text1.Text) * 1
End If



If Combo1.Text = "Грамм" And Combo2.Text = "Грамм" Then
Text2.Text = Val(Text1.Text) * 1
End If
If Combo1.Text = "Грамм" And Combo2.Text = "Килограмм" Then
Text2.Text = Val(Text1.Text) * 0.001
End If
If Combo1.Text = "Грамм" And Combo2.Text = "Тонна" Then
Text2.Text = Val(Text1.Text) * 0.000001
End If

If Combo1.Text = "Килограмм" And Combo2.Text = "Грамм" Then
Text2.Text = Val(Text1.Text) * 1000
End If
If Combo1.Text = "Килограмм" And Combo2.Text = "Килограмм" Then
Text2.Text = Val(Text1.Text) * 1
End If
If Combo1.Text = "Килограмм" And Combo2.Text = "Тонна" Then
Text2.Text = Val(Text1.Text) * 0.001
End If

If Combo1.Text = "Тонна" And Combo2.Text = "Грамм" Then
Text2.Text = Val(Text1.Text) * 1000000
End If
If Combo1.Text = "Тонна" And Combo2.Text = "Килограмм" Then
Text2.Text = Val(Text1.Text) * 1000
End If
If Combo1.Text = "Тонна" And Combo2.Text = "Тонна" Then
Text2.Text = Val(Text1.Text) * 1
End If

End Sub
С.М.С вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Visual C++, Visual C#, Visual basic .Net, или Microsoft.Net Что лучше? _PROGRAMM_ Общие вопросы .NET 14 10.10.2012 19:24
Visual Basic (Visual Studio 2005) JUDAS О форуме и сайтах клуба 1 04.07.2009 23:09