ATNEL tech-forum

Re: scrollowanie obrazka lewo, prawo

2015-05-05T16:31:28+01:00

Witam - Bartek........................ już nic nie pisze bo nie wiem co napisać chyba zamówię u ciebie kurs Bascoma online.
pozdrawiam Jacek.

Statystyki: Napisane przez Jacek — 5 maja 2015, o 16:31

Re: scrollowanie obrazka lewo, prawo

2015-05-05T11:50:50+01:00

U nas przerwa Majowa już się skończyła ale od Soboty mam 38.5 więc siedzę w domu i zdycham.
Przeanalizuje twój kod bo fajnie to wyszło.
Nie myślałeś nad zrobieniem wersji pionowej ?

Statystyki: Napisane przez pikczu — 5 maja 2015, o 11:50

Re: scrollowanie obrazka lewo, prawo

2015-05-05T08:23:18+01:00

To ja chyba usunę swoje wypociny bo aż mi się wstyd zrobiło
Bartek skrobnąłeś to wczoraj na poczekaniu ?

Statystyki: Napisane przez pikczu — 5 maja 2015, o 08:23

Re: scrollowanie obrazka lewo, prawo

2015-05-04T21:27:14+01:00

Ano Bartku hi - muszę uspokoić podzielę zmienną przez 10 i zobaczymy.

obiecany filmik https://www.youtube.com/watch?v=dwl0fA41Ixw&feature=youtu.be
pozdrawiam Jacek.

Statystyki: Napisane przez Jacek — 4 maja 2015, o 21:27

Re: scrollowanie obrazka lewo, prawo

2015-05-04T21:17:52+01:00

Witam Kolegów - o to właśnie mi chodziło - na wstępie zapominałem napisać jak ma się zachowywać "skala" i do czego ma służyć - przepraszam powinienem napisać to na początku - a więc - przesuwanie skali ma służyć do wizualizacji obracania się azymutu - kiedyś próbowałem już nieudolnie https://www.youtube.com/watch?v=xHYEiM0gnIw - buduje napęd rotora antenowego https://www.youtube.com/watch?v=hVxBKoqyXAg - mam podłączony enkoder 720imp/obr i skala kręci się za szybko - jak prześle filmik na YT to wstawię linka - jeszcze raz dzięki za fajną skale - pozdrawiam Jacek.

Statystyki: Napisane przez Jacek — 4 maja 2015, o 21:17

Re: scrollowanie obrazka lewo, prawo

2015-05-04T12:28:26+01:00

Zobacz na to nie jest to do końca co chciałem zrobić ale mniej więcej działa:[syntax=basic4gl]$regfile = "m2560def.dat"
$crystal = 16000000
$baud = 19200
$hwstack = 200
$swstack = 200
$framesize = 125

'$sim
'$regfile = "m32def.dat" 'mikrokontroler
'$crystal = 16000000 'kwarc
'$hwstack = 64
'$swstack = 32
'$framesize = 64
'$baud = 19200
$lib "glcd.lib"

'------------------------------------
'konfiguracja LCD
'------------------------------------
'Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 5 , Cd = 6 , Wr = 3 , Rd = 4 , Reset = 7 , Fs = 2 , Mode = 6
'-------------------------------------------
'-----------------------------------moje podlaczenie (Pawel)----------------------------------------------------------------------------
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 3 , Cd = 0 , Wr = 2 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Cursor Off
Declare Sub Lcdtext(byval S As String , Byval Xoffset As Byte , Byval Yoffset As Byte , Byval Fontset As Byte , Byval Inverse As Byte , Byval Rotation As Byte)

'Config Portb.7 = Input
'Portb = &B11111111
'Set Portb.7
'Config Portb.6 = Input
'Set Portb.6
'Portb = &B11111111
'Config Portd.6 = Output
'Reset Portd.6
'Config Portd.2 = Input
'Set Portd.2
'Config Portd.3 = Input
'Set Portd.3
Dim Licz_4ms As Byte
Dim I As Long
Dim E As Word 'zmienna odczytu z enkodera lewy wskaznik
Dim F As Long
Dim B As Long

Up Alias Pinb.7
Down Alias Pinb.6
Beep_ Alias Portd.6

I = 0

Cursor Off
Cls
'-------------------------------------------------
Do
Incr I
Waitms 300
Print I

If I => 240 Then
I = 0
End If
B = I Mod 3

If B = 0 Then

Lcdtext "^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^ " , 0 , 0 , 1 , 0 , 0
End If
If B = 1 Then
Lcdtext "|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^ " , 2 , 0 , 1 , 0 , 0
End If
If B = 2 Then
Lcdtext "|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^| " , 4 , 0 , 1 , 0 , 0
End If

