Logic Contentions dedect on net

[agora_meyhanesi42]

arkadaşlar pic ile yaptıgım kayan yazı devresinde picin 74hc154 e olan baglantısında logic contentions dedect on net hatası alıyorum hatanın resmi linktedir acaba nasıl düzeltirim

[OG]

Yanlış hatırlamıyorsam ÇIKIŞ pini yine ÇIKIŞ pinine bağlandığında gösterilen çakışma ikazı. contention= mücadele ediyorlar

[agora_meyhanesi42]

Evet ama picin çıkış pinlerini 74hc154 ün abcd girişlerine uyguluyorum herkes boyle yapmış

[OG]

Evet giriş imiş. Anlam veremedim.

[agora_meyhanesi42]

Hayır picin ilgili uçları çıkış olarak tahsis edildi

[agora_meyhanesi42]

16f877 kullandım. 877nin analog pinlerini dijital olarak kullanmak istediğimizde adcon1=7 komutunu veriyoruz bildiginiz gibi. Acaba portd içinde bunun gibi bir tanımlama varmıdır ?

[OG]

Ben yazdığımı editledim ki o arada sen göndermişsin. Aradaki bağlantıları sökünce her iki taraf da gri renk mi alıyor (giriş), olmaz ama bir ihtimal ya belki.

[agora_meyhanesi42]

Hayır sökünce 74hcnin abcd uçları gri renk alıyor sadece

[OG]

Ben anlayamadım, bir bilen çıkar.

[agora_meyhanesi42]

Tamam teşekkür ederim

[agora_meyhanesi42]

Arkadaşlar bu konu hakkında daha fazla bilgisi olan yokmu ?

[dombilik]

@agora_meyhanesi42;

Arkadaşım sen bu problemine çözüm bulabildinmi?
Zira aynı dert bende de sükuut etti. 8O

[papsukkal]

hocam devrenin çalışmasında bir problem var mı? bu mesajda genelde çalışmayı etkilemiyor. ben mesajdan kurtulmak için araya ufak değerli (2-10 ohm gibi) direnc atıyorum mesaj kayboluyor.

kolaycı bir yol ama bende işe yarıyor

iyi çalışmalar

[dombilik]

Devre o hali ile hatalı çalışıyordu.Tekrar kurulum sonunda normale geldi..
Probleme bu topic de devam etmiştik..
Pinler ve renkler..

Edit link düzeltmesi (OG),
https://www.picproje.org/index.php/topic,21764.0/topicseen.html

[gokhangokcen]

merhaba arkadaşlar aynı sorun ile bende karşılaştım acaba çözüm yolu nedir yardımcı olabilirmisiniz?

bendeki problem şöyle;
64*128 glcd,18f452,ds1307,ds18s20  var devrede hobi amaçlı uğraşmak için kendime yapmak istedim.Fakat isiste similasyon yapar iken "Logic Contentions dedect on net" hatasını alıyorum.Devrenin çalışmasında hiç bir şekilde aksama yada etkilenme olmuyor gayet güzel bi şekilde çalışıyor.Devreyi reelde kurduğumdada şayetki böyle bir kısa devre durumu söz konusu olursa mutlaka lcd yada pic zarar görür diye düşünüyorum

programım şöyle;

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 02.09.2010                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 18F452
XTAL = 4
ADCON1 = 7

LCD_DTPORT = PORTD                 'GLCD DATA PORTLARI PORTB'YE BAĞLI
LCD_RSPIN = PORTB.3                'GLCD RS PİNİ PORTC.5 BAĞLI
LCD_ENPIN = PORTB.5                'GLCD ENABLE PİNİ PORTC.1 BAĞLI
LCD_RWPIN = PORTB.4                'GLCD RW PİNİ PORTC.4 BAĞLI
LCD_CS1PIN = PORTB.7               'GLCD CS1 PİNİ PORTC.2 BAĞLI
LCD_CS2PIN = PORTB.6               'GLCD CS2 PİNİ PORTC.3 BAĞLI
LCD_TYPE =  GRAPHIC                'GLCD TİPİ GRAFİK KS0108 128*64B WİNSTAR
INTERNAL_FONT = On                 
FONT_ADDR = 0
'GLCD_EXTERNAL_PRINT = PPRINT
'GLCD_CS_INVERT = 0

'Cls
'DelayMS 50	 



Declare SDA_PIN PORTB.1
Declare SCL_PIN PORTB.2

BusOut  $D0 , $00 , [ 0 ]   ' Clock Halt (CH) Ataması (Saatin çalışması için gerekli)
DelayMS 100

'''''''''''''''''''''''''''''genel değişkenler'''''''''''''''''''''''''
Dim orta As Byte
Dim deger As Byte
Dim x As Byte
Dim yuzde As Byte
Dim a As Byte
Dim acilis As Bit
                                           
''''''''''''''''''''''''''''''ds1307 kısmı baslangic''''''''''''''''''''
Dim saniye As Byte
Dim dakika As Byte
Dim saat As Byte
Dim gunadi As Byte
Dim gun As Byte
Dim gunler As string*10 
Dim ay As Byte
Dim yil As Byte
Dim s1 As Byte
Dim s2 As Byte
Dim d1 As Byte
Dim d2 As Byte
Dim sa1 As Byte
Dim sa2 As Byte
Dim g1 As Byte
Dim g2 As Byte
Dim a1 As Byte
Dim a2 As Byte
Dim y1 As Byte
Dim y2 As Byte



''''''''''''''''''''''''''''''ds1307 kısmı bitis''''''''''''''''''''

''''''''''''''''''''''''''''''ds18b20 kısmı baslangıc'''''''''''''''

Symbol DQ = PORTE.0 'iletisimin yapilacagi port
Symbol DQ1 = PORTE.1
Dim KUSUR As Word 'sicakligin virguden sonraki kismi
Dim TEMP As Word 'sicakligi tutan degisken
Dim TEMP2 As Word 'sicakligi karsilastiran degisken
Dim C As Byte 'genel amacli degisken
Dim temp3 As Word
Dim temp4 As Word
Dim k As Byte


''''''''''''''''''''''''''''''ds18b20 kısmı bitis'''''''''''''''

GoSub LOADING
DelayMS 200
acilis = 1

              
basla:
For a = 0 To 254
If a<=150 Then
GoSub saat_gster
EndIf
If a = 151 Then GoSub sil:a = a+1
If a>=152 Then GoSub sicaklik_oku
DelayMS 100 
Next



GoTo basla



sil:
Cls

Return


saat_gster:
GoSub ds1307_oku
GoSub hane_coz
GoSub guncoz

Print At 1,4,"SAAT :", #SA2,#SA1,":",#D2,#D1,":",#S2,#S1," "
Print At 3,4,"TARIH:", #G2,#G1,".",#A2,#A1,".",#Y2,#Y1
deger = Len(gunler)
deger =(20-deger)
deger = deger/2

Print At 5,deger,Str gunler
Return



'''' Değerleri okumak için de alttaki komut
ds1307_oku:
    BusIn $D0 , $00, [ saniye, dakika, saat, gunadi, gun, ay, yil ]
 
Return
 
    
'''' Okunan değerleri ekrana vermeden önce BCD dönüşümünü yap
hane_coz:
    s1 = saniye // 16   ' saniye/16 böl ve kalanı S1 e yerleştir.
    s2 = saniye - s1
    s2 = s2 // 15
    
    d1 = dakika // 16
    d2 = dakika - d1
    d2 = d2 // 15
    
    sa1 = saat // 16
    sa2 = saat - sa1
    sa2 = sa2 // 15
    
    g1 = gun // 16
    g2 = gun - g1
    g2 = g2 // 15
    
    a1 = ay // 16
    a2 = ay - a1
    a2 = a2 // 15                                       
    
    y1 = yil // 16
    y2 = yil - y1
    y2 = y2 // 15 

Return


guncoz:    

 

' Gün adı ilavesi
If gunadi = 1 Then gunler="PAZAR" 
If gunadi = 2 Then gunler="PAZARTESI"
If gunadi = 3 Then gunler="SALI"
If gunadi = 4 Then gunler="CARSAMBA"
If gunadi = 5 Then gunler="PERSEMBE"
If gunadi = 6 Then gunler="CUMA"
If gunadi = 7 Then gunler="CUMARTESI"


Return



ds1307_yaz:
    BusOut $D0 , $00 , [ saniye, dakika, saat, gunadi, gun, ay, yil ]
    DelayMS 200

Return


LOADING:
    Print At 4,5,"LOADING..."
    Print At 5,2,"%0"
    Print At 5,15,"%100"
     
    
    For x = 25 To 88  
    Select x
    Case <60
    yuzde=yuzde+2
    Case >50
    yuzde=yuzde+1
    EndSelect
    
    LCDWrite 5, x, [%1111111] 
    Print At 6,9,DEC2 yuzde
    DelayMS 50 
    Next x           
    DelayMS 100
    Cls
    
Return


sicaklik_oku:

DONGU:
OWrite DQ, 1, [$CC, $44] 'sicakligi hesaplamasi icin komut gonderiyor
Repeat
DelayMS 25 ' islem bitene kadar bekleniyor
ORead DQ, 4, [C] ' islem suresince portb.2=0 oluyor
Until C <> 0 ' islem tamam
OWrite DQ, 1, [$CC, $BE] 'sicaklik degerini RAM dan okumasi icin komut gönderiyor
TEMP2=TEMP
ORead DQ, 2,[TEMP.LowByte,TEMP.HighByte] 'sicaklik degeri sensörden okunuyor
'TEMP = TEMP >> 1''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''18s20 için
If TEMP.15=1 Then 'sicaklik sifirin altinda ise uyari geliyor
Cls
Print $FE,1
Print "SIFIRIN ALTINDA"
DelayMS 100
GoTo DONGU
EndIf

KUSUR=5000*TEMP.3 + 2500*TEMP.2 + 1250*TEMP.1 +625*TEMP.0
'virgulden sonraki kisim hesaplaniyor
If acilis = 1 Then
Inc k
If k<>2 Then GoTo DONGU

k = 0
EndIf

If KUSUR=0 Then
Print At 1,4, "IC SICAKLIK"
Print At 3,5, Dec TEMP/16,".000",Dec KUSUR," ","C"
ElseIf KUSUR<1250 Then
Print At 1,4, "IC SICAKLIK"
Print At 3,5, Dec TEMP/16,".0",Dec KUSUR," ","C"
Else
Print At 1,4, "IC SICAKLIK"
Print At 3,5, Dec TEMP/16,".",Dec KUSUR," ","C" 'print dec temp,".0",Dec KUSUR," ","C" '''''<<'''ds1820' 
EndIf

'''''dış

dongu1:

OWrite DQ1, 1, [$CC, $44] 'sicakligi hesaplamasi icin komut gonderiyor
Repeat
DelayMS 25 ' islem bitene kadar bekleniyor
ORead DQ1, 4, [C] ' islem suresince portb.2=0 oluyor
Until C <> 0 ' islem tamam
OWrite DQ1, 1, [$CC, $BE] 'sicaklik degerini RAM dan okumasi icin komut gönderiyor
temp4=temp3
ORead DQ1, 2,[temp3.LowByte,temp3.HighByte] 'sicaklik degeri sensörden okunuyor
'TEMP = TEMP >> 1''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''18s20 için
If temp3.15=1 Then 'sicaklik sifirin altinda ise uyari geliyor
Cls
Print $FE,1
Print "SIFIRIN ALTINDA"
DelayMS 100
GoTo DONGU
EndIf

KUSUR=5000*temp3.3 + 2500*temp3.2 + 1250*temp3.1 +625*temp3.0
'virgulden sonraki kisim hesaplaniyor

If acilis = 1 Then
Inc k
If k<>2 Then GoTo dongu1

k = 0
acilis = 0
EndIf

If KUSUR=0 Then
Print At 5,4, "DIS SICAKLIK"
Print At 7,5, Dec temp3/16,".000",Dec KUSUR," ","C"
ElseIf KUSUR<1250 Then
Print At 5,4, "DIS SICAKLIK"
Print At 7,5, Dec temp3/16,".0",Dec KUSUR," ","C"
Else
Print At 5,4, "DIS SICAKLIK"
Print At 7,5, Dec temp3/16,".",Dec KUSUR," ","C" 'print dec temp,".0",Dec KUSUR," ","C" '''''<<'''ds1820' 
EndIf


Return



 
Include "FONT.inc"
Include "Arialk12.txt"
Include "ARIAL8.TXT"

dosya eklemeyi bilmediğim için arkadaşlar tam olarak isis devre şemasını resim olarak ekledim.