dziś kolejny problem nie wiem dlaczego wyskakuje mi error 220 w taki kodzie
[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
$lib "glcdKS108.lbx"
'$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib"
$include "Card_init.bas"
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 6 , Ce2 = 7 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
' modified lib
'Const Clockmode = 1
Enable Interrupts
'configure the scl and sda pins
Config Sda = Portc.1
Config Scl = Portc.0
Config I2cdelay = 10
I2cinit
'address of ds1307
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Date = Dmy , Separator = - '
Config Clock = User ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte
Dim Dzientyg As String * 2
Dim Dzien As String * 10
Dim Miesiac As String * 10
Dim Rok As String * 10
Dim Godzina As String * 3
Dim Minuta As String * 3
Dim Sekunda As String * 3
Dim Dzienroku As Word
Declare Sub Setweekday
Declare Sub Sd_card
Cls
' assigning the time will call the SetTime routine
Time$ = "07:41:09" ' to watch the day changing value
Date$ = "02-05-16"
Weekday = 0
Call Setweekday
If Card_init_error = 0 Then
'Sprawdzamy i wyświetlamy typ podpiętej karty pamięci
Select Case Mmcsd_cardtype
Case 1
Setfont My6_8 : Lcdat 2 , 1 , "MMC-Card detected"
Case 2
Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 1.x detected"
Case 4
Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 2.0 detected"
Case 12
Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 2.0 detected"
Case Else
Setfont My6_8 : Lcdat 2 , 1 , "No Card detected"
End Select
Else 'jeśli karta nie zostala prawidłowo zainicjalizowana to wyświetlamy komunikat o błędzie
Setfont My6_8 : Lcdat 3 , 1 , "Error: " ; Card_init_error
End If ' 13 november 2002
Do
Dzien = Mid(date$ , 4 , 2)
Miesiac = Left(date$ , 2)
Rok = Right(date$ , 2)
Godzina = Left(time$ , 2)
Minuta = Mid(time$ , 4 , 2)
Sekunda = Right(time$ , 2)
Dzienroku = Dayofyear()
Setfont My6_8 : Lcdat 1 , 1 , Dzien ; "." ; Miesiac ; "." ; Rok ;
'Setfont My6_8 : Lcdat 2 , 1 , "Date Time : " ; Date$ ; " "
Setfont My6_8 : Lcdat 1 , 62 , ; Time$ ;
'Setfont My6_8 : Lcdat 2 , 1 , Dzientyg
Loop
End
Getdatetime:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstop
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Ack
I2crbyte Weekday , Ack
I2crbyte _day , Ack
I2crbyte _month , Ack
I2crbyte _year , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
'If Weekday = 1 Then 'dopasowanie zakresu do potrzeb programu i zakresu RTC
'Weekday = 6
' Else
'Weekday = Weekday - 2
'End If
Dzientyg = Lookupstr(weekday , Weekstrdays)
Return
Setdate:
'If Weekday = 6 Then 'dopasowanie zakresu do potrzeb programu i zakresu RTC
'Weekday = 1
'Else
'Weekday = Weekday + 2
'End If
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 4
I2cwbyte _month
I2cwbyte _day
I2cwbyte _year
I2cstop
Waitms 10
Dzientyg = Lookupstr(weekday , Weekstrdays)
Return
Setweekday:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 3
I2cwbyte Weekday
I2cstop
Waitms 10
Return
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cwbyte _sec
I2cwbyte _min
I2cwbyte _hour
I2cstop
Waitms 10
Return
Sub Sd_card
Ff = Freefile()
Open "logaqva.csv" For Append As #ff 'For Output As #ff
'zapisujemy zmienne
Dim A As Word , B As Integer , C As Word
A = 20
B = 11
C = 3674
Write #ff , A , B , C , Chr(13) 'te dane zostaną zapisane w pierwszym wierszu
Close #ff
'------------------------Odczyt zmiennych z csv---------------------------------
Print "Czytam z pliku csv"
Ff = Freefile()
Open "logaqva.csv" For Input As #ff
Input #ff , A , B , C 'odczytujemy kolejne pola pliku csv
Close #ff
Setfont My6_8 : Lcdat 5 , 1 , A ; B ; C ;
End Sub
Weekstrdays:
Data "Poniedzialek" , "Wtorek" , "Sroda" , "Czwartek" , "Piatek" , "Sobota" , "Niedziela"
$include "my6_8.font"[/syntax]
lista błędów poniżej
Statystyki: Napisane przez slawek3000 — 2 maja 2016, o 06:59
]]>