vbasic kodunun c ye çevrilmesii

[moonstar52]

arkadaşlar aşağıda verdiğim kodları c şeklinde istiyorum yardımcı olursanız sevinirim

alıcı için olan kodlar
***************************************************************
DEFINE OSC 4
TRISA=%00000001
TRISB=%00000000
PORTA=0
PORTB=0


@ DEVICE pic16F628 'islemci 16F628
@ DEVICE pic16F628, WDT_on 'Watch Dog timer açık
@ DEVICE pic16F628, PWRT_ON 'Power on timer açık
@ DEVICE pic16F628, PROTECT_OFF 'Kod Koruma kapalı
@ DEVICE pic16F628, MCLR_OFF 'MCLR pini kullanılıyor.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak


GIRIS VAR PORTA.0
AL VAR BYTE
AL=0
PAUSE 200


BASLA:


SERIN2 PORTA.0,396,[WAIT("MCT"),AL]

IF AL=20 THEN ;İLERİ
PORTB=1
ENDIF

IF AL=40 THEN ;GERİ
PORTB=2
ENDIF


IF AL=70 THEN ;SAG
PORTB=4
ENDIF


IF AL=120 THEN ;SOL
PORTB=8
ENDIF

IF AL=90 THEN ;İLERİ+SAG
PORTB=5
ENDIF

IF AL=140 THEN ;İLERİ+SOL
PORTB=9
ENDIF

IF AL=110 THEN ;GERİ+SAG
PORTB=6
ENDIF

IF AL=160 THEN ;GERİ+SOL
PORTB=10
ENDIF

IF AL=0 THEN PORTB=0
GOTO BASLA
END
verici için olan kodlar
***************************************************************
@ DEVICE pic16F628,
@ DEVICE pic16F628, WDT_on
@ DEVICE pic16F628, PWRT_ON
@ DEVICE pic16F628, PROTECT_OFF
@ DEVICE pic16F628, MCLR_OFF
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT
'-------------------------------------------------------------------------------
CMCON=7 '16F628 de komparatör pinleri iptal hepsi giriş çıkış
OPTION_REG.7=0 'Dahili pull-up lar AKTİF yapıldı
PORTA=0
TRISA=%00000000
PORTB=0
TRISB=%00001111
'-------------------------------------------------------------------------------


TUS1 VAR PORTB.0 ;iLERİ
TUS2 VAR PORTB.1 ;GERİ
TUS3 VAR PORTB.2 ;SAG
TUS4 VAR PORTB.3 ;SOL
VERI VAR BYTE
'-------------------------------------------------------------------------------
PAUSE 200
VERI=0
'-------------------------------------------------------------------------------
BASLA:
If TUS1=0 Then
If TUS3=0 Then
VERI=90
While TUS1=0 And TUS3=0:GoSub VERI_GONDER:Wend
EndIf
If TUS4=0 Then
VERI=140
While TUS1=0 And TUS4=0:GoSub VERi_GONDER:Wend
EndIf
VERI=20:GoSub VERi_GONDER:GOTO BASLA
EndIf
BASLA2:
If TUS2=0 Then
If TUS3=0 Then
VERI=110
While TUS2=0 And TUS3=0:GoSub VERi_GONDER:Wend
EndIf
If TUS4=0 Then
VERI=160
While TUS2=0 And TUS4=0:GoSub VERi_GONDER:Wend
EndIf
VERI=40:GoSub VERi_GONDER:GOTO BASLA2
EndIf


If TUS3=0 Then
WHILE TUS3=0 AND TUS4=0
VERI=70:GOSUB VERI_GONDER
WEND
VERI=70:GoSub VERi_GONDER
EndIf
If TUS4=0 Then
WHILE TUS4=0 AND TUS3=0
VERI=120:GOSUB VERI_GONDER
WEND
VERI=120:GoSub VERi_GONDER
ENDIF


WHILE TUS1=1 AND TUS2=1 AND TUS3=1 AND TUS4=1
VERI=0:GOSUB VERI_GONDER
WEND
GoTo BASLA


'--------------------------------ALT PROGRAM------------------------------------
VERI_GONDER:
SEROUT2 PORTA.0,396,["M","C","T",VERi]
SEROUT2 PORTA.0,396,["M","C","T",VERI]
RETURN
END
***************************************************************

 

[seagate]

void setup{
blah;
blah;
haberleşme ayarı;
}
void loop{
bakkala git cigara al;
o yoksa bunu al;
}
Çokmu basit oldu ? eksik bir şey mi var ?

 

[By-CoD3rS]

void setup{
blah;
blah;
haberleşme ayarı;
}
void loop{
bakkala git cigara al;
o yoksa bunu al;
}
Çokmu basit oldu ? eksik bir şey mi var ?

hiç ricada yok arkadaşlar C kodunda istiyorum ...Muş

 

[moonstar52]

kardeşim sen herkese muhalefet mi oluyorsun forumda msjların hp tartışamya yönelik

 

[By-CoD3rS]

Yazmış oldugun yazı bana Hitaben İse cevap vereyim

kardeşim sen herkese muhalefet mi oluyorsun forumda msjların hp tartışamya yönelik

Kime yardım ettiklerimi görmek istersen mesajlarımın tümü paylaştıgım yazıları ve o kişilerin benim hakkımda olan fikirlerini al... O an anlarsın sadece Karakteristlik özeliği insanlara yardım ettiğimi..

 

[seagate]

kardeşim sen herkese muhalefet mi oluyorsun forumda msjların hp tartışamya yönelik

Sizin fikriniz nedir arkadaşla ilgili ? Önemli olan o dur.
Kopyala yapıştırla uzaya mekik yollanmaz arkadaşım veya en azından program yazılmaz. Sizin istediğiniz format da zaman ayırıp size yardım etsek bundan kaç kişi faydalanır ?
Önemli olan |bilgi| (mutlak bilgi) vermek ve kullanıcıların daha büyük kısmına hitap etmektir.
Yukarda verdiğim örneğe baksan 10 dakikada C ile hiçbir alakan olmasa bile yazarsın çünkü zaten hazır VB kodları var.

Kolay gelsin...

 

[moonstar52]

yani normal msj yazmka varken ne dalga geçer gibi yazıosn muş lu miş li ben kotu bişey mı yazmısım orda

 

[moonstar52]

saolun sizede kolay gelsin teşekkürler arkadaşla ilgli bnm kotu dusncm yok o gelmiş yazının altına manalı bişey yazmış ben emir verir şekilde bi yardım istemedm heralde