↑ ↓

Pbp ile TV'de karakter oluşumu

Başlatan My75, 27 Mart 2007, 14:46:28

Yazdır
Aşağı git
Kullanıcı Eylemleri

My75

27 Mart 2007, 14:46:28
Selam arkadaşlar nette assembler ile yazılmış test generatör programlarına rastladım,pbp ile tv ekranında (composit video girişi) herhangi bir karakter,yazı veya grafik oluşturabilirmiyiz? Oluşturulabilirse bu osd şeklinde olabilirmi?(on screen display)..Bununla ilgili örnek kodlar varsa verirmisiniz..Tesekkürler..
Tomurcuk için çaba göstermeyen dal,odun kalmaya mahkumdur...

aslan_korhan

#1
28 Mart 2007, 03:58:17
PIC den siyah beyaz OSD alabilirsin. Renkli için PIC'in düşük hızından dolayı olmuyor.
Resim üzerine yazı istiyorsan ekstra donanım kullanmak gerekiyor.
Bu durumda iş biraz karışacak. MC1377 kullanırsan renkli sinyal alabiliyorsun.
PBP ile yapılır ama iyi hesap yapmak gerekir. Mikrosaniye cinsinden sinyaller kullanılıyor.

Bence en iyisi STV5730. I2C olduğundan PIC'e sadece 2 uç bağlamak yetiyor. Ayrıca Renkli ve resim üzerinde yazı oluşturabiliyorsun tam istediğin gibi...

Sanırım İstanbul'da bu entegre bulunuyormuş...
Dünyada 10 çeşit insan vardır. Binary bilen ve bilmeyenler.

My75

#2
28 Mart 2007, 12:08:10
Evet hocam bu entegreyi duymuştum fakat bunla ilgili örnek kodlar arıyorum..Vertikal  horizantal senkron ve  frekans  hesapları için gerekli olan koordinatlar tam olarak ne bilmiyorum..Cevap için tesekkürler..
Tomurcuk için çaba göstermeyen dal,odun kalmaya mahkumdur...

aslan_korhan

#3
28 Mart 2007, 21:51:38
Net'te bununla ilgili baya döküman bulmuştum bir ara.
Çok fazla hesap yapmaya gerek kalmıyor.
Sadece renkleri, karakterleri falan nereye koyacağın hesaplanıyor.
PBP'de I2C işlemi kolay.

I2CWWRITE SDA, SCL,     ve bundan sonra kodları yazman yetiyor.

Banada bir yerden bu entegreden gelecek bu aralar.
Geldiğinde birkaç deneme yapacağım. Bilgi veriririm. Pratik olarak bir uygulama yapmadım henüz bu entegre ile...
Dünyada 10 çeşit insan vardır. Binary bilen ve bilmeyenler.

My75

#4
29 Mart 2007, 15:43:17
Biraz araştırmadan sonra dediğiniz şekilde yapıldığını gördüm,bir kaynaktan pbp ile yazılmış kod buldum ama açıklamalar fransızca olduğu için pek bir şey anlamadım...Kod aşağıda...


' OSDCSX.bas  version 2.0
'Incrustateur de texte avec STV5730A et PIC 16F628 - 4 MHz
' Source pour PICBasic PRO
' Risto Kõiva 2001,  F1FCO & F6CSX, mars 2003
' tourne sur platine incrustateur F1UBZ (partie RS232/MAX232 inutile) ou demo board  STV5730
' mode page, barres de couleur
'changement cyclique de la couleur du fond
' affichage bande 23cm ou 70 cm selon état de la pin 18 (RA1)


' ** DÉFINITION HARDWARE **

   CMCON = 7        'mets le 16F628 en mode digital sur le PORT A


   Clk           VAR PORTB.5
   Sda           VAR PORTB.6
   Csn           VAR PORTB.4
   Mute      VAR PORTB.7   ' 0 si synchro valide, 1 si pas de synchro
   Mode      VAR PORTB.3   'pin #9 , 0 = mode Page, 1 = Mode mixte
   On_off      VAR PORTA.2   ' Arrêt de l'incrustateur : pin #1,  0=off, 1=on   
   Band      VAR   PORTA.1   'incrustation 23 cm si 0 ou 70 cm si 1
   