'Lcdtext "1234567890123456789012345678901234567890" , 0 , 0 , 1 , 1 , 0

'X offser --------------------------------------------^ ^ ^ ^ ^
'Y offser ------------------------------------------------' | | |
'font---------------------------------------------------------' | |
'Invert-----------------------------------------------------------' |
'rotate---------------------------------------------------------------'

Locate 5 , 1 : Lcd ; I
Locate 6 , 1 : Lcd ; B

Loop
End

'-----------------------------------------------------

'---------------------------------------------------
Sub Lcdtext(byval S As String , Byval Xoffset As Byte , Byval Yoffset As Byte , Byval Fontset As Byte , Byval Inverse As Byte , Byval Rotation As Byte)
Local Tempstring As String * 1 , Temp As Byte 'Dim local the variables
Local A As Byte , Pixels As Byte , Count As Byte , Carcount As Byte , Lus As Byte
Local Row As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte
Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
Local Xpos As Byte , Ypos As Byte , Pixel As Byte , Pixelcount As Byte
If Inverse > 1 Then Inverse = 0 'Inverse can't be greater then 1
If Rotation > 3 Then Rotation = 0 'There are only 4 rotation's
Stringsize = Len(s) - 1 'Size of the text string -1 because we must start with 0
For Carcount = 0 To Stringsize 'Loop for the numbers of caracters that must be displayed
'this is the name that you gave to the font, NOT the filename
If Fontset = 1 Then Restore Font6x8 'If you Read_485_calc nt know the name, open the font file in wordpad, and there it is,
'right on top.
Temp = Carcount + 1 'Cut the text string in seperate caracters
Tempstring = Mid(s , Temp , 1)
Read Row : Read Byteseach : Read Blocksize : Read Dummy 'Read the first 4 bytes from the font file
Temp = Asc(tempstring) - 32 'Font files start with caracter 32
For Lus = 1 To Temp 'Read_485_calc dummie read to point to the correct line in the fontfile
For Count = 1 To Blocksize
Read Pixels
Next Count
Next Lus
Colums = Blocksize / Row 'Calculate the numbers of colums
Row = Row * 8 'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.
Row = Row - 1 'Want to start with row=0 instead of 1
Colums = Colums - 1 'Same for the colums
Select Case Rotation
Case 0 '0 degrees rotation
For Rowcount = 0 To Row Step 8 'Loop for numbers of rows
A = Rowcount + Yoffset
For Columcount = 0 To Colums 'Loop for numbers of Colums
Read Pixels : If Inverse = 1 Then Toggle Pixels 'Read the byte from the file and if inverse = true then invert de byte
Xpos = Columcount ' some calculation to get the caracter on the correct Xposition
Temp = Carcount * Byteseach
Xpos = Xpos + Temp
Xpos = Xpos + Xoffset
For Pixelcount = 0 To 7 'Loop for 8 pixels to be set or not
Ypos = A + Pixelcount 'Each pixel on his own spot
Pixel = Pixels.0 'Set the pixel (or not)
Pset Xpos , Ypos , Pixel 'Finaly we can set the pixel
Shift Pixels , Right 'Shift the byte 1 bit to the right so the next pixel comes availible
Incr Pixel
Next
Next Columcount
Next Rowcount
'Case 1 '90 degrees rotation
'For Rowcount = Row To 0 Step -8 'Loop is now counting Read_485_calc wn
' A = Rowcount + Xoffset
' A = A - 15 'Correction to set Xpos on Xoffset with rotation
' For Columcount = 0 To Colums
'Read Pixels : If Inverse = 1 Then Toggle Pixels
' Xpos = Columcount
'Temp = Carcount * Byteseach
'Xpos = Xpos + Temp
'Xpos = Xpos + Yoffset 'We want that Xoffset is still Xoffset, so we need here the change from x to y
'For Pixelcount = 7 To 0 Step -1
'Ypos = A + Pixelcount
' Pixel = Pixels.0
'Pset Ypos , Xpos , Pixel
'Shift Pixels , Right
' Incr Pixel
'Next
'Next Columcount
'Next Rowcount
'Case 2 '180 degrees rotation
'For Rowcount = Row To 0 Step -8
'A = Rowcount + Yoffset
' A = A - 7 'Correction to set Xpos on Xoffset with rotation
'For Columcount = Colums To 0 Step -1
'Read Pixels : If Inverse = 1 Then Toggle Pixels
'Xpos = Columcount
'Temp = Carcount * Byteseach
'Xpos = Xpos - Temp
'Xpos = Xpos - 8 'Correction to set Xpos on Xoffset with rotation
'Xpos = Xpos + Xoffset
'For Pixelcount = 7 To 0 Step -1
'Ypos = A + Pixelcount
'Pixel = Pixels.0
'Pset Xpos , Ypos , Pixel
'Shift Pixels , Right
'Incr Pixel
' Next
'Next Columcount
'Next Rowcount
'Case 3 '270 degrees rotation
' For Rowcount = 0 To Row Step 8
'A = Rowcount + Xoffset
'For Columcount = Colums To 0 Step -1
'Read Pixels : If Inverse = 1 Then Toggle Pixels
' Xpos = Columcount
'Temp = Carcount * Byteseach
'Xpos = Xpos - Temp
'Xpos = Xpos - 8 'Correction to set Xpos on Xoffset with rotation
'Xpos = Xpos + Yoffset
'For Pixelcount = 0 To 7
'Ypos = A + Pixelcount
'Pixel = Pixels.0
'Pset Ypos , Xpos , Pixel
' Shift Pixels , Right
'Incr Pixel
'Next
'Next Columcount
'Next Rowcount
End Select
Next Carcount
End Sub

