Satır Taramalı Kayan Yazı

[badoha]

Günaydın
Bazen olur ya okudunu anlamasın.Kafan başka yerde olur. Benimkisi bu aralar öyle.
Kodları 10'cu sayfada gördüm,arayüz için faydalı olacak.Teşekkür ederim.

[badoha]

VB6 Arayüz görüntüsü

[xoom]

Güzel görünüyor.. biraz daha özellik ekleyebilirsin..yada altmenülerde sanırım

[BAHAR]

Merhabalar, visual basic 6 programını download etmem gerekti ve bu başlık ortalarında bir yerde bir arkadaş programı paylaşmış ancak içinden seri numarası çıkmadığından yükleme gerçekleştiremedim. Elinde seri numarası olanlar yazarlarsa sevinirim.

Kolay gelsin...

[xoom]

Özel Mesaj Attım.

[ronin_2000]

Herkese Merhaba Arkadaşlar
1. Sayfada ETE hocamızın 9. mesajındaki kodu protona çevirerek derlemek istedim.
Fakat aşağı ve yukarı kayma rutinlerinde bir hatayla karşılaştım. Bu sorunu nasıl aşabilirim?
Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Ekte hatanın ekran görüntüsünü gönderiyorum.

Not : Aşağı yukarı kaydırma rutinlerini kapattığım zaman program düzgün çalışıyor.

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 22.06.12                                          *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device 18F452
Xtal 20

'****************************************************************
TRISB=0 : TRISD=0  : TRISA=0 : TRISC=0 : TRISE=0
PORTB=0 : PORTD=0  : PORTA=0 : PORTC=0 : PORTE=0
INTCON2.7=0
'74HC595*********************************************************
Symbol CLK1   =PORTB.0
Symbol DTA1   =PORTB.1
Symbol STROBE1=PORTB.2
'****************************************************************
Dim SUTUN[40] As Byte 
Dim temp      As Byte
Dim ARA       As Byte
Dim SOL       As Byte
Dim SAG       As Byte
Dim I         As Byte
Dim X         As Byte
Dim W         As Byte
Dim M         As Byte
Dim a         As Byte
Dim Z         As Bit
'****************************************************************
AA:
'Satır tarama, bilgi sütunlardan geliyor
SUTUN[0]=%11111111 : SUTUN[8] =%11111111 :SUTUN[16]=%11111111 : SUTUN[24] =%11111111
SUTUN[1]=%10000000 : SUTUN[9] =%10000001 :SUTUN[17]=%10000000 : SUTUN[25] =%10000001
SUTUN[2]=%11110111 : SUTUN[10]=%11110110 :SUTUN[18]=%11110111 : SUTUN[26] =%11110110
SUTUN[3]=%11110111 : SUTUN[11]=%11110110 :SUTUN[19]=%11101011 : SUTUN[27] =%11110110 
SUTUN[4]=%11110111 : SUTUN[12]=%11110110 :SUTUN[20]=%11011101 : SUTUN[28] =%11110110
SUTUN[5]=%11110111 : SUTUN[13]=%11110110 :SUTUN[21]=%10111110 : SUTUN[29] =%11110110
SUTUN[6]=%10000000 : SUTUN[14]=%10000001 :SUTUN[22]=%11111111 : SUTUN[30] =%10000001
SUTUN[7]=%11111111 : SUTUN[15]=%11111111 :SUTUN[23]=%11111111 : SUTUN[31] =%11111111
   
'''''''
SUTUN[32] =%11111111
SUTUN[33] =%10000000
SUTUN[34] =%11111011
SUTUN[35] =%11110111
SUTUN[36] =%11101111
SUTUN[37] =%11011111
SUTUN[38] =%10000000
SUTUN[39] =%11111111
'M=0
'****************************************************************
BASLA:
    For W=0 To 4
      X=1
      For I=0 To 7
        SHOut DTA1,CLK1,1,[SUTUN[I+32],SUTUN[I+24],SUTUN[I+16],SUTUN[I+8],SUTUN[I]]
        PORTD=X
        High STROBE1 : DelayUS 200 : Low STROBE1 
        X=X*2
        DelayMS 3
      Next
    Next
    DelayMS 1
    
M=M+1
If M<40           Then GoSub sola_kay   : GoTo  BASLA
If M>40 And M<80  Then GoSub saga_kay   : GoTo  BASLA
'If M>80 and m<89  Then gosub asagi_kay  : goto  BASLA
'if m>89 and m<98  then gosub yukari_kay : goto  basla
If M>98 Then M=0
  
GoTo AA
 
'****************************************************************
sola_kay:
 For I=0 To 38
    SUTUN[I]= SUTUN[i+1] 
   If I=39 Then SUTUN[39]=SUTUN[0] 
 Next I
Return
'****************************************************************
saga_kay:
 For I=38 To 0 Step -1
    SUTUN[I]= SUTUN[i-1] 
   If I=0 Then SUTUN[0]=SUTUN[39] 
 Next I 
Return
'****************************************************************
'asagi_kay:
'for I=0 to 39
'   ARA=SUTUN[I] 
'   z=ARA.7
'FOR X=7 to 1 STEP -1
'   ARA.0[x]=ARA.0[X-1] 
'NEXT
'   ara.0=Z
'   sutun[I]=ARA
'next 
'Return
''****************************************************************
'yukari_kay:
'FOR I=0 to 39
'   ARA=SUTUN[I]
'   z=ARA.0
'FOR X=0 to 6
'   ARA.0[X]=ARA.0[X+1]
'NEXT
'   ARA.7=Z
'   SUTUN[I]=ARA
'NEXT 
'Return
End

[ete]

Proton ARA.0

• formatını sanırım kabul etmiyor.
  Yerine şunu dene, 
  
  

  ARA.Bit0[x]=ARA.Bit0[X-1] 

  
  
  Buda olamaz ise şunuda dene,
  

  ARA.[x]=ARA.[X-1] 

  
  
  Protonla çalışanlar belki hatırlarlar byte değişkeninin bitlerine nasıl ulaşılıyor acaba?
  
  Ete
  
  

[ronin_2000]

Hocam ilk yazdığınız kodda;
Variable 'BIT0' not found!

İkincisinde;
Assignment operator '=' missing!

hatası alıyorum.

[ete]

Bu durumda bilen birisinin cevaplaması gerekecek. PBP kullandığın şekilde bit ulaşımına müsaade ediyor anlaşıln Proton etmiyor.

ETE

[ronin_2000]

Hocam izniniz olursa bu soruyu Proton Basic community'de sormak isterim.

[havyar]

$FF,$81,$F6,$F6,$F6,$F6,$81,$FF
arkadaslar yukaridaki kod yani harf kodu hex mi hexdecimal mi cunku ben hex 16*8 dotmatrix hex e cevirdigimde baska bir kod veriyor birde $ isaretini eklemiyor  bunu aciklayacak arkadaslara simdiden tesekur ederim. bu koda ceviren programin download adresini verseniz

[haberlesme]

Hex Kod Hexadecimal Kod ikiside aynı şeylerdir.Senin çevirdiğin hangi program olursa olsun $ ifadesini zaten vermeyecektir.O yazdıgın kodlar Hexadecimaldir.Başına $ işaretinin eklenmesinin sebebi ise Pic Basic de hexadecimal sayılar $ işareti ile gösterilir.