INPUT   Mode
INPUT    Mute
INPUT   On_off
INPUT   Band

OUTPUT   Clk
OUTPUT   Sda
OUTPUT Csn

'** DEFINITION DES VARIABLES **
   
   iCount        VAR BYTE
   Bit_Counter    VAR BYTE
   wData         VAR WORD
   c                    VAR WORD
   b1      VAR    BYTE
   b2      VAR   BIT
   b3      VAR    BIT
   b4      VAR   BIT
   
   W1      VAR   BYTE
   W2      VAR   BYTE
   
   ' ** DEBUT DU PROGRAMME **
   
   GOSUB Init      'initialisation
   GOSUB  Mode_mixte      'Mode mixte par défaut
   GOSUB affiche_mixte
   b1=1
   b2=1
   b3=0   
   
Boucle:   

   b1= On_off
   IF b1= 0 THEN Incrust_off   'surveille le bouton On_off
   b4= Band
   IF b4 = 0 THEN
      W1= $02
      W2= $03
      ELSE
      W1= $07
      W2= $00
   ENDIF
      
   b3=MODE      'lit l'entrée MODE   
   IF b3=b2 THEN Saute      'on ne change rien
      
   IF b3=1 THEN       'Si MODE = 1 : Mode Mixte, incrustation sur l'image
      
      GOSUB  Mode_mixte
      GOSUB affiche_mixte       
      b2 = b3
      ELSE
      GOSUB Mode_page    ' Mode Page: Mire      
      FOR c=0 TO 6
      wData = $00CD : GOSUB Send    '  (pointe à l'adresse 13)
      wData = $1000 + ($201 * c) : GOSUB Send    'change de couleur de fond
      GOSUB affiche_page
      PAUSE 2000
      NEXT c
      b3=Mode   'lit le mode
      b2=~b3   'b2 n'est pas égal à b3, on ne saute pas et on recommence
   ENDIF
      
   PAUSE 500
   GOTO Boucle      

Saute:
   PAUSE 200
   GOTO Boucle


   END
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
Incrust_off   :   ' Pas d'incrustation. On se met en mode mixte et on efface l'écran

      GOSUB  Mode_mixte
      PAUSE 100
      b1=1
      b3=Mode   'lit le mode
      b2=~b3   'b2 n'est pas égal à b3, on ne saute pas
      GOTO Boucle
         
'--------------------------------------------------------------------------------------------------------------------------------------------------------------   
Efface_ecran:   ' Pas d'incrustation
   
   wData = 0 : GOSUB Send         ' pointe en haut à gauche de l'écran (0,0)
   c=1
   FOR c=1 TO 308               'on efface l'écran avec des espaces (0B)
   wData = $1700+$0B : GOSUB Send   '$1700: background disabled, caractère blanc non clignotant
   NEXT c
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------    
affiche_mixte:   'affichage en mode incrustation
 
   wData = 0 : GOSUB Send        'ne pas omettre cette ligne : position 0,0
   wData = $1780 + $6E : GOSUB Send     'parabole clignottante
   wData = $170B : GOSUB Send     'espace
   wData = $1700 + $11 : GOSUB Send     'F
   wData = $1700 + $06 : GOSUB Send     '6   
   wData = $1700 + $0E : GOSUB Send      'C   
   wData = $1700 + $1E : GOSUB Send      'S
   wData = $1700 + $23 : GOSUB Send     'X

    wData = $170B       : GOSUB Send          'espace
    wData = $170B       : GOSUB Send          'espace
    wData = $170B       : GOSUB Send          'espace
         
   wData = $1700 + $18       : GOSUB Send   'M  
   wData = $1700 + $0C       : GOSUB Send   'A
   wData = $1700 + $1D       : GOSUB Send   'R
   wData = $1700 + $1E       : GOSUB Send   'S
   wData = $1700 + $10       : GOSUB Send   'E
   wData = $1700 + $14       : GOSUB Send   'I
   wData = $1700 + $17       : GOSUB Send   'L   
   wData = $1700 + $17       : GOSUB Send   'L
   wData = $1700 + $10       : GOSUB Send   'E   
   
    wData = $170B       : GOSUB Send          'espace
    wData = $170B       : GOSUB Send          'espace
    wData = $170B       : GOSUB Send          'espace    
   
   wData = $1700 + $15       : GOSUB Send   'J  
   wData = $1700 + $19       : GOSUB Send   'N
   wData = $1700 + $02       : GOSUB Send   '2
   wData = $1700 + $03       : GOSUB Send   '3
   wData = $1700 + $1D       : GOSUB Send   'R
   wData = $1700 + $13       : GOSUB Send   'H
       
   PAUSE 1000   
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
affiche_page:   'affichage en mode page

' Première ligne en Zoom maxi
 
   wData = 0 : GOSUB Send        'ne pas omettre cette ligne : position 0,0 Ligne 0
   wData = $1F0B : GOSUB Send     'espace
   wData = $1F00 + $11 : GOSUB Send     'F avec arrière plan bleu
   wData = $1F00 + $06 : GOSUB Send     '6   
   wData = $1F00 + $0E : GOSUB Send      'C   
   wData = $1F00 + $1E : GOSUB Send      'S
   wData = $1F00 + $23 : GOSUB Send     'X


   wData = $100       : GOSUB Send   'ligne 1
   wData = $170B : GOSUB Send     'espace
   wData = $170B : GOSUB Send     'espace
   wData = $1700 + $1A       : GOSUB Send   'O  avec arrière plan noir
   wData = $1700 + $39       : GOSUB Send   'p
   wData = $1700 + $26       : GOSUB Send   ':
   wData = $1700 + $15       : GOSUB Send   'J
   wData = $1700 + $1A       : GOSUB Send   'O
   wData = $1700 + $10       : GOSUB Send   'E
   wData = $1700 + $17       : GOSUB Send   'L
    wData = $170B : GOSUB Send     'espace
   wData = $170B : GOSUB Send     'espace
   wData = $170B : GOSUB Send     'espace
   wData = $170B : GOSUB Send     'espace
   
   wData = $1700 + $1C       : GOSUB Send   'Q
   wData = $1700 + $1F       : GOSUB Send   'T
   wData = $1700 + $13       : GOSUB Send   'H  
   wData = $1700 + $26       : GOSUB Send   ':    
   wData = $1700 + $18       : GOSUB Send   'M  
   wData = $1700 + $0C       : GOSUB Send   'A
   wData = $1700 + $1D       : GOSUB Send   'R
   wData = $1700 + $1E       : GOSUB Send   'S
   wData = $1700 + $10       : GOSUB Send   'E
   wData = $1700 + $14       : GOSUB Send   'I
   wData = $1700 + $17       : GOSUB Send   'L   
   wData = $1700 + $17       : GOSUB Send   'L
   wData = $1700 + $10       : GOSUB Send   'E

   wData = $200       : GOSUB Send   'ligne 2
   wData = $1700 + $1E       : GOSUB Send   'S
   wData = $1700 + $1A       : GOSUB Send   'O
   wData = $1700 + $19       : GOSUB Send   'N    
   wData = $1700 + $26       : GOSUB Send   ':
   wData = $1700 + $01       : GOSUB Send   '1
   wData = $1700 + $04       : GOSUB Send   '4    
   wData = $1700 + $05       : GOSUB Send   '5
   wData = $1700 + $27       : GOSUB Send   '.
   wData = $1700 + $02       : GOSUB Send   '2
   wData = $1700 + $02       : GOSUB Send   '2    
   wData = $1700 + $05       : GOSUB Send   '5
   wData = $1700 + $18       : GOSUB Send   'M
   wData = $1700 + $13       : GOSUB Send   'H    
   wData = $1700 + $43       : GOSUB Send   'z
   wData = $170B : GOSUB Send     'espace    
   wData = $1700 + $38       : GOSUB Send   'o
   wData = $1700 + $3E       : GOSUB Send   'u      
   wData = $170B : GOSUB Send     'espace
   wData = $1700 + $01       : GOSUB Send   '1
   wData = $1700 + $04       : GOSUB Send   '4    
   wData = $1700 + $05       : GOSUB Send   '5    
   wData = $1700 + $27       : GOSUB Send   '.
   wData = $1700 + $04       : GOSUB Send   '4  
   wData = $1700 + $00       : GOSUB Send   '0    
   wData = $1700 + $00       : GOSUB Send   '0
   wData = $1700 + $18       : GOSUB Send   'M
   wData = $1700 + $13       : GOSUB Send   'H    
   wData = $1700 + $43       : GOSUB Send   'z    
     
                                       
' Barres de couleur , 4 lignes  
 
FOR iCount = $0 TO $3
   wData = $300 + $100*iCount  : GOSUB Send        'pointe au début de la ligne 3
   
      
   wData = $170B : GOSUB Send     'espace
   wData = $170B : GOSUB Send     'espace
   
   wData = $1877 : GOSUB Send      'noir
   wData = $1877 : GOSUB Send
   wData = $1877 : GOSUB Send

   wData = $1977 : GOSUB Send
   wData = $1977 : GOSUB Send
   wData = $1977 : GOSUB Send

   wData = $1A77 : GOSUB Send
   wData = $1A77 : GOSUB Send
   wData = $1A77 : GOSUB Send

   wData = $1B77 : GOSUB Send
   wData = $1B77 : GOSUB Send
   wData = $1B77 : GOSUB Send

   wData = $1C77 : GOSUB Send
   wData = $1C77 : GOSUB Send
   wData = $1C77 : GOSUB Send

   wData = $1D77 : GOSUB Send
   wData = $1D77 : GOSUB Send
   wData = $1D77 : GOSUB Send    

   wData = $1E77 : GOSUB Send
   wData = $1E77 : GOSUB Send
   wData = $1E77 : GOSUB Send    

   wData = $1F77 : GOSUB Send
   wData = $1F77 : GOSUB Send
   wData = $1F77 : GOSUB Send       'blanc
    NEXT iCount  

   
   wData = $700 : GOSUB Send
   FOR iCount = $1 TO $8
    wData = $170B       : GOSUB Send     'espace
    NEXT iCount
   wData = $1700 + $5F       : GOSUB Send   '*
   wData = $1700 + $5F       : GOSUB Send   '*
   wData = $1700 + $5F       : GOSUB Send   '*
   wData = $170B       : GOSUB Send     'espace
   wData = $1780 + W1       : GOSUB Send   '2 ou 7
     wData = $1780 + W2       : GOSUB Send   '3 ou 0
     wData = $1780 + $2C       : GOSUB Send   'c
     wData = $1780 + $36       : GOSUB Send   'm
     wData = $170B       : GOSUB Send     'espace
     wData = $1700 + $5F       : GOSUB Send   '*
   wData = $1700 + $5F       : GOSUB Send   '*
   wData = $1700 + $5F       : GOSUB Send   '*
     
 
  PAUSE 1000   
   
   RETURN

'--------------------------------------------------------------------------------------------------------------------------------------------------------------
WasteTime:      'temporisation 2 cycles d'horloge
   ASM
     nop
     nop
   ENDASM
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
StartCommunication:            ' début de transmission Fig 2 page 12 notice STV5730A
   HIGH Clk : GOSUB WasteTime      ' Clock à 1
   LOW Csn  : GOSUB WasteTime      ' Chip select à 0
   LOW Clk  : GOSUB WasteTime      ' Clock à 0
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
StopCommunication:            ' fin de transmission
   HIGH Clk : GOSUB WasteTime      ' Clock à 1
   HIGH Csn : GOSUB WasteTime      ' Chip select à 1
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
SendOne:               'envoi d'un bit 0
   HIGH Sda : GOSUB WasteTime
   LOW  Clk : GOSUB WasteTime
   HIGH Clk : GOSUB WasteTime
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
SendZero:               'envoi d'un bit 1
   LOW Sda  : GOSUB WasteTime
   LOW Clk  : GOSUB WasteTime
   HIGH Clk : GOSUB WasteTime
   HIGH Sda : GOSUB WasteTime
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
OutByte:               ' envoi d'un mot de 16 bits
   FOR Bit_Counter = 1 TO 16
    IF wData.15 = 1 THEN      ' MSB en premier
     GOSUB SendOne
    ELSE
     GOSUB SendZero
    ENDIF
    wData = wData << 1
   NEXT Bit_Counter
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
Send:
   GOSUB StartCommunication
   GOSUB OutByte
   GOSUB StopCommunication
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------
Init:     ' ** INITIALISATION   ( voir page 12 du DATA SHEET STV5730)

   HIGH Clk : HIGH Sda : HIGH Csn
   wData = $3000 : GOSUB Send    ' Init STV5730
   wData = $3000 : GOSUB Send
   wData = $00DB : GOSUB Send
   wData = $1000 : GOSUB Send
   RETURN
'--------------------------------------------------------------------------------------------------------------------------------------------------------------   
Mode_page:   ' INITIALISATION EN MODE PAGE

   wData = $00CC : GOSUB Send    ' Initialisation des registres  (pointe à l'adresse 12)
   wData = $150F : GOSUB Send    ' Zoom
   wData = $1201 : GOSUB Send    ' Color
   wData = $1FC5 : GOSUB Send   ' Control
   wData = $15A1 : GOSUB Send    ' Position (horizontal 33, Vertical 22)
   wData = $193E : GOSUB Send    ' Mode

   wData = $00C0 : GOSUB Send    ' Set row attributes (pointe à l'adresse de la première ligne)
    wData = $10C4 : GOSUB Send   '(position verticale=4 , caractères avec bordure, caractères affichés, position horizontale =0)
     wData = $10C4 : GOSUB Send   '(position verticale=4 , caractères avec bordure, caractères affichés, position horizontale =0)
    wData = $10C4 : GOSUB Send   '(position verticale=4 , caractères avec bordure, caractères affichés, position horizontale =0)
   wData = $10C8 : GOSUB Send
   FOR iCount = 0 TO 2   
    wData = $10C0 : GOSUB Send   '(position verticale=0 , caractères avec bordure, caractères affichés, position horizontale =0)
   NEXT iCount      ' Idem pour les 10 lignes suivantes
    wData = $10C8
   
    GOSUB Efface_ecran
   RETURN

'--------------------------------------------------------------------------------------------------------------------------------------------------------------
Mode_mixte:   'INITIALISATION EN MODE MIXTE

   wData = $00CC : GOSUB Send    ' Initialisation des registres  (pointe à l'adresse 12)
   wData = $1000 : GOSUB Send    ' Zoom (1pixel/point - 1 pixel/ligne)
   wData = $1204 : GOSUB Send    ' Color (fond de page, trait, fond de caractère rouges)
   wData = $1FD4 : GOSUB Send   ' Control (mode mixte,fond de caractère controlé par BE,display on, couleur caract selon attribut caract
            ' clignottement 0.5s, rapport cyclique 0.5, synchro par le STV, PAL, niveau luminance externe, mode full page normal
   wData = $15A1 : GOSUB Send    ' Position (horizontal 33, Vertical 22)
   wData = $183E : GOSUB Send    ' Mode (BAR déconnecté, détection de pulse synchro,Mute interne,cte temps mute 32 lignes, synchro réinsérée, gain video 6dB
            ' codeur couleur en service, video out2 = video in, video out2 low impedance, mode normal, pas de compensation de delai,
            ' mute non synchro avec synchro verticale

   wData = $00C0 : GOSUB Send    ' Set row attributes (pointe à l'adresse de la première ligne)
   FOR iCount = 0 TO 10   
    wData = $10C4 : GOSUB Send   '(position verticale=4 , caractères avec bordure, caractères affichés, position horizontale =0)
   NEXT iCount      ' Idem pour les  lignes suivantes
   GOSUB Efface_ecran
   RETURN
Tomurcuk için çaba göstermeyen dal,odun kalmaya mahkumdur...

aslan_korhan

#5
29 Mart 2007, 20:23:01
Aynisini bende bulmuştum. Gerçi bu olay daha basit bir şekildede yazılabilir.
Ama entegre gelmede birşey yapamıyorum...
Dünyada 10 çeşit insan vardır. Binary bilen ve bilmeyenler.
Yazdır
Yukarı git
Kullanıcı Eylemleri
▲