Skala1:
$bgf "skala1.bgf"

$include "Font6x8.font"[/syntax]
PS ściąg gdzieś plik font 6x8 bo nie mogę go dołączyć

Statystyki: Napisane przez pikczu — 4 maja 2015, o 12:28

Re: scrollowanie obrazka lewo, prawo

2015-05-04T09:04:03+01:00

Dokładnie nad tym samym siedzę właśnie go konwertowałem enigmą.
Ale to nie wszystko Help pisze iż

Quote:

The X and Y parameters specify where the picture must be displayed. X and Y must be 0 or a multiple of 8. The picture height and width must also be a multiple of 8

wiec ten numer może nie przejsc tak czy tak.
---------------------------edit jakiś czas później ------------------------------------
Teraz będe gdybał ale może coś z tego wyjdzie gdy by zrobić 3 różne pliki tej grafii:
ale przesunięte w fazie
^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^. plik 1
*^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^.plik 2
**^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|. plik 3
I na przemian je wyświetlać??
* to offset

Statystyki: Napisane przez pikczu — 4 maja 2015, o 09:04

scrollowanie obrazka lewo, prawo

2015-05-03T23:11:47+01:00

Witam - mam taki problem chciał bym przesuwać obrazek lewo, prawo po jednym pikslu -ale mi nie wychodzi
obrazek przesuwa się ale skokowo - i obniża się o jeden piksel

[syntax=basic4gl]$regfile = "m32def.dat" 'mikrokontroler
$crystal = 16000000 'kwarc
'$sim
'$baud = 19200
$hwstack = 64
$swstack = 32
$framesize = 64
$lib "glcd.lib"

'------------------------------------
'konfiguracja LCD
'------------------------------------
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 5 , Cd = 6 , Wr = 3 , Rd = 4 , Reset = 7 , Fs = 2 , Mode = 6

'-------------------------------------------
Config Portb.7 = Input
'Portb = &B11111111
Set Portb.7
Config Portb.6 = Input
Set Portb.6
'Portb = &B11111111
Config Portd.6 = Output
Reset Portd.6
Config Portd.2 = Input
Set Portd.2
Config Portd.3 = Input
Set Portd.3

Dim Licz_4ms As Byte
Dim I As Long
Dim E As Word 'zmienna odczytu z enkodera lewy wskaźnik
Dim F As Long
Dim B As Long

Up Alias Pinb.7
Down Alias Pinb.6
Beep_ Alias Portd.6

'--------------------------
' włączenie timer'ów
'------------------------
Enable Interrupts
Enable Timer0
Load Timer0 = 250
'Enable Timer1
'Load Timer1 = 125
'-------------------------------
Config Int0 = Falling
On Int0 Enkoder
Enable Interrupts
Enable Int0
'------------------------------
I = 0

Cursor Off

Cls

'-------------------------------------------------

Do

I = E / 2
If I => 240 Then
I = 0
End If

Showpic I , 0 , Skala1

Locate 5 , 1 : Lcd ; I ; " I "

Loop
End

'----------------------------------------------------------
Odmierz_1s:

Load Timer0 = 250
Incr Licz_4ms
If Licz_4ms = 25 Then
Licz_4ms = 0
End If
Return

'-----------------------------------------------------
Enkoder:
Disable Int0
'Waitms 1
If Pind.2 = 0 Then
If Pind.3 = 0 Then
Incr E
Decr F
Else
Decr E
Incr F
End If
End If
Enable Int0
Return

'---------------------------------------------------

Skala1:
$bgf "skala1.bgf"[/syntax]

wyświetlacz graficzny na sterowniku T6963C 240x128
czy jest na to jakieś lekarstwo w Bascom'ie?
pozdrawiam Jacek.

proszę o pomoc.

Statystyki: Napisane przez Jacek — 3 maja 2015, o 23:11