Пример для Visual Basic:
' Подключение
Dim fp As Object
Dim result As Long
Dim data as String
Dim time as String
Set fp = CreateObject("Fp3530t.Fp")
' Открытие порта
result = fp.OpenPort(1)
' Получение даты и времени
fp.GetDateTime
data = fp.Date
time = fp.Time
MsgBox data
MsgBox time
' Закрытие порта
fp.ClosePortПример регистрации чека для 1С:Предприятия:
// ОснТЗ – таблица значений с колонками:
// Товар, Цена, Колво.
// возвр – переменная, которая принимает значение возврата
ФП = CreateObject("Fp3530t.Fp");
возвр = ФП.OpenPort(Константа.НомерПорта);
оп = число(прав(Константа.НомерТерминала,1));
возвр = ФП.OpenFiscalReceipt(оп,"0000",оп);
ОснТЗ.ВыбратьСтроки();
Пока ОснТЗ.ПолучитьСтроку()=1 Цикл
Оцена = ОснТЗ.Цена / ОснТЗ.Колво;
Если ОснТЗ.Товар.СтавкаНДС = 0 тогда
ндс = 2;
Иначе
ндс = 1;
КонецЕсли;
возвр = ФП.RegisterItem( Строка(ОснТЗ.Товар.Артикул), ндс, Оцена,
ОснТЗ.Колво, 0 );
КонецЦикла;
возвр = ФП.Total(1, ОснТЗ.Итог("Сумма"));
возвр = ФП.CloseFiscalReceipt();
возвр = ФП.ClosePort();