| |
|
|
| | Господа!
Возьмется кто нибудь реализовать аналог вот этого: http://webfile.ru/3993379 в виде экзешника и файла с данными.
Сколько может стоить такая работа?
mail: leshke1@pisem.net | |
| |
| |
| |
|
|
| | Ой! Извините!!! Засунул в архив mde 
Вот правильная ссылка: http://webfile.ru/3994434 | |
| |
| |
| |
|
|
| | Круто!!! 
Красиво!!! 
Почитал редми и не понял, а приёмник без этой программы не работает... | |
| |
| |
| |
|
|
| | Без программы работать не будет.
Приемник состоит из радиомодуля от автомагнитолы и управляющего им синтезатора частоты на микросхеме LM7001, а микросхема эта управляется программой.
Во как  | |
| |
| |
| |
|
|
| | здорово!!!!
А на фига нужен - такой приёмник, который бкз компа - вовсе не приёмник, а детектор....
или???????  | |
| |
| |
| |
|
|
| | В машине нету магнитолы т.к. вместо неё стоит компьютер: http://alex-l.users.photofile.ru/photo/alex-l/96119228/xlarge/109734125.jpg а радио иногда бывает хочется - вот и ...  | |
| |
| |
|
|
| |
|
|
| | Да модуль то маленький и доступ к нему не нужен в отличии от магнитолы, поселился за бардачком под торпедой. Если интересно - вот весь проект: http://www.pccar.ru/showthread.php?t=6162 и дополнительно куча фоток: http://photofile.ru/users/alex-l/ | |
| |
| |
|
|
|
|
| |
|
|
| | Ну почему же пофигу! Спасибо за высокую оценку моих трудов   | |
| |
| |
| |
|
|
| | Alex
Небольшой вопрос
А чем тебя не устраивает Visual Basic
Поставь себе Microsoft Visual Studio 6.0
Единственно нужно:
1. нарисовать новый интерфейс
2. Сбросить содержимое второй базы в текстовый файл
3. подключаться к текстовому файлу
Все остальное ты уже сделал, и не побоюсь этого слова ГЕНИАЛЬНО!!!
Или ты хочешь на другом языке - Си или Паскале?
| |
| |
| |
| |
|
|
| | Почитал... круто!!!
Молодец.
Переписать на VB 6.0, я думаю и сами сможете. Попробуйте! Код основных модулей (работа с портом) будет такой же, а интерфейс перепишите, если что - спросите здесь, тут Дрюня есть , да и Час уже тоже поднаторел в VB ;-) | |
| |
| |
| |
|
|
| | Что значит час поднадоел??? 
Час уже тоже поднаторел в VB ;-)
|
| |
| |
| |
| |
|
|
| | ну а кто последнее время самый активный поставщик вопросов по VB ?  | |
| |
| |
| |
|
|
| | Это да - это верно.... | |
| |
| |
| |
|
|
| | Да ну нафик - гениально Всё гениальное сделали здесь!
Visual Basic меня полностью устраивает. Скачал, поставил Microsoft Visual Basic Express Edition Конечно очень похоже на Access, основные приемы те же, но... как то тяжело все это... В т.ч. и интерфейс - в аксе как то удобнее
Например поле - выбрал в качестве источника данных базу с таблицами FMAvtoData.mdb - получить значение для поля из таблицы могу, а вот сделать как аксе - чтобы при изменении значения поля оно и в базе менялось - не допёр. Картинки тоже че то не получаются А с текстовым файлом как работать? Во спросил - ответ на этот вопрос - целая книга наверное... | |
| |
| |
| |
|
|
| | Microsoft Visual Basic Express - это вроде уже VB.net
это уже совсем не похоже на VBA
если изучать, то конечно лучше VB.net, а вот если просто быстро переписать, то на vb 6.0, IMHO, будет полегче | |
| |
| |
| |
|
|
| | Олег, а где скачать? С русским фейсом (очень желательно) и со всеми чудесами чтоб работало - ну вы понимаете... | |
| |
| |
| |
|
|
| | хороший вопрос... вроде в свободном доступе официально нигде...
посмотрю у себя дистрибутив...
С русским фейсом - точно нет | |
| |
| |
| |
|
|
| | "посмотрю у себя дистрибутив..." - буду весьма признателен | |
| |
| |
|
|
| |
|
|
| | У мну с руусским, но как тебе слать целый диск? XP его знает......... | |
| |
| |
| |
|
|
| | По поводу вопросов на ответы или......
Вощем - ты на каком этапе????
начинается всё с sub Main() какого нить модуля
Public Sub Main()
If App.PrevInstance Then
MsgBox "Программа уже запущена.", vbExclamation, App.Title
Call FUN_GLB_EXIT
Exit Sub
End If
'GLB_PROGRAMMA_AND_VERS = NZVB(FUN_GLB_PROGRAMMA_AND_VERS)
'Set fso = CreateObject("Scripting.FileSystemObject") ' файловая система включена
'If FUN_START = False Then ' проверка старта
' Call FUN_GLB_EXIT 'выход из программы
'Exit Sub
'End If
Load FRM_START ' загрузка стартовой формы
FRM_START.Show vbModal ' показ стартовой формы
End Sub | |
| |
| |
| |
|
|
| |
Public Function FUN_START() As Boolean ' Начальный вход в программу
'
'Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_Start")
'---------------------------------------------------------------------------
On Error GoTo FUN_Start_Error
'---------------------------------------------------------------------------
FUN_START = False
' поиск расположения базы
If FUN_FILE_YES_NO(FUN_Patch_File(App.Path, "settings.cfg")) = True Then ' если файл на месте
If FUN_OUT_TXT(FUN_Patch_File(App.Path, "settings.cfg"), 1) = "" Then ' читаем из файла путь к таблицам
MsgBox "Не указан путь к БД в файле settings.cfg." & vbCrLf & FUN_Patch_File(App.Path, "settings.cfg"), vbExclamation, App.Title
FUN_Get_Patch_Connection
Else
' читаем путь из "settings.cfg"
GLB_Patch_Connection = FUN_OUT_TXT(FUN_Patch_File(App.Path, "settings.cfg"), 1)
If FUN_FILE_YES_NO(GLB_Patch_Connection) = False Then
Call FUN_Get_Patch_Connection ' глобальное подключение
End If
End If
Else 'FUN_Patch_File(App.Path, "Error.txt")
MsgBox "Не найден файл (путь)." & vbCrLf & FUN_Patch_File(App.Path, "settings.cfg"), vbExclamation, App.Title
Call FUN_Get_Patch_Connection ' глобальное подключение
End If
If GLB_Patch_Connection = "" Then Call FUN_Get_Patch_Connection
If GLB_Patch_Connection = "" Then MsgBox "Путь к БД не определен", vbExclamation, App.Title: Exit Function
' MsgBox GLB_Patch_Connection
If FUN_FILE_YES_NO(GLB_Patch_Connection) = True Then 'путь к базе найден
If FUN_Get_GlobalConnection = False Then ' не удача при подключении
FUN_START = False
End If
FUN_START = True 'старт состоялся
Call FUN_IN_Settings_cfg(GLB_Patch_Connection)
Else
FUN_START = False
Call FUN_IN_Settings_cfg("")
End If
'---------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_Start_Error:
End Function
|
| |
| |
| |
| |
|
|
| | И вот сомо соединение (подключение)
Public Function FUN_Get_GlobalConnection() As Boolean
' Подключение к базе
'Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_Get_GlobalConnection")
'---------------------------------------------------------------------------
On Error GoTo FUN_Get_GlobalConnection_Error
'---------------------------------------------------------------------------
FUN_Get_GlobalConnection = False
Dim conn_str As String
Set GLB_con = New ADODB.Connection
If GLB_Patch_Connection = "" Then
Error_String = Err.Description: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Now() & "Не указан путь к базе")
Exit Function
End If
' проверить подключение(Соединение)
If GLB_con.State = adStateOpen Then
FUN_Get_GlobalConnection = True '"Соединение GLB_con уже установлено !"
Exit Function
End If
Dim ADOErr As ADODB.Error
On Error GoTo CnErrorHandler
GLB_con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=у2у2;Data Source=" & GLB_Patch_Connection
' проверить подключение(Соединение)
If GLB_con.State = adStateOpen Then
'Call FUN_IN_LOG("Соединение GLB_con установлено !" & GLB_Patch_Connection)
FUN_Get_GlobalConnection = True
Else
Call FUN_IN_TXT(FUN_Patch_File(App.Path, "TEMP_ERROR.log"), "Соединение со справочниками не установлено !")
Call MsgBox("Соединение с базой не установлено !", _
vbOKOnly + vbCritical, _
"NewId()")
End If
Exit Function
CnErrorHandler:
'---------------------------------------------------------------------------
On Error GoTo 0
Call MsgBox("НЕ удалось подключить базу!!! " & vbCrLf & "Возможно в названиях папок русские буквы!!!", vbCritical)
Exit Function
FUN_Get_GlobalConnection_Error:
FUN_Get_GlobalConnection = False
End Function
|
| |
| |
| |
| |
|
|
| | Час и Alex
извините, что вмешиваюсь.
Как вам такое предложение
Оба ставите Hamachi
Час расшаривает папку с образом и Alex скачивает
Если у обоих выделенка, то по времени это займет пару часов.
Мог бы и я расшарить, но у меня англицкая версия 
Удачи в программировании | |
| |
| |
| |
|
|
| | Спасибо за предложение!
Уже скачал VB6.0 RU 
Теперь работы поднавалили - некогда пока...  | |
| |
| |
|
|
