Şimdi Ara

Visual Basic Yardım!!

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
1
Cevap
0
Favori
331
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • @ DEVICE pic16F628A 'işlemci 16F628
    @ DEVICE pic16F628A, WDT_on 'Watch Dog timer kapalı
    @ DEVICE pic16F628A, PWRT_ON 'Power on timer açık
    @ DEVICE pic16F628A, PROTECT_OFF 'Kod Protek kapalı
    @ DEVICE pic16F628A, MCLR_off 'MCLR pini kullanılıyor.
    @ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak

    include "modedefs.bas" 'SERİN VE SEROUT KOMUTLARININ ÇALIŞMASI İÇİN GEREKLİ KÜTÜPHANE DOSYASI
    VERI var byte 'SERİ İLETİŞİMDE VERİLECEK VERİ
    TRISB=%11111111 'PORTB TAMAMI GİRİŞ
    CMCON=7 'KOMPARATÖR PİNLERİ DİJİTAL GİRİŞ VEYA ÇIKIŞ
    OPTION_REG=7 'PULL UP DİREÇLERİ İPTAL
    PORTB=0 'PORTB İÇERİĞİ SIFIR NEDENİ İSE İLK ENERJİ VERİLDİĞİNDE GİRİŞ VEYA ÇIKIŞLAR AKTİF OLMAMASI İÇİN
    BASLA:
    VERI = PORTB 'VERİ=PORTB EŞİTLE
    serout PORTA.1,T300,["320VOLT",VERI] 'PORTA.1 320VOLT VERİSİNİ GÖNDER
    goto basla 'BASLA ETİKETİNE GİT



    ?







  